Source image: P1030141.JPG
PROGM 080 4 0 GENERATOR
ENTRY 166 3
D1 14 2 195 0
B1 15 2 75 0
A1 7 2 75 0
A2 8 0 75 0
A6 7 0 75 0
CHAPS 9 100 101 200 326 445 557 558 559 564
INDEX 3 1 2 2 2 2 2 2 1 2
*1001 3 24 0 2
*1002 4 50 0 2
*1003 6 450 0 2
*1004 17 50 0 2
*1005 22 225 0 2
*1006 19 330 0 2
*1007 21 120 0 2
*1008 94 50 0 2
*1009 42 26 0 2
*1010 40 26 0 2
*1011 41 500 0 2
*1012 44 5 0 2
*1013 2 5 0 1
*1014 18 1250 0 1
*1015 25 120 0 1
*1016 1 23 0 3
*1017 28 23 0 3
*1018 29 22 0 3
*1019 66 12 0 4
*1020 67 2 0 4
*1021 61 60 0 4
*1022 72 16 0 5
*1023 53 0 0 3
*1024 77 22 0 3
Source image: P1030142.JPG
*1025 70 0 0 3
*1026 54 80 0 3
*1027 55 25 0 3
*1028 92 19 0 2
*1029 23 24 0 2
*1030 27 10 0 2
*1031 10 195 1 2
*1032 5 75 1 1
*1033 7 75 1 2
*1034 24 6 0 2
*1035 8 75 1 1
*1036 9 75 1 1
*1037 11 10 0 5
*1038 13 16 0 5
*1039 16 20 0 5
*1040 15 50 0 5
*1041 26 540 0 5
*1042 12 60 0 3
*1043 93 225 0 3 PASS 1 OLD/NEW PROCR INDEX
*1044 97 330 0 3
*1045 52 120 0 3
*1046 20 150 0 4 PASS 2 100 ACTIVE SEQ CHANGES FORWA
*1047 91 516 0 9 IPS ANNEXE
*1048 14 0 0 4 DUMMY
10000 PROCR 100 100 CHAPTER ONE
10001 NOTES MAIN OVERLAY ORDER TO RECALL PASS 0 SELECT
16615>10002 152 101 2 0 0 0 101 OVERLAY
10003 C 445 2 0 0 0 445
10004 76 555 3 0 0 0 555 >ENTER IPS JUMP unconditional
17012>
32914>
48323>
53750>
53756>10005 152 101 2 0 0 0 101 OVERLAY
10006 C 101 2 0 0 0 101
10007 76 166 2 0 0 0 166 >PASS 0 JUMP unconditional
10100 PROCR 101 101 CALL PASS 1
18238>10102 152 101 2 0 0 0 101 OVERLAY
10103 C 200 2 0 0 0 200
10200 PROCR 102 102 STORE REGISTER,SEARCH FOR FIRST BLOCK,TEST M/T FILE
10201 NOTES RADIX SELECT
16938>10202 10 0 0 0 1 CD INDICATOR SELECT LITERAL
10203 5 153 4 1 0 0 153 TRANSFER
10204 27 9 0 0 0 SELECT
10205 71 105 56 0 0 0 105 >OPEN A9 JUMP IF A != 0
10206 27 8 0 0 0 SELECT
10207 5 152 19 0 0 0 152 >W/L TRANSFER
10208 100 999 0 0 3 0 BINARY OPEN PRINTER set radix
10209 101 19 1 3 0 select literal address
10210 80 136 2 0 0 0 136 > ENTER SUBROUTINE
10573>10211 40 A1 0 0 0 1 MT IN OPEN FILE
10212 83 133 2 0 0 1 133 DON'T TEST UNTIL PROCR SET SWITCH(ES) AT LITERAL VALUE
10213 60 0 0 0 0 SET DECIMAL RADIX
10214 54 41 0 0 0 1000 BULK CLEAR
10215 80 190 2 0 0 0 190 >SET TO PASS1 ENTER SUBROUTINE
10216 40 6 2 0 0 STORE OLD SER SELECT
10217 5 155 4 1 0 0 155 TRANSFER
Source image: P1030143.JPG
10218 40 4 2 0 0 SELECT
10219 5 155 2 1 0 0 155 STORE PROG ID TRANSFER
10300 PROCR 103 103 FORM UP CONTROL BLOCK
10301 NOTES RADIX 0 SELECT
10302 62 0 0 0 0 SET EXCESS CONSTANTS
10303 83 140 2 0 0 1 140 BEFORE ROUTES SET SWITCH(ES) AT LITERAL VALUE
10304 5 150 18 1 0 0 150 CLEAR TRANSFER
10305 54 153 10 0 0 6 153 BULK CLEAR
10306 62 0 0 0 0 SET EXCESS CONSTANTS
10307 101 15 1 3 0 OPEN B1 select literal address
10308 104 152 22 0 0 0 152 0=PT 1=CARDS add (N) to (A)
10309 118 5 0 1 0 shift arithmetic
10310 104 999 8 0 0 0 add (N) to (A)
10311 100 152 24 1 2 0 152 replace (B) by (N)
10312 125 4096 1 1 0 clear indicators
10313 124 999 0 0 3 0 modify address of next
10314 123 160 0 2 0 >ENTER MASTER enter master routine
10315 80 135 2 0 0 0 135 >READ P/T S/R READ NEXT BLOCK ENTER SUBROUTINE
10316 153 8 0 0 0 153 TEST IF 'LOCKOUT' BLOCK SELECT
10317 12 0 0 0 SUBTRACT LITERAL
10318 71 103 22 0 0 0 103 N > JUMP IF A != 0
10319 153 9 0 0 0 153 STORE LINE SERIAL SELECT
10320 5 152 26 0 0 0 152 TRANSFER
10321 80 135 2 0 0 0 135 > READ P/T S/R READ NEXT BLOCK ENTER SUBROUTINE
10318>10322 153 8 0 0 0 153 TEST TYPE 1 TEST IF CONTROL SELECT
10323 12 0 0 0 1 BLOCK SUBTRACT LITERAL
10324 71 170 6 0 0 0 170 >*03 JUMP IF A != 0
10325 35 0 0 0 1100 PREPARE FOR DIGIT COLLATION
10326 36 155 4 0 0 0 155 VERSION COLLATE AND ADD
10327 70 103 30 0 0 0 103 >OK JUMP IF A == 0
10328 12 0 0 0 9900 SUBTRACT LITERAL
10329 71 190 48 0 0 0 190 >*02 NOT BASIC JUMP IF A != 0
10327>10330 155 4 0 0 0 155 SELECT
10331 60 0 0 0 0 SET DECIMAL RADIX
10332 11 0 0 0 1 ADD LITERAL
10333 5 153 2 0 0 0 153 TRANSFER
10334 62 0 0 0 0 SET EXCESS CONSTANTS
10335 153 9 0 0 0 153 MACHINE NO SELECT
10336 30 0 0 0 2 SHIFT (A) BY QUARTETS
10337 37 153 2 0 0 0 153 NEW SER REPLACE SELECTED BITS
10338 80 135 2 0 0 0 135 >READ P/T S/R ENTER SUBROUTINE
10400 PROCR 104 104 AMEND CONTROL BLOCK IF NECESSARY
10401 NOTES RADIX SELECT
10428>10402 153 8 0 0 0 153 TEST TYPE 2 TEST IF CONTROL SELECT
10403 12 0 0 0 2 BLOCK NEEDS AMENDT SUBTRACT LITERAL
10404 71 104 32 0 0 0 104 >NO >NO JUMP IF A != 0
10405 54 41 0 0 0 35 BULK CLEAR
10406 152 22 0 0 0 152 SELECT
10407 71 104 29 0 0 0 104 >CARDS JUMP IF A != 0
10408 51 5 0 0 0 0 UNPACK VARIABLE FIELD DATA
10409 C 158 6 0 0 0 158 ALPHA>NUMERIC
10431>10410 91 154 4 0 11 0 154 0/0 SET MR FOR SET MODIFICATION REGISTER AT VARIABLE
10426>10411 91 154 4 0 12 0 154 AMENDTS SET MODIFICATION REGISTER AT VARIABLE
10412 101 3 0 1 0 prepare for digit collation
10413 125 0 1 2 0 interrogate indicators
10414 36 41 1 0 11 0 COLLATE AND ADD
10415 70 104 27 0 0 0 104 >NO MORE AMENDTS JUMP IF A == 0
10416 101 1 1 2 0 subtract literal address
Source image: P1030144.JPG
10417 118 4127 1 0 0 shift logical
10418 92 0 0 12 0 SET MODIFIER AT VARIABLE
10419 118 1 1 0 0 shift logical
10420 5 152 3 0 0 0 152 TRANSFER
10421 100 152 4 0 2 0 152 replace (B) by (N)
10422 106 152 4 0 0 0 152 select (N)
10423 124 152 3 0 1 0 152 modify address of next
10424 118 0 1 3 0 shift binary
10425 37 153 10 0 12 0 153 REPLACE SELECTED BITS
10426 94 104 11 0 11 1 104 >NEXT AMENDMENT STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
10415>10427 80 135 2 0 0 0 135 >READ P/T S/R ENTER SUBROUTINE
10428 76 104 2 0 0 0 104 >MORE AMDTS? JUMP unconditional
10407>10429 50 5 0 0 0 0 CARDS UNPACK FIXED FIELD DATA
10430 C 159 6 0 0 0 159
10431 76 104 10 0 0 0 104 JUMP unconditional
10404>10432 83 118 2 0 0 1 118 SET SWITCH FOR FIRST REPLACEMENT SET SWITCH(ES) AT LITERAL VALUE
10500 PROCR 105 105 EDIT AND OUTPUT CONTROL BLOCK AND HEADING BLOCK
10501 NOTES RADIX 0 SELECT
10502 52 42 2 0 0 0 HEADING LINE PRINT HEADING L EDIT
10503 C 156 2 0 0 0 156
10504 80 137 2 0 0 0 137 >PRINT S/R ENTER SUBROUTINE
10505 80 143 2 0 0 0 143 >BLANK LINE ENTER SUBROUTINE
10506 52 42 2 0 0 0 'CONTROL WORD' EDIT
10507 C 156 24 0 0 0 156
10508 80 137 2 0 0 0 137 >PRINT S/R ENTER SUBROUTINE
10509 62 0 0 0 0 SET EXCESS CONSTANTS
10510 90 0 0 11 0 SET MRS FOR WORDS BREAK CONTROL BLOCK SET MODIFICATION REGISTER AT LITERAL
10511 C 0 0 0 16
10543>10512 90 0 0 12 8 SET MR FOR SET MODIFICATION REGISTER AT LITERAL
10513 C 0 0 0 0 STORING O/P
10514 153 10 0 11 0 153 NEXT WORD SELECT
10515 118 3 0 3 0 shift binary
10516 118 4127 1 0 0 shift logical
10517 102 152 3 0 0 0 152 STORE BITS 2-16 transfer (A) to N
10518 118 1 1 3 0 PRINT BIT 1 shift binary
10519 70 105 22 0 0 0 105 JUMP IF A == 0
10520 10 0 0 0 10000 SELECT LITERAL
10521 76 105 38 0 0 0 105 JUMP unconditional
10519>10522 10 0 0 0 .0000 SELECT LITERAL
10523 76 105 38 0 0 0 105 JUMP unconditional
10539>10524 152 3 0 0 0 152 FORM NEXT SELECT
10525 32 0 0 0 2- COLLATION ORDER SHIFT (AB) BY QUARTETS
10526 33 0 0 0 3 SHIFT (AB) BY BITS
10527 5 152 3 0 0 0 152 TRANSFER
10528 32 0 0 0 1 SHIFT (AB) BY QUARTETS
10529 33 0 0 0 1 SHIFT (AB) BY BITS
10530 5 154 46 0 0 0 154 TRANSFER
10531 10 0 0 0 .. ZEROS SELECT LITERAL
10532 5 152 2 0 0 0 152 TRANSFER
10533 124 154 46 0 1 0 154 modify address of next
10534 101 0 0 1 0 FORMED ADDRESS prepare for digit collation
10535 10 0 0 0 11111 PACK 1'S ONTO QRTETS SELECT LITERAL
10536 37 152 2 0 0 0 152 WHICH CORRESPOND REPLACE SELECTED BITS
10537 152 2 0 0 0 152 TO BITS WHICH ARE SELECT
10523>
10521>10538 5 42 0 2 12 0 1 TRANSFER
10539 94 105 24 0 12 2- 105 >NEXT 5 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
10540 153 62 1 0 0 153 BEW SELECT
10541 5 42 10 1 0 0 TRANSFER
Source image: P1030145.JPG
10542 80 137 2 0 0 0 137 >PRINT S/R ENTER SUBROUTINE
10543 94 105 12 0 11 1 105 >NEXT LINE STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
10544 60 0 0 0 0 SET DECIMAL RADIX
10545 80 143 2 0 0 0 143 >BLANK LINE ENTER SUBROUTINE
10546 52 42 2 0 0 0 EDIT HEADING EDIT
10547 C 157 4 0 0 0 157 BLOCK
10548 80 137 2 0 0 0 137 >PRINT ENTER SUBROUTINE
10549 55 5 0 1 0 10 SAFE BULK COPY
10550 C 44 0 1 0 0
10551 55 42 2 1 0 46 >'PT' BULK COPY
10552 C 5 0 1 0 0
10553 124 106 2 0 2 0 106 select literal and division
10554 5 139 2 0 0 0 139 TRANSFER
10555 76 170 2 0 0 0 170 BACK TO PASS 0 JUMP unconditional
10205>10556 10 0 0 0 1200000 OPEN A9 SELECT LITERAL
10557 34 197 90 1 0 0 197 SET (N) IN B
10558 1 999 7 0 0 0 ADD
10559 125 4096 1 1 0 clear indicators
10560 124 999 0 0 3 0 modify address of next
10561 123 160 0 2 0 >OPEN enter master routine
10562 10 0 0 0 8000 WRITE HDG BLOCK SELECT LITERAL
10563 5 10 4 2 0 0 TRANSFER
10564 155 0 0 0 0 SERIAL SELECT PROGRAM SERIAL TO A
10565 5 10 6 1 0 0 TRANSFER
10566 10 0 0 0 9001 SELECT LITERAL
10567 5 10 8 2 0 0 TRANSFER
10568 153 62 1 0 0 153 BEW SELECT
10569 5 10 10 1 0 0 TRANSFER
10570 10 0 0 0 8 SELECT LITERAL
10571 34 999 12 0 0 0 SET (N) IN B
10572 80 136 2 0 0 0 136 >A9 ENTER SUBROUTINE
10573 76 102 11 0 0 0 102 JUMP unconditional
10600 PROCR 106 106 UNPACK PROGRAMME HEADING BLOCKS
10601 NOTES RADIX 0 SELECT
10605>10602 80 134 2 0 0 0 134 READ BLOCK FIND FIRST ENTER SUBROUTINE
10603 41 0 1 0 0 TEST PROGM BLOCK FILE DETAIL SELECT
10604 2 154 42 1 0 0 154 SUBTRACT
10605 71 106 2 0 0 0 106 JUMP IF A != 0
10606 5 152 18 0 0 0 152 CLEAR STEP BACK L OCATION TRANSFER
10607 80 134 2 0 0 0 134 STEP FORWARD TO ENTER SUBROUTINE
10611>10608 80 134 2 0 0 0 134 FIRST FILE ENTER SUBROUTINE
10609 41 0 1 0 0 TEST CHAPS SELECT
10610 2 154 24 1 0 0 154 SUBTRACT
10611 71 106 8 0 0 0 106 >NO JUMP IF A != 0
10612 83 106 2 0 0 20 106 SW 2 SET SWITCH(ES) AT LITERAL VALUE
10613 76 107 3 0 0 0 107 >START GENERATING JUMP unconditional
10700 PROCR 107 107 BEGINNING OF MAIN LOOP,DEAL WITH NEW SECTION
10701 NOTES RADIX 0 SELECT
10917>
11005>
11009>
11103>
11508>
11517>
11605>
11610>
11614>
11809>
12003>
13106>
Source image: P1030146.JPG
13110>10702 80 134 2 0 0 0 134 READ AND STORE M/T BLOCK ENTER SUBROUTINE
10752>
10613>10703 41 0 1 0 0 TEST IF SECTION TEST IF NEW SELECT
10704 2 154 24 1 0 0 154 DESCRIPTION SHEET SECTION AND SET SUBTRACT
10705 70 107 24 0 0 0 107 SECTION TYPE JUMP IF A == 0
10706 152 26 0 0 0 152 SELECT
10707 70 107 11 0 0 0 107 TEST LINE SERIAL STONO> JUMP IF A == 0
10708 2 41 0 2 0 0 TEST IF 'LOCKOUT' LINE SUBTRACT
10709 71 107 11 0 0 0 107 NO> JUMP IF A != 0
10710 123 0 0 3 0 select tag
10709>
10707>10711 41 4 1 0 0 TEST PROCR SWITCH IF 50 SELECT
10712 2 154 26 1 0 0 154 SUBTRACT
10713 70 107 28 0 0 0 107 >YES JUMP IF A == 0
10714 41 4 1 0 0 TEST CONST SELECT
10715 2 154 28 1 0 0 154 SUBTRACT
10716 70 107 27 0 0 0 107 >YES JUMP IF A == 0
10717 41 4 1 0 0 TEST TABLE SELECT
10718 2 154 30 1 0 0 154 SUBTRACT
10719 70 107 26 0 0 0 107 >YES JUMP IF A == 0
10720 41 4 1 0 0 TEST END SIGN SELECT
10721 2 154 40 1 0 0 154 SUBTRACT
10722 70 128 2 0 0 0 128 >YES END ROUTINE JUMP IF A == 0
10723 76 108 2 0 0 0 108 >NOT A NEW SECTION JUMP unconditional
10705>10724 92 0 0 11 0 SECTION DESCRIPTION SET MODIFIER AT VARIABLE
10725 10 0 0 0 1 SELECT LITERAL
10719>10726 11 0 0 0 1 TABLE ADD LITERAL
10716>10727 11 0 0 0 1 CONST ADD LITERAL
10713>10728 11 0 0 0 1 PROCR ADD LITERAL
10729 84 107 2 0 0 0 107 SET SECTION TYPE SW SWITCH 5 SET SWITCH(ES) AT VARIABLE VALUE
10730 152 7 0 0 0 152 TEST DELETION TEST DELETION SELECT
10731 70 107 43 0 0 0 107 >NO INDICATOR JUMP IF A == 0
10732 10 0 0 0 0 CLEAR INDICATOR SELECT LITERAL
10733 5 152 7 0 0 0 152 TRANSFER
10734 85 106 2 0 0 0 106 SWITCH 2 PRINT FINAL LINE SWITCH R
10735 C 107 43 0 0 0 107 >PROGRAMME HEADING OF DELETION
10736 C 107 37 0 0 0 107 >OTHER SECTIONS
10736>10737 153 52 1 0 0 153 SERIAL NO SELECT
10738 5 42 2 1 0 0 TRANSFER
10739 153 62 1 0 0 153 STORE B/E SELECT
10740 5 42 4 1 0 0 TRANSFER
10741 5 150 18 1 0 0 150 CLEAR TRANSFER
10742 80 139 2 0 0 0 139 >O/P ENTER SUBROUTINE
10735>
10731>10743 80 134 2 0 0 0 134 READ M/T S/R ENTER SUBROUTINE
10744 40 10 1 0 0 TEST NOTES SELECT
10745 2 154 32 1 0 0 154 OF SECTION SUBTRACT
10746 71 107 48 0 0 0 107 >DEAL WITH NEXT JUMP IF A != 0
10747 80 134 2 0 0 0 134 BLOCK ENTER SUBROUTINE
10746>10748 10 0 0 0 0 SELECT LITERAL
10749 5 152 8 0 0 0 152 CLEAR DUMMY INDICATOR TRANSFER
10750 83 106 2 0 0 2 106 SET SWITCH FOR ORDINARY SECTION SET SWITCH(ES) AT LITERAL VALUE
10751 83 118 2 0 0 1 118 SET SWITCH FOR FIRST REPLACEMENT SET SWITCH(ES) AT LITERAL VALUE
10752 76 107 3 0 0 0 107 JUMP unconditional
10800 PROCR 108 108 DEAL WITH CONTENTS OF SECTION,STORE DUMMIES
10801 NOTES RADIX 0 SELECT
10723>10802 41 0 1 0 0 STORE SERIAL NO STORE SERIAL NO SELECT
Source image: P1030147.JPG
10803 5 153 52 1 0 0 153 FOR DELETIONS TRANSFER
10804 152 8 0 0 0 152 TEST IF THIS SELECT
10805 70 109 2 0 0 0 109 >NO ORDER IS STORED JUMP IF A == 0
10806 55 41 0 1 0 42 STORE DUMMY AS DUMMY BULK COPY
10807 C 41 372 1 6 0
10808 94 109 2 0 6 42 109 >MORE DUMMIES TO COME STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
10809 10 0 0 0 0 CLEAR INDICATOR SELECT LITERAL
10810 5 152 8 0 0 0 152 TRANSFER
10811 92 0 0 6 0 CLEAR MR SET MODIFIER AT VARIABLE
10900 PROCR 109 109 SEARCH INDICATORS
10901 NOTES RADIX 0 SELECT
10808>
10805>10902 41 26 1 0 0 TEST IF ANY SELECT
10903 32 0 0 0 8- INDICATORS AT ALL SHIFT (AB) BY QUARTETS
10904 62 0 0 0 0 SET EXCESS CONSTANTS
10905 12 0 0 0 5‼ SUBTRACT LITERAL
10906 60 0 0 0 0 SET DECIMAL RADIX
10907 71 111 2 0 0 0 111 JUMP IF A != 0
10908 55 41 26 1 0 16 BULK COPY
10909 C 41 44 1 0 0
10910 80 145 2 0 0 0 145 >REPLACE *'S BY N/E'S AND BREAK UP S/R ENTER SUBROUTINE
10911 152 7 0 0 0 152 TEST DELETION IND TEST IF IN MIDDLE SELECT
10912 71 109 16 0 0 0 109 >YES JUMP IF A != 0
10913 80 112 2 0 0 0 112 >TEST ACTIVE S/R ENTER SUBROUTINE
10914 70 111 2 0 0 0 111 >NO JUMP IF A == 0
10915 76 114 2 0 0 0 114 >YES JUMP unconditional
10912>10916 80 146 2 0 0 0 146 >TEST FOR REQD IND ENTER SUBROUTINE
10917 76 107 2 0 0 0 107 >NOT END OF DELETION JUMP unconditional
11000 PROCR 110 110 DEAL WITH END OF DELETION
11001 NOTES RADIX 0 SELECT
11002 10 0 0 0 0 CLEAR DELETION FINISH DELETION SELECT LITERAL
11003 5 152 7 0 0 0 152 INDICATOR TRANSFER
11004 85 106 2 0 0 0 106 SWITCH 2 PRINT FINAL LINE SWITCH R
11005 C 107 2 0 0 0 107 >PROGRAMME HEADING OF DELETION
11006 C 110 7 0 0 0 110 >OTHER SECTIONS
11006>11007 41 0 1 0 0 SELECT
11008 5 150 18 1 0 0 150 STORE SER TRANSFER
11009 76 107 2 0 0 0 107 JUMP unconditional
11100 PROCR 111 111 OUTPUT LINE IF PHS
11101 NOTES RADIX 0 SELECT
11709>
14521>
10914>
10907>11102 83 118 2 0 0 1 118 SET SWITCH(ES) AT LITERAL VALUE
11103 76 107 2 0 0 0 107 >NEXT BLOCK JUMP unconditional
11200 PROCR 112 112 SEARCH INDICATORS FOR AN ATIVE ONE
11201 NOTES RADIX 0 SELECT
11202 81 112 2 0 0 0 112 START OF SUBROUTINE
11203 10 0 0 0 2 PREPARE FOR FIRST SELECT LITERAL
11204 3 152 9 0 0 0 152 INDICATOR NO WORD COPY
11205 3 152 10 0 0 0 152 AMENDT ACTIVE INDIC COPY
11206 91 154 4 0 5 0 154 MR2,NEW IND WORDS SET MODIFICATION REGISTER AT VARIABLE
11232>11207 90 0 0 13 0 NEXT IND SET MODIFICATION REGISTER AT LITERAL
11208 C 0 0 0 3 3 CHAR3 INDICATOR
11209 91 154 4 0 4 0 154 MR4 FOR STORING SET MODIFICATION REGISTER AT VARIABLE
11224>11210 5 153 44 1 0 0 153 STORE 'A' TRANSFER
Source image: P1030148.JPG
11211 90 0 0 12 0 CHARS PREPARE FOR NEXT SET MODIFICATION REGISTER AT LITERAL
11212 C 0 0 0 10 OF WORD WORD
11213 41 322 1 5 0 SELECT
11214 3 41 306 1 4 0 COPY
11215 70 112 33 0 0 0 112 JUMP IF A == 0
11216 153 44 1 0 0 153 RESTORE A SELECT
11217 34 41 322 1 5 0 SELECT NEXT WORD TO B SET (N) IN B
11222>11218 32 0 0 0 2 SHIFT NEXT CHAR TO A SHIFT (AB) BY QUARTETS
11219 70 112 25 0 0 0 112 >LAST CHAR OF IND JUMP IF A == 0
11220 94 112 22 0 13 1 112 >NEXT CHAR STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
11221 76 113 2 0 0 0 113 >NEXT 3 CHARACTERS JUMP unconditional
11348>
11220>11222 94 112 18 0 12 2 112 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
11223 94 112 24 0 4 2 112 >NEXT CHAR STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
11223>11224 94 112 10 0 5 2 112 >NEXT WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
11219>11225 10 0 0 0 0 CLEAR NEXT W/L SELECT LITERAL
11226 5 41 308 1 4 0 TRANSFER
11227 152 10 0 0 0 152 TEST LAST INDIC SELECT
11228 71 112 33 0 0 0 112 JUMP IF A != 0
11229 10 0 0 0 2 SELECT LITERAL
11230 4 152 9 0 0 0 152 STEP INDIC NO AUGMENT
11231 5 152 10 0 0 0 152 SET AMENDT INDIC TRANSFER
11232 94 112 7 0 5 2 112 >NEXT INDICATOR STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
11228>
11215>11233 82 112 2 0 0 0 112 END OF SUBROUTINE / LEAVE SUBROUTINE
11300 PROCR 113 113 SEARCH INDICATORS FOR AN ACTIVE ONE CONTINUED
11301 NOTES RADIX 0DEAL WITH 3 DIGIT NUMBERS SELECT
11221>11302 100 153 44 1 0 0 153 STORE'A''B''C' copy registers
11303 10 0 0 0 0 SELECT LITERAL
11304 5 41 308 1 4 0 CLEAR INDIC LOCN TRANSFER
11305 90 0 0 13 0 SET MODIFICATION REGISTER AT LITERAL
11306 C 0 0 0 3
11307 152 10 0 0 0 152 SELECT
11308 70 113 45 0 0 0 113 >INDIC ALREADY INACTIVE JUMP IF A == 0
11309 153 44 2 0 0 153 TEST IF SPECIAL SELECT
11310 12 0 0 0 £. SUBTRACT LITERAL
11311 70 113 13 0 0 0 113 JUMP IF A == 0
11312 72 122 2 0 0 0 122 >YES JUMP IF A >= 0
11311>11313 153 44 2 0 0 153 SELECT
11314 32 0 0 0 1- SHIFT (AB) BY QUARTETS
11315 70 129 2 0 0 0 129 >ERROR JUMP IF A == 0
11316 5 153 44 0 0 0 153 STORE REASON TRANSFER
11317 32 0 0 0 1 TYPE SHIFT (AB) BY QUARTETS
11318 70 129 2 0 0 0 129 >ERROR JUMP IF A == 0
11319 5 152 13 0 0 0 152 STORE TYPE TRANSFER
11320 106 153 44 0 0 0 153 select (N)
11321 101 1 1 2 0 subtract literal address
11322 118 4127 1 0 0 shift logical
11323 102 152 11 0 0 0 152 transfer (A) to N
11324 118 1 1 0 0 shift logical
11325 5 152 12 0 0 0 152 TRANSFER
11326 34 152 4 0 0 0 152 SET (N) IN B
11327 124 152 12 0 1 0 152 COLLATE OUT CONTROL modify address of next
11328 118 0 1 3 0 BLOCK BIT WHICH shift binary
11329 124 152 11 0 1 0 152 CORRESPONDS TO THE modify address of next
11330 115 153 10 0 0 0 153 AMENDT REASON collate and add
11331 60 0 0 0 0 SET DECIMAL RADIX
11332 71 113 39 0 0 0 113 >ACTIVE JUMP IF A != 0
11333 152 13 0 0 0 152 INACTIVE SELECT
Source image: P1030149.JPG
11334 12 0 0 0 8 SUBTRACT LITERAL
11335 70 129 2 0 0 0 129 >ERROR JUMP IF A == 0
11336 73 113 43 0 0 0 113 >YES JUMP IF A < 0
11337 3 152 13 0 0 0 152 COPY
11338 76 113 45 0 0 0 113 AS ACTIVE JUMP unconditional
11332>11339 152 13 0 0 0 152 SELECT
11340 12 0 0 0 8 SUBTRACT LITERAL
11341 70 129 2 0 0 0 129 >ERROR JUMP IF A == 0
11342 73 113 45 0 0 0 113 >OK JUMP IF A < 0
11336>11343 10 0 0 0 0 AS INACTIVE SELECT LITERAL
12309>11344 5 152 10 0 0 0 152 SET INACTIVE IND TRANSFER
11342>
11338>
11308>11345 10 0 0 0 0 CLEAR 'A' SELECT LITERAL
11346 5 153 44 1 0 0 153 TRANSFER
11347 100 153 44 1 1 0 153 RESET 'A' 'B' 'C' replace registers
11348 76 112 22 0 0 0 112 >NEXT 3 DIGITS JUMP unconditional
11400 PROCR 114 114 SWITCH BY AMENDMENT TYPE
11401 NOTES RADIX 0 SELECT
10915>11402 124 152 13 0 1 0 152 SWITCH BY AMENDT modify address of next
11403>11403 76 114 3 0 0 0 114 TYPE JUMP unconditional
11404 76 115 4 0 0 0 115 >DELETED ONE JUMP unconditional
11405 76 115 2 0 0 0 115 >DELETE MORE THAN ONE JUMP unconditional
11406 76 116 2 0 0 0 116 >REPLACE BY DUMMY JUMP unconditional
11407 76 117 2 0 0 0 117 >REPLACE ITEM JUMP unconditional
11408 76 129 2 0 0 0 129 >LITERAL REPORT JUMP unconditional
11409 76 116 2 0 0 0 116 >REPLACE REFERENCE JUMP unconditional
11500 PROCR 115 115 DELETE,TYPES 1 AND 2
11501 NOTES RADIX 0 SELECT
12206>
11405>11502 10 0 0 0 1 SET DELETION SELECT LITERAL
11503 3 152 7 0 0 0 152 INDICATOR COPY
12205>
11404>11504 101 1 1 1 0 add literal address
11505 102 152 13 0 0 0 152 SET DELETION TYPE transfer (A) to N
11506 83 118 2 0 0 1 118 SET SWITCH 5 FOR FIRST REPLACEMENT SET SWITCH(ES) AT LITERAL VALUE
11507 85 106 2 0 0 0 106 SWITCH 2 SWITCH R
11508 C 107 2 0 0 0 107 >PROGRAMME HEADING SHEET
11509 C 115 10 0 0 0 115 >ORDINARY SECTION
11509>11510 41 0 1 0 0 STORE SERIAL NO SELECT
11511 5 42 2 1 0 0 TRANSFER
11512 154 38 1 0 0 154 D SP SP SP SP' SELECT
11513 5 42 4 1 0 0 TRANSFER
11514 153 62 1 0 0 153 STORE B/E SELECT
11515 5 42 6 1 0 0 TRANSFER
11516 80 140 2 0 0 0 140 >GENERAL OUTPUT S/R ENTER SUBROUTINE
11517 76 107 2 0 0 0 107 JUMP unconditional
11600 PROCR 116 116 REPLACE BLOCK BY DUMMY TYPE 3
11601 NOTES RADIX 0 SELECT
11409>
11406>11602 152 8 0 0 0 152 TEST IF DUMMIES BEING STORED SELECT
11603 70 116 15 0 0 0 116 NO JUMP IF A == 0
11604 0 152 7 0 0 0 152 DUMMY BEING DEALT WITH SELECT
11605 71 107 2 0 0 0 107 >YES JUMP IF A != 0
11606 41 322 2 0 0 SELECT
11607 30 0 0 0 2- SHIFT (A) BY QUARTETS
11608 12 0 0 0 ££0 SUBTRACT LITERAL
Source image: P1030150.JPG
11609 73 116 15 0 0 0 116 >NO JUMP IF A < 0
11610 71 107 2 0 0 0 107 >YES JUMP IF A != 0
11611 41 324 2 0 0 SELECT
11612 30 0 0 0 2- SHIFT (A) BY QUARTETS
11613 12 0 0 0 ££0 SUBTRACT LITERAL
11614 72 107 2 0 0 0 107 >YES JUMP IF A >= 0
11609>
11603>11615 85 107 2 0 0 0 107 SWITCH 2 SWITCH BY SECTION SWITCH R
11616 C 116 21 0 0 0 116 >PROCR TYPE
11617 C 116 21 0 0 0 116 >CONST
11618 C 116 21 0 0 0 116 >TABLE
11619 C 129 2 0 0 0 129 >SECTION DESC
11620 C 129 2 0 0 0 129 >PROG HEADING
11618>
11617>
11616>11621 90 0 0 11 72 SET MR 11 SEARCH FOR DUMMY SET MODIFICATION REGISTER AT LITERAL
11622 C 0 0 0 450 DUMMIES WITH CORRECT
11623 10 0 0 0 1 SET UP INDICATOR SELECT LITERAL
11624 5 152 23 0 0 0 152 TRANSFER
11631>11625 55 41 326 1 11 26 STORE ANNOT IND BULK COPY
11626 C 41 44 1 0 0
11627 80 145 2 0 0 0 145 >BREAK UP NOTES S/R ENTER SUBROUTINE
11628 80 146 2 0 0 0 146 >TEST FOR REQD IND ENTER SUBROUTINE
11629 76 116 31 0 0 0 116 JUMP unconditional
11630 76 116 33 0 0 0 116 >DUMMY FOUND JUMP unconditional
14522>
11629>11631 94 116 25 0 11 42 116 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
11632 76 130 2 0 0 0 130 >NO DUMMY JUMP unconditional
11630>11633 10 0 0 0 0 CLEAR INDICATOR SELECT LITERAL
11634 5 152 23 0 0 0 152 TRANSFER
11635 152 13 0 0 0 152 SELECT
11636 12 0 0 0 6 TEST TYPE=3 SUBTRACT LITERAL
11637 71 116 50 0 0 0 116 >TYPE 6 JUMP IF A != 0
11638 85 107 2 0 0 0 107 SWITCH BY SECTION TYPE SWITCH R
11639 C 116 42 0 0 0 116 >PROCR TYPE 6 AMENDT
11640 C 116 50 0 0 0 116 >CONST
11641 C 116 45 0 0 0 116 >TABLE
11639>11642 41 304 1 11 0 SELECT
11643 5 41 4 1 0 0 PROCR TRANSFER
11644 76 116 52 0 0 0 116 >OUTPUT REPLACE JUMP unconditional
11641>11645 41 302 1 11 0 SELECT
11646 5 41 2 1 0 0 TABLE ENTRY TRANSFER
11647 41 306 1 11 0 SELECT
11648 5 41 6 1 0 0 TRANSFER
11649 76 116 52 0 0 0 116 >OUTPUT REPLACE JUMP unconditional
11640>
11637>11650 55 41 302 1 11 40 BULK COPY
11651 C 41 2 1 0 0
11649>
11644>11652 85 107 2 0 0 0 107 SWITCH BY SECTION SWITCH R
11653 C 119 2 0 0 0 119 >PROCR TYPE
11654 C 120 2 0 0 0 120 >CONST
11655 C 121 2 0 0 0 121 >TABLE
11700 PROCR 117 117 REPLACE ITEM TYPE 4
11701 NOTES RADIX 0 SELECT
12208>
11407>11702 124 152 9 0 1 0 152 COLLECT REPLACEMENT modify address of next
11703 106 41 32 1 0 0 select (N)
11704 85 107 2 0 0 0 107 SWITCH 5 SWITCH BY SECTION SWITCH R
Source image: P1030151.JPG
11705 C 117 10 0 0 0 117 PROCR TYPE
11706 C 117 12 0 0 0 117 CONST
11707 C 117 17 0 0 0 117 TABLE
11708 C 118 2 0 0 0 118
11709 C 111 2 0 0 0 111
11705>11710 5 41 6 1 0 0 REPLACE ITEM PROCR TRANSFER
11711 76 119 2 0 0 0 119 >OUTPUT REPLACEMENT JUMP unconditional
12413>
11706>11712 5 41 6 1 0 0 REPLACE CONSTANT CONST TRANSFER
11713 153 50 1 0 0 153 SELECT
11714 5 41 8 1 0 0 TRANSFER
11715 54 41 10 1 0 16 CLEAR REMAINDER OF BULK CLEAR
11716 76 120 2 0 0 0 120 CONSTANTS SECTION JUMP unconditional
11707>11717 5 41 6 1 0 0 REPLACE ITEM TABLE TRANSFER
11718 76 121 2 0 0 0 121 JUMP unconditional
11800 PROCR 118 118 OUTPUT SECTION DESCRIPTION BLOCK REPLACE
11801 NOTES RADIX 0 SELECT
11708>11802 80 144 2 0 0 0 144 CLEAR TRANSIT AREA PICK UP FIRST ENTER SUBROUTINE
11803 53 42 6 0 0 0 CONDENSE FIRST PART PART OF BLOCK CONDENSE
11804 C 160 2 0 0 0 160
12107>11805 55 41 26 1 0 16 STORE NOTES STORE NOTES BULK COPY
11806 C 42 28 1 0 0
11921>11807 80 141 2 0 0 0 141 >PREPARE TO O/P REPLACEMENT ENTER SUBROUTINE
11808 80 138 2 0 0 0 138 >OUTPUT ON P/T AND PRINTER ENTER SUBROUTINE
11809 76 107 2 0 0 0 107 JUMP unconditional
11900 PROCR 119 119 OUTPUT PROCR BLOCK REPLACEMENT
11901 NOTES RADIX SELECT
12411>
12520>
11711>
11653>11902 80 144 2 0 0 0 144 CLEAR TRANSIT AREA ENTER SUBROUTINE
11903 41 8 1 0 0 BREAK UP DISC SELECT
11904 32 0 0 0 6- AND MOD SHIFT (AB) BY QUARTETS
11905 5 41 8 1 0 0 TRANSFER
11906 32 0 0 0 6 SHIFT (AB) BY QUARTETS
11907 5 41 14 1 0 0 TRANSFER
11908 53 42 6 0 0 0 CONDENSE ACTION CONDENSE
11909 C 160 4 0 0 0 160 REF ITEM D M
11910 41 10 1 0 0 TRANSFER LITERAL SELECT
11911 5 42 18 1 0 0 TRANSFER
11912 41 12 1 0 0 SELECT
11913 5 42 20 1 0 0 TRANSFER
11914 153 50 1 0 0 153 TRANSFER N/E'S SELECT
11915 3 42 22 1 0 0 COPY
11916 5 42 32 1 0 0 TRANSFER
11917 55 41 26 1 0 8 NOTES BULK COPY
11918 C 42 24 1 0 0
11919 55 41 34 1 0 8 COMMENTARY BULK COPY
11920 C 42 34 1 0 0
11921 76 118 7 0 0 0 118 >OUTPUT JUMP unconditional
12000 PROCR 120 120 OUTPUT CONSTANT SECTION REPLACEMENT
12001 NOTES RADIX 0 SELECT
11716>
11654>12002 80 142 2 0 0 0 142 >OUTPUT CONSTANT S/R ENTER SUBROUTINE
12003 76 107 2 0 0 0 107 >NEXT BLOCK JUMP unconditional
12100 PROCR 121 121 OUTPUT TABLE ENTRY REPLACEMENT
Source image: P1030152.JPG
12101 NOTES RADIX 0 SELECT
12415>
11718>
11655>12102 80 144 2 0 0 0 144 CLEAR TRANSIT AREA ENTER SUBROUTINE
12103 53 42 6 0 0 0 CONDENSE TABLE ENTRY CONDENSE
12104 C 160 2 0 0 0 160
12105 52 42 16 0 0 0 EDIT TABLE ENTRY EDIT
12106 C 161 2 0 0 0 161
12107 76 118 5 0 0 0 118 >OUTPUT JUMP unconditional
12200 PROCR 122 122 SPECIAL INDICATORS
12201 NOTES RADIX 0 SELECT
11312>12202 84 122 2 0 0 0 122 SWITCH 9 SET SWITCH(ES) AT VARIABLE VALUE
12203 85 122 2 0 0 0 122 SWITCH R
12204 C 123 2 0 0 0 123 >START STORING
12205 C 115 4 0 0 0 115 >DELETE ONE
12206 C 115 2 0 0 0 115 >DELETE MORE THAN ONE
12207 C 124 2 0 0 0 124 >REPLACE BY ZOT
12208 C 117 2 0 0 0 117 >REPLACE ITEM
12209 C 129 2 0 0 0 129 LITERAL REPORT
12210 C 125 2 0 0 0 125 >SEQUENCE CHANGE
12211 C 129 2 0 0 0 129 >ERROR REPORT
12212 C 126 2 0 0 0 126 >ROUTES TABLE
12213 C 128 2 0 0 0 128 >END ROUTINE
12300 PROCR 123 123 START STORING
12301 NOTES RADIX 0 SELECT
12204>12302 55 41 0 1 0 42 STORE THIS ORDER BULK COPY
12303 C 41 372 1 0 0 AS DUMMY
12304 54 41 414 0 0 336 BULK CLEAR
12305 90 0 0 6 42 SET MR SET MODIFICATION REGISTER AT LITERAL
12306 C 0 0 0 378
12307 10 0 0 0 1 SET DUMMY INDICATOR SELECT LITERAL
12308 5 152 8 0 0 0 152 TRANSFER
12309 76 113 44 0 0 0 113 >PROCESS NEXT INDICATOR JUMP unconditional
12400 PROCR 124 124 REPLACE BY ZOT
12401 NOTES RADIX 0 SELECT
12207>12402 85 107 2 0 0 0 107 SWITCH 5 SWITCH BY SECTION SWITCH R
12403 C 124 8 0 0 0 124 PROCR TYPE
12404 C 124 12 0 0 0 124 CONST
12405 C 124 14 0 0 0 124 TABLE
12406 C 129 2 0 0 0 129 SECTION DESCRIPTION
12407 C 129 2 0 0 0 129 PROG HEADING
12403>12408 10 0 0 0 413030 STORE NEXT ACTION SELECT LITERAL
12409 5 41 2 1 0 0 TRANSFER
12410 54 41 4 1 0 10 CLEAR ADDRESS ETC BULK CLEAR
12411 76 119 2 0 0 0 119 JUMP unconditional
12404>12412 10 0 0 0 0 CLEAR CONST SELECT LITERAL
12413 76 117 12 0 0 0 117 JUMP unconditional
12405>12414 54 41 2 1 0 16 CLEAR TABLE ENTRY BULK CLEAR
12415 76 121 2 0 0 0 121 JUMP unconditional
12500 PROCR 125 125 REPLACE BY SEQUENCE CHANGE TO NEXT ORDER
12501 NOTES RADIX 0 SELECT
12210>12502 85 107 2 0 0 0 107 SWITCH 5 SWITCH BY SWITCH R
12503 C 125 8 0 0 0 125 PROCR SECTION TYPE
12504 C 129 2 0 0 0 129 CONST
12505 C 129 2 0 0 0 129 TABLE
12506 C 129 2 0 0 0 129 SECTION DESCRIPTION
Source image: P1030153.JPG
12507 C 129 2 0 0 0 129 PROG HEADING
12503>12508 10 0 0 0 124 ORDER SELECT LITERAL
12509 5 41 2 2 0 0 TRANSFER
12510 10 0 0 0 1000 DISC/MOD SELECT LITERAL
12511 5 41 8 2 0 0 TRANSFER
12512 41 0 2 0 0 PRODUCES SERIAL NO SELECT
12513 11 0 0 0 1 OF NEXT ORDER ADD LITERAL
12514 32 0 0 0 2- SHIFT (AB) BY QUARTETS
12515 5 41 4 2 0 0 REF TRANSFER
12516 32 0 0 0 2 SHIFT (AB) BY QUARTETS
12517 5 41 6 2 0 0 ITEM TRANSFER
12518 5 41 10 1 0 0 TRANSFER
12519 5 41 12 1 0 0 TRANSFER
12520 76 119 2 0 0 0 119 JUMP unconditional
12600 PROCR 126 126 SET UP I/P CONTROL DATA FOR ROUTES TABLE
12601 NOTES RADIX 0 SELECT
12212>12602 83 140 2 0 0 2 140 SET SWITCH(ES) AT LITERAL VALUE
12603 153 8 0 0 0 153 SELECT
12604 12 0 0 0 3 SUBTRACT LITERAL
12605 71 128 2 0 0 0 128 JUMP IF A != 0
12606 55 44 0 1 0 10 BACK SAFE BULK COPY
12607 C 5 0 1 0 0
12608 54 41 100 1 0 150 CLEAR W/L'S BULK CLEAR
12609 91 154 4 0 11 0 154 MR11 FOR UNPACKING UNPACK TYPE SET MODIFICATION REGISTER AT VARIABLE
12624>12610 54 41 50 1 0 22 CLEAR W/L BULK CLEAR
12611 152 22 0 0 0 152 SELECT
12612 70 126 16 0 0 0 126 PT JUMP IF A == 0
12613 50 5 0 0 0 0 UNPACK FIXED FIELD DATA
12614 C 159 28 0 0 0 159
12615 76 126 18 0 0 0 126 JUMP unconditional
12612>12616 51 5 0 0 0 0 UNPACK BLOCK UNPACK VARIABLE FIELD DATA
12617 C 158 10 0 0 0 158
12615>12618 55 41 51 0 0 8 STORE RTE TYPES BULK COPY
12619 C 41 100 0 11 0
12620 94 126 21 0 11 8 126 STEP BACK S/R STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
12620>12621 80 135 2 0 0 0 135 >READ PT ENTER SUBROUTINE
12622 153 8 0 0 0 153 TEST TYPE 4 SELECT
12623 12 0 0 0 3 SUBTRACT LITERAL
12624 70 126 10 0 0 0 126 >YES JUMP IF A == 0
12700 PROCR 127 127 PRODUCE AMENDTS TO RTES TABLE
12701 NOTES RADIX 0 SELECT
12702 91 154 4 0 11 0 154 0:0 SET MODIFICATION REGISTER AT VARIABLE
12759>12703 62 0 0 0 0 SET EXCESS CONSTANTS
12704 41 4 1 0 0 TEST NEW CONST TEST NEW SECT SELECT
12705 2 154 28 1 0 0 154 SECTION SUBTRACT
12706 70 127 9 0 0 0 127 >YES JUMP IF A == 0
12707 83 127 2 0 0 2 127 DIRECTIVE NOT NEEDED SET SWITCH(ES) AT LITERAL VALUE
12708 76 127 11 0 0 0 127 > JUMP unconditional
12706>12709 80 134 2 0 0 0 134 >READ AND STORE S/R PREP FOR SECT ENTER SUBROUTINE
12710 83 118 2 0 0 1 118 SWITCH FOR 1ST LINE BEGN SET SWITCH(ES) AT LITERAL VALUE
12708>12711 41 4 1 0 0 TEST END BLOCK TEST END OF SELECT
12712 2 154 40 1 0 0 154 TABLE SUBTRACT
12713 70 128 2 0 0 0 128 JUMP IF A == 0
12714 41 100 0 11 0 SELECT
12715 70 127 22 0 0 0 127 >PSEUDO ROUTE JUMP IF A == 0
12716 12 0 0 0 10 SUBTRACT LITERAL
12717 70 127 23 0 0 0 127 >M/R ROUTE JUMP IF A == 0
12718 73 127 20 0 0 0 127 >ACTIVE ROUTE JUMP IF A < 0
Source image: P1030154.JPG
12719 11 0 0 0 £.0 LATENT ROUTE ADD LITERAL
12718>12720 11 0 0 0 10 ADD LITERAL
12721 76 127 24 0 0 0 127 >STORE IT JUMP unconditional
12715>12722 10 0 0 0 ££00 SELECT LITERAL
12717>12723 11 0 0 0 ADD LITERAL
12721>12724 5 153 46 0 0 0 153 STORE IT TRANSFER
12725 41 6 1 0 0 FIRST 3 CHARS TEST DIRECTIVE SELECT
12726 30 0 0 0 4- =(D)? NEEDED SHIFT (A) BY QUARTETS
12727 2 153 54 1 0 0 153 SUBTRACT
12728 71 127 32 0 0 0 127 >NOT NEEDED JUMP IF A != 0
12729 153 54 1 0 0 153 STORE (D) SELECT
12730 5 41 6 1 0 0 TRANSFER
12731 76 127 47 0 0 0 127 JUMP unconditional
12728>12732 41 6 2 0 0 FORM UP AND TEST REPLACEMEN SELECT
12733 30 0 0 0 5 RIGHT ALIGN FIRST NEEDED SHIFT (A) BY QUARTETS
12734 1 41 8 2 0 0 TWO WORDS OF ADD
12735 35 0 0 0 0 CLEAR B PREPARE FOR DIGIT COLLATION
12740>12736 5 153 44 1 0 0 153 OLD RTE TYPE CONST TRANSFER
12737 75 127 41 0 0 0 127 >FINISHED JUMP IF AB != 0
12738 153 44 1 0 0 153 SELECT
12739 32 0 0 0 1- SHIFT (AB) BY QUARTETS
12740 76 127 36 0 0 0 127 >TEST IF FINISHED JUMP unconditional
12737>12741 5 41 6 1 0 0 TRANSFER
12742 153 44 1 0 0 153 TEST NEW RTE TYPE SELECT
12743 2 153 46 1 0 0 153 = OLD ONE SUBTRACT
12744 71 127 47 0 0 0 127 >NO JUMP IF A != 0
12745 83 118 2 0 0 1 118 SET SWITCH FOR 1ST LINE SET SWITCH(ES) AT LITERAL VALUE
12746 76 127 58 0 0 0 127 > JUMP unconditional
12744>
12731>12747 0 153 46 1 0 0 153 STORE NEW CONST SELECT
12748 5 41 8 2 0 0 TRANSFER
12749 153 50 1 0 0 153 STORE N/E SELECT
12750 5 41 10 1 0 0 TRANSFER
12751 85 127 2 0 0 0 127 SWITCH R
12752 C 127 54 0 0 0 127 >DIRECTIVE NEEDED
12753 C 127 55 0 0 0 127 >NOT NEEDED
12752>12754 153 54 1 0 0 153 STORE DIRECTIVE SELECT
12753>12755 5 41 4 1 0 0 TRANSFER
12756 80 142 2 0 0 0 142 >OUTPUT CONSTANTS ENTER SUBROUTINE
12757 83 118 2 0 0 2 118 SET SW FOR 2ND LINE SET SWITCH(ES) AT LITERAL VALUE
12746>12758 80 134 2 0 0 0 134 >READ AND STORE S/R ENTER SUBROUTINE
12759 94 127 3 0 11 1 127 >NEXT RTE STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
12800 PROCR 128 128 END ROUTINE
12801 NOTES RADIX 0 SELECT
12713>
12605>
12213>
10722>12802 197 56 1 0 0 197 END SELECT
12803 5 42 2 1 0 0 TRANSFER
12804 153 62 1 0 0 153 B/E WORD SELECT
12805 5 42 4 1 0 0 TRANSFER
12806 80 139 2 0 0 0 139 >O/P ENTER SUBROUTINE
12900 PROCR 129 129 REPORTS
12901 NOTES RADIX 0 SELECT
12507>
12506>
12505>
12504>
12407>
12406>
12211>
12209>
11620>
11619>
11408>
11341>
11335>
11318>
Source image: P1030155.JPG
11315>12902 83 118 2 0 0 1 118 SET SWITCH(ES) AT LITERAL VALUE
12903 41 0 1 0 0 SELECT
12904 5 155 16 1 0 0 155 TRANSFER
12905 154 155 6 0 0 0 155 COMMENT IN LOG
12906 76 131 2 0 0 0 131 JUMP unconditional
13000 PROCR 130 130
11632>13002 41 0 1 0 0 SELECT
13003 5 155 26 1 0 0 155 TRANSFER
13004 5 152 23 0 0 0 152 CLEAR INDICATOR TRANSFER
13005 154 155 20 0 0 0 155 COMMENT IN LOG
13100 PROCR 131 131
12906>13102 150 0 0 0 13 OFFER OPTIONS
13103 C 190 58 0 0 0 190 >UNLOAD
13104 C 170 9 0 0 0 170 >RE ENTER
13105 C 131 7 0 0 0 131 >CONTINUE,IGNORING ERRORS
13106 C 107 2 0 0 0 107 >CONTINUE,REPORTING ERRORS
13105>13107 120 3 0 0 0 120 24/1/0>107/2 SELECT
13108 3 130 2 0 0 0 130 COPY
13109 5 129 4 0 0 0 129 TRANSFER
13110 76 107 2 0 0 0 107 JUMP unconditional
13200 PROCR 132 132 READ MT
13202 81 132 2 0 0 0 132 START OF SUBROUTINE
13203 42 A1 0 0 0 0 READ BLOCK INPUT
13204 C 7 0 0 0 0
13205 82 132 2 0 0 0 132 END OF SUBROUTINE / LEAVE SUBROUTINE
13300 PROCR 133 133 ADDRESS NEXT RECORD
13301 NOTES RADIX 0 SELECT
13302 81 133 2 0 0 0 133 READ NEXT BLOCK START OF SUBROUTINE
13303 85 133 2 0 0 0 133 SWITCH R
13304 C 133 12 0 0 0 133 >NOT YET
13305 C 133 6 0 0 0 133 >YES,NOW
13305>13306 150 20 1 0 0 150 SELECT
13307 71 133 20 0 0 0 133 >MULTIRECORD JUMP IF A != 0
13308 80 132 2 0 0 0 132 >READ BLOCK ENTER SUBROUTINE
13315>13309 55 7 0 1 0 52 COPY TO SECTION 1 BULK COPY
13310 C 40 0 1 0 0
13311 82 133 2 0 0 0 133 END OF SUBROUTINE / LEAVE SUBROUTINE
13304>13312 80 132 2 0 0 0 132 READ BLOCK ENTER SUBROUTINE
13313 7 12 1 0 0 SELECT
13314 2 154 26 1 0 0 154 PROCR SUBTRACT
13315 71 133 9 0 0 0 133 >STILL NOT YET JUMP IF A != 0
13316 83 133 2 0 0 2 133 READY' SET SWITCH(ES) AT LITERAL VALUE
13317 7 4 2 0 0 SELECT
13318 30 0 0 0 5 SHIFT (A) BY QUARTETS
13319 91 0 0 7 0 BLOCK LENGTH AS END VALUE SET MODIFICATION REGISTER AT VARIABLE
13307>13320 54 41 0 0 0 52 BULK CLEAR
Source image: P1030156.JPG
13321 54 40 0 0 0 54 BULK CLEAR
13322 55 7 6 1 7 0 BULK COPY
13323 C 41 0 1 0 0
13324 C 7 6 2 7 0
13325 7 12 1 7 0 SELECT
13326 2 154 28 1 0 0 154 'CONST' SUBTRACT
13327 73 133 37 0 0 0 133 >NOT DIR JUMP IF A < 0
13328 41 4 1 0 0 SERIAL SELECT
13329 5 40 6 1 0 0 TRANSFER
13330 41 6 1 0 0 DIR SELECT
13331 5 40 10 1 0 0 TRANSFER
13332 41 8 1 0 0 SECN NO SELECT
13333 5 40 16 1 0 0 TRANSFER
13334 41 14 2 0 0 SELECT
13335 5 150 28 0 0 0 150 CONST TYPE(IF CONST) TRANSFER
13336 76 133 49 0 0 0 133 >STEP MR & RETURN JUMP unconditional
13327>13337 85 107 2 0 0 0 107 SWITCH R
13338 C 133 41 0 0 0 133 >PROCR
13339 C 133 44 0 0 0 133 >CONST
13340 C 133 47 0 0 0 133 >TABLE
13338>13341 50 41 4 0 0 0 UNPACK FIXED FIELD DATA
13342 C 163 2 0 0 0 163
13343 76 133 49 0 0 0 133 > JUMP unconditional
13339>13344 50 41 4 0 0 0 UNPACK FIXED FIELD DATA
13345 C 165 2 0 0 0 165
13346 76 133 49 0 0 0 133 > JUMP unconditional
13340>13347 50 41 4 0 0 0 UNPACK FIXED FIELD DATA
13348 C 164 2 0 0 0 164
13346>
13343>
13336>13349 7 6 2 7 0 SELECT
13350 5 150 22 0 0 0 150 TRANSFER
13351 97 150 22 0 7 0 150 STEP ON AND TEST MODIFICATION REGISTER (VARIABLE)
13352 C 133 57 0 0 0 133 >LEAVE S/R
13353 80 132 2 0 0 0 132 READ BLOCK ENTER SUBROUTINE
13354 7 4 2 0 0 SELECT
13355 30 0 0 0 5 SHIFT (A) BY QUARTETS
13356 91 0 0 7 0 SET MODIFICATION REGISTER AT VARIABLE
13352>13357 82 133 2 0 0 0 133 >LEAVE S/R END OF SUBROUTINE / LEAVE SUBROUTINE
13400 PROCR 134 134 READ M/T AND STORE BLOCK S/R
13401 NOTES RADIX 0 SELECT
13402 81 134 2 0 0 0 134 >READ M/T S/R START OF SUBROUTINE
13403 80 133 2 0 0 0 133 COPY NEXT BLOCK ENTER SUBROUTINE
13404 55 40 6 1 0 42 TO W/L BULK COPY
13405 C 41 0 1 0 0
13406 40 4 1 0 0 SELECT
13407 30 0 0 0 8- SHIFT (A) BY QUARTETS
13408 12 0 0 0 5‼ SUBTRACT LITERAL
13409 71 134 12 0 0 0 134 JUMP IF A != 0
13410 55 40 4 1 0 10 BULK COPY
13411 C 41 0 1 0 0
13409>13412 82 134 2 0 0 0 134 END OF SUBROUTINE / LEAVE SUBROUTINE
13500 PROCR 135 135 READ P/T S/R
13501 NOTES RADIX 0 SELECT
13502 81 135 2 0 0 0 135 READ NEXT BLOCK START OF SUBROUTINE
13503 62 0 0 0 0 READ BLOCK SET EXCESS CONSTANTS
13504 100 999 14 0 2 0 replace (B) by (N)
13505 101 5 1 3 0 select literal address
Source image: P1030157.JPG
13506 104 152 22 0 0 0 152 add (N) to (A)
13507 118 5 0 1 0 shift arithmetic
13508 104 999 8 0 0 0 add (N) to (A)
13509 125 4096 1 1 0 clear indicators
13510 124 999 0 0 3 0 modify address of next
13511 123 160 0 2 0 >ENTER MASTER enter master routine
13512 152 22 0 0 0 152 SELECT
13513 71 135 17 0 0 0 135 >CARDS JUMP IF A != 0
13514 51 5 0 0 0 0 UNPACK TWO WORDS UNPACK VARIABLE FIELD DATA
13515 C 158 2 0 0 0 158
13516 82 135 2 0 0 0 135 >LEAVE S/R END OF SUBROUTINE / LEAVE SUBROUTINE
13513>13517 50 5 0 0 0 0 2 WORDS UNPACK FIXED FIELD DATA
13518 C 159 2 0 0 0 159
13519 82 135 2 0 0 0 135 END OF SUBROUTINE / LEAVE SUBROUTINE
13600 PROCR 136 136 DEAL WITH PRINTER
13602 81 136 2 0 0 0 136 START OF SUBROUTINE
13603 30 0 0 0 5 RT SHIFT (A) BY QUARTETS
13604 1 999 7 0 0 0 ADD
13605 125 4096 1 1 0 NON INT clear indicators
13606 124 999 0 0 3 0 modify address of next
13607 123 160 0 2 0 >M/R enter master routine
13608 82 136 2 0 0 0 136 END OF SUBROUTINE / LEAVE SUBROUTINE
13700 PROCR 137 137 OUTPUT ON PRINTER
13701 NOTES RADIX 0 SELECT
13702 81 137 2 0 0 0 137 START OF SUBROUTINE
13703 100 153 56 1 0 0 153 copy registers
13704 100 154 4 0 3 0 154 set radix
13705 27 9 0 0 0 ON LINE? SELECT
13706 70 137 11 0 0 0 137 >YES JUMP IF A == 0
13707 55 42 0 1 0 50 BULK COPY
13708 C 10 4 1 0 0
13709 10 0 0 0 8 SELECT LITERAL
13710 76 137 19 0 0 0 137 JUMP unconditional
13706>13711 10 0 0 0 0 FUNCTION WORD OUTPUT ONE BLOCK SELECT LITERAL
13712 5 42 0 1 0 0 ZERO TRANSFER
13713 27 8 0 0 0 SELECT
13714 12 0 0 0 9 =9? SUBTRACT LITERAL
13715 71 137 24 0 0 0 137 >NO JUMP IF A != 0
13716 55 42 0 1 0 50 COPY TO TX AREA BULK COPY
13717 C 10 0 1 0 0
13718 101 9 1 3 0 RT 9 select literal address
13730>
13710>13719 34 999 12 0 0 0 SET (N) IN B
13720 80 136 2 0 0 0 136 > ENTER SUBROUTINE
13721 100 153 56 1 1 0 153 RESET A,B,C replace registers
13722 54 40 0 1 0 50 BULK CLEAR
13723 82 137 2 0 0 0 137 >LEAVE S/R END OF SUBROUTINE / LEAVE SUBROUTINE
13715>13724 10 0 0 0 80000 SELECT LITERAL
13725 5 42 1 0 0 0 TRANSFER
13726 124 42 0 0 2 0 SECTION START select literal and division
13727 124 999 13 1 2 0 SECN 10 modify address of next
13728 129 0 0 1 0 EDIT edit for anelex output
13729 101 4 1 3 0 RT4 select literal address
13730 76 137 19 0 0 0 137 > JUMP unconditional
13731 42 A1 0 0 0 0 DUMMY TO MAKE SECTION INPUT
13732 C 10 0 0 0 0 10 A TX AREA
13800 PROCR 138 138 OUTPUT ON P/T AND PRINTER S/R
Source image: P1030158.JPG
13801 NOTES RADIX 0 SELECT
13802 81 138 2 0 0 0 138 START OF SUBROUTINE
13803 147 95 0 0 0 147 SET SWITCH FOR CON CONSANTS SELECT
13804 5 147 74 0 0 0 147 TRANSFER
13805 153 36 1 0 0 153 STORE B/E SELECT
13806 5 42 46 1 0 0 TRANSFER
13807 80 147 2 0 0 0 147 >GET RID OF SPACES S/R ENTER SUBROUTINE
13808 80 140 2 0 0 0 140 >OUTPUT S/R ENTER SUBROUTINE
13809 82 138 2 0 0 0 138 >LEAVE S/R END OF SUBROUTINE / LEAVE SUBROUTINE
13900 PROCR 139 139 O/P S/R
13902 81 139 2 0 0 0 139 START OF SUBROUTINE
13903 55 42 2 1 0 46 >PT IN BULK COPY
13904 C 5 0 1 0 0
13905 80 137 2 0 0 0 137 >PRINT ENTER SUBROUTINE
13906 76 193 6 0 0 0 193 JUMP unconditional
14000 PROCR 140 140 GENERAL OUTPUT S/R
14001 NOTES RADIX 0 SELECT
14002 81 140 2 0 0 0 140 START OF SUBROUTINE
14003 85 140 2 0 0 0 140 SWITCH R
14004 C 140 6 0 0 0 140 >REDUCE
14005 C 140 30 0 0 0 140 >O/P
14004>14006 42 4 1 0 0 SELECT
14007 30 0 0 0 8- SHIFT (A) BY QUARTETS
14008 12 0 0 0 54 SUBTRACT LITERAL
14009 70 140 37 0 0 0 140 >'D' JUMP IF A == 0
14010 12 0 0 0 2Ю SUBTRACT LITERAL
14011 70 140 33 0 0 0 140 >' ' JUMP IF A == 0
14012 150 18 2 0 0 150 'R' SELECT
14013 70 140 28 0 0 0 140 >NOTHING THERE JUMP IF A == 0
14031>
14081>14014 42 2 1 0 0 SELECT
14015 5 150 24 1 0 0 150 PRESERVE TRANSFER
14016 42 4 1 0 0 SELECT
14017 5 150 26 1 0 0 150 PRESERVE TRANSFER
14018 150 18 1 0 0 150 SELECT
14019 5 42 2 1 0 0 SERIAL TRANSFER
14020 153 62 1 0 0 153 SELECT
14021 5 42 4 1 0 0 B/E'S TRANSFER
14022 80 139 2 0 0 0 139 >O/P ENTER SUBROUTINE
14023 150 24 1 0 0 150 SELECT
14024 5 42 2 1 0 0 TRANSFER
14025 150 26 1 0 0 150 SELECT
14026 5 42 4 1 0 0 TRANSFER
14027 5 150 18 1 0 0 150 CLEAR IND TRANSFER
14032>
14013>14028 80 139 2 0 0 0 139 >O/P ENTER SUBROUTINE
14029 82 140 2 0 0 0 140 ' ' END OF SUBROUTINE / LEAVE SUBROUTINE
14005>14030 150 18 1 0 0 150 SELECT
14031 71 140 14 0 0 0 140 JUMP IF A != 0
14032 76 140 28 0 0 0 140 JUMP unconditional
14043>
14049>
14052>
14066>
14011>14033 42 2 1 0 0 SELECT
14034 5 150 18 1 0 0 150 SET THIS SERIAL TRANSFER
14035 62 0 0 0 0 SET EXCESS CONSTANTS
14036 82 140 2 0 0 0 140 END OF SUBROUTINE / LEAVE SUBROUTINE
Source image: P1030159.JPG
14009>14037 150 18 2 0 0 150 TEST SERIAL STORED 'D' SELECT
14038 60 0 0 0 0 SET DECIMAL RADIX
14039 71 140 53 0 0 0 140 >YES DON'T O/P YET JUMP IF A != 0
14040 106 150 31 1 0 0 150 TEST ADJACENT select (N)
14041 105 42 3 1 0 0 subtract (N) from (A)
14042 101 1 1 1 0 add literal address
14043 70 140 33 0 0 0 140 >YES JUMP IF A == 0
14044 101 1 1 1 0 add literal address
14045 71 140 73 0 0 0 140 >NO JUMP IF A != 0
14046 85 107 2 0 0 0 107 MAYBE? SWITCH R
14047 C 140 73 0 0 0 140 >NO
14048 C 140 50 0 0 0 140 >MAYBE
14049 C 140 33 0 0 0 140 >YES
14048>14050 150 28 0 0 0 150 CONST TYPE SELECT
14051 70 140 73 0 0 0 140 >NO JUMP IF A == 0
14052 76 140 33 0 0 0 140 >YES JUMP unconditional
14039>14053 2 42 2 2 0 0 SUBTRACT
14054 11 0 0 0 1 ADD LITERAL
14055 70 140 64 0 0 0 140 >ADJ JUMP IF A == 0
14056 11 0 0 0 1 ADD LITERAL
14057 71 140 78 0 0 0 140 JUMP IF A != 0
14058 85 107 2 0 0 0 107 SWITCH R
14059 C 140 78 0 0 0 140
14060 C 140 62 0 0 0 140 C MAYBE
14061 C 140 64 0 0 0 140 T YES
14060>14062 150 28 0 0 0 150 CONST TYPE SELECT
14063 70 140 78 0 0 0 140 JUMP IF A == 0
14061>
14055>14064 152 13 0 0 0 152 DELETION TYPE SELECT
14065 12 0 0 0 2 SUBTRACT LITERAL
14066 71 140 33 0 0 0 140 JUMP IF A != 0
14067 5 150 18 1 0 0 150 CLEAR IT TRANSFER
14068 62 0 0 0 0 SET EXCESS CONSTANTS
14069 82 140 2 0 0 0 140 >LEAVE S/R END OF SUBROUTINE / LEAVE SUBROUTINE
14070 42 2 1 0 0 SELECT
14071 5 150 18 1 0 0 150 TRANSFER
14072 82 140 2 0 0 0 140 END OF SUBROUTINE / LEAVE SUBROUTINE
14051>
14047>
14045>14073 106 42 2 1 0 0 select (N)
14074 102 150 30 1 0 0 150 transfer (A) to N
14075 62 0 0 0 0 SET EXCESS CONSTANTS
14076 126 139 2 0 0 0 139 O/P enter subroutine
14077 82 140 2 0 0 0 140 END OF SUBROUTINE / LEAVE SUBROUTINE
14063>
14059>
14057>14078 106 42 2 1 0 0 select (N)
14079 102 150 30 1 0 0 150 transfer (A) to N
14080 62 0 0 0 0 SET EXCESS CONSTANTS
14081 76 140 14 0 0 0 140 JUMP unconditional
14100 PROCR 141 141 OUTPUT REPLACEMENT S/R
14101 NOTES RADIX 0 SELECT
14102 81 141 2 0 0 0 141 START OF SUBROUTINE
14103 85 118 2 0 0 0 118 SWITCH 5 SWITCH R
14104 C 141 6 0 0 0 141 >FIRST LINE OF REPLACEMENT
14105 C 141 12 0 0 0 141 >SECOND LINE
14104>14106 41 0 1 0 0 SELECT
14107 5 42 2 1 0 0 TRANSFER
14108 83 118 2 0 0 2 118 SET SWITCH FOR SECOND LINE SET SWITCH(ES) AT LITERAL VALUE
Source image: P1030160.JPG
14109 154 36 1 0 0 154 R(N/E) (SP) (SP) (SP) SELECT
14113>14110 5 42 4 1 0 0 TRANSFER
14111 82 141 2 0 0 0 141 >LEAVE S/R END OF SUBROUTINE / LEAVE SUBROUTINE
14105>14112 153 50 1 0 0 153 (N/E) SELECT
14113 76 141 10 0 0 0 141 >LEAVE S/R JUMP unconditional
14200 PROCR 142 142 OUTPUT CONSTANTS S/R
14201 NOTES RADIX 0 SELECT
14202 81 142 2 0 0 0 142 START OF SUBROUTINE
14203 55 41 4 1 0 38 COPY CONSTANT AND NOTES BULK COPY
14204 C 42 6 1 0 0
14205 5 42 2 1 0 0 CLEAR SERIAL NO LOCN TRANSFER
14206 80 141 2 0 0 0 141 >OUTPUT REPLACEMENT S/R ENTER SUBROUTINE
14207 153 36 1 0 0 153 STORE B/E'S SELECT
14208 5 42 46 1 0 0 TRANSFER
14209 147 93 0 0 0 147 SET SWITCH FOR CONSTANTS SELECT
14210 5 147 74 0 0 0 147 TRANSFER
14211 80 147 2 0 0 0 147 >GET RID OF SPACES S/R ENTER SUBROUTINE
14212 80 140 2 0 0 0 140 >OUTPUT S/R ENTER SUBROUTINE
14213 82 142 2 0 0 0 142 >LEAVE S/R END OF SUBROUTINE / LEAVE SUBROUTINE
14300 PROCR 143 143 OUTPUT BLANK LINE S/R
14301 NOTES RADIX 0 SELECT
14302 81 143 2 0 0 0 143 START OF SUBROUTINE
14303 153 62 1 0 0 153 SELECT
14304 5 42 2 1 0 0 TRANSFER
14305 80 137 2 0 0 0 137 >OUTPUT ON PRINTER ENTER SUBROUTINE
14306 82 143 2 0 0 0 143 >LEAVE S/R END OF SUBROUTINE / LEAVE SUBROUTINE
14400 PROCR 144 144 BULK CLEAR TRANSIT AREA
14401 NOTES RADIX 0 SELECT
14402 81 144 2 0 0 0 144 START OF SUBROUTINE
14403 54 42 0 1 0 50 CLEAR TX BULK CLEAR
14404 82 144 2 0 0 0 144 >LEAVE S/R END OF SUBROUTINE / LEAVE SUBROUTINE
14500 PROCR 145 145
14501 NOTES RADIX 0 SELECT
14502 81 145 2 0 0 0 145 START OF SUBROUTINE
14503 62 0 0 0 0 SET EXCESS CONSTANTS
14504 90 0 0 13 0 SET MODIFICATION REGISTER AT LITERAL
14505 C 0 0 0 16 WORDS OF ANNOTATION
14526>14506 35 0 0 0 1100000000 PREPARE FOR DIGIT COLLATION
14525>14507 36 41 44 1 13 0 COLLATE NEXT OCTET IN NOTES WITH COLLATE AND ADD
14508 70 145 30 0 0 0 145 >SPACE N/E'S JUMP IF A == 0
14509 5 153 40 1 0 0 153 TEST IF * TRANSFER
14510 36 154 34 1 0 0 154 COLLATE AND ADD
14511 2 153 40 1 0 0 153 SUBTRACT
14512 71 145 16 0 0 0 145 >NO JUMP IF A != 0
14513 153 42 1 0 0 153 REPLACE BY N/E SELECT
14514 37 41 44 1 13 0 REPLACE SELECTED BITS
14515 76 145 23 0 0 0 145 JUMP unconditional
14512>14516 10 0 0 0 0 SHIFT COLLATION SELECT LITERAL
14517 36 154 44 1 0 0 154 TEST CHAR IS COLLATE AND ADD
14518 2 153 40 1 0 0 153 DECIMAL SUBTRACT
14519 72 145 23 0 0 0 145 >YES JUMP IF A >= 0
14520 152 23 0 0 0 152 LOOKING FOR DUMMIES SELECT
14521 70 111 2 0 0 0 111 >NO-IGNORE JUMP IF A == 0
14522 76 116 31 0 0 0 116 >YES-DUMMY NOT FOUND JUMP unconditional
14519>
14515>14523 10 0 0 0 0 CLEAR A SELECT LITERAL
Source image: P1030161.JPG
14524 32 0 0 0 2- CONSTANT SHIFT (AB) BY QUARTETS
14525 75 145 7 0 0 0 145 >NEXT OCTET JUMP IF AB != 0
14526 94 145 6 0 13 2 145 >NEXT WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
14527 0 153 36 1 0 0 153 B/E'S SELECT
14528 5 41 44 1 13 0 IN NEXT WORD TRANSFER
14529 76 145 37 0 0 0 145 >UNPACK JUMP unconditional
14508>14530 153 42 1 0 0 153 PACK IN N/E PLACE B/E AT SELECT
14531 37 41 44 1 13 0 END REPLACE SELECTED BITS
14532 10 0 0 0 0 CLEAR A SELECT LITERAL
14533 32 0 0 0 2- SHIFT (AB) BY QUARTETS
14534 153 36 1 0 0 153 B/E'S SELECT
14535 37 41 44 1 13 0 REPLACE SELECTED BITS
14536 5 41 46 1 13 0 TRANSFER
14529>14537 51 41 44 0 0 0 UNPACK VARIABLE BREAK UP UNPACK VARIABLE FIELD DATA
14538 C 158 8 0 0 0 158
14539 82 145 2 0 0 0 145 >LEAVE S/R END OF SUBROUTINE / LEAVE SUBROUTINE
14600 PROCR 146 146 TEST REQUIRED INDICATOR IN THIS BLOCK
14601 NOTES RADIX 0 SELECT
14602 81 146 2 0 0 0 146 START OF SUBROUTINE
14603 91 154 4 0 12 0 154 MODIFIER FOR WORD SET MODIFICATION REGISTER AT VARIABLE
14610>14604 10 0 0 0 0 SELECT LITERAL
14605 5 152 16 0 0 0 152 TRANSFER
14606 41 322 1 12 0 OF NEW INDICATORS SELECT
14607 70 146 11 0 0 0 146 >LAST INDICATOR SEARCH AMONG WORDS JUMP IF A == 0
14608 2 41 306 1 0 0 OR NEW INDICATOR SUBTRACT
14609 70 146 12 0 0 0 146 >FOUND FOR FIRST WORD OF JUMP IF A == 0
14619>14610 94 146 4 0 12 2 146 >NEXT WORD STORED INDICATOR STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
14607>14611 82 146 2 0 0 0 146 >LEAVE S/R END OF SUBROUTINE / LEAVE SUBROUTINE
14623>
14609>14612 96 0 0 12 0 SELECT MODIFIER
14613 1 152 16 0 0 0 152 ADD
14614 92 0 0 15 0 SET MODIFIER AT VARIABLE
14615 124 152 16 0 1 0 152 modify address of next
14616 41 306 1 0 0 EQUAL SELECT
14617 70 146 24 0 0 0 146 >ALL EQUAL JUMP IF A == 0
14618 2 41 322 1 15 0 SUBTRACT
14619 71 146 10 0 0 0 146 >NEXT ONE NOT= JUMP IF A != 0
14620 62 0 0 0 0 STEP MODIFIER SET EXCESS CONSTANTS
14621 10 0 0 0 2 SELECT LITERAL
14622 4 152 16 0 0 0 152 AUGMENT
14623 76 146 12 0 0 0 146 >TRY NEXT WORD JUMP unconditional
14617>14624 124 146 2 0 3 0 146 modify address of next
14625 124 1 1 0 0 unconditional jump
14700 PROCR 147 147 GET RID OF UNNEC SPACES,SIG AND NON SIG S/R
14701 NOTES RADIX 0 SELECT
14702 81 147 2 0 0 0 147 START OF SUBROUTINE
14703 62 0 0 0 0 SET EXCESS CONSTANTS
14704 150 14 1 0 0 150 SET UP CONSTANTS SELECT
14705 3 150 2 1 0 0 150 COLL CONST 1 COPY
14706 3 150 4 1 0 0 150 COLL CONST 2 COPY
14707 5 150 6 1 0 0 150 COLL CONST 3 TRANSFER
14708 124 42 2 0 2 0 select literal and division
14709 3 150 8 1 0 0 150 COPY
14710 3 150 10 1 0 0 150 COPY
14711 5 150 12 1 0 0 150 TRANSFER
14712 148 25 0 0 0 148 SET SWITCH 7=1 SELECT
14713 5 147 34 0 0 0 147 COLLATE CHARACTER TRANSFER
14768>14714 34 150 2 1 0 0 150 COLLATION CONST 1 AND DETERMINE SET (N) IN B
Source image: P1030162.JPG
14715 124 150 8 0 3 0 150 modify address of next
14716 115 0 1 0 0 collate and add
14717 70 147 51 0 0 0 147 >SPACE OR ORDINARY JUMP IF A == 0
14718 5 150 16 1 0 0 150 CHARACTER TRANSFER
14719 124 150 8 0 3 0 150 modify address of next
14720 114 0 1 0 0 replace selected bits
14721 150 16 2 0 0 150 TEST ZERO SELECT
14722 70 147 51 0 0 0 147 JUMP IF A == 0
14827>14723 150 16 1 0 0 150 SHIFT CHAR TO SELECT
14725>14724 32 0 0 0 2- Q1,2 SHIFT (AB) BY QUARTETS
14725 71 147 24 0 0 0 147 JUMP IF A != 0
14726 32 0 0 0 2 SHIFT (AB) BY QUARTETS
14727 3 150 16 1 0 0 150 STORE CHARACTER COPY
14728 12 0 0 0 3: TEST IF N/E SUBTRACT LITERAL
14729 70 148 2 0 0 0 148 >YES N/E JUMP IF A == 0
14730 12 0 0 0 40 DEAL WITH SUBTRACT LITERAL
14731 70 148 2 0 0 0 148 >YES N/E JUMP IF A == 0
14732 12 0 0 0 1 TEST B/E SUBTRACT LITERAL
14733 70 148 28 0 0 0 148 >YES B/E JUMP IF A == 0
14734 150 6 1 0 0 150 SWITCH 7 1=SUPPRESS SPACES SELECT
14735 5 150 4 1 0 0 150 SET MR2=MR3 2=RETAIN SPACES TRANSFER
14736 150 12 1 0 0 150 COLL CONST 2=COLL 3 SELECT
14737 5 150 10 1 0 0 150 TRANSFER
14738 148 22 0 0 0 148 SET SWITCH 7=2 SELECT
14739 5 147 34 0 0 0 147 TRANSFER
14740 148 27 0 0 0 148 SET SWITCH 8=2 SELECT
14741 5 147 22 0 0 0 147 TRANSFER
14773>
14780>
14810>14742 80 149 2 0 0 0 149 PACK UP ENTER SUBROUTINE
14743 150 6 1 0 0 150 SHIFT COLL CONST 3 STEP MRS AND SELECT
14744 32 0 0 0 2- SHIFT COLL CONSTS SHIFT (AB) BY QUARTETS
14745 3 150 6 1 0 0 150 COPY
14746 71 147 51 0 0 0 147 >NOT END JUMP IF A != 0
14747 150 14 1 0 0 150 RESET COLL CONST SELECT
14748 5 150 6 1 0 0 150 TRANSFER
14749 123 2 0 0 0 STEP MR3 step on and test
14750 100 150 12 0 0 0 150 Halt
14826>
14746>
14722>
14717>14751 150 4 1 0 0 150 SHIFT COLL CONST 2 SELECT
14752 32 0 0 0 2- SHIFT (AB) BY QUARTETS
14753 3 150 4 1 0 0 150 COPY
14754 71 147 59 0 0 0 147 >NOT END JUMP IF A != 0
14755 150 14 1 0 0 150 RESET COLL CONST SELECT
14756 5 150 4 1 0 0 150 TRANSFER
14757 123 2 0 0 0 STEP MR2 step on and test
14758 100 150 10 0 0 0 150 Halt
14754>14759 150 2 1 0 0 150 SHIFT COLL CONST 1 SELECT
14760 32 0 0 0 2- SHIFT (AB) BY QUARTETS
14761 3 150 2 1 0 0 150 COPY
14762 71 147 67 0 0 0 147 >NOT END JUMP IF A != 0
14763 150 14 1 0 0 150 RESET COLL CONST 1 SELECT
14764 5 150 2 1 0 0 150 TRANSFER
14765 123 2 0 0 0 STEP MR1 step on and test
14766 100 150 8 0 0 0 150 Halt
14762>14767 10 0 0 0 0 CLEAR A SELECT LITERAL
14768 76 147 14 0 0 0 147 >NEXT CHARACTER JUMP unconditional
14792>
Source image: P1030163.JPG
14822>14769 150 4 1 0 0 150 SWITCH 7 SETTING 2 DEAL WITH N/E SELECT
14770 5 150 6 1 0 0 150 SET MR3=MR2 TRANSFER
14771 150 10 1 0 0 150 COLL CONST 3=COLL CONST 2 SELECT
14772 5 150 12 1 0 0 150 TRANSFER
14773 76 147 42 0 0 0 147 >PACK UP AND STEP MRS JUMP unconditional
14774 150 6 1 0 0 150 SWITCH 6 SELECT
14784>14775 5 150 4 1 0 0 150 SET MR2=MR3 TRANSFER
14776 150 12 1 0 0 150 COLL CONST 2=COLL CONST 3 SELECT
14777 5 150 10 1 0 0 150 TRANSFER
14791>14778 147 95 0 0 0 147 SET SWITCH 7=1 SELECT
14779 5 147 34 0 0 0 147 TRANSFER
14780 76 147 42 0 0 0 147 >PACK UP AND STEP MRS JUMP unconditional
14793>14781 147 94 0 0 0 147 SET SWITCH 6=2 SWITCH 6 SETTING 1 SELECT
14782 5 147 74 0 0 0 147 TRANSFER
14783 150 6 1 0 0 150 SELECT
14784 76 147 75 0 0 0 147 JUMP unconditional
14794>14785 147 95 0 0 0 147 SET SWITCH 6=3 SWITCH 6 SETTING 2 SELECT
14786 5 147 74 0 0 0 147 TRANSFER
14787 150 4 1 0 0 150 SET MR3=MR2 SELECT
14788 5 150 6 1 0 0 150 COLL CONST 3=COLL CONST 2 TRANSFER
14789 150 10 1 0 0 150 SELECT
14790 5 150 12 1 0 0 150 TRANSFER
14791 76 147 78 0 0 0 147 >PACK UP AND STEP MRS JUMP unconditional
14792 76 147 69 0 0 0 147 SWITCH 7 SETTING 2 DUMMY SWITCH JUMP unconditional
14793 76 147 81 0 0 0 147 SWITCH 6 SETTING 1 SETTINGS JUMP unconditional
14794 76 147 85 0 0 0 147 SWITCH 6 SETTING 2 JUMP unconditional
14795 150 6 1 0 0 150 SWITCH 6(7) SETTINGS 3(1) SELECT
14796 76 149 14 0 0 0 149 JUMP unconditional
14919>14797 76 148 33 0 0 0 148 >LEAVE S/R JUMP unconditional
14800 PROCR 148 148 GET RID OF SPACES AND ZEROS CONT
14731>
14729>14802 150 6 1 0 0 150 SWITCH 6 SELECT
14814>14803 5 150 4 1 0 0 150 SET MR2=MR3 TRANSFER
14804 148 26 0 0 0 148 SET SWITCH 8=1 SELECT
14805 5 147 22 0 0 0 147 TRANSFER
14806 150 12 1 0 0 150 COLL CONST 2=COLL SELECT
14807 5 150 10 1 0 0 150 CONST 3 TRANSFER
14821>14808 148 25 0 0 0 148 SET SWITCH 7=1 SELECT
14809 5 147 34 0 0 0 147 TRANSFER
14810 76 147 42 0 0 0 147 >PACK UP AND STEP MRS JUMP unconditional
14811 148 24 0 0 0 148 SET SWITCH 6=2 SWITCH 6 SETTING 1 SELECT
14812 5 148 2 0 0 0 148 TRANSFER
14813 150 6 1 0 0 150 SELECT
14814 76 148 3 0 0 0 148 JUMP unconditional
14815 148 25 0 0 0 148 SET SWITCH 6=3 SWITCH 6 SETTING 2 SELECT
14816 5 148 2 0 0 0 148 TRANSFER
14817 150 4 1 0 0 150 SET MR3=MR2 SELECT
14818 5 150 6 1 0 0 150 COLL CONST3=COLL CONST 2 TRANSFER
14819 150 10 1 0 0 150 SELECT
14820 5 150 12 1 0 0 150 TRANSFER
14821 76 148 8 0 0 0 148 >PACK UP AND STEP MRS JUMP unconditional
14822 76 147 69 0 0 0 147 SWITCH 7 SETTING 2 DUMMY SWITCH JUMP unconditional
14823 76 149 11 0 0 0 149 SWITCH 6 SETTING 1 SETTINGS JUMP unconditional
14824 76 149 15 0 0 0 149 SWITCH 6 SETTING 2 JUMP unconditional
14825 150 6 1 0 0 150 SWITCH 6(7) SETTINGS 3(1) SELECT
14826 70 147 51 0 0 0 147 SWITCH 8 SETTING 1 JUMP IF A == 0
14827 76 147 23 0 0 0 147 SWITCH 8 SETTING 2 JUMP unconditional
14733>14828 150 6 1 0 0 150 SET MR2=MR3 SELECT
14829 5 150 4 1 0 0 150 COLL CONST 3=COLL CONST 2 TRANSFER
Source image: P1030164.JPG
14830 150 12 1 0 0 150 SELECT
14831 5 150 10 1 0 0 150 TRANSFER
14832 80 149 2 0 0 0 149 >PACK UP AND STORE S/R ENTER SUBROUTINE
14797>14833 32 0 0 0 10- SHIFT (AB) BY QUARTETS
14837>14834 124 150 10 0 3 0 150 modify address of next
14835 114 0 1 0 0 replace selected bits
14836 32 0 0 0 2- SHIFT (AB) BY QUARTETS
14837 75 148 34 0 0 0 148 JUMP IF AB != 0
14838 153 62 1 0 0 153 SELECT
14839 124 150 10 0 3 0 150 modify address of next
14840 102 2 1 0 0 transfer (A) to N
14841 82 147 2 0 0 0 147 END OF SUBROUTINE / LEAVE SUBROUTINE
14900 PROCR 149 149 PACK CHARACTER S/R
14901 NOTES RADIX 0 SELECT
14902 81 149 2 0 0 0 149 START OF SUBROUTINE
14903 34 150 16 1 0 0 150 ALIGN CHARACTER SET (N) IN B
14904 10 0 0 0 ££ WITH COLL CONST 3 SELECT LITERAL
14909>14905 2 150 4 1 0 0 150 SUBTRACT
14906 70 149 10 0 0 0 149 >ALIGNED JUMP IF A == 0
14907 1 150 4 1 0 0 150 ADD
14908 32 0 0 0 2 SHIFT CHARACTER 2 SHIFT (AB) BY QUARTETS
14909 76 149 5 0 0 0 149 >TRY AGAIN JUMP unconditional
14906>14910 150 4 1 0 0 150 SELECT
14823>14911 124 150 10 0 3 0 150 modify address of next
14912 114 0 1 0 0 replace selected bits
14913 82 149 2 0 0 0 149 >LEAVE S/R END OF SUBROUTINE / LEAVE SUBROUTINE
14796>14914 150 6 1 0 0 150 SET MR2=MR3 SELECT
14824>14915 5 150 4 1 0 0 150 COLL CONST 3 TRANSFER
14916 150 12 1 0 0 150 =COLL CONST 2 SELECT
14917 5 150 10 1 0 0 150 TRANSFER
14918 80 149 2 0 0 0 149 >PACK UP AND STORE S/R ENTER SUBROUTINE
14919 76 147 97 0 0 0 147 >LEAVE S/R JUMP unconditional
15000 CONST 150 150 1 S/R CONSTS
15002 (D)0; COLLATION CONSTANTS
15004 0;
15006 0;
15008 0; MRS
15010 0;
15012 0;
15014 ££00000000; COLLATION CONST
15016 0;
15018 ; END OF DELETION STORE
15020 0; MULTI-RECORD IND STORE
15022 0; RECORD LENGTH
15024 ; EXTRA LINE STORE
15026 ;
15028 0; CONST TYPE
15030 0;
15100 CONST 151 151 0
15200 CONST 152 152 0 SHORT CONSTANTS OR W/L'S
15202 (D)0; BEGINNING OF CONTROL BLOCK
15203 0; MODIFIER FOR CD AMEND
15204 1; COLLATION CONSTANT
15205 10000;
15206 1; PHS IND/
15207 0; DELETION INDICATOR
Source image: P1030165.JPG
15208 0; DUMMIES INDICATOR
15209 1; INDIC NO
15210 1; AMENDT IND
15211 0; REASON WORD
15212 0; REASON BIT
15213 1; TYPE
15214 £££££; CONST
15215 1£; COLL CONST
15216 0; TEST REQUIRED IN S/R
15217 2;
15218 0; STEP BACK IND
15219 0; PRINTER ROUTE TYPE
15220 ; STEP LOCN
15221 0; PRINTING?
15222 0;
15223 ; LOOKING FOR DUMMIES INDICATOR
15224 8004; USED IN OPEN B1 FILE
15225 5241; DITTO
15226 (D)0; 'LOCKOUT' LINE SERIAL
15227 0; INDEX IDENTIFIER
15300 CONST 153 153 1 LONG CONSTANTS AND W/L'S
15302 (D)0; SERIAL NO PRODUCED
15304 0; P/T OR NOT INDICATOR
15306 0; MR SETTING FOR RTES
15308 0; TYPE/SECOND WORD
15310 0; STORAGE FOR CONTROL
15312 0;
15314 0;
15316 0; WORD
15318 0;
15320 ;
15322 ;
15324 ;
15326 ;
15328 ;
15330 ;
15332 ;
15334 ;
15336 7.7.7.7.7.; B/E'S
15338 1;
15340 0; W/L FOR S/R ON *'S
15342 7:7:7:7:7:; N/E'S
15344 0; STORE FOR 'A' 'B' 'C'
15346 0; DURING PROCEDURE
15348 0; FOR PROCESSING INDIC
15350 7:00000000; CONSTANT CONSTANT
15352 0; DELETION STORE
15354 7Ю547‼; CONST
15356 0; 'A'
15358 0; 'B'
15360 0; 'C'
15362 7.0000007.;
15400 CONST 154 154 1 ALPHA CONSTANTS
15402 (A)PASSI;
15404 ;
15406 AMEND;
15408 MENTS;
15410 TO P;
Source image: P1030166.JPG
15412 RODUC;
15414 E RD;
15416 FROM ;
15418 CONTR;
15420 OL WO;
15422 00000;
15424 (A)CHAPS;
15426 (A)PROCR;
15428 (A)CONST;
15430 (A)TABLE;
15432 (A)NOTES;
15434 *****;
15436 (A)R(D)7:000000;
15438 (A)D ;
15440 (A)END ;
15442 PROGM;
15444 £££££;
15446 0; W/L
15448 0; D STORE
15450 (A)09000;
15500 CONST 155 155 1 REPORTS
15502 (A);
15504 ; PROG SERIAL
15506 (A)08004;
15508 INDI;
15510 CATOR;
15512 WRON;
15514 G ;
15516 ; SERIAL NO
15518 (D)0000005.5.;
15520 (A)08004; 'NO DUMMY' REPORT
15522 NO D;
15524 UMMY ;
15526 ; SERIAL NO
15528 (D)0000005.5.;
15600 TABLE 156 156 1
15601 NOTES
15602 154 6 0 0 2 0 5 0 0 0 0 0 0 AMENDMENTS
15604 154 8 0 0 2 0 5 0 0 0 0 0 0
15606 154 10 0 0 2 0 5 0 0 0 0 0 0 TO
15608 154 12 0 0 2 0 5 0 0 0 0 0 0 PRODUCE
15610 154 14 0 0 2 0 2 0 0 0 0 0 0
15612 155 2 0 0 0 0 5 0 1 0 0 0 0 ID
15614 153 2 0 0 0 0 5 0 1 4 0 0 0 SER
15616 154 16 0 0 2 0 5 0 1 0 0 0 0 FROM
15618 155 2 0 0 0 0 5 0 1 0 0 0 0 ID
15620 155 4 0 0 0 0 5 0 1 4 0 0 0 SER
15622 153 62 0 0 2 0 5 0 3 0 0 0 1 BEW
15624 154 18 0 0 2 0 5 0 0 0 0 0 0 CONTROL
15626 154 20 0 0 2 0 5 0 0 0 0 0 0 WORD
15628 154 14 0 0 2 0 2 3 0 0 0 0 0
15630 153 62 0 0 2 0 5 0 3 0 0 0 1 BEW
15700 TABLE 157 157 1
15701 NOTES
15702 154 4 0 0 2 0 5 0 0 0 0 0 0 FUNCTION WORD
15704 154 6 0 0 2 0 5 0 0 0 0 0 0 AMENDMENTS
15706 153 42 0 0 2 0 1 1 0 0 0 0 0 N/E
Source image: P1030181.JPG
15708 155 2 0 0 0 0 3 0 0 0 0 0 0 SUITE NO
15710 153 42 0 0 2 0 1 1 0 0 0 0 0 N/E
15712 155 2 0 0 0 0 2 3 0 0 0 0 0 JOB NO
15714 153 42 0 0 2 0 1 1 0 0 0 0 0 N/E
15716 155 2 0 0 0 0 5 0 0 0 0 0 0 OLD SER NO
15718 153 42 0 0 2 0 2 1 0 0 0 0 0 N/E N/E
15720 152 17 0 0 0 0 1 4 0 0 0 0 0 2
15722 153 42 0 0 2 0 1 1 0 0 0 0 0 N/E
15724 153 2 0 0 0 0 3 0 0 0 0 0 0 NEW SER
15726 153 62 0 0 2 0 5 0 0 0 0 0 1 B/E
15800 TABLE 158 158 4 UNPACK CONTROL DATA
15801 NOTES
15802 153 8 0 0 0 0 0 0 0 0 0 0 0 TYPE
15804 153 9 0 0 0 0 0 0 0 0 0 0 1 SECOND WORD
15806 41 0 0 0 0 1 0 0 0 0 0 0 1 TYPE 2 P/T I/P
15808 41 320 0 0 2 1 0 0 0 0 0 0 1 UNPACK STARRY NOTES
15810 41 50 0 0 0 1 0 0 0 0 0 0 1 UNPACK TYPE 4
15900 TABLE 159 159 3
15902 153 8 0 0 0 0 5 0 0 0 0 0 0
15904 153 9 0 0 0 0 5 0 0 0 0 0 1
15906 41 0 0 0 0 0 5 0 0 0 0 0 0
15908 41 1 0 0 0 0 5 0 0 0 0 0 0 1
15910 41 2 0 0 0 0 5 0 0 0 0 0 0 2
15912 41 3 0 0 0 0 5 0 0 0 0 0 0 3
15914 41 4 0 0 0 0 5 0 0 0 0 0 0 4
15916 41 5 0 0 0 0 5 0 0 0 0 0 0 5
15918 41 6 0 0 0 0 5 0 0 0 0 0 0 6
15920 41 7 0 0 0 0 5 0 0 0 0 0 0 7
15922 41 8 0 0 0 0 5 0 0 0 0 0 0 8
15924 41 9 0 0 0 0 5 0 0 0 0 0 0 9
15926 41 10 0 0 0 0 5 0 0 0 0 0 1 10
15928 41 50 0 0 0 0 5 0 0 0 0 0 0 ROUTES
15930 41 51 0 0 0 0 5 0 0 0 0 0 0 0
15932 41 52 0 0 0 0 5 0 0 0 0 0 0 1
15934 41 53 0 0 0 0 5 0 0 0 0 0 0 2
15936 41 54 0 0 0 0 5 0 0 0 0 0 0 3
15938 41 55 0 0 0 0 5 0 0 0 0 0 0 4
15940 41 56 0 0 0 0 5 0 0 0 0 0 0 5
15942 41 57 0 0 0 0 5 0 0 0 0 0 0 6
15944 41 58 0 0 0 0 5 0 0 0 0 0 1 7
16000 TABLE 160 160 2 CONDENSE REPLACEMENTS
16001 NOTES
16002 41 2 41 8 2 0 0 0 0 0 0 0 1 REPLACE SECT DESC
16004 41 2 41 8 2 0 0 0 0 0 0 0 0
16006 41 14 0 0 2 0 0 0 0 0 0 0 1 REPLACE PROCR
16100 TABLE 161 161 1 EDIT TABLE ENTRY
16101 NOTES
16102 41 10 0 0 2 0 2 0 0 0 0 0 0 S/L ALPHA
16104 153 42 0 0 2 0 1 0 0 0 0 0 0 N/E
16106 41 10 0 0 2 0 3 2 0 0 0 0 0 S/BE
16108 153 42 0 0 2 0 1 0 0 0 0 0 0 N/E
16110 41 12 0 0 2 0 2 0 0 0 0 0 0 NO
16112 153 42 0 0 2 0 1 0 0 0 0 0 0 N/E
16114 41 12 0 0 2 0 3 2 0 0 0 0 0 DISC
16116 153 42 0 0 2 0 1 0 0 0 0 0 0 N/E
16118 41 14 0 0 2 0 2 0 0 0 0 0 0 SPACES
Source image: P1030182.JPG
16120 153 42 0 0 2 0 1 0 0 0 0 0 0 N/E
16122 41 14 0 0 2 0 3 2 0 0 0 0 0 ZERO
16124 153 42 0 0 2 0 1 0 0 0 0 0 0 N/E
16126 41 16 0 0 2 0 1 0 0 0 0 0 0 SIGN
16128 153 42 0 0 2 0 1 0 0 0 0 0 0 N/E
16130 41 16 0 0 2 0 2 1 0 0 0 0 0 STERLING
16132 153 42 0 0 2 0 1 0 0 0 0 0 0 N/E
16134 41 16 0 0 2 0 2 3 0 0 0 0 0 L/T/E
16136 153 42 0 0 2 0 1 0 1 0 0 0 1 N/E
16200 TABLE 162 162 1 EDIT ROUTE TABLE
16201 NOTES
16202 153 44 0 0 0 0 5 0 0 5 0 0 0 NEW RTE TYPE
16204 153 50 0 0 0 0 5 0 0 0 0 0 1 SPACES
16300 TABLE 163 163 3 PROCEDURE ENTRIES
16302 40 6 0 0 2 0 5 0 0 0 0 0 0 SERIAL
16304 40 8 0 0 2 0 5 0 0 0 0 0 0 A
16306 40 10 0 0 2 0 5 0 0 0 0 0 0 R
16308 40 12 0 0 2 0 5 0 0 0 0 0 0 I
16310 40 14 0 0 2 0 5 0 0 0 0 0 0 D,M
16312 40 16 0 0 2 0 5 0 0 0 0 0 0 L
16314 40 18 0 0 2 0 5 0 0 0 0 0 0 L
16316 40 20 0 0 2 0 5 0 0 0 0 0 0 CLEO
16318 40 22 0 0 2 0 5 0 0 0 0 0 0 PREV REF
16320 40 48 0 0 2 0 5 0 0 0 0 0 0 PASS 1 REPORTS
16322 40 32 0 0 2 0 5 0 0 0 0 0 0 NOTES
16324 40 34 0 0 2 0 5 0 0 0 0 0 0
16326 40 36 0 0 2 0 5 0 0 0 0 0 0
16328 40 38 0 0 2 0 5 0 0 0 0 0 0
16330 40 40 0 0 2 0 5 0 0 0 0 0 0 COMMENTARY
16332 40 42 0 0 2 0 5 0 0 0 0 0 0
16334 40 44 0 0 2 0 5 0 0 0 0 0 0
16336 40 46 0 0 2 0 5 0 0 0 0 0 1
16400 TABLE 164 164 3 TABLE ENTRIES
16402 40 6 0 0 2 0 5 0 0 0 0 0 0 SERIAL
16404 40 8 0 0 2 0 5 0 0 0 0 0 0 A
16406 40 10 0 0 2 0 5 0 0 0 0 0 0 R
16408 40 12 0 0 2 0 5 0 0 0 0 0 0 I
16410 40 14 0 0 2 0 5 0 0 0 0 0 0 D,M
16412 40 16 0 0 2 0 5 0 0 0 0 0 0 R
16414 40 18 0 0 2 0 5 0 0 0 0 0 0 1
16416 40 20 0 0 2 0 5 0 0 0 0 0 0 R
16418 40 22 0 0 2 0 5 0 0 0 0 0 0 1
16420 40 48 0 0 2 0 5 0 0 0 0 0 0 S/L,S/BE
16422 40 32 0 0 2 0 5 0 0 0 0 0 0 NO/DISC
16424 40 34 0 0 2 0 5 0 0 0 0 0 0 SP/ZEROS
16426 40 36 0 0 2 0 5 0 0 0 0 0 0 SGN/£/LTE
16428 40 38 0 0 2 0 5 0 0 0 0 0 0 PASS 1 REPORTS
16430 40 40 0 0 2 0 5 0 0 0 0 0 0 NOTES
16432 40 42 0 0 2 0 5 0 0 0 0 0 0
16434 40 44 0 0 2 0 5 0 0 0 0 0 0
16436 40 46 0 0 2 0 5 0 0 0 0 0 1
16500 TABLE 165 165 3 CONSTANT ENTRIES
16502 40 6 0 0 2 0 5 0 0 0 0 0 0 SERIAL
16504 40 8 0 0 2 0 5 0 0 0 0 0 0 END
16506 40 12 0 0 2 0 5 0 0 0 0 0 0 CONSTANT
16508 40 14 0 0 2 0 5 0 0 0 0 0 0
Source image: P1030183.JPG
16510 40 16 0 0 2 0 5 0 0 0 0 0 0
16512 40 18 0 0 2 0 5 0 0 0 0 0 0
16514 40 20 0 0 2 0 5 0 0 0 0 0 0
16516 40 22 0 0 2 0 5 0 0 0 0 0 0
16518 40 24 0 0 2 0 5 0 0 0 0 0 0
16520 40 26 0 0 2 0 5 0 0 0 0 0 0
16522 40 28 0 0 2 0 5 0 0 0 0 0 0
16524 40 48 0 0 2 0 5 0 0 0 0 0 0 PASS 1 REPORTS
16526 40 32 0 0 2 0 5 0 0 0 0 0 0 ANNOTATION
16528 40 34 0 0 2 0 5 0 0 0 0 0 0
16530 40 36 0 0 2 0 5 0 0 0 0 0 0
16532 40 38 0 0 2 0 5 0 0 0 0 0 0
16534 40 40 0 0 2 0 5 0 0 0 0 0 0
16536 40 42 0 0 2 0 5 0 0 0 0 0 0
16538 40 44 0 0 2 0 5 0 0 0 0 0 0
16540 40 46 0 0 2 0 5 0 0 0 0 0 1
16600 PROCR 166 166 STORE PRINTER AND I/P TYPE,ALLOCATE NEW DEVICE
16808>
10007>16602 62 0 0 0 0 SET EXCESS CONSTANTS
16603 125 4096 1 1 0 clear indicators
16604 123 166 5 0 2 0 166 enter master routine
16605 100 0 0 0 0 Halt
16606 5 197 42 1 0 0 197 ORIGINAL(A) TRANSFER
16607 5 27 0 1 0 0 CLEAR WL'S TRANSFER
16608 5 27 2 1 0 0 TRANSFER
16609 5 27 4 1 0 0 TRANSFER
16610 5 27 6 1 0 0 TRANSFER
16611 5 27 11 0 0 0 TRANSFER
16612 5 27 13 0 0 0 TRANSFER
16613 118 10 1 0 0 TEST IPS WANTED shift logical
16614 105 154 50 1 0 0 154 subtract (N) from (A)
16615 70 100 2 0 0 0 100 >YES JUMP IF A == 0
16616 54 24 0 0 0 12 BULK CLEAR
16617 54 92 0 0 0 38 BULK CLEAR
16618 123 166 18 0 3 0 166 select tag
16619 30 0 0 0 4 SHIFT (A) BY QUARTETS
16620 35 0 0 0 10000 PREPARE FOR DIGIT COLLATION
16621 37 182 4 0 0 0 182 FORM LINKS REPLACE SELECTED BITS
16622 37 182 5 0 0 0 182 REPLACE SELECTED BITS
16623 37 182 6 0 0 0 182 REPLACE SELECTED BITS
16624 94 166 72 0 1 0 166 /////>REENTRY STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
16625 124 999 5 0 3 0 modify address of next
16626 106 34 0 0 0 D1 select (N)
16627 30 0 0 0 4- SHIFT (A) BY QUARTETS
16628 5 27 8 1 0 0 INITIAL PRINTER TYPE>CLEAR 'OFFLINE TRANSFER
16629 124 999 5 0 3 0 modify address of next
16630 106 36 0 0 0 B1 select (N)
16631 30 0 0 0 4- SHIFT (A) BY QUARTETS
16632 12 0 0 0 5 SUBTRACT LITERAL
16633 5 152 22 0 0 0 152 I/P SWITCH TRANSFER
16634 10 0 0 0 1 SELECT LITERAL
16635 5 27 10 0 0 0 INPUT TYPE TRANSFER
16636 197 42 2 0 0 197 SELECT
16637 70 166 83 0 0 0 166 >THINGS OK,EXIT JUMP IF A == 0
16676>16638 10 0 0 0 7 RT7 SELECT LITERAL
16639 80 167 2 0 0 0 167 ENTER SUBROUTINE
16640 70 166 47 0 0 0 166 >OK JUMP IF A == 0
16641 10 0 0 0 8 RT8 SELECT LITERAL
16642 80 167 2 0 0 0 167 ENTER SUBROUTINE
Source image: P1030184.JPG
16643 70 166 47 0 0 0 166 JUMP IF A == 0
16644 10 0 0 0 ‼ RT11 SELECT LITERAL
16645 80 167 2 0 0 0 167 ENTER SUBROUTINE
16646 71 168 2 0 0 0 168 >ALARM*10 JUMP IF A != 0
16643>
16640>16647 10 0 0 0 1 SELECT LITERAL
16682>16648 5 27 9 0 0 0 TRANSFER
16649 96 0 0 2 0 ALLOC ROUTE SELECT MODIFIER
16650 12 0 0 0 40 64 SUBTRACT LITERAL
16651 3 999 7 0 0 0 COPY
16652 31 0 0 0 1 SHIFT (A) BY BITS
16653 32 0 0 0 1- SHIFT (AB) BY QUARTETS
16654 5 185 2 0 0 0 185 WL FOR CH TRANSFER
16655 33 0 0 0 3 SHIFT (AB) BY BITS
16656 5 184 2 0 0 0 184 ROUTE TRANSFER
16657 185 2 0 0 0 185 CHANNEL SELECT
16658 80 195 2 0 0 0 195 >DEC ENTER SUBROUTINE
16659 5 197 42 0 0 0 197 TRANSFER
16660 62 0 0 0 0 SET EXCESS CONSTANTS
16661 27 9 0 0 0 SELECT
16662 70 168 9 0 0 0 168 JUMP IF A == 0
16663 124 999 5 0 3 0 SP CHAP START modify address of next
16664 124 32 0 3 0 modify address of next
16665 124 16 0 3 0 modify address of next
16666 10 0 0 0 0 START OF REEL CTRS SELECT LITERAL
16667 1 999 7 0 0 0 ADD
16668 5 194 2 0 0 0 194 WL TRANSFER
16669 124 194 2 0 3 0 194 modify address of next
16670 102 0 0 0 0 CLEAR REEL CTR FOR ROUTE transfer (A) to N
16671 76 168 9 0 0 0 168 JUMP unconditional
16624>16672 96 0 0 1 0 SELECT MODIFIER
16673 70 166 77 0 0 0 166 >PRINTER WANTED REENTRY JUMP IF A == 0
16674 27 9 0 0 0 SELECT
16675 71 166 83 0 0 0 166 >MT WANTED AND GOT,EXIT JUMP IF A != 0
16676 76 166 38 0 0 0 166 >GET MT JUMP unconditional
16673>16677 27 9 0 0 0 SELECT
16678 70 166 83 0 0 0 166 >PRINTER WANTED AND GOT,EXIT JUMP IF A == 0
16679 27 8 0 0 0 INITIAL PRINTER TYPE SELECT
16680 80 167 2 0 0 0 167 ENTER SUBROUTINE
16681 71 168 2 0 0 0 168 >ALARM*10 JUMP IF A != 0
16682 76 166 48 0 0 0 166 JUMP unconditional
16678>
16675>
16637>16683 126 182 4 0 3 0 182 >TO MAIN PATH leave master routine
16700 PROCR 167 167 ALLOCATE ANOTHER DEVICE
16702 81 167 2 0 0 0 167 START OF SUBROUTINE
16703 5 192 2 0 0 0 192 TRANSFER
16704 90 0 0 2 64 SET MODIFICATION REGISTER AT LITERAL
16705 C 0 0 0 128
16710>16706 192 2 0 0 0 192 SELECT
16707 124 999 0 0 3 0 modify address of next
16708 105 0 0 2 0 subtract (N) from (A)
16709 70 167 21 0 0 0 167 >MATCH,END JUMP IF A == 0
16710 94 167 6 0 2 1 167 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
16711 999 9 0 0 0 KNOWN MT ROUTE SELECT
16712 12 0 0 0 18 CH3/0 SUBTRACT LITERAL
16713 73 167 21 0 0 0 167 >SLOW CHANNEL,END WITHOUT MATCH JUMP IF A < 0
16714 90 0 0 2 192 SET MODIFICATION REGISTER AT LITERAL
16715 C 0 0 0 240
Source image: P1030185.JPG
16720>16716 124 999 0 0 3 0 TRY FAST CHANNELS modify address of next
16717 106 0 0 2 0 select (N)
16718 2 192 2 0 0 0 192 SUBTRACT
16719 70 167 21 0 0 0 167 JUMP IF A == 0
16720 94 167 16 0 2 1 167 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
16719>
16713>
16709>16721 82 167 2 0 0 0 167 (A)NONZERO IF NO MATCH END OF SUBROUTINE / LEAVE SUBROUTINE
16800 PROCR 168 168 ALARM IF CANT FIND REQUIRED DEVICE
16681>
16646>16802 126 182 5 0 3 0 182 leave master routine
18204>16803 150 0 0 0 10 ALARM*10 OFFER OPTIONS
16804 C 190 58 0 0 0 190 >UNLOAD
16805 C 168 7 0 0 0 168 >TRY AGAIN
16806 C 169 33 0 0 0 169 >CONTINUE AS YOU ARE
16805>16807 197 42 1 0 0 197 ORIGINAL(A) SELECT
16808 76 166 2 0 0 0 166 JUMP unconditional
16671>
16662>16809 124 999 5 0 3 0 modify address of next
16810 106 34 0 0 0 select (N)
16811 32 0 0 0 4- SHIFT (AB) BY QUARTETS
16812 5 194 2 0 0 0 194 ROUTE TYPE TRANSFER
16813 32 0 0 0 2 SHIFT (AB) BY QUARTETS
16814 10 0 0 0 0 (ALT ROUTE) SELECT LITERAL
16815 32 0 0 0 2 SHIFT (AB) BY QUARTETS
16816 5 195 2 0 0 0 195 ROUTE TRANSFER
16817 124 999 5 0 3 0 modify address of next
16818 124 32 0 3 0 modify address of next
16819 124 12 0 3 0 START OF ASSEMBLER TABLE modify address of next
16820 101 0 1 3 0 select literal address
16821 34 195 2 0 0 0 195 BITS4-8 SET (N) IN B
16822 36 197 88 0 0 0 197 8XCHANNEL COLLATE AND ADD
16823 5 167 2 0 0 0 167 TRANSFER
16900 PROCR 169 169 START PASS 0-DEAL WITH INITIAL TRANSLATION
16902 124 999 5 0 3 0 modify address of next
16903 124 32 0 3 0 modify address of next
16904 106 32 0 0 0 -64 IF FAST MACHINE ZERO OTHERWISE select (N)
16905 107 169 22 0 0 0 169 augment (N) by (A)
16906 107 169 29 0 0 0 169 augment (N) by (A)
16907 124 167 2 0 3 0 167 modify address of next
16908 106 0 0 0 0 LAST ROUTE ON CHANNEL select (N)
16909 2 195 2 0 0 0 195 SUBTRACT
16910 71 169 13 0 0 0 169 >NOT THIS ONE JUMP IF A != 0
16911 124 167 2 0 3 0 167 modify address of next
16912 102 0 1 0 0 CLEAR DETAILS transfer (A) to N
16910>16913 124 195 2 0 3 0 195 modify address of next
16914 106 64 0 0 0 OLD ASL select (N)
16915 124 999 7 0 3 0 NEW ROUTE modify address of next
16916 102 64 0 0 0 transfer (A) to N
16917 194 2 0 0 0 194 OLD ROUTE TYPE LOAD NEW ROUTE SELECT
16918 124 195 2 0 3 0 195 modify address of next
16919 102 64 0 0 0 transfer (A) to N
16920 192 2 0 0 0 192 NEW ROUTE TYPE SELECT
16921 30 0 0 0 2 SHIFT (A) BY QUARTETS
16922 11 0 0 0 80 ADD LITERAL
16923 30 0 0 0 2 SHIFT (A) BY QUARTETS
16924 1 999 7 0 0 0 NEW ROUTE ADD
16925 124 999 5 0 3 0 modify address of next
Source image: P1030186.JPG
16926 102 34 0 0 0 transfer (A) to N
16927 999 7 0 0 0 SELECT
16928 30 0 0 0 2 SHIFT (A) BY QUARTETS
16929 11 0 0 0 80 ADD LITERAL
16930 124 999 5 0 3 0 modify address of next
16931 102 35 0 0 0 transfer (A) to N
16932 126 182 6 0 3 0 182 leave master routine
18205>
16806>16933 52 3 0 0 0 0 EDIT
16934 C 198 12 0 0 0 198
16935 154 3 0 0 0 0 COMMENT IN LOG
18203>16936 62 0 0 0 0 NORMAL START HERE SET EXCESS CONSTANTS
16937 54 3 0 1 0 2358 ALL SECNS PASS 0 BULK CLEAR
16938 76 102 2 0 0 0 102 >GET AMEND BLOCK JUMP unconditional
17000 PROCR 170 170 START OF AMENDMENT RUN
10555>17002 0 5 0 1 0 0 SELECT
17003 3 197 44 1 0 0 197 AMDT IND COPY
17004 2 197 52 1 0 0 197 'AMEND' SUBTRACT
17005 70 170 13 0 0 0 170 JUMP IF A == 0
17033>
10324>17006 150 0 0 0 3 ALARM*03 OFFER OPTIONS
17007 C 190 58 0 0 0 190 >UNLOAD
17008 C 170 9 0 0 0 170 >REENTER
19055>
17008>
13104>17009 27 9 0 0 0 SELECT
17010 11 0 0 0 900000 ADD LITERAL
17011 91 0 0 1 0 (END VALUE NONZERO) SET MODIFICATION REGISTER AT VARIABLE
17012 76 100 5 0 0 0 100 JUMP unconditional
17005>17013 80 196 2 0 0 0 196 UNPACK AND CHECK AMEND BLOCK ENTER SUBROUTINE
17014 40 A6 0 0 0 0 OPEN FILE
17015 54 9 4 1 0 50 BULK CLEAR
17016 91 0 0 3 0 CLEAR R3 SET MODIFICATION REGISTER AT VARIABLE
17017 80 186 2 0 0 0 186 >WRITE 'AMEND' ENTER SUBROUTINE
17018 7 14 1 0 0 SELECT
17019 2 153 62 1 0 0 153 BEW SUBTRACT
17020 71 170 24 0 0 0 170 >NOT ISSUE 2,3 OUTPUT JUMP IF A != 0
17021 5 7 12 1 0 0 TRANSFER
17022 5 7 14 1 0 0 TRANSFER
17023 5 7 16 1 0 0 TRANSFER
17020>17024 7 16 2 0 0 MULTIRECORD IND SELECT
17025 3 27 1 0 0 0 COPY
17026 3 150 20 1 0 0 150 COPY
17027 71 170 29 0 0 0 170 JUMP IF A != 0
17028 83 133 2 0 0 2 133 SINGLE-REC SET SWITCH(ES) AT LITERAL VALUE
17027>17029 7 14 2 0 0 SELECT
17030 5 27 2 0 0 0 TRANSFER
17031 7 12 2 0 0 SELECT
17032 3 27 0 0 0 0 COPY
17033 70 170 6 0 0 0 170 >*03 JUMP IF A == 0
17100 PROCR 171 171 DEAL WITH I/P TAPE EX ISSUE 6-AMEND RUN
17102 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
17103 C 0 0 0 46
17107>17104 80 132 2 0 0 0 132 READ A1>7 ENTER SUBROUTINE
17105 55 7 4 2 0 46 BULK COPY
17106 C 3 0 0 1 0 INDEX 3/0-45
17107 94 171 4 0 1 23 171 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
17108 3 45 0 0 0 SELECT
Source image: P1030187.JPG
17109 80 195 2 0 0 0 195 >DEC ENTER SUBROUTINE
17110 30 0 0 0 2 SHIFT (A) BY QUARTETS
17111 5 17 21 0 0 0 HIGHEST EFFECTIVE LINE SERIAL TRANSFER
17112 62 0 0 0 0 SET EXCESS CONSTANTS
17113 3 45 0 0 0 (HIGHEST B/FWD PROCR+1)IN BINARY SELECT
17114 30 0 0 0 5 SHIFT (A) BY QUARTETS
17115 101 100 1 1 0 CREATE B/FWD OLD-NEW PROCR INDEX add literal address
17116 91 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE
17117 101 100 1 3 0 select literal address
17120>17118 3 6 100- 0 1 0 STORE ONE-FOR-ONE COPY
17119 11 0 0 0 1 ADD LITERAL
17120 94 171 18 0 1 1 171 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
17121 3 45 0 0 0 MAX B/FWD PROCR SELECT
17122 5 94 45 0 0 0 =PROVIS MAX C/FWD PROCR TRANSFER
17123 52 18 0 0 0 0 EDIT
17124 C 198 2 0 0 0 198
17125 154 18 0 0 0 0 TYPE'AMEND' COMMENT COMMENT IN LOG
17200 PROCR 172 172 READ/WRITE MODS UP TO FIRST AMEND DIRECTIVE
17205>17202 80 183 2 0 0 0 183 >READ/TEST PT ENTER SUBROUTINE
17203 70 172 6 0 0 0 172 >YES JUMP IF A == 0
17204 80 186 2 0 0 0 186 >WRITE ENTER SUBROUTINE
17205 76 172 2 0 0 0 172 JUMP unconditional
17203>17206 10 0 0 0 9999 SELECT LITERAL
17207 3 17 10 0 0 0 SET FOR SEQUENCE CHECKS COPY
17208 5 17 14 0 0 0 TRANSFER
17209 76 173 7 0 0 0 173 JUMP unconditional
17300 PROCR 173 173 MAIN LOOP
17640>17302 80 193 2 0 0 0 193 >READ ENTER SUBROUTINE
17303 70 181 2 0 0 0 181 >PT END JUMP IF A == 0
17304 80 187 2 0 0 0 187 >UNPACK ENTER SUBROUTINE
17305 80 184 2 0 0 0 184 >STORE SWITCH, TEST DIRECTIVE ENTER SUBROUTINE
17306 71 179 2 0 0 0 179 >NOT A NEW DIRECTIVE JUMP IF A != 0
17531>
17823>
18005>
17209>17307 60 0 0 0 0 SET DECIMAL RADIX
17308 17 10 0 0 0 CHECK SEQUENCE AT NEW DIRECTIVE SELECT
17309 2 4 2 2 0 0 SUBTRACT
17310 73 173 15 0 0 0 173 >OK JUMP IF A < 0
17311 71 180 2 0 0 0 180 >REJECT,READ/COPY TO NEXT DIRECTIVE JUMP IF A != 0
17312 0 17 12 0 0 0 SAME SERIAL SELECT
17313 12 0 0 0 3 SUBTRACT LITERAL
17314 71 180 2 0 0 0 180 >PREVIOUS NOT'T',IGNORE THIS JUMP IF A != 0
17310>17315 17 21 0 0 0 MAX B/FWD LINE SERIAL SELECT
17316 2 4 2 2 0 0 THIS LINE SERIAL SUBTRACT
17317 72 173 22 0 0 0 173 >NORMAL? JUMP IF A >= 0
17321>
17322>17318 10 0 0 0 1 SELECT LITERAL
17319 5 17 16 1 0 0 SET'PASS 0 DOESNNT LIKE IT' TRANSFER
17320 80 188 2 0 0 0 188 >WRITE A6 ENTER SUBROUTINE
17321 76 173 18 0 0 0 173 JUMP unconditional
17317>17322 70 173 18 0 0 0 173 JUMP IF A == 0
17323 4 2 2 0 0 SELECT
17324 30 0 0 0 2- SHIFT (A) BY QUARTETS
17325 80 194 2 0 0 0 194 BIN TEST IF VALUE ENTER SUBROUTINE
17326 5 195 2 0 0 0 195 DIRECTIVE? TRANSFER
17327 124 195 2 0 1 0 195 EQUIV OF CURRENT PROCR modify address of next
17328 6 100- 0 0 0 SELECT
Source image: P1030188.JPG
17329 70 180 2 0 0 0 180 >REJECT,READ/COPY TO NEXT DIRECTIVE JUMP IF A == 0
17330 85 184 2 0 0 0 184 SWITCH R
17331 C 178 2 0 0 0 178 R
17332 C 174 2 0 0 0 174 D
17333 C 180 2 0 0 0 180 >REJECT
17334 C 180 2 0 0 0 180 >REJECT
17400 PROCR 174 174 DEAL WITH 'DELETE' DIRECTIVE-PREP STAGE
17332>17402 80 185 2 0 0 0 185 >FIND 'PROCR 'LENGTH' ENTER SUBROUTINE
17403 5 17 0 0 0 0 0=SHORT, 1=LONG TRANSFER
17404 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
17405 36 4 2 2 0 0 COLLATE AND ADD
17406 12 0 0 0 1 SUBTRACT LITERAL
17407 70 174 12 0 0 0 174 >DELETION BEGINS AT'NOTES' JUMP IF A == 0
17408 10 0 0 0 0 SELECT LITERAL
17409 34 17 0 0 0 0 SET (N) IN B
17410 36 4 2 2 0 0 LINE SERIAL COLLATE AND ADD
17411 71 180 2 0 0 0 180 >UNACCEPTABLE MOD JUMP IF A != 0
17407>17412 0 4 2 2 0 0 SELECT
17413 3 17 14 0 0 0 COPY
17414 30 0 0 0 8 SHIFT (A) BY QUARTETS
17415 70 174 19 0 0 0 174 >DELETING PROCR JUMP IF A == 0
17416 17 3 0 0 0 CTR OF ADJUST DETAILS SELECT
17417 101 900 1 2 0 subtract literal address
17418 70 180 2 0 0 0 180 >LIST FULL,COPY TO NEXT DIRECTIVE JUMP IF A == 0
17415>17419 80 186 2 0 0 0 186 >WRITE ENTER SUBROUTINE
17420 80 193 2 0 0 0 193 >READ ENTER SUBROUTINE
17421 70 175 2 0 0 0 175 >PT AT END, SINGLE LINE DELETE JUMP IF A == 0
17422 80 187 2 0 0 0 187 >UNPACK ENTER SUBROUTINE
17423 80 184 2 0 0 0 184 >TEST DIRECTIVE ENTER SUBROUTINE
17424 71 176 2 0 0 0 176 >NO, HENCE MULTIPLE DELETE JUMP IF A != 0
17500 PROCR 175 175 DEAL WITH SINGLE LINE DELETION
17421>17502 0 17 14 0 0 0 SELECT
17503 3 17 10 0 0 0 FOR SEQUENCE CHECKS COPY
17504 30 0 0 0 8 SHIFT (A) BY QUARTETS
17505 71 175 8 0 0 0 175 >NOT DELETING 'PROCR' JUMP IF A != 0
17506 17 14 0 0 0 SELECT
17507 76 176 12 0 0 0 176 >JOIN UP WITH MULTIPLE DELETION JUMP unconditional
17505>17508 30 0 0 0 8- SHIFT (A) BY QUARTETS
17509 12 0 0 0 1 SUBTRACT LITERAL
17510 70 175 26 0 0 0 175 >DELETING'NOTES'ONLY JUMP IF A == 0
17511 10 0 0 0 0 SELECT LITERAL
17512 2 17 0 0 0 0 SUBTRACT
17513 12 0 0 0 1 SUBTRACT LITERAL
17514 5 17 15 0 0 0 TRANSFER
17515 17 14 0 0 0 SELECT
17516 32 0 0 0 2- SHIFT (AB) BY QUARTETS
17517 5 17 19 0 0 0 PROCR TRANSFER
17518 17 14 0 0 0 SELECT
17519 2 17 15 0 0 0 -(NEGATIVE ADJUST DETAILS) SUBTRACT
17520 5 17 14 0 0 0 TRANSFER
17521 17 14 0 0 0 LINE SERIAL+ADJUST DETAIL SELECT
17522 32 0 0 0 2- SHIFT (AB) BY QUARTETS
17523 2 17 19 0 0 0 SUBTRACT
17524 71 175 26 0 0 0 175 CARRY INTO NEXT PROCDON'T STORE JUMP IF A != 0
17525 80 192 2 0 0 0 192 >STORE SDJUSTMENT ENTER SUBROUTINE
17524>
17510>17526 0 5 0 1 0 0 SELECT
17527 30 0 0 0 4- SHIFT (A) BY QUARTETS
Source image: P1030189.JPG
17528 30 0 0 0 4 SHIFT (A) BY QUARTETS
17529 2 197 56 1 0 0 197 'END' SUBTRACT
17530 70 181 2 0 0 0 181 >PT AT END JUMP IF A == 0
17531 76 173 7 0 0 0 173 >TEST NEW DIRECTIVE IN SEQUENCE JUMP unconditional
17600 PROCR 176 176 DEAL WITH MULTIPLE DELETION
17424>17602 80 185 2 0 0 0 185 >FIND PROCR LENGTH ENTER SUBROUTINE
17603 5 17 0 0 0 0 TRANSFER
17604 34 17 0 0 0 0 SET (N) IN B
17605 36 4 2 2 0 0 LINE SERIAL 'TO' COLLATE AND ADD
17606 71 180 2 0 0 0 180 >REJECT AMENDMENT JUMP IF A != 0
17607 0 17 14 0 0 0 'FROM' SELECT
17608 2 4 2 2 0 0 'TO' SUBTRACT
17609 72 180 2 0 0 0 180 >REJECT,OUT OF SEQUENCE JUMP IF A >= 0
17610 4 2 2 0 0 'TO'PROCR SELECT
17611 3 17 10 0 0 0 FOR SEQUENCE CHECKS COPY
17507>17612 32 0 0 0 2- SHIFT (AB) BY QUARTETS
17613 5 17 15 0 0 0 3-DIGIT'TO' TRANSFER
17614 17 14 0 0 0 'FROM'PROCR SELECT
17615 32 0 0 0 2- 'TO'PROCR SHIFT (AB) BY QUARTETS
17616 3 17 19 0 0 0 '3-DIGIT'FROM' COPY
17617 2 17 15 0 0 0 SUBTRACT
17618 71 180 2 0 0 0 180 JUMP IF A != 0
17619 32 0 0 0 2 SHIFT (AB) BY QUARTETS
17620 70 180 2 0 0 0 180 JUMP IF A == 0
17621 0 17 14 0 0 0 SELECT
17622 30 0 0 0 8 SHIFT (A) BY QUARTETS
17623 30 0 0 0 8- SHIFT (A) BY QUARTETS
17624 12 0 0 0 1 SUBTRACT LITERAL
17625 70 180 2 0 0 0 180 >MULTIPLE DELETION BEGINS AT'NOTES',REJEJUMP IF A == 0
17626 17 14 0 0 0 'FROM'SERIAL SELECT
17627 2 4 2 2 0 0 'TO'SERIAL SUBTRACT
17628 2 17 0 0 0 0 LENGTH SUBTRACT
17629 12 0 0 0 1 SUBTRACT LITERAL
17630 5 17 15 0 0 0 NEGATIVE ADJUST DETAIL TRANSFER
17631 17 14 0 0 0 SELECT
17632 2 17 15 0 0 0 -(NEGATIVE ADJUST DETAIL) SUBTRACT
17633 5 17 14 0 0 0 TRANSFER
17634 17 14 0 0 0 LINE SERIAL+ADJUSTMENT SELECT
17635 30 0 0 0 2- SHIFT (A) BY QUARTETS
17636 2 17 19 0 0 0 PREVIOUS PROCR SUBTRACT
17637 71 176 39 0 0 0 176 >CARRY INTO PROCR,DON T STORE JUMP IF A != 0
17638 80 192 2 0 0 0 192 >STORE ADJUSTMENT ENTER SUBROUTINE
17924>
17637>17639 80 186 2 0 0 0 186 >WRITE ENTER SUBROUTINE
17640 76 173 2 0 0 0 173 >READ NEXT BLOCK JUMP unconditional
17700 PROCR 177 177 DELETE MANY PROCEDURES
17800 PROCR 178 178 'R'DIRECTIVES AND'A'DIRECTIVES
17331>17802 35 0 0 0 11 DIRECTIVE LINE'R' PREPARE FOR DIGIT COLLATION
17803 10 0 0 0 0 SELECT LITERAL
17804 36 4 2 2 0 0 COLLATE AND ADD
17805 70 180 2 0 0 0 180 JUMP IF A == 0
17806 80 185 2 0 0 0 185 >FIND'LENGTH' ENTER SUBROUTINE
17807 5 17 0 0 0 0 TRANSFER
17808 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
17809 36 4 2 2 0 0 LINE SERIAL COLLATE AND ADD
17810 12 0 0 0 1 SUBTRACT LITERAL
17811 70 180 2 0 0 0 180 JUMP IF A == 0
Source image: P1030190.JPG
17812 10 0 0 0 0 SELECT LITERAL
17813 34 17 0 0 0 0 SET (N) IN B
17814 36 4 2 2 0 0 COLLATE AND ADD
17815 71 180 2 0 0 0 180 >UNACCEPTABLE JUMP IF A != 0
17816 4 2 2 0 0 SELECT
17817 3 17 14 0 0 0 COPY
17818 3 17 10 0 0 0 COPY
17819 32 0 0 0 2- SHIFT (AB) BY QUARTETS
17820 5 17 19 0 0 0 TRANSFER
17821 80 186 2 0 0 0 186 WRITE ENTER SUBROUTINE
17822 80 183 2 0 0 0 183 >READ/TEST PT ENTER SUBROUTINE
17823 70 173 7 0 0 0 173 >YES JUMP IF A == 0
17900 PROCR 179 179 DEAL WITH NON-DIRECTIVE LINE
17306>17902 85 184 2 0 0 0 184 SWITCH R
17903 C 179 7 0 0 0 179 R
17904 C 180 2 0 0 0 180
17905 C 180 2 0 0 0 180
17906 C 180 2 0 0 0 180
17903>17907 60 0 0 0 0 SET DECIMAL RADIX
17908 17 0 0 0 0 CURRENT LENGTH SELECT
17909 11 0 0 0 1 ADD LITERAL
17910 4 17 10 0 0 0 STEP SEQ CTR AUGMENT
17911 17 10 0 0 0 SELECT
17912 32 0 0 0 2- SHIFT (AB) BY QUARTETS
17913 2 17 19 0 0 0 PROCR OF R OR A-DIRECTIVE SUBTRACT
17914 71 179 25 0 0 0 179 >NOT STILL IN SAME PROCR JUMP IF A != 0
17915 4 6 1 0 0 SELECT
17916 2 197 46 1 0 0 197 'PROCR' SUBTRACT
17917 70 180 2 0 0 0 180 JUMP IF A == 0
17918 4 6 1 0 0 SELECT
17919 2 197 48 1 0 0 197 'TABLE SUBTRACT
17920 70 180 2 0 0 0 180 >UNACCEPTABLE JUMP IF A == 0
17921 4 6 1 0 0 SELECT
17922 2 197 50 1 0 0 197 'CONST' SUBTRACT
17923 70 180 2 0 0 0 180 >UNACCEPTABLE JUMP IF A == 0
17924 76 176 39 0 0 0 176 JUMP unconditional
17914>17925 10 0 0 0 1- SELECT LITERAL
17926 2 17 0 0 0 0 SUBTRACT
17927 4 17 10 0 0 0 STEP BACK SEQ CTR SO NEVER ALTERS AUGMENT
17928 76 180 2 0 0 0 180 >READ/COPY TO NEXT DIRECTIVE JUMP unconditional
18000 PROCR 180 180 DEAL WITH INSERTIONS
17928>
17923>
17920>
17917>
17906>
17905>
17904>
17815>
17811>
17805>
17625>
17620>
17618>
17609>
17606>
17418>
17411>
17334>
17333>
17329>
17314>
Source image: P1030191.JPG
17311>18002 10 0 0 0 1 SET IND'PASS 0 DOESN T LIKE IT' SELECT LITERAL
18003 5 17 16 1 0 0 TRANSFER
18004 80 188 2 0 0 0 188 READ/WRITE TO NEXT DIRECTIVE ENTER SUBROUTINE
18005 76 173 7 0 0 0 173 JUMP unconditional
18100 PROCR 181 181 CONSTRUCT C/FWD PROCR LENGTH INDEX
18304>
17530>
17303>18102 62 0 0 0 0 SET EXCESS CONSTANTS
18103 101 25 1 3 0 select literal address
18104 104 152 22 0 0 0 152 add (N) to (A)
18105 118 5 0 1 0 shift arithmetic
18106 104 999 8 0 0 0 add (N) to (A)
18107 125 4096 1 1 0 clear indicators
18108 124 999 0 0 3 0 modify address of next
18109 123 160 0 2 0 enter master routine
18110 55 3 0 0 0 45 COPY BULK COPY
18111 C 94 0 0 0 0
18112 76 182 6 0 0 0 182 JUMP unconditional
18200 PROCR 182 182 END OF PASS 0
18202 85 184 2 0 0 0 184 3 ORDER CONSTS SWITCH R
18203 C 169 36 0 0 0 169
18204 C 168 3 0 0 0 168
18205 C 169 33 0 0 0 169
18112>18206 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
18207 C 0 0 0 450
18208 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
18209 C 0 0 0 900
18210 10 0 0 0 0 SELECT LITERAL
18211 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION
18217>18212 36 6 1 0 2 0 COLLATE AND ADD
18213 31 0 0 0 10 SHIFT (A) BY BITS
18214 36 6 0 0 2 0 COLLATE AND ADD
18215 5 22 0 0 1 0 TRANSFER
18216 94 0 0 1 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
18217 94 182 12 0 2 2 182 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
18218 76 182 22 0 0 0 182 JUMP unconditional
18219 62 0 0 0 0 SET BIN SET EXCESS CONSTANTS
18220 10 0 0 0 1 SELECT LITERAL
18221 4 94 45 0 0 0 AUGMENT
18218>18222 80 186 2 0 0 0 186 >WRITE END SIGN ENTER SUBROUTINE
18223 62 0 0 0 0 SET EXCESS CONSTANTS
18224 45 A6 0 0 0 0 REWIND
18225 55 22 0 0 0 1110 BULK COPY
18226 C 18 0 0 0 0
18227 55 22 1110 0 0 240 BULK COPY
18228 C 25 0 0 0 0
18229 55 94 0 0 0 46 BULK COPY
18230 C 18 1110 0 0 0
18231 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
18232 C 0 0 0 20
18234>18233 80 143 2 0 0 0 143 >BLANKS ENTER SUBROUTINE
18234 94 182 33 0 1 1 182 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
18235 91 0 0 1 0 CLEAR R1 SET MODIFICATION REGISTER AT VARIABLE
18236 46 A1 10 0 0 1 RUN BACK TO START RUN BACK
Source image: P1030192.JPG
18237 C 152 27 0 0 0 152 OF PASI
18238 76 101 2 0 0 0 101 >CALL PASS 1 JUMP unconditional
18300 PROCR 183 183 READ,TEST NEXT PT BLOCK
18302 81 183 2 0 0 0 183 START OF SUBROUTINE
18303 80 193 2 0 0 0 193 >READ PT ENTER SUBROUTINE
18304 70 181 2 0 0 0 181 >'END' JUMP IF A == 0
18305 80 187 2 0 0 0 187 >UNPACK ENTER SUBROUTINE
18306 80 184 2 0 0 0 184 >TEST DIRECTIVE ENTER SUBROUTINE
18307 82 183 2 0 0 0 183 END OF SUBROUTINE / LEAVE SUBROUTINE
18400 PROCR 184 184 TEST DIRECTIVE
18402 81 184 2 0 0 0 184 START OF SUBROUTINE
18403 60 0 0 0 0 SET DECIMAL RADIX
18404 34 4 4 1 0 0 SET (N) IN B
18405 10 0 0 0 0 SELECT LITERAL
18406 32 0 0 0 2 SHIFT (AB) BY QUARTETS
18407 12 0 0 0 69 SUBTRACT LITERAL
18408 70 184 18 0 0 0 184 >R JUMP IF A == 0
18409 11 0 0 0 15 ADD LITERAL
18410 70 184 17 0 0 0 184 >D JUMP IF A == 0
18411 12 0 0 0 19 SUBTRACT LITERAL
18412 70 184 16 0 0 0 184 >T JUMP IF A == 0
18413 11 0 0 0 22 ADD LITERAL
18414 71 184 24 0 0 0 184 >NO DIRECTIVE JUMP IF A != 0
18415 10 0 0 0 1 A=4 SELECT LITERAL
18412>18416 11 0 0 0 1 T=3 ADD LITERAL
18410>18417 11 0 0 0 1 D=2 ADD LITERAL
18408>18418 11 0 0 0 1 R=1 ADD LITERAL
18419 5 185 2 0 0 0 185 TRANSFER
18420 86 184 2 0 0 0 184 SELECT SWITCH R
18421 5 17 12 0 0 0 STORE PREVIOUS SETTING TRANSFER
18422 84 184 2 0 0 0 184 SET SWITCH(ES) AT VARIABLE VALUE
18423 C 185 2 0 0 0 185 (A)ZERO DIRECTIVE FOUND
18414>18424 82 184 2 0 0 0 184 (A)NON-ZERO,NO DIRECTIVE FOUND END OF SUBROUTINE / LEAVE SUBROUTINE
18500 PROCR 185 185 FIND 'LENGTH'
18502 81 185 2 0 0 0 185 START OF SUBROUTINE
18503 4 2 2 0 0 LINE SERIAL OF AMENDMENT SELECT
18504 30 0 0 0 2- SHIFT (A) BY QUARTETS
18505 80 194 2 0 0 0 194 CONVERT TO BIN ENTER SUBROUTINE
18506 101 100 1 2 0 subtract literal address
18507 19 0 0 0 14 DIVIDE BY 20 DIVIDE LITERAL
18508 5 197 42 0 0 0 197 TRANSFER
18509 32 0 0 0 9 SHIFT (AB) BY QUARTETS
18510 5 197 43 0 0 0 197 TRANSFER
18511 34 197 2 0 0 0 197 1 SET (N) IN B
18512 124 197 43 0 1 0 197 modify address of next
18513 33 0 0 0 0 ///// SHIFT (AB) BY BITS
18514 124 197 42 0 1 0 197 modify address of next
18515 36 3 0 0 0 0 COLLATE AND ADD
18516 70 185 18 0 0 0 185 >SHORT JUMP IF A == 0
18517 10 0 0 0 1 SELECT LITERAL
18516>18518 60 0 0 0 0 SET DECIMAL RADIX
18519 82 185 2 0 0 0 185 (A)=ZERO OR ONE END OF SUBROUTINE / LEAVE SUBROUTINE
18600 PROCR 186 186 WRITE>A6 FROM SEC 9
18602 81 186 2 0 0 0 186 START OF SUBROUTINE
18603 80 189 2 0 0 0 189 REPLACE 'BE' BY 'LE' ENTER SUBROUTINE
18604 153 62 1 0 0 153 BEW SELECT
Source image: P1030193.JPG
18605 5 9 52 1 0 0 TRANSFER
18606 17 16 1 0 0 IND'PASS 0 DIDN'T LIKE IT' NON-ZERO SELECT
18607 5 9 50 1 0 0 TRANSFER
18608 43 A6 0 0 0 0 OUTPUT
18609 C 9 0 0 0 0
18610 54 9 4 1 0 50 BULK CLEAR
18611 5 17 16 1 0 0 CLEAR IND TRANSFER
18612 82 186 2 0 0 0 186 END OF SUBROUTINE / LEAVE SUBROUTINE
18700 PROCR 187 187 UNPACK POSSIBLE DIRECTIVE BLOCK
18702 81 187 2 0 0 0 187 START OF SUBROUTINE
18703 10 0 0 0 0 SELECT LITERAL
18704 5 4 4 1 0 0 WL FOR AMEND DIRECTIVE LETTER TRANSFER
18705 5 4 16 1 0 0 TRANSFER
18706 51 5 0 0 0 0 UNPACK VARIABLE FIELD DATA
18707 C 199 2 0 0 0 199
18708 82 187 2 0 0 0 187 END OF SUBROUTINE / LEAVE SUBROUTINE
18800 PROCR 188 188 O/P WHEN MOD NOT ACCEPTED
18802 81 188 2 0 0 0 188 START OF SUBROUTINE
18805>18803 80 186 2 0 0 0 186 >O/P TO A6 ENTER SUBROUTINE
18804 80 183 2 0 0 0 183 >READ/TEST PT ENTER SUBROUTINE
18805 71 188 3 0 0 0 188 >NOT YET JUMP IF A != 0
18806 82 188 2 0 0 0 188 NEXT DIRECTIVE FOUND> END OF SUBROUTINE / LEAVE SUBROUTINE
18900 PROCR 189 189 REPLACE BE CHAR BY LE CHAR IN SEC 5
18902 81 189 2 0 0 0 189 START OF SUBROUTINE
18903 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
18904 C 0 0 0 56
18915>18905 90 0 0 2 8 SET MODIFICATION REGISTER AT LITERAL
18906 C 0 0 0 2-
18907 34 5 0 1 1 0 SET (N) IN B
18912>18908 10 0 0 0 0 SELECT LITERAL
18909 32 0 0 0 2 SHIFT (AB) BY QUARTETS
18910 12 0 0 0 7. SUBTRACT LITERAL
18911 70 189 16 0 0 0 189 >BE FOUND JUMP IF A == 0
18912 94 189 8 0 2 2- 189 >GET NEXT CHAR STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
18913 5 0 1 1 0 COPY TO O/P SECTION SELECT
18914 5 9 4 1 1 0 TRANSFER
18915 94 189 5 0 1 2 189 >GET NEXT WORD STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
18911>18916 96 0 0 2 0 SELECT MODIFIER
18917 5 190 2 0 0 0 190 TRANSFER
18918 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
18919 10 0 0 0 5. SELECT LITERAL
18920 124 190 2 0 1 0 190 modify address of next
18921 32 0 0 0 0 ///// SHIFT (AB) BY QUARTETS
18922 3 5 0 1 1 0 REPLACE BEW BY LE IN 1ST CHAR COPY
18923 5 9 4 1 1 0 TRANSFER
18924 100 17 22 1 0 0 copy registers
18925 62 0 0 0 0 SET EXCESS CONSTANTS
18926 96 0 0 1 0 SELECT MODIFIER
18927 11 0 0 0 4 ADD LITERAL
18928 30 0 0 0 3 >Q4,5 SHIFT (A) BY QUARTETS
18929 5 9 48 2 0 0 TRANSFER
18930 35 0 0 0 11 COLUMN POSITION PREPARE FOR DIGIT COLLATION
18931 36 190 2 0 0 0 190 COLLATE AND ADD
18932 37 9 48 2 0 0 REPLACE SELECTED BITS
18933 100 17 26 0 3 0 set radix
18934 82 189 2 0 0 0 189 END OF SUBROUTINE / LEAVE SUBROUTINE
Source image: P1030194.JPG
19000 PROCR 190 190 GET TO START OF AMENDED PROGRAM
19002 81 190 2 0 0 0 190 START OF SUBROUTINE
19010>
19016>
19024>
19042>
19057>19003 80 132 2 0 0 0 132 READ A1>7 ENTER SUBROUTINE
19004 62 0 0 0 0 SET EXCESS CONSTANTS
19005 7 4 1 0 0 SELECT
19006 2 197 60 1 0 0 197 'FINIS' SUBTRACT
19007 70 190 48 0 0 0 190 >ALARM*02 JUMP IF A == 0
19008 7 8 2 0 0 SELECT
19009 12 0 0 0 SUBTRACT LITERAL
19010 71 190 3 0 0 0 190 JUMP IF A != 0
19011 7 10 1 0 0 SELECT
19012 2 197 54 1 0 0 197 'PASS I' SUBTRACT
19013 70 190 39 0 0 0 190 JUMP IF A == 0
19014 7 6 1 0 0 SELECT
19015 2 197 58 1 0 0 197 'INDEX' USE'INDEX'DATA TO SUBTRACT
19016 71 190 3 0 0 0 190 >NO SEE IF PROGM ON TAPEJUMP IF A != 0
19038>19017 80 132 2 0 0 0 132 READ A1>7 ENTER SUBROUTINE
19018 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
19019 C 0 0 0 48
19037>19020 7 4 2 1 0 PROG ID SELECT
19021 2 197 20 0 0 0 197 SUBTRACT
19022 71 190 26 0 0 0 190 >NOT END SIGN JUMP IF A != 0
19023 197 84 0 0 0 197 SELECT
19024 70 190 3 0 0 0 190 >INTERCODE FOUND,READTO'PASSI' JUMP IF A == 0
19025 76 190 48 0 0 0 190 >ALARM*02 JUMP unconditional
19022>19026 1 197 20 0 0 0 197 ADD
19027 12 0 0 0 9001 GO EVEN FASTER MASTER ROUTINE SUBTRACT LITERAL
19028 71 190 37 0 0 0 190 >NOT JUMP IF A != 0
19029 7 8 2 1 0 SELECT
19030 70 190 34 0 0 0 190 >INTERCODE JUMP IF A == 0
19031 7 10 2 1 0 IDENTIFIER SELECT
19032 84 645 2 0 0 0 645 SET SWITCH(ES) AT VARIABLE VALUE
19033 76 190 37 0 0 0 190 JUMP unconditional
19030>19034 5 197 84 0 0 0 197 SET'PROGRAM TAPE' TRANSFER
19035 7 10 2 1 0 STORE INDEX SELECT
19036 5 152 27 0 0 0 152 IDENTIFIER TRANSFER
19033>
19028>19037 94 190 20 0 1 8 190 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
19038 76 190 17 0 0 0 190 >NEXT BLOCK JUMP unconditional
19013>19039 60 0 0 0 0 SET DEC SET DECIMAL RADIX
19040 7 4 2 0 0 SELECT
19041 12 0 0 0 9001 GEFM SUBTRACT LITERAL
19042 71 190 3 0 0 0 190 >NO JUMP IF A != 0
19043 10 0 0 0 9001 GEFM SELECT LITERAL
19044 5 40 4 2 0 0 TRANSFER
19045 7 6 2 0 0 SELECT
19046 5 40 6 2 0 0 TRANSFER
19047 82 190 2 0 0 0 190 MATCH FOUND END OF SUBROUTINE / LEAVE SUBROUTINE
19025>
19007>
10329>19048 41 A1 0 0 0 1 CLOSE FILE
19049 10 0 0 0 1 SELECT LITERAL
19050 5 197 84 0 0 0 197 TRANSFER
19051 84 645 2 0 0 0 645 CLEAR SET SWITCH(ES) AT VARIABLE VALUE
19052 150 0 0 0 2 ALARM *02 OFFER OPTIONS
19053 C 190 58 0 0 0 190 >UNLOAD
Source image: P1030195.JPG
19054 C 190 56 0 0 0 190 >TRY NEW INPUT TAPE
19055 C 170 9 0 0 0 170 >REENTER
19054>19056 80 191 2 0 0 0 191 >OPEN A1 ENTER SUBROUTINE
19057 76 190 3 0 0 0 190 >TRY AGAIN JUMP unconditional
19053>
17007>
16804>
13103>19058 151 0 0 0 0 UNLOAD PROGRAMME
19100 PROCR 191 191 OPEN A1
19102 81 191 2 0 0 0 191 START OF SUBROUTINE
19103 40 A1 0 0 0 1 OPEN FILE
19104 82 191 2 0 0 0 191 END OF SUBROUTINE / LEAVE SUBROUTINE
19200 PROCR 192 192 STORE ADJUST DETAIL
19202 81 192 2 0 0 0 192 START OF SUBROUTINE
19203 17 3 0 0 0 SELECT
19204 101 900 1 2 0 subtract literal address
19205 72 192 28 0 0 0 192 >TOO MANY SPACES JUMP IF A >= 0
19206 10 0 0 0 0 SELECT LITERAL
19207 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
19208 36 17 14 0 0 0 COLLATE AND ADD
19209 5 190 2 0 0 0 190 ITEM TRANSFER
19210 17 14 0 0 0 SELECT
19211 30 0 0 0 2- SHIFT (A) BY QUARTETS
19212 80 194 2 0 0 0 194 ENTER SUBROUTINE
19213 5 193 2 0 0 0 193 BIN REF TRANSFER
19214 124 193 2 0 1 0 193 modify address of next
19215 6 100- 0 0 0 UPDATED REF SELECT
19216 80 195 2 0 0 0 195 >TO DEC ENTER SUBROUTINE
19217 30 0 0 0 2 SHIFT (A) BY QUARTETS
19218 1 190 2 0 0 0 190 ADD
19219 124 17 3 0 1 0 modify address of next
19220 5 19 0 0 0 0 LOCN OF ADJUSTMENT TRANSFER
19221 0 17 15 0 0 0 SELECT
19222 124 17 3 0 1 0 modify address of next
19223 5 19 1 0 0 0 QUANTITY TRANSFER
19224 62 0 0 0 0 SET EXCESS CONSTANTS
19225 10 0 0 0 2 SELECT LITERAL
19226 4 17 3 0 0 0 STEP CTR AUGMENT
19227 60 0 0 0 0 SET DECIMAL RADIX
19205>19228 82 192 2 0 0 0 192 END OF SUBROUTINE / LEAVE SUBROUTINE
19300 PROCR 193 193 SR TO READ PT AND TEST END
19302 81 193 2 0 0 0 193 START OF SUBROUTINE
19303 100 17 22 1 0 0 copy registers
19304 62 0 0 0 0 BIN SET EXCESS CONSTANTS
19305 82 139 2 0 0 0 139 >FETCH END OF SUBROUTINE / LEAVE SUBROUTINE
13906>19306 100 17 22 1 1 0 replace registers
19307 0 5 0 1 0 0 SELECT
19308 30 0 0 0 4- SHIFT (A) BY QUARTETS
19309 30 0 0 0 4 SHIFT (A) BY QUARTETS
19310 2 197 56 1 0 0 197 'END ' SUBTRACT
19311 82 193 2 0 0 0 193 (A)=0 IF END END OF SUBROUTINE / LEAVE SUBROUTINE
19400 PROCR 194 194 CONVERT TO BIN
19402 81 194 2 0 0 0 194 START OF SUBROUTINE
19403 5 197 42 1 0 0 197 TRANSFER
19404 62 0 0 0 0 SET EXCESS CONSTANTS
19405 124 197 22 0 2 0 197 select literal and division
Source image: P1030196.JPG
19406 112 197 42 1 0 0 197 convert
19407 82 194 2 0 0 0 194 END OF SUBROUTINE / LEAVE SUBROUTINE
19500 PROCR 195 195 CONVERT TO DEC
19502 81 195 2 0 0 0 195 START OF SUBROUTINE
19503 5 197 42 1 0 0 197 TRANSFER
19504 60 0 0 0 0 SET DECIMAL RADIX
19505 124 197 2 0 2 0 197 select literal and division
19506 112 197 42 1 0 0 197 convert
19507 82 195 2 0 0 0 195 END OF SUBROUTINE / LEAVE SUBROUTINE
19600 PROCR 196 196 UNPACK AMEND HEADING, GET TO PROGM START
19602 81 196 2 0 0 0 196 START OF SUBROUTINE
19603 51 5 0 0 0 0 UNPACK VARIABLE FIELD DATA
19604 C 199 10 0 0 0 199
19605 4 2 0 0 0 SUITE SELECT
19606 30 0 0 0 2 SHIFT (A) BY QUARTETS
19607 1 4 3 0 0 0 JOB ADD
19608 3 4 2 0 0 0 COPY
19609 5 17 28 0 0 0 PROG ID TRANSFER
19610 4 4 0 0 0 PROG SELECT
19611 5 17 29 0 0 0 TRANSFER
19612 82 196 2 0 0 0 196 END OF SUBROUTINE / LEAVE SUBROUTINE
19700 CONST 197 197 1 CONVERT TABLES
19702 (D)1; BIN>DEC
19704 16;
19706 256;
19708 4096;
19710 65536;
19712 1048576;
19714 16777216;
19716 268435456;
19718 4294967296;
19720 ££££££££££;
19722 1; DEC>BIN
19724 Ю;
19726 64;
19728 3.8;
19730 2710;
19732 186Ю0;
19734 £4240;
19736 989680;
19738 5£5.100;
19740 3‼9Ю+Ю00;
19742 0; WL(A)
19744 (A)PROGM;
19746 (A)PROCR;
19748 (A)TABLE;
19750 (A)CONST;
19752 AMEND;
19754 (A)PASSI;
19756 (A)END ;
19758 (A)INDEX;
19760 FINIS;
19762 (D)0000005.5.; DOUBLE LINE END
19764 (D)3££; BITS1-10
19766 (D)6£6£6£6£6£;
19768 (A)INDEX;
19770 £££££;
Source image: P1030197.JPG
19772 2;
19774 CHAIN;
19776 FIEND;
19778 08004;
19780 ALLOC;
19782 ATED ;
19784 EXTRA;
19786 ROUTE;
19788 (D)£8; BITS 4-8
19790 (D)0514908000;
19800 TABLE 198 198 1 TYPE'AMEND'COMMENT
19802 197 78 0 0 2 0 5 0 0 0 0 0 0 '08000'
19804 197 52 0 0 2 0 5 0 2 0 0 0 0 'AMEND'
19806 4 2 0 0 0 0 5 0 2 0 0 0 0 PROG NO
19808 4 4 0 0 0 0 5 0 1 4 0 0 0 SERIAL NO
19810 197 62 0 0 2 0 2 3 3 0 0 0 1 DOUBLE LINE END
19812 197 78 0 0 2 0 5 0 0 0 0 0 0 '08000'
19814 197 80 0 0 2 0 5 0 1 0 0 0 0 'ALLOC'
19816 197 82 0 0 2 0 5 0 0 0 0 0 0 'ATED'
19818 197 84 0 0 2 0 5 0 0 0 0 0 0 'EXTRA'
19820 197 86 0 0 2 0 5 0 1 0 0 0 0 'ROUTE'
19822 197 42 0 0 0 0 2 3 2 1 0 0 0 CHANNEL
19824 184 2 0 0 0 0 1 4 0 0 0 0 0 ROUTE
19826 197 62 0 0 2 0 2 3 1 0 0 0 1 DOUBLE LE
19900 TABLE 199 199 3 UNPACK PT OR CARD INPUT
19902 4 2 0 0 2 0 5 0 0 0 0 0 0 SER+AMEND DIRECTIVE
19904 4 6 0 0 2 0 5 0 0 0 0 0 0 DIRECTIVE WORD
19906 4 8 0 0 1 0 3 0 0 0 0 0 0 PROCR NUMBER
19908 4 16 0 0 0 0 1 0 0 0 0 0 1 /////TYPE OR(ANNOTATION+TYPE)
19910 4 6 0 0 2 0 5 0 0 0 0 0 0 'AMEND'
19912 4 2 0 0 0 0 3 0 0 0 0 0 0 SUITE
19914 4 3 0 0 0 0 2 0 0 0 0 0 0 JOB
19916 4 4 0 0 0 0 5 0 0 0 0 0 1 SERIAL
19918 4 2 0 0 2 0 5 0 0 0 0 0 0 SERIAL
19920 4 4 0 0 2 0 5 0 0 0 0 0 0 DIRECTIVE LETTER
19922 4 6 0 0 2 0 5 0 0 0 0 0 0 DIRECTIVE WORD
19924 4 8 0 0 1 0 3 0 0 0 0 0 0 PROCR NUMBER
19926 4 16 0 0 0 0 1 0 0 0 0 0 1 TYPE
20000 PROCR 200 200 START OF PASS1
20001 NOTES TEST DID THE COMPILER READ IN THE TRANSLATOR SELECT
32342>20002 152 200 4 0 0 0 200 CALL/ENTER PASS 2 OVERLAY
20003 C 326 6 0 0 0 326 (OVERLAY THE OLAY ORDER)
20004 62 0 0 0 0 SET EXCESS CONSTANTS
20005 101 512 0 1 0 Q10 prepare for digit collation
20006 33 0 0 0 3 SHIFT (AB) BY BITS
20007 10 0 0 0 0 SELECT LITERAL
20008 37 312 8 1 0 0 312 CLEAR BIT 40 REPLACE SELECTED BITS
20009 37 312 14 1 0 0 312 DO. REPLACE SELECTED BITS
20010 325 6 0 0 0 325 SELECT
20011 3 23 46 0 0 0 SET 'PRINT PASS 2' COPY
20012 5 325 3 0 0 0 325 TRANSFER
20013 54 1 0 1 0 46 BULK CLEAR
20014 54 72 0 1 0 738 ALL SECNS PASS 2 BULK CLEAR
20015 83 100 5 0 0 1 100 SET 'PRINT PASS 3' SET SWITCH(ES) AT LITERAL VALUE
20016 5 27 6 0 0 0 CLEAR 'PT OMITTED' TRANSFER
20017 84 403 2 0 0 0 403 SET SWITCH(ES) AT VARIABLE VALUE
20018 84 407 2 0 0 0 407 SET SWITCH(ES) AT VARIABLE VALUE
Source image: P1030198.JPG
20019 5 27 4 0 0 0 TRANSFER
20020 83 254 2 0 0 5 254 AMEND DIRECTIVE SWITCH SET SWITCH(ES) AT LITERAL VALUE
20100 PROCR 201 201 TEST INITIAL RUN
20101 NOTES RADIX SELECT
20102 40 A6 0 0 0 1 OPEN FILE
20103 54 12 0 1 0 120 BULK CLEAR
20104 10 0 0 0 6700 SELECT LITERAL
20105 5 12 3 0 0 0 ERROR LETTER'P' TRANSFER
20106 80 292 2 0 0 0 292 >READ FIRST BLOCK ENTER SUBROUTINE
20107 124 213 2 0 2 0 213 select literal and division
20108 80 325 2 0 0 0 325 >UNPACK BLOCK ENTER SUBROUTINE
20109 60 0 0 0 0 SET DECIMAL RADIX
20110 10 0 0 0 0 CLEAR A SELECT LITERAL
20111 5 1 16 1 0 0 CLEAR FOR INDS TRANSFER
20112 5 1 18 1 0 0 TRANSFER
20113 124 213 12 0 2 0 213 select literal and division
20114 80 325 2 0 0 0 325 >UNPACK 'AMEND' BLOCK AGAIN ENTER SUBROUTINE
20115 10 0 0 0 0 SELECT LITERAL
20116 34 1 16 0 0 0 PRINT INDS SET (N) IN B
20117 36 317 2 0 0 0 317 BIT 2 COLLATE AND ADD
20118 5 23 46 0 0 0 TRANSFER
20119 1 20 1 0 0 SELECT
20120 12 0 0 0 7300000000 SUBTRACT LITERAL
20121 71 201 24 0 0 0 201 JUMP IF A != 0
20122 10 0 0 0 2 SELECT LITERAL
20123 76 201 25 0 0 0 201 JUMP unconditional
20121>20124 10 0 0 0 0 SELECT LITERAL
20123>20125 5 27 12 0 0 0 0/2=PTS NO/YES TRANSFER
20126 10 0 0 0 2- SELECT LITERAL
20127 36 319 2 0 0 0 319 BIT 1 COLLATE AND ADD
20128 84 100 5 0 0 0 100 SET AT 1 OR 2 SET SWITCH(ES) AT VARIABLE VALUE
20129 0 1 17 0 0 0 CHANGE TO ISSUE? SELECT
20130 5 227 2 0 0 0 227 SR LINK TRANSFER
20131 0 1 4 0 0 0 SUITE SELECT
20132 30 0 0 0 2 SHIFT (A) BY QUARTETS
20133 1 1 6 0 0 0 ADD
20134 5 12 0 0 0 0 TRANSFER
20135 34 1 8 1 0 0 SET (N) IN B
20136 80 320 2 0 0 0 320 RIGHT ALIGN PROGRAM SERIAL ENTER SUBROUTINE
20137 0 12 88 2 0 0 SELECT
20138 5 12 1 0 0 0 TRANSFER
20139 10 0 0 0 1 SET'AMEND RUN' SELECT LITERAL
20140 3 92 30 0 0 0 COPY
20141 5 12 8 0 0 0 TRANSFER
20200 PROCR 202 202
20201 NOTES RADIX SELECT
20202 80 292 2 0 0 0 292 >READ A6 ENTER SUBROUTINE
20203 54 1 0 0 0 46 BULK CLEAR
20207>20204 80 291 2 0 0 0 291 >READ MT ENTER SUBROUTINE
20205 0 7 6 1 0 0 SELECT
20206 2 215 12 1 0 0 215 'PROGM' SUBTRACT
20207 71 202 4 0 0 0 202 >GET TO IT JUMP IF A != 0
20208 50 7 4 0 0 0 UNPACK FIXED FIELD DATA
20209 C 210 8 0 0 0 210
20210 55 7 20 1 0 30 COPY ANNOTATION BULK COPY
20211 C 1 16 1 0 0
20212 60 0 0 0 0 SET DECIMAL RADIX
20213 10 0 0 0 1 AUGMENT PROG SERIAL SELECT LITERAL
Source image: P1030199.JPG
20214 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
20215 36 1 8 2 0 0 COLLATE AND ADD
20216 37 1 8 2 0 0 NO CARRY AFTER 99 REPLACE SELECTED BITS
20300 PROCR 203 203 OPEN O/P FILE, WRITE INDEX BLOX+'PASSI' BLOCK+'PROGM' BLOCK
20301 NOTES 203 SELECT
20302 54 8 4 0 0 46 BULK CLEAR
20303 40 A2 0 0 0 0 OPEN FILE OPEN FILE
20304 32 0 0 0 10 SHIFT (AB) BY QUARTETS
20305 84 212 2 0 0 0 212 SPOOL NUMBER>WL SET SWITCH(ES) AT VARIABLE VALUE
20306 80 289 2 0 0 0 289 ENTER SUBROUTINE
20307 80 289 2 0 0 0 289 +2 BLANKS ENTER SUBROUTINE
20308 55 318 30 1 0 10 318 BULK COPY
20309 C 8 4 1 0 0
20310 80 289 2 0 0 0 289 ENTER SUBROUTINE
20311 1 4 0 0 0 SUITE SELECT
20312 30 0 0 0 2 SHIFT (A) BY QUARTETS
20313 1 1 6 0 0 0 ADD
20314 3 12 32 0 0 0 WL=PROG IDENTITY COPY
20315 3 8 4 2 0 0 COPY
20316 3 8 12 2 0 0 COPY
20317 0 1 8 2 0 0 PROG SERIAL SELECT
20318 5 12 1 0 0 0 WL FOR REPORTS LAT TRANSFER
20319 0 227 2 0 0 0 227 NEW ISSUE WL SELECT
20320 70 203 24 0 0 0 203 >NO CHANGE JUMP IF A == 0
20321 30 0 0 0 2 SHIFT (A) BY QUARTETS
20322 35 0 0 0 11100 PREPARE FOR DIGIT COLLATION
20323 37 12 1 0 0 0 REPLACE EXISTING ISSUE REPLACE SELECTED BITS
20320>20324 52 1 8 0 0 0 EDIT
20325 C 210 6 0 0 0 210 RESTORE TD 1/8 WITH SIG ZEROS
20326 0 1 8 1 0 0 SELECT
20327 3 8 6 1 0 0 COPY
20328 5 8 14 1 0 0 TRANSFER
20329 10 0 0 0 2 INTERCODE IDENTIFIER SELECT LITERAL
20330 5 8 10 2 0 0 TRANSFER
20331 10 0 0 0 3 MACHINE COSE IDENTIFIER SELECT LITERAL
20332 3 8 18 2 0 0 COPY
20333 10 0 0 0 2 SELECT LITERAL
20334 1 27 12 0 0 0 0 OR 2 ADD
20335 5 8 16 2 0 0 TRANSFER
20336 318 30 2 0 0 318 SELECT
20337 5 8 20 2 0 0 TRANSFER
20338 80 289 2 0 0 0 289 ENTER SUBROUTINE
20339 12 32 0 0 0 SELECT
20340 5 8 4 2 0 0 PROG IDENTITY TRANSFER
20341 1 8 1 0 0 SELECT
20342 5 8 6 1 0 0 PROG SERIAL TRANSFER
20343 10 0 0 0 SELECT LITERAL
20344 5 8 8 2 0 0 TRANSFER
20345 215 20 1 0 0 215 'PASSI' SELECT
20346 5 8 10 1 0 0 TRANSFER
20347 155 0 0 0 0 PROG SERIAL SELECT PROGRAM SERIAL TO A
20348 3 8 12 1 0 0 'ISSUE 6'IND COPY
20349 5 8 16 2 0 0 SET'MULTI-RECORD' TRANSFER
20350 80 289 2 0 0 0 289 ENTER SUBROUTINE
20351 18 1155 0 0 0 SELECT
20352 5 318 23 0 0 0 318 TRANSFER
20353 55 18 1110 0 0 23 1ST PROCR LENGTH BLOCK BULK COPY
20354 C 8 4 2 0 0
20355 80 289 2 0 0 0 289 ENTER SUBROUTINE
Source image: P1030200.JPG
20356 55 18 1133 0 0 23 2ND PROCR LENGTH BLOCK BULK COPY
20357 C 8 4 2 0 0
20358 80 289 2 0 0 0 289 ENTER SUBROUTINE
20359 52 8 4 0 0 0 EDIT
20360 C 210 8 0 0 0 210
20361 55 1 16 1 0 30 COPY ANNOTATION BULK COPY
20362 C 8 20 1 0 0
20363 80 289 2 0 0 0 289 ENTER SUBROUTINE
20364 0 316 5 0 0 0 316 ABS ADDRESS 18:2496 SELECT
20365 5 92 9 0 0 0 TRANSFER
20366 60 0 0 0 0 SET DECIMAL RADIX
20400 PROCR 204 204 DEAL WITH UNAMENDED ENTRY, FILES, CHAP STARTS
20401 NOTES 204 SELECT
20402 80 291 2 0 0 0 291 >READ 'ENTRY' EX MT ENTER SUBROUTINE
20403 10 0 0 0 0 SELECT LITERAL
20404 5 7 46 1 0 0 CLEAR REPORT WORDS TRANSFER
20405 5 7 48 1 0 0 TRANSFER
20406 5 12 33 0 0 0 SET 'MT INPUT' TRANSFER
20407 80 207 2 0 0 0 207 >WRITE ENTER SUBROUTINE
20408 80 291 2 0 0 0 291 >READ ENTER SUBROUTINE
20409 55 7 8 2 0 30 BULK COPY
20410 C 12 13 0 0 0 MT 'CHAPS' UNAM
20411 5 12 33 0 0 0 SET 'MT INPUT' TRANSFER
20412 12 13 0 0 0 NUMBER OF CARDS SELECT
20413 80 248 2 0 0 0 248 >TO BIN ENTER SUBROUTINE
20414 5 12 13 0 0 0 TRANSFER
20415 55 12 14 0 0 14 BULK COPY
20416 C 7 10 2 0 0
20417 55 7 4 1 0 34 COPY ANNEXES BULK COPY
20418 C 8 4 1 0 0
20419 80 291 2 0 0 0 291 READ A1 ENTER SUBROUTINE
20500 PROCR 205 205 PREPARE TO PROCESS SECTION DETAILS+DEAL WITH INITIAL TRANSLATION
20501 NOTES 205 SELECT
20502 10 0 0 0 SELECT LITERAL
20503 5 18 2498 1 0 0 LIST END SIGN TRANSFER
20504 5 18 2496 1 0 0 CLEAR FIRST ENTRY TRANSFER
20505 83 267 2 0 0 1 267 SAFETY SETTINGS SET SWITCH(ES) AT LITERAL VALUE
20506 0 12 13 0 0 0 NO OF CHAPS SELECT
20507 80 247 2 0 0 0 247 >TO DEC ENTER SUBROUTINE
20508 5 215 8 0 0 0 215 TRANSFER
20509 10 0 0 0 7200 SELECT LITERAL
20510 5 12 3 0 0 0 ERROR LETTER S TRANSFER
20511 10 0 0 0 99 SELECT LITERAL
20512 5 92 3 0 0 0 FIRST PROCR-1 TRANSFER
20513 90 0 0 4 0 SET MODIFICATION REGISTER AT LITERAL
20514 C 0 0 0 14 TO STORE CHAPTER ENDS
20515 62 0 0 0 0 SET EXCESS CONSTANTS
20516 91 12 12 0 3 0 C:0 SET MODIFICATION REGISTER AT VARIABLE
20519>20517 11 0 0 0 1 ADD LITERAL
20518 3 92 10 0 3 0 STORE UNCORRECTED CHAP NUMBERS COPY
20519 94 205 17 0 3 1 205 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
20520 60 0 0 0 0 SET DECIMAL RADIX
20521 10 0 0 0 1001 SELECT LITERAL
20522 5 12 9 0 0 0 SET FIRST SECTION SERIAL NUMBER TRANSFER
20600 PROCR 206 206 DEAL WITH UNAMENDED SECTION LINE
20602 80 208 2 0 0 0 208 >TEST PT AT AMEND DIRECTIVE ENTER SUBROUTINE
20603 80 209 2 0 0 0 209 >TEST MT=PROCR ETC ENTER SUBROUTINE
Source image: P1030201.JPG
20604 76 217 2 0 0 0 217 JUMP unconditional
20700 PROCR 207 207
20702 81 207 2 0 0 0 207 START OF SUBROUTINE
20703 43 A2 0 0 0 0 OUTPUT
20704 C 7 0 0 0 0
20705 82 207 2 0 0 0 207 END OF SUBROUTINE / LEAVE SUBROUTINE
20800 PROCR 208 208 TEST PT REPRESENTS AMENDMENT TO SECTION DESCRIPTION
20802 81 208 2 0 0 0 208 START OF SUBROUTINE
20803 80 294 2 0 0 0 294 >TEST AMEND DIRECTIVE/END ENTER SUBROUTINE
20804 70 208 8 0 0 0 208 >NO JUMP IF A == 0
20805 10 0 0 0 1 SELECT LITERAL
20806 5 12 45 0 0 0 TRANSFER
20807 10 0 0 0 1 SELECT LITERAL
20804>20808 82 208 2 0 0 0 208 (A)=0 IF NOT DIRECTIVE END OF SUBROUTINE / LEAVE SUBROUTINE
20900 PROCR 209 209 TEST MT AT START OF CODING
20902 81 209 2 0 0 0 209 START OF SUBROUTINE
20903 27 1 0 0 0 SELECT
20904 70 209 8 0 0 0 209 >SINGLE-RECORD BLOCKS JUMP IF A == 0
20905 7 12 1 0 0 DIRECTIVE WORD SELECT
20909>20906 80 287 2 0 0 0 287 ENTER SUBROUTINE
20907 82 209 2 0 0 0 209 END OF SUBROUTINE / LEAVE SUBROUTINE
20904>20908 7 10 1 0 0 SELECT
20909 76 209 6 0 0 0 209 JUMP unconditional
21000 TABLE 210 210 1 UNPACK/EDIT PROG HEADING+FILES+CHAPS+SECTIONS
21001 NOTES
21002 1 0 0 0 0 0 5 0 0 5 0 0 0 AMEND IND
21004 1 2 0 0 2 0 5 0 0 0 0 0 1 'CHAPS'
21006 12 1 0 0 0 0 5 0 0 4 0 0 1 FOR UPDATED SERIAL
21008 1 0 0 0 0 0 5 0 0 5 0 0 0
21010 1 2 0 0 2 0 5 0 0 0 0 0 0 AMEND IND
21012 1 4 0 0 0 0 5 0 0 5 0 0 0
21014 1 6 0 0 0 0 5 0 0 4 0 0 0
21016 1 8 0 0 2 0 5 0 0 0 0 0 0 SERIAL/CODER
21018 1 10 0 0 1 0 10 0 0 10 0 0 0 (SPACER)
21020 1 10 0 0 0 0 5 0 0 5 0 0 1 (SPACER)
21100 PROCR 211 211 ERROR REPORT SR
21102 81 211 2 0 0 0 211 START OF SUBROUTINE
21103 5 12 4 0 0 0 TRANSFER
21104 91 12 2 0 3 0 CTR SET MODIFICATION REGISTER AT VARIABLE
21105 318 8 1 0 0 318 '*' SELECT
21106 1 12 4 0 0 0 REPORT NUMBER ADD
21107 1 12 3 0 0 0 REPORT LETTER ADD
21108 5 1 38 1 3 0 TRANSFER
21109 12 0 0 0 2 SUBTRACT LITERAL
21110 4 12 2 0 0 0 REDUCE CTR AUGMENT
21111 10 0 0 0 0 SELECT LITERAL
21112 82 211 2 0 0 0 211 END OF SUBROUTINE / LEAVE SUBROUTINE
21200 PROCR 212 212 REPLACE CODERS PROCR-ISSUE 6 O/P-ENTRY AND CHAPS
21202 81 212 2 0 0 0 212 (12/119=DEC PROCR) START OF SUBROUTINE
21203 12 119 0 0 0 SELECT
21204 80 248 2 0 0 0 248 >BIN ENTER SUBROUTINE
21205 33 0 0 0 1- SHIFT (AB) BY BITS
21206 5 319 42 1 0 0 319 TRANSFER
21207 91 319 42 0 1 0 319 SET MODIFICATION REGISTER AT VARIABLE
Source image: P1030202.JPG
21208 74 212 12 0 0 0 212 >EVEN JUMP IF AB == 0 // 27, 1, 0
21209 18 50- 0 1 0 SELECT
21210 31 0 0 0 10- SHIFT (A) BY BITS
21211 76 212 14 0 0 0 212 JUMP unconditional
21208>21212 34 318 20 0 0 0 318 BITS 1-10 SET (N) IN B
21213 36 18 50- 0 1 0 COLLATE AND ADD
21211>21214 80 247 2 0 0 0 247 >DEC ENTER SUBROUTINE
21215 82 212 2 0 0 0 212 END OF SUBROUTINE / LEAVE SUBROUTINE
21300 TABLE 213 213 3
21302 1 2 0 0 2 0 5 0 0 0 0 0 0 PROGM/ENTRY
21304 1 4 0 0 1 0 3 0 0 0 0 0 0 SUITE NO/ENTRY PT
21306 1 6 0 0 1 0 2 0 0 0 0 0 0 JOB/PRIORITY
21308 1 8 0 0 2 0 5 0 0 0 0 0 0 SER,VERSION,BLANK/CODER
21310 1 16 0 0 2 1 5 0 0 0 0 0 1 /////ANNOT/CHCKR
21312 1 2 0 0 2 0 5 0 0 0 0 0 0 AMEND
21314 1 4 0 0 1 0 3 0 0 0 0 0 0 SUITE
21316 1 6 0 0 1 0 2 0 0 0 0 0 0 JOB
21318 1 8 0 0 2 0 2 0 0 0 0 0 0 ISSUE/+SER/ISSUE
21320 1 20 0 0 2 0 3 0 0 0 0 0 0 WORDS/SER
21322 1 16 0 0 0 0 1 0 0 0 0 0 0 PRINT IND
21324 1 17 0 0 0 0 3 0 0 0 0 0 0 ISSUE
21326 1 18 0 0 2 0 1 0 0 0 0 0 1 PTS(CARDS)
21400 TABLE 214 214 3 UNPACK CHAPS BLOCK
21401 NOTES FROM CARDS
21402 1 2 0 0 2 0 5 0 0 0 0 0 0 'CHAPS'
21404 1 4 0 0 0 0 2 0 0 0 0 0 0 NO OF CHAPS
21406 1 5 0 0 0 0 3 0 0 0 0 0 0 1-ST START
21408 1 6 0 0 0 0 3 0 0 0 0 0 0 2-ND START
21410 1 7 0 0 0 0 3 0 0 0 0 0 0
21412 1 8 0 0 0 0 3 0 0 0 0 0 0
21414 1 9 0 0 0 0 3 0 0 0 0 0 0
21416 1 10 0 0 0 0 3 0 0 0 0 0 0
21418 1 11 0 0 0 0 3 0 0 0 0 0 0
21420 1 12 0 0 0 0 3 0 0 0 0 0 0
21422 1 13 0 0 0 0 3 0 0 0 0 0 0
21424 1 14 0 0 0 0 3 0 0 0 0 0 0 10-TH START
21426 1 15 0 0 0 0 3 0 0 0 0 0 0
21428 1 16 0 0 0 0 3 0 0 0 0 0 0
21430 1 17 0 0 0 0 3 0 0 0 0 0 0
21432 1 18 0 0 0 0 3 0 0 0 0 0 1 14-TH START
21500 CONST 215 215 1 FUNCTIONAL
21502 (D)100099; UPPER/LOWER LIM SEC NUMBER
21504 4096; DO LENGTH
21506 1; DO TX AREA IND
21508 0; DO CHAP NO
21510 1£1£1£1£1£;
21512 (A)PROGM;
21514 ENTRY;
21516 AMEND;
21518 CHAPS;
21520 PASSI;
21522 STORE;
21600 CONST 216 216 1 DUMMY
21602 (B)0;
21604 ;
21606 ;
Source image: P1030203.JPG
21608 ;
21610 ;
21700 PROCR 217 217 MAIN LOOP-DEAL WITH INITIAL TRANSLATION
21701 NOTES RADIX SELECT
20604>21702 55 18 0 0 0 1110 BULK COPY
21703 C 93 0 0 0 0
21704 55 25 0 0 0 240 BULK COPY
21705 C 93 1110 0 0 0
21706 83 222 2 0 0 2 222 SAFETY SETTINGS SET SWITCH(ES) AT LITERAL VALUE
21707 10 0 0 0 1 SELECT LITERAL
21708 5 27 5 0 0 0 UNPACK SWITCH TRANSFER
21709 0 92 30 0 0 0 SELECT
21710 3 12 8 1 0 0 (CLEAR 12/9) COPY
21711>21711 70 217 11 0 0 0 217 JUMP IF A == 0
21712 59 7 6 0 8 0 SET I/P MR SET MODIFICATION REGISTER FOR MERGE
21713 C 7 4 2 0 0
21714 76 253 2 0 0 0 253 JUMP unconditional
21800 PROCR 218 218 START OF CHECK/EDIT/OUTPUT SR
21801 NOTES RADIX SELECT
21802 81 218 2 0 0 0 218 START OF SUBROUTINE
21803 12 38 0 0 0 STACKING DIRECTIVE? SELECT
21804 70 222 2 0 0 0 222 NO JUMP IF A == 0
21805 72 222 2 0 0 0 222 >'NOTES' BLOCK JUMP IF A >= 0
21806 12 61 0 0 0 C-LINE MUST FOLLOW SHOULD THIS SELECT
21807 70 218 9 0 0 0 218 INDCATOR BE A C-LINE JUMP IF A == 0
21808 80 296 2 0 0 0 296 IGNORE THIS INSTRUCTION ENTER SUBROUTINE
21807>21809 12 54 0 0 0 EXCEPT FOR SELECT
21810 12 0 0 0 55 ACTION 85,CLEAR SUBTRACT LITERAL
21811 70 218 14 0 0 0 218 C-LINE MAY JUMP IF A == 0
21812 10 0 0 0 0 FOLLOW INDICATOR SELECT LITERAL
21813 5 12 60 1 0 0 TRANSFER
21811>21814 5 12 9 0 0 0 TRANSFER
21815 5 12 43 0 0 0 CLEAR LINE INCREMENT FOR'SER'CHECKS TRANSFER
21816 27 5 0 0 0 SELECT
21817 12 0 0 0 4 SUBTRACT LITERAL
21818 70 219 34 0 0 0 219 >VALUE(DIRECTIVE OR DATA) JUMP IF A == 0
21819 92 3 0 0 0 SELECT
21820 11 0 0 0 1 FORM TRANSLATORS PROCR ADD LITERAL
21821 3 92 3 0 0 0 COPY
21822 3 12 0 0 0 0 COPY
21823 5 12 4 0 0 0 TRANSFER
21900 PROCR 219 219 TEST NEW CHAPTER
21901 NOTES RADIX SELECT
21902 1 8 2 0 0 SELECT
21903 30 0 0 0 2- SHIFT (A) BY QUARTETS
21904 3 1 14 0 0 0 B/FWD PROCR COPY
21905 2 92 3 0 0 0 SUBTRACT
21906 70 219 9 0 0 0 219 >OK PASS 0 HASN'T BOOBED JUMP IF A == 0
21907 318 40 1 0 0 318 '????R' SELECT
21908 5 1 44 1 0 0 TRANSFER
21906>21909 52 1 8 0 0 0 EDIT NEW PROCR EDIT
21910 C 306 2 0 0 0 306
21911 1 14 0 0 0 OLD SELECT
21912 2 12 4 0 0 0 NEW SUBTRACT
21913 70 219 15 0 0 0 219 >PROCR DOESN T CHANGE JUMP IF A == 0
21914 80 220 2 0 0 0 220 >SET'PRINT PROCR' ENTER SUBROUTINE
21913>21915 92 3 0 0 0 SELECT
Source image: P1030204.JPG
21916 12 0 0 0 100 SUBTRACT LITERAL
21917 71 219 21 0 0 0 219 >NOT FIRST TIME THROUGH JUMP IF A != 0
21918 0 12 0 0 0 0 FIRST CODERS PROCR SELECT
21919 5 12 14 0 0 0 SET AS FIRST CHAP START TRANSFER
21920 76 219 29 0 0 0 219 JUMP unconditional
21917>21921 12 14 0 4 0 SELECT
21922 2 12 0 0 0 0 SUBTRACT
21923 71 219 34 0 0 0 219 >THIS PROCR IS NOT A CHAPTER START JUMP IF A != 0
21924 92 3 0 0 0 SELECT
21925 12 0 0 0 1 SUBTRACT LITERAL
21926 80 248 2 0 0 0 248 >CHAP END IN BIN ENTER SUBROUTINE
21927 30 0 0 0 2 SHIFT (A) BY QUARTETS
21928 4 92 9 0 4 0 STORE CHAP END POINT AUGMENT
21920>21929 62 0 0 0 0 SET EXCESS CONSTANTS
21930 10 0 0 0 1 SELECT LITERAL
21931 4 92 0 0 0 0 STEP UNCORR CHAP IN BIN AUGMENT
21932 60 0 0 0 0 SET DECIMAL RADIX
21933 94 0 0 4 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
21923>
21818>21934 83 222 2 0 0 1 222 SET CHECK SWITCH FOR DIRECTIVES SET SWITCH(ES) AT LITERAL VALUE
21935 76 222 2 0 0 0 222 JUMP unconditional
22000 PROCR 220 220 SET IND IN SEC 23 IF PROCR TO BE PRINTED
22002 81 220 2 0 0 0 220 START OF SUBROUTINE
22003 92 3 0 0 0 CURRENT PROCR SELECT
22004 80 248 2 0 0 0 248 >BIN ENTER SUBROUTINE
22005 19 0 0 0 14 DIVIDE LITERAL
22006 5 319 42 0 0 0 319 TRANSFER
22007 32 0 0 0 9 SHIFT (AB) BY QUARTETS
22008 5 319 43 0 0 0 319 REMAINDER TRANSFER
22009 34 319 22 0 0 0 319 1 SET (N) IN B
22010 124 319 43 0 1 0 319 modify address of next
22011 33 0 0 0 0 ///// SHIFT (AB) BY BITS
22012 319 20 0 0 0 319 £X5 SELECT
22013 124 319 42 0 1 0 319 modify address of next
22014 37 23 5- 0 0 0 SET BIT REPLACE SELECTED BITS
22015 60 0 0 0 0 SET DECIMAL RADIX
22016 82 220 2 0 0 0 220 END OF SUBROUTINE / LEAVE SUBROUTINE
22100 PROCR 221 221 CHECK FOR B/FWD ERROR REPORT
22101 NOTES 221 SELECT
22102 81 221 2 0 0 0 221 START OF SUBROUTINE
22103 1 42 1 0 0 LAST 5 CHARS OF ANNOTATION SELECT
22104 2 318 26 1 0 0 318 '?????' SUBTRACT
22105 70 221 12 0 0 0 221 JUMP IF A == 0
22106 1 42 1 0 0 SELECT
22107 12 0 0 0 5£5£5£5£5£ FIVE SQUARES SUBTRACT LITERAL
22108 70 221 12 0 0 0 221 JUMP IF A == 0
22109 1 42 1 0 0 SELECT
22110 2 318 24 1 0 0 318 'SHEET' SUBTRACT
22111 71 221 13 0 0 0 221 JUMP IF A != 0
22108>
22105>22112 5 1 42 1 0 0 CLEAR OUT REPORT TRANSFER
22111>22113 82 221 2 0 0 0 221 END OF SUBROUTINE / LEAVE SUBROUTINE
22200 PROCR 222 222 SWITCH B
22201 NOTES RADIX SELECT
21935>
21805>
21804>22202 80 221 2 0 0 0 221 >DELETE B/FWD ERROR REPORTS ENTER SUBROUTINE
Source image: P1030205.JPG
23312>22203 12 33 0 0 0 SELECT
22204 70 222 9 0 0 0 222 >EX MT JUMP IF A == 0
22205 92 30 0 0 0 SELECT
22206 70 222 9 0 0 0 222 JUMP IF A == 0
22207 80 220 2 0 0 0 220 >SET'PRINT PROCR' ENTER SUBROUTINE
22208 10 0 0 0 0 SELECT LITERAL
22206>
22204>22209 85 222 2 0 0 0 222 SWITCH R
22210 C 231 2 0 0 0 231 STACKING DIRECTIVE
22211 C 236 2 0 0 0 236 INSTRUCTIONS
22212 C 276 2 0 0 0 276 TABLES
22213 C 260 2 0 0 0 260 CONSTANTS
22214 85 173 2 0 0 0 173 SWITCH R
22215 C 249 2 0 0 0 249 >LAST REF/ITEM CORRECT
22216 C 222 17 0 0 0 222 >LAST REF/ITEM IGNORED
22216>22217 80 225 2 0 0 0 225 REPORT R ENTER SUBROUTINE
22218 80 295 2 0 0 0 295 IGNORE THIS LINE ENTER SUBROUTINE
22219 76 249 2 0 0 0 249 >EDIT AND O/P JUMP unconditional
22300 PROCR 223 223 ERROR REPORT OF D
22301 NOTES 223 SELECT
22302 81 223 2 0 0 0 223 START OF SUBROUTINE
22303 10 0 0 0 54 D SELECT LITERAL
22304 80 229 2 0 0 0 229 ENTER SUBROUTINE
22305 82 223 2 0 0 0 223 END OF SUBROUTINE / LEAVE SUBROUTINE
22400 PROCR 224 224 ERROR REPORT OF M
22401 NOTES 224 SELECT
22402 81 224 2 0 0 0 224 START OF SUBROUTINE
22403 10 0 0 0 64 M SELECT LITERAL
22404 80 229 2 0 0 0 229 ENTER SUBROUTINE
22405 82 224 2 0 0 0 224 END OF SUBROUTINE / LEAVE SUBROUTINE
22500 PROCR 225 225 ERROR REPORT OF R
22501 NOTES 225 SELECT
22502 81 225 2 0 0 0 225 START OF SUBROUTINE
22503 10 0 0 0 69 SELECT LITERAL
22504 80 229 2 0 0 0 229 ENTER SUBROUTINE
22505 82 225 2 0 0 0 225 END OF SUBROUTINE / LEAVE SUBROUTINE
22600 PROCR 226 226 ERROR REPORT OF I
22601 NOTES 226 SELECT
22602 81 226 2 0 0 0 226 START OF SUBROUTINE
22603 10 0 0 0 59 I SELECT LITERAL
22604 80 229 2 0 0 0 229 ENTER SUBROUTINE
22605 82 226 2 0 0 0 226 END OF SUBROUTINE / LEAVE SUBROUTINE
22700 PROCR 227 227 ERROR REPORT OF L
22701 NOTES 227 SELECT
22702 81 227 2 0 0 0 227 START OF SUBROUTINE
22703 10 0 0 0 63 L SELECT LITERAL
22704 80 229 2 0 0 0 229 ENTER SUBROUTINE
22705 82 227 2 0 0 0 227 END OF SUBROUTINE / LEAVE SUBROUTINE
22800 PROCR 228 228 ERROR REPORT OF T
22801 NOTES 228 SELECT
22802 81 228 2 0 0 0 228 START OF SUBROUTINE
22803 10 0 0 0 73 T SELECT LITERAL
22804 80 229 2 0 0 0 229 ENTER SUBROUTINE
22805 82 228 2 0 0 0 228 END OF SUBROUTINE / LEAVE SUBROUTINE
Source image: P1030206.JPG
22900 PROCR 229 229 MAKE ERROR REPORT
22901 NOTES 229 SELECT
22902 81 229 2 0 0 0 229 START OF SUBROUTINE
22903 32 0 0 0 10- SHIFT (AB) BY QUARTETS
22904 1 44 1 0 0 TEST REPORT ALREADY MADE SELECT
22905 30 0 0 0 2- WITH '????' SHIFT (A) BY QUARTETS
22906 12 0 0 0 5:5:5:5: SUBTRACT LITERAL
22907 70 229 16 0 0 0 229 >YES,DON T CORRUPT IT JUMP IF A == 0
22908 10 0 0 0 0 SELECT LITERAL
22909 32 0 0 0 10 SHIFT (AB) BY QUARTETS
22910 124 12 115 1 2 0 modify address of next
22911 30 0 0 0 0 ///// SHIFT (A) BY QUARTETS
22912 4 1 44 1 0 0 AUGMENT
22913 10 0 0 0 2 SELECT LITERAL
22914 1 12 115 0 0 0 ADD
22915 5 12 115 0 0 0 TRANSFER
22907>22916 82 229 2 0 0 0 229 END OF SUBROUTINE / LEAVE SUBROUTINE
23000 PROCR 230 230 ADJUST SR-ISSUE 6 O/P
23002 81 230 2 0 0 0 230 START OF SUBROUTINE
23003 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
23004 C 0 0 0 900
23005 10 0 0 0 0 (12/58)=SERIAL TO BE ADJUSTED SELECT LITERAL
23006 5 12 46 0 0 0 CLEAR FOR TOTAL ADJUSTMENT TRANSFER
23007 35 0 0 0 11100 PREPARE FOR DIGIT COLLATION
23008 36 12 58 0 0 0 COLLATE AND ADD
23009 5 12 30 0 0 0 PROCR TRANSFER
23022>23010 36 97 0 0 1 0 COLLATE AND ADD
23011 70 230 23 0 0 0 230 >END JUMP IF A == 0
23012 2 12 30 0 0 0 SUBTRACT
23013 73 230 21 0 0 0 230 >SEARCH JUMP IF A < 0
23014 71 230 23 0 0 0 230 >END JUMP IF A != 0
23015 97 0 0 1 0 SELECT
23016 2 12 58 0 0 0 SUBTRACT
23017 70 230 19 0 0 0 230 JUMP IF A == 0
23018 72 230 32 0 0 0 230 >NEXT ADJUST POINT IN PROCR IS LATER JUMP IF A >= 0
23017>23019 97 1 0 1 0 SELECT
23020 4 12 46 0 0 0 AUGMENT
23013>23021 10 0 0 0 0 SELECT LITERAL
23022 94 230 10 0 1 2 230 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
23034>
23037>
23014>
23011>23023 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
23024 12 46 0 0 0 TOTAL ADJUSTMENT SELECT
23025 36 12 58 0 0 0 COLLATE AND ADD
23026 3 12 58 0 0 0 NEW ITEM COPY
23027 12 0 0 0 100 SUBTRACT LITERAL
23028 73 230 31 0 0 0 230 '????I' JUMP IF A < 0
23029 318 42 1 0 0 318 REPORT WRITTEN ITEM>99 SELECT
23030 5 1 44 1 0 0 TRANSFER
23028>23031 82 230 2 0 0 0 230 QUANTITY(+-) END OF SUBROUTINE / LEAVE SUBROUTINE
23018>23032 1 97 1 0 1 0 >ADDRESS DELETED ADD
23033 70 230 35 0 0 0 230 >NEXT IS INSERTION JUMP IF A == 0
23034 72 230 23 0 0 0 230 '????DELTA' JUMP IF A >= 0
23033>23035 318 44 1 0 0 318 SELECT
23036 5 1 44 1 0 0 TRANSFER
23037 76 230 23 0 0 0 230 JUMP unconditional
Source image: P1030207.JPG
23100 PROCR 231 231 DEAL WITH PROCR/TABLE/CONST
23101 NOTES RADIX SELECT
22210>23102 1 6 1 0 0 TEST PROCR SELECT
23103 2 318 6 1 0 0 318 PROCR SUBTRACT
23104 71 231 7 0 0 0 231 NO JUMP IF A != 0
23105 5 12 90 1 0 0 TRANSFER
23106 76 249 2 0 0 0 249 FORM SERIAL NO. AND OUTPUT JUMP unconditional
23104>23107 1 6 1 0 0 TEST TABLE SELECT
23108 2 318 2 1 0 0 318 TABLE SUBTRACT
23109 71 232 5 0 0 0 232 NO JUMP IF A != 0
23110 10 0 0 0 100001 SET LONG/SHORT USED TO SELECT LITERAL
23111 5 12 90 1 0 0 COUNTER STEP ON SERIAL TRANSFER
23112 34 1 16 1 0 0 TABLE TYPE SET (N) IN B
23113 80 320 2 0 0 0 320 >RIGHT ALIGN ENTER SUBROUTINE
23114 0 12 88 2 0 0 SELECT
23115 73 231 20 0 0 0 231 TABLE TYPE IS NEGATIVE JUMP IF A < 0
23116 3 12 59 0 0 0 COPY
23117 70 231 20 0 0 0 231 JUMP IF A == 0
23118 12 0 0 0 5 SUBTRACT LITERAL
23119 73 232 2 0 0 0 232 JUMP IF A < 0
23117>
23115>23120 83 278 8 0 0 5 278 TABLE TYPE IS OUT OF RANGE SET SWITCH(ES) AT LITERAL VALUE
23121 76 282 29 0 0 0 282 JUMP unconditional
23200 PROCR 232 232
23201 NOTES RADIX SELECT
23119>23202 84 278 8 0 0 0 278 SET TABLE CHECKING SET SWITCH(ES) AT VARIABLE VALUE
23203 C 12 59 0 0 0 SWITCH ACCORDING TO TYPE
23204 76 249 2 0 0 0 249 FORM SERIAL NO. AND OUTPUT JUMP unconditional
23109>23205 1 6 1 0 0 TEST CONST SELECT
23206 2 318 4 1 0 0 318 CONST SUBTRACT
23207 71 232 25 0 0 0 232 >NO JUMP IF A != 0
23208 54 94 60 0 0 40 BULK CLEAR
23209 34 317 3 0 0 0 317 BIT 17 SET (N) IN B
23210 36 1 16 2 0 0 COLLATE AND ADD
23211 30 0 0 0 4- SHIFT (A) BY QUARTETS
23212 3 12 90 0 0 0 LONG/SHORT IND COPY
23213 71 232 15 0 0 0 232 >LONG JUMP IF A != 0
23214 10 0 0 0 30 ALPHA ZERO SELECT LITERAL
23213>23215 30 0 0 0 3 SHIFT (A) BY QUARTETS
23216 35 0 0 0 11000 PREPARE FOR DIGIT COLLATION
23217 37 1 17 0 0 0 SET ALPHA 0 OR 1 REPLACE SELECTED BITS
23218 76 232 21 0 0 0 232 JUMP unconditional
23219 10 0 0 0 1 SELECT LITERAL
23220 03 12 90 0 0 0 COPY
23218>23221 83 263 2 0 0 1 263 SAFETY VALUE SET SWITCH(ES) AT LITERAL VALUE
23222 10 0 0 0 4 SET CHECK SWITCH SELECT LITERAL
23223 84 222 2 0 0 0 222 SET SWITCH(ES) AT VARIABLE VALUE
23224 76 249 2 0 0 0 249 >O/P JUMP unconditional
23207>23225 76 233 2 0 0 0 233 NOTES JUMP unconditional
23300 PROCR 233 233 DEAL WITH NOTES
23301 NOTES RADIX SELECT
23225>23302 12 91 0 0 0 SELECT
23303 71 233 6 0 0 0 233 JUMP IF A != 0
23304 10 0 0 0 2 FOR INSTRUCTIONS SELECT LITERAL
23305 76 233 7 0 0 0 233 JUMP unconditional
23303>23306 10 0 0 0 3 FOR TABLE ENTRIES SELECT LITERAL
23305>23307 84 222 2 0 0 0 222 SET CHECK SWITCH SET SWITCH(ES) AT VARIABLE VALUE
23308 2 12 38 0 0 0 DIRECTIVE IND FOR THIS LINE SUBTRACT
Source image: P1030208.JPG
23309 73 249 2 0 0 0 249 >IS'NOTES'(IE>0) JUMP IF A < 0
23310 10 0 0 0 2 SELECT LITERAL
23311 5 12 9 0 0 0 SET THIS LINE SERIAL TRANSFER
23312 76 222 3 0 0 0 222 >TO CHECK SWITCH JUMP unconditional
23400 PROCR 234 234 REPLACE AND ADJUST B/FWD ADDRESSES IN TABLE ENTRIES AND INSTRUCTI
23401 NOTES RADIX SELECT
23402 81 234 2 0 0 0 234 START OF SUBROUTINE
23403 34 1 8 1 0 0 REF SET (N) IN B
23404 80 320 2 0 0 0 320 >RIGHT ALIGN ENTER SUBROUTINE
27507>23405 0 12 88 2 0 0 SELECT
23406 3 12 4 0 0 0 COPY
23407 12 0 0 0 100 SUBTRACT LITERAL
23408 73 234 25 0 0 0 234 >SECTION JUMP IF A < 0
23409 12 0 0 0 899 SUBTRACT LITERAL
23410 72 234 25 0 0 0 234 >NOT REPLACEABLE (INCLUDES 999) JUMP IF A >= 0
23411 1 10 1 0 0 SELECT
23412 5 294 2 0 0 0 294 'PREVIOUS'ITEM TRANSFER
23413 80 235 2 0 0 0 235 >CALC C/FWD ADDRESS ENTER SUBROUTINE
23414 12 88 2 0 0 TEST IMPLICIT SELECT
23415 2 12 4 0 0 0 AMENDMENT SUBTRACT
23416 71 234 20 0 0 0 234 >CHANGE TO REF JUMP IF A != 0
23417 1 10 1 0 0 SELECT
23418 2 294 2 0 0 0 294 SUBTRACT
23419 70 234 21 0 0 0 234 >NO CHANGE TO ITEM JUMP IF A == 0
23416>23420 80 220 2 0 0 0 220 >SET'PRINT PROCEDURE' ENTER SUBROUTINE
23419>23421 12 88 2 0 0 SELECT
23422 5 12 4 0 0 0 NEW REF TRANSFER
23423 52 1 8 0 0 0 REPLACE REF-WITH ZEROS EDIT
23424 C 306 2 0 0 0 306
23410>
23408>23425 82 234 2 0 0 0 234 END OF SUBROUTINE / LEAVE SUBROUTINE
23500 PROCR 235 235 REPLACE AND ADJUST ADDRESS
23501 NOTES 235 SELECT
23502 81 235 2 0 0 0 235 START OF SUBROUTINE
23503 12 88 2 0 0 REPLACE PROCR(NEW STYLE) SELECT
23504 3 12 118 0 0 0 COPY
23505 3 12 119 0 0 0 COPY
23506 30 0 0 0 2 SHIFT (A) BY QUARTETS
23507 1 1 10 0 0 0 ADD
23508 5 12 58 0 0 0 TRANSFER
23509 1 10 1 0 0 SELECT
23510 73 235 14 0 0 0 235 >DONT ADJUST NEG ITEMS JUMP IF A < 0
23511 80 230 2 0 0 0 230 >ADJUST SR(NEW STYLE) ENTER SUBROUTINE
23512 12 58 0 0 0 NEW ITEM SELECT
23513 5 1 10 0 0 0 TRANSFER
23510>23514 82 235 2 0 0 0 235 END OF SUBROUTINE / LEAVE SUBROUTINE
23600 PROCR 236 236 BEGIN CHECKS ON ACTION OR C-LINE
23601 NOTES RADIX SELECT
22211>23602 80 234 2 0 0 0 234 >DEAL WITH ADDRESS OF INSTRUCTION ENTER SUBROUTINE
23603 12 4 0 0 0 NEW REF SELECT
23604 12 0 0 0 100 SUBTRACT LITERAL
23605 73 236 10 0 0 0 236 JUMP IF A < 0
23606 12 0 0 0 899 SUBTRACT LITERAL
23607 72 236 10 0 0 0 236 JUMP IF A >= 0
23608 12 118 0 0 0 PREVIOUS PROCR SELECT
23609 5 1 22 0 0 0 TRANSFER
23607>
Source image: P1030209.JPG
23605>23610 12 61 0 0 0 SELECT
23611 70 236 13 0 0 0 236 JUMP IF A == 0
23612 80 296 2 0 0 0 296 ENTER SUBROUTINE
23611>23613 34 1 6 1 0 0 SET (N) IN B
23614 80 320 2 0 0 0 320 RIGHT ALIGN ACTION ENTER SUBROUTINE
23615 00 12 88 2 0 0 SELECT
23616 73 237 2 0 0 0 237 >NEGATIVE ACTION JUMP IF A < 0
23617 12 0 0 0 100 SUBTRACT LITERAL
23618 73 237 2 0 0 0 237 >REJECT JUMP IF A < 0
23619 12 0 0 0 30 SUBTRACT LITERAL
23620 72 237 2 0 0 0 237 JUMP IF A >= 0
23621 0 12 88 2 0 0 SELECT
23622 80 248 2 0 0 0 248 >TO BIN ENTER SUBROUTINE
23623 3 12 54 0 0 0 BINARY ACTION COPY
23624 30 0 0 0 3 SHIFT (A) BY QUARTETS
23625 101 316 2 0 0 0 316 table look up
23626 32 0 0 0 10 ABS BIN ADDRESS>A SHIFT (AB) BY QUARTETS
23627 3 12 55 0 0 0 LOCN TO SELECT C-LINE CHECK CONSTAN COPY
23628 124 12 55 1 2 0 modify address of next
23629 100 0 0 2 0 CHECK CONST replace (B) by (N)
23630 10 0 0 0 0 SELECT LITERAL
23631 36 317 4 0 0 0 317 Q1-3 COLLATE AND ADD
23632 71 237 6 0 0 0 237 >ACTION EXISTS JUMP IF A != 0
23700 PROCR 237 237
23701 NOTES RADIX SELECT
23620>
23618>
23616>23702 10 0 0 0 5100000000 SELECT LITERAL
23703 5 1 44 1 0 0 NONEXISTENT ACTION=ERROR OF A TRANSFER
23704 80 295 2 0 0 0 295 ENTER SUBROUTINE
23705 76 249 2 0 0 0 249 JUMP unconditional
23632>23706 30 0 0 0 2- SHIFT (A) BY QUARTETS
23707 10 0 0 0 0 LOSE 'LIT SWITCH' SELECT LITERAL
23708 36 317 5 0 0 0 317 BITS 5-7 COLLATE AND ADD
23709 30 0 0 0 1- SHIFT (A) BY QUARTETS
23710 84 240 2 0 0 0 240 'REF/ITEM'SWITCH BY Q2 SET SWITCH(ES) AT VARIABLE VALUE
23711 36 317 7 0 0 0 317 BIT 4 COLLATE AND ADD
23712 5 12 61 0 0 0 IND THAT C-LINE ESSENTIAL TRANSFER
23713 36 317 8 0 0 0 317 BIT 8 COLLATE AND ADD
23714 5 12 60 0 0 0 IND THAT C-LINE IS POSSIBLE TRANSFER
23715 5 12 59 0 0 0 CLEAR THIS TRANSFER
23800 PROCR 238 238
23801 NOTES RADIX SELECT
23802 60 0 0 0 0 SET DECIMAL RADIX
23803 1 10 0 0 0 MODULUS OF ITEM SELECT
23804 12 0 0 0 8192 SUBTRACT LITERAL
23805 72 238 8 0 0 0 238 >REPORT JUMP IF A >= 0
23806 1 11 0 0 0 SELECT
23807 70 238 9 0 0 0 238 >OK JUMP IF A == 0
23805>23808 80 226 2 0 0 0 226 >REPORT I ENTER SUBROUTINE
23807>23809 1 12 1 0 0 DISC SELECT
23810 70 238 14 0 0 0 238 >OK JUMP IF A == 0
23811 12 0 0 0 1 SUBTRACT LITERAL
23812 70 238 14 0 0 0 238 >OK JUMP IF A == 0
23813 80 223 2 0 0 0 223 >REPORT D ENTER SUBROUTINE
23812>
23810>23814 0 1 14 1 0 0 MOD SELECT
23815 70 240 2 0 0 0 240 >OK JUMP IF A == 0
Source image: P1030210.JPG
23816 12 0 0 0 4 SUBTRACT LITERAL
23817 73 240 2 0 0 0 240 >OK JUMP IF A < 0
23818 80 224 2 0 0 0 224 >REPORT M ENTER SUBROUTINE
23819 76 240 2 0 0 0 240 >TO CHECK R,I,L JUMP unconditional
23900 PROCR 239 239 TEST D IS ZERO
23901 NOTES RADIX SELECT
23902 81 239 2 0 0 0 239 START OF SUBROUTINE
23903 1 12 1 0 0 SELECT
23904 70 239 6 0 0 0 239 JUMP IF A == 0
23905 80 223 2 0 0 0 223 REPORT D ENTER SUBROUTINE
23904>23906 82 239 2 0 0 0 239 END OF SUBROUTINE / LEAVE SUBROUTINE
24000 PROCR 240 240
24001 NOTES RADIX SELECT
23819>
23817>
23815>24002 85 240 2 0 0 0 240 SWITCH R
24003 C 241 2 0 0 0 241 >R ZERO, PROCR, SECTION OR '1000+'
24100 PROCR 241 241 SWITCH = 1
24101 NOTES RADIX B R ZERO, OR A SECTION SELECT
24003>24102 12 4 0 0 0 SELECT
24103 73 241 18 0 0 0 241 >IGNORE R JUMP IF A < 0
24104 71 241 13 0 0 0 241 >OK JUMP IF A != 0
24105 1 14 0 0 0 MOD DIGITS SELECT
24106 71 241 20 0 0 0 241 >OK JUMP IF A != 0
24107 0 1 10 1 0 0 ITEM SELECT
24108 73 241 18 0 0 0 241 IG JUMP IF A < 0
24109 71 241 20 0 0 0 241 >OK JUMP IF A != 0
24110 0 12 54 0 0 0 ACTION SELECT
24111 70 241 18 0 0 0 241 >IGNORE R JUMP IF A == 0
24112 76 241 20 0 0 0 241 >OK JUMP unconditional
24104>24113 70 242 2 0 0 0 242 OK JUMP IF A == 0
24114 12 0 0 0 100 SUBTRACT LITERAL
24115 73 241 18 0 0 0 241 IG JUMP IF A < 0
24116 12 0 0 0 900 SUBTRACT LITERAL
24117 73 241 20 0 0 0 241 >OK JUMP IF A < 0
24115>
24111>
24108>
24103>24118 80 295 2 0 0 0 295 >IGNORE ENTER SUBROUTINE
24119 80 225 2 0 0 0 225 >REPORT R ENTER SUBROUTINE
24117>
24112>
24109>
24106>24120 76 242 2 0 0 0 242 CHECK L JUMP unconditional
24121 80 277 2 0 0 0 277 >CHECK REF ENTER SUBROUTINE
24200 PROCR 242 242 SWITCH FOR LITERALS
24201 NOTES RADIX CHECK L IS NOT > 10 QUARTETS SELECT
24120>
24113>24202 0 1 18 1 0 0 SELECT
24203 70 244 2 0 0 0 244 JUMP IF A == 0
24300 PROCR 243 243 MAKE REPORTS ON L
24301 NOTES RADIX SWITCH=2 SELECT
24302 80 295 2 0 0 0 295 >IGNORE ENTER SUBROUTINE
24303 80 227 2 0 0 0 227 >REPORT L ENTER SUBROUTINE
Source image: P1030211.JPG
24400 PROCR 244 244 TEST FP/MG USED, STORE MR>3 DETAILS
24401 NOTES RADIX MOD REGISTERS 1-3 SELECT
24203>24402 62 0 0 0 0 SET EXCESS CONSTANTS
24500 PROCR 245 245 MACHINE CODE SEQUENCE CHANGES
24501 NOTES RADIX SELECT
24502 0 12 54 0 0 0 BIN ACTION SELECT
24503 12 0 0 0 7 SUBTRACT LITERAL
24504 70 246 2 0 0 0 246 >ACTION 127/D/M JUMP IF A == 0
24505 11 0 0 0 3 ADD LITERAL
24506 71 249 2 0 0 0 249 >NOT 124/D/M JUMP IF A != 0
24507 1 12 0 0 0 SELECT
24508 12 0 0 0 1 SUBTRACT LITERAL
24509 71 249 2 0 0 0 249 >NOT 124/1/M JUMP IF A != 0
24510 1 14 0 0 0 SELECT
24511 71 249 2 0 0 0 249 >NOT 124/1/0 JUMP IF A != 0
24512 76 246 2 0 0 0 246 JUMP unconditional
24513 60 0 0 0 0 ACTION 94 SET DECIMAL RADIX
24514 0 1 16 1 0 0 L SELECT
24515 71 245 17 0 0 0 245 JUMP IF A != 0
24516 80 227 2 0 0 0 227 >REPORT L ENTER SUBROUTINE
24515>24517 0 1 8 1 0 0 SELECT
24518 71 246 2 0 0 0 246 >COUNT AS SEQ CHANGE JUMP IF A != 0
24519 0 1 10 0 0 0 SELECT
24520 70 249 2 0 0 0 249 YES JUMP IF A == 0
26717>24521 80 226 2 0 0 0 226 >REPORT I ENTER SUBROUTINE
24522 76 249 2 0 0 0 249 JUMP unconditional
24600 PROCR 246 246 TEST IF SEQUENCE CHANGE IS FORWARD OR BACK
24601 NOTES RADIX SELECT
24518>
24512>
24504>24602 0 12 4 0 0 0 DEC REF SELECT
24603 12 0 0 0 999 SUBTRACT LITERAL
24604 72 249 2 0 0 0 249 JUMP IF A >= 0
24605 0 92 3 0 0 0 (CURRENT LINE SERIAL) SELECT
24606 30 0 0 0 2 SHIFT (A) BY QUARTETS
24607 1 12 9 0 0 0 SEQ CHANGE SOURCE ADD
24608 3 12 118 0 0 0 SOURCE COPY
24609 2 1 8 2 0 0 L-ALIGNED REF SUBTRACT
24610 2 1 10 0 0 0 ITEM SUBTRACT
24611 73 249 2 0 0 0 249 >SOURCE<DEST, SEQ CHANGE FWD JUMP IF A < 0
24612 1 8 2 0 0 SELECT
24613 70 249 2 0 0 0 249 >SC TO ABS ADDRESS,DON T STORE JUMP IF A == 0
24614 1 1 10 0 0 0 ADD
24615 73 249 2 0 0 0 249 >SKIP JUMP IF A < 0
24616 5 12 119 0 0 0 DESTINATION TRANSFER
24617 0 12 118 1 0 0 SELECT
24618 62 0 0 0 0 SET EXCESS CONSTANTS
24619 124 92 9 1 2 0 ABS START OF LIST(18:2496 INITIALLY modify address of next
24620 101 0 1 0 0 TABLE LOOKUP table look up
24621 32 0 0 0 10 SHIFT (AB) BY QUARTETS
24622 91 0 0 1 0 STORE LOCN OF FIRST GREATER SET MODIFICATION REGISTER AT VARIABLE
24623 2 92 9 0 0 0 SUBTRACT
24624 30 0 0 0 5 SHIFT QTTY TO BE MOVED SHIFT (A) BY QUARTETS
24625 1 92 9 0 0 0 START ADD
24626 5 12 88 1 0 0 WL=BULK COPY TABLE ENTRY TRANSFER
24627 0 92 9 0 0 0 CURRENT LIST START SELECT
24628 2 316 6 0 0 0 316 ABS ADDRESS 18:0 SUBTRACT
24629 70 249 2 0 0 0 249 >LIST FULL, DON T STORE JUMP IF A == 0
Source image: P1030212.JPG
24630 10 0 0 0 2- SELECT LITERAL
24631 4 92 9 0 0 0 ADJUST FOR NEW START AUGMENT
24632 12 88 1 0 0 SELECT
24633 124 92 9 1 2 0 modify address of next
24634 128 0 1 1 0 BULK COPY UP ONE WORD bulk copy long numeric
24635 94 0 0 1 2- ADJUST STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
24636 12 118 1 0 0 NEW SEQ CH BACK SELECT
24637 5 0 1 1 0 PLACE IN LIST TRANSFER
24638 76 249 2 0 0 0 249 JUMP unconditional
24700 PROCR 247 247 CONVERT (A) TO DEC
24701 NOTES 247 SELECT
24702 81 247 2 0 0 0 247 START OF SUBROUTINE
24703 5 319 42 1 0 0 319 TRANSFER
24704 60 0 0 0 0 SET DEC SET DECIMAL RADIX
24705 124 319 2 0 2 0 319 select literal and division
24706 112 319 42 1 0 0 319 convert
24707 82 247 2 0 0 0 247 END OF SUBROUTINE / LEAVE SUBROUTINE
24800 PROCR 248 248 CONVERT (A) TO BINARY
24801 NOTES 248 SELECT
24802 81 248 2 0 0 0 248 START OF SUBROUTINE
24803 5 319 42 1 0 0 319 TRANSFER
24804 62 0 0 0 0 SET BIN SET EXCESS CONSTANTS
24805 124 319 22 0 2 0 319 select literal and division
24806 112 319 42 1 0 0 319 convert
24807 82 248 2 0 0 0 248 END OF SUBROUTINE / LEAVE SUBROUTINE
24900 PROCR 249 249 FORM SERIAL NUMBER
24901 NOTES RADIX SELECT
26621>
26624>
26714>
26718>
26808>
27103>
27107>
27304>
27813>
28026>
28037>
28122>
28231>
24638>
24629>
24615>
24613>
24611>
24604>
24522>
24520>
24511>
24509>
24506>
23705>
23309>
23224>
23204>
23106>
22219>
Source image: P1030213.JPG
22215>24902 00 12 85 0 0 0 TEST IF TO IGNORE SELECT
24903 70 249 5 0 0 0 249 THIS BLOCK JUMP IF A == 0
24904 80 295 2 0 0 0 295 YES - IGNORE ENTER SUBROUTINE
24903>24905 60 0 0 0 0 SET DECIMAL RADIX
24906 92 3 0 0 0 TRANSLATOR'S PROCR SELECT
24907 30 0 0 0 2 SHIFT (A) BY QUARTETS
24908 5 12 88 0 0 0 TRANSFER
24909 86 222 2 0 0 0 222 SELECT SWITCH R
24910 12 9 0 0 0 LINE SERIAL IN PROCR SELECT
24911 12 0 0 0 100 NO LINE SERIAL>99 SUBTRACT LITERAL
24912 73 249 24 0 0 0 249 >OK JUMP IF A < 0
24913 86 222 2 0 0 0 222 SELECT SWITCH R
24914 12 0 0 0 2 SUBTRACT LITERAL
24915 70 249 20 0 0 0 249 >INSTRUCTIONS,IGNORE JUMP IF A == 0
24916 35 0 0 0 111111 TABLE ENTRIES,CONST='SER' PREPARE FOR DIGIT COLLATION
24917 10 0 0 0 725569 SELECT LITERAL
24918 37 1 44 1 0 0 REPLACE SELECTED BITS
24919 76 249 21 0 0 0 249 JUMP unconditional
24915>24920 80 295 2 0 0 0 295 >IGNORE ENTER SUBROUTINE
24919>24921 10 0 0 0 99 SELECT LITERAL
24922 2 12 90 0 0 0 (0=SHORT,1=LONG) SUBTRACT
24923 76 249 25 0 0 0 249 >SET 98 OR 99 JUMP unconditional
24912>24924 12 9 0 0 0 SELECT
24923>24925 4 12 88 0 0 0 AUGMENT
24926 52 1 2 0 0 0 EDIT SERIAL EDIT
24927 C 306 6 0 0 0 306
25000 PROCR 250 250 AUGMENT INSTRUCTION COUNTER
25001 NOTES RADIX SELECT
25002 10 0 0 0 0 SELECT LITERAL
25003 85 222 2 0 0 0 222 SWITCH R
25004 C 250 9 0 0 0 250 >'PROCR/TABLE'
25005 C 251 13 0 0 0 251 >INSTRUCTIONS/'NOTES'
25006 C 251 2 0 0 0 251 >TABLE ENTRY/'NOTES'
25007 C 251 7 0 0 0 251 >CONSTANT/'CONST'
25008 C 250 9 0 0 0 250
25008>
25004>25009 0 12 9 0 0 0 SERIAL THIS LINE WITHIN SECTION SELECT
25010 71 250 16 0 0 0 250 >NOTES BLOCK JUMP IF A != 0
25111>25011 318 22 0 0 0 318 SW 27/5 LAST TIME THRU SELECT
25012 12 0 0 0 3 SUBTRACT LITERAL
25013 71 250 16 0 0 0 250 >LAST TIME WASN T FOR CONSTANTS JUMP IF A != 0
25014 10 0 0 0 1 SELECT LITERAL
25015 5 29 6 1 0 0 CONSTS END SIGN TRANSFER
25013>
25010>25016 10 0 0 0 0 SELECT LITERAL
25017 76 251 13 0 0 0 251 JUMP unconditional
25100 PROCR 251 251 AUGMENT INSTRUCTION COUNTER
25101 NOTES RADIX SELECT
25006>25102 12 9 0 0 0 SELECT
25103 12 0 0 0 1 SUBTRACT LITERAL
25104 70 251 13 0 0 0 251 JUMP IF A == 0
25105 10 0 0 0 2 SELECT LITERAL
25106 76 251 14 0 0 0 251 JUMP unconditional
25007>25107 12 9 0 0 0 SELECT
25108 71 251 12 0 0 0 251 >NOT'CONST'BLOCK JUMP IF A != 0
25109 10 0 0 0 1 (SO AS TO STEP BY 2 EVENTUALLY) SELECT LITERAL
25110 4 12 9 0 0 0 >TEST IF LAST SECTION WAS CONSTANTS AUGMENT
25111 76 250 11 0 0 0 250 JUMP unconditional
Source image: P1030214.JPG
25108>25112 00 12 90 0 0 0 SELECT
25104>
25017>
25005>25113 11 0 0 0 1 ADD LITERAL
25106>25114 4 12 9 0 0 0 AUGMENT
25115 0 12 33 0 0 0 SELECT
25116 70 251 20 0 0 0 251 >BLOCK EX MT JUMP IF A == 0
25117 0 12 1 0 0 0 SELECT
25118 30 0 0 0 2 SHIFT (A) BY QUARTETS
25119 5 1 0 1 0 0 AMEND IND TRANSFER
25116>25120 5 92 34 1 0 0 CLEAR TRANSFER
25200 PROCR 252 252 EDIT
25202 62 0 0 0 0 SET EXCESS CONSTANTS
25203 317 11 0 0 0 317 INDICATOR SELECT
25204 70 252 7 0 0 0 252 >FIRST RECORD JUMP IF A == 0
25205 80 288 2 0 0 0 288 ENTER SUBROUTINE
25206 76 252 8 0 0 0 252 JUMP unconditional
25204>25207 80 289 2 0 0 0 289 >WRITE LAST SECTION ENTER SUBROUTINE
25206>25208 12 38 0 0 0 SELECT
25209 71 252 30 0 0 0 252 >DIRECTIVE JUMP IF A != 0
25210 27 5 0 0 0 SWITCH SELECT
25211 12 0 0 0 4 SUBTRACT LITERAL
25212 70 252 25 0 0 0 252 >VALUES JUMP IF A == 0
25213 124 27 5 0 1 0 modify address of next
25214 305 6 0 0 0 305 SELECT
25215 128 29 2 1 2 0 EDIT PROCR,TABLE,CONST. edit fixed field formats
25216 318 48 1 0 0 318 SELECT
25217 124 27 5 0 1 0 modify address of next
25218 124 305 2 0 1 0 305 modify address of next
25219 128 29 0 1 1 0 COPY ANNOTATION bulk copy long numeric
25220 1 44 1 0 0 SELECT
25221 124 27 5 0 1 0 modify address of next
25222 124 305 2 0 1 0 305 modify address of next
25223 5 29 2- 1 0 0 COPY REPORTS PASS 1 TRANSFER
25224 76 252 48 0 0 0 252 JUMP unconditional
25212>25225 55 1 11 0 0 16 VALUES BULK COPY
25226 C 29 10 2 0 0
25227 52 29 6 0 0 0 REF+ITEM EDIT
25228 C 315 2 0 0 0 315
25229 76 252 48 0 0 0 252 JUMP unconditional
25209>25230 52 29 2 0 0 0 DIRECTIVES EDIT
25231 C 307 16 0 0 0 307
25232 10 0 0 0 0 SELECT LITERAL
25233 5 318 22 0 0 0 318 TRANSFER
25234 27 5 0 0 0 SELECT
25235 12 0 0 0 1 SUBTRACT LITERAL
25236 71 252 43 0 0 0 252 >NOT PROCR JUMP IF A != 0
25237 12 38 0 0 0 SELECT
25238 73 252 43 0 0 0 252 >NOT NOTES OF PROCR JUMP IF A < 0
25239 1 8 1 0 0 SELECT
25240 5 29 12 1 0 0 COPY'RADIX' TRANSFER
25241 5 29 8 1 0 0 CLEAR TRANSFER
25242 76 252 45 0 0 0 252 JUMP unconditional
25238>
25236>25243 1 44 1 0 0 PASS 1 REPORTS SELECT
25244 5 29 12 1 0 0 TRANSFER
25242>25245 55 1 16 1 0 28 BULK COPY ANNOTATION BULK COPY
25246 C 29 14 1 0 0
25247 76 252 50 0 0 0 252 JUMP unconditional
25229>
Source image: P1030215.JPG
25224>25248 27 5 0 0 0 SELECT
25249 5 318 22 0 0 0 318 TRANSFER
25247>25250 10 0 0 0 1 SELECT LITERAL
25251 5 317 11 0 0 0 317 SET INDICATOR TRANSFER
25252 60 0 0 0 0 SET DECIMAL RADIX
25253 10 0 0 0 0 SELECT LITERAL
25254 5 12 115 0 0 0 ERROR REPORT SHIFT CONTROL TRANSFER
25255 0 23 47 0 0 0 SELECT
25256 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION
25257 37 29 2 1 0 0 REPLACE SELECTED BITS
25258 10 0 0 0 0 SELECT LITERAL
25259 5 23 47 0 0 0 'IMPLICITLY AMENDED' TRANSFER
25260 82 218 2 0 0 0 218 END OF SUBROUTINE / LEAVE SUBROUTINE
25300 PROCR 253 253 START OF UPDATING LOOP-DEAL WITH UNAMENDED MT OR PT AT END
25628>
25762>
21714>25302 80 294 2 0 0 0 294 >TEST PT AT DIRECTIVE/END ENTER SUBROUTINE
25303 70 254 2 0 0 0 254 >NO JUMP IF A == 0
25321>
25517>
25732>25304 0 12 45 0 0 0 SELECT
25305 71 253 14 0 0 0 253 >PT AT END JUMP IF A != 0
25306 27 1 0 0 0 SELECT
25307 70 253 10 0 0 0 253 >SINGLE-RECORD BLOCKS JUMP IF A == 0
25308 4 2 8 0 (ABS MR) SELECT
25309 76 253 11 0 0 0 253 JUMP unconditional
25307>25310 0 7 6 2 0 0 MT SERIAL SELECT
25309>25311 2 9 4 2 0 0 A6 SERIAL SUBTRACT
25312 70 254 2 0 0 0 254 >MT AMENDED JUMP IF A == 0
25313 72 255 2 0 0 0 255 >MT>PT,REPORT JUMP IF A >= 0
25305>25314 80 299 2 0 0 0 299 >TEST MT=END ENTER SUBROUTINE
25315 10 0 0 0 0 SET 'MT INPUT' SELECT LITERAL
25316 5 12 33 0 0 0 TRANSFER
25317 80 303 2 0 0 0 303 >TEST MT=PROCR ENTER SUBROUTINE
25318 80 284 2 0 0 0 284 >UNPACK ENTER SUBROUTINE
25319 80 218 2 0 0 0 218 >CHECK/EDIT/OUTPUT ENTER SUBROUTINE
25320 80 302 2 0 0 0 302 >GET NEXT RECORD ENTER SUBROUTINE
25321 76 253 4 0 0 0 253 JUMP unconditional
25400 PROCR 254 254 SWITCH FOR AMENDMENTS
25401 NOTES RADIX SELECT
25312>
25303>25402 85 254 2 0 0 0 254 SWITCH R
25403 C 256 2 0 0 0 256 >REPLACE
25404 C 257 2 0 0 0 257 >DELETE
25405 C 255 2 0 0 0 255 OMIT PT T
25406 C 255 2 0 0 0 255 A
25500 PROCR 255 255 DEAL WITH OUT-OF-SEQUENCE DIRECTIVE
25501 NOTES RADIX SELECT
25406>
25405>
25313>25502 1 4 1 0 0 AMENDMENT MODS ARE SELECT
25503 124 318 22 0 1 0 318 modify address of next
25504 124 305 10 0 1 0 305 modify address of next
25505 5 29 0 1 0 0 REPORT WORD TRANSFER
25506 34 1 2 1 0 0 SERIAL SET (N) IN B
25743>
Source image: P1030216.JPG
25745>25507 80 259 2 0 0 0 259 PUT ERROR REPORT ENTER SUBROUTINE
25508 10 0 0 0 1:5: '??' OF 5-DIGIT SELECT LITERAL
25509 3 27 6 0 0 0 SET 'PT OMITTED' COPY
25510 35 0 0 0 1111 SERIAL AND PREPARE FOR DIGIT COLLATION
25511 124 318 22 0 1 0 318 modify address of next
25512 124 305 10 0 1 0 305 modify address of next
25513 37 29 0 1 0 0 REPORT WORD REPLACE SELECTED BITS
25516>25514 80 292 2 0 0 0 292 INPUT ON PAPER ENTER SUBROUTINE
25515 80 294 2 0 0 0 294 FIND DIRECTIVE ENTER SUBROUTINE
25516 70 255 14 0 0 0 255 >READ/IGNORE PT TO NEXT DIRECTIVE JUMP IF A == 0
25517 76 253 4 0 0 0 253 >MAKE THIS AMENDMENT JUMP unconditional
25600 PROCR 256 256 REPLACE
25601 NOTES RADIX SELECT
25403>25602 9 50 2 0 0 'PASS 0' IND SELECT
25603 71 256 34 0 0 0 256 >REJECT JUMP IF A != 0
25604 27 5 0 0 0 'UNPACK' SWITCH SELECT
25605 5 296 2 0 0 0 296 WL TRANSFER
25606 80 303 2 0 0 0 303 >TEST MT=PROCR ENTER SUBROUTINE
25607 0 12 38 0 0 0 SELECT
25608 5 227 2 0 0 0 227 WL TRANSFER
25609 80 293 2 0 0 0 293 >TEST PT=STACK DIRECTIVE ENTER SUBROUTINE
25610 0 12 38 0 0 0 IS REPLACING BLOCK STACK DIR, OR NO SELECT
25611 2 227 2 0 0 0 227 ARE BOTH BLOCKS SIMILAR? SUBTRACT
25612 71 256 29 0 0 0 256 >NO,ILLEGAL? JUMP IF A != 0
25631>25613 10 0 0 0 1 SET AS PT INPUT SELECT LITERAL
25614 5 12 33 0 0 0 TRANSFER
25615 80 283 2 0 0 0 283 >UNPACK PT ENTER SUBROUTINE
25616 80 299 2 0 0 0 299 >DONT REPLACE END SIGN ENTER SUBROUTINE
25617 0 12 38 0 0 0 SELECT
25618 72 256 25 0 0 0 256 >NOT PT DIRECTIVE JUMP IF A >= 0
25619 27 1 0 0 0 SELECT
25620 70 256 23 0 0 0 256 >1 RECORD PER BLOCK JUMP IF A == 0
25621 14 1 8 0 SELECT
25622 76 256 24 0 0 0 256 JUMP unconditional
25620>25623 0 7 16 1 0 0 SELECT
25622>25624 5 1 8 1 0 0 TRANSFER MT PROCR NUMBER TRANSFER
25618>25625 80 302 2 0 0 0 302 >GET NEXT A1 RECORD ENTER SUBROUTINE
25626 80 218 2 0 0 0 218 >CHECK/EDIT/OUTPUT ENTER SUBROUTINE
25627 80 292 2 0 0 0 292 >READ PT ENTER SUBROUTINE
25628 76 253 2 0 0 0 253 JUMP unconditional
25612>25629 0 12 38 0 0 0 PT DIRECTIVE SELECT
25630 1 227 2 0 0 0 227 MT DIRECTIVE ADD
25631 72 256 13 0 0 0 256 >NEITHER IS STACK DIRECTIVE,ALLOW REPLACJUMP IF A >= 0
25632 296 2 0 0 0 296 SELECT
25633 5 27 5 0 0 0 RESTORE SWITCH TRANSFER
25603>25634 10 0 0 0 69 'R' SELECT LITERAL
25635 76 257 36 0 0 0 257 >REPORT JUMP unconditional
25700 PROCR 257 257 DELETION LOOP
25701 NOTES RADIX SELECT
25404>25702 80 299 2 0 0 0 299 >END SIGN ON MT? ENTER SUBROUTINE
25703 9 4 1 0 0 SELECT
25704 5 1 0 1 0 0 STORE SERIAL TRANSFER
25705 9 50 2 0 0 'PASS 0' IND SELECT
25706 71 257 35 0 0 0 257 >REPORT JUMP IF A != 0
25707 80 292 2 0 0 0 292 >READ PT ENTER SUBROUTINE
25708 80 294 2 0 0 0 294 >TEST DIRECTIVE ENTER SUBROUTINE
25709 71 257 46 0 0 0 257 >YES(SINGLE-LINE DELETE) JUMP IF A != 0
25710 9 50 2 0 0 PASS 0 IND SELECT
Source image: P1030217.JPG
25711 71 257 35 0 0 0 257 >MOD REJECTED JUMP IF A != 0
25712 27 1 0 0 0 SELECT
25713 70 257 16 0 0 0 257 >1 RECORD/BLOCK JUMP IF A == 0
25714 4 2 8 0 SELECT
25715 76 257 17 0 0 0 257 JUMP unconditional
25713>25716 7 6 2 0 0 MT SERIAL SELECT
25715>25717 30 0 0 0 8 SHIFT (A) BY QUARTETS
25718 70 257 20 0 0 0 257 >DIRECTIVE DELETED JUMP IF A == 0
25719 80 220 2 0 0 0 220 >SET'PRINT PROCEDURE' ENTER SUBROUTINE
25734>
25718>25720 80 302 2 0 0 0 302 ENTER SUBROUTINE
25721 80 299 2 0 0 0 299 >GET NEXT RECORD ENTER SUBROUTINE
25722 27 1 0 0 0 >TEST END SELECT
25723 70 257 26 0 0 0 257 JUMP IF A == 0
25724 4 2 8 0 SELECT
25725 76 257 27 0 0 0 257 JUMP unconditional
25723>25726 7 6 2 0 0 MT SERIAL SELECT
25725>25727 2 1 2 2 0 0 PT SERIAL SUBTRACT
25728 71 257 34 0 0 0 257 JUMP IF A != 0
25729 80 302 2 0 0 0 302 >GET NEXT MT RECORD ENTER SUBROUTINE
25730 80 292 2 0 0 0 292 >READ PT(NEXT DIRECTIVE) ENTER SUBROUTINE
25731 80 294 2 0 0 0 294 >TEST DIRECTIVE ENTER SUBROUTINE
25732 71 253 4 0 0 0 253 >YES JUMP IF A != 0
25733 76 257 35 0 0 0 257 >REJECT JUMP unconditional
25728>25734 73 257 20 0 0 0 257 >LOOP JUMP IF A < 0
25733>
25711>
25706>25735 10 0 0 0 54 'D' REPORT SELECT LITERAL
25635>25736 30 0 0 0 8 SHIFT (A) BY QUARTETS
25737 124 318 22 0 1 0 318 modify address of next
25738 124 305 10 0 1 0 305 modify address of next
25739 5 29 0 1 0 0 REPORT WORD TRANSFER
25740 27 1 0 0 0 SELECT
25741 70 257 44 0 0 0 257 >1 RECORD/BLOCK JUMP IF A == 0
25742 34 4 1 8 0 SET (N) IN B
25743 76 255 7 0 0 0 255 JUMP unconditional
25741>25744 34 7 6 1 0 0 SERIAL BEING DELETED SET (N) IN B
25745 76 255 7 0 0 0 255 >REPORT JUMP unconditional
25709>25746 27 1 0 0 0 SELECT
25747 70 257 50 0 0 0 257 JUMP IF A == 0
25748 4 2 8 0 SELECT
25749 76 257 51 0 0 0 257 JUMP unconditional
25747>25750 7 6 2 0 0 SELECT
25749>25751 30 0 0 0 8 SHIFT (A) BY QUARTETS
25752 70 257 54 0 0 0 257 JUMP IF A == 0
25753 80 220 2 0 0 0 220 ENTER SUBROUTINE
25761>
25752>25754 80 302 2 0 0 0 302 >GET RECORD AFTER DELETING ONE ENTER SUBROUTINE
25755 27 1 0 0 0 SELECT
25756 70 257 59 0 0 0 257 JUMP IF A == 0
25757 4 2 8 0 SELECT
25758 76 257 60 0 0 0 257 JUMP unconditional
25756>25759 7 6 2 0 0 SELECT
25758>25760 2 1 0 2 0 0 PT SERIAL FOR DELETION SUBTRACT
25761 70 257 54 0 0 0 257 >DELETE ALL BLOCKS THIS SERIAL JUMP IF A == 0
25762 76 253 2 0 0 0 253 JUMP unconditional
25800 PROCR 258 258 ENTRY TO 'UNPACK 'SR TO AVOID CLEARING SEC 1
25802 81 258 2 0 0 0 258 START OF SUBROUTINE
25803 0 258 2 0 0 0 258 SELECT
Source image: P1030218.JPG
25804 5 284 2 0 0 0 284 PLANT LINK TRANSFER
25805 76 284 4 0 0 0 284 AVOID BULK CLEAR 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 318 22 0 1 0 318 modify address of next
25904 124 305 2 0 1 0 305 modify address of next
25905 29 15 0 0 0 LAST 2½ CHARS ANNOTATION SELECT
25906 2 318 27 0 0 0 318 SUBTRACT
25907 70 259 14 0 0 0 259 >LINE IGNORED,DON T OVERWRITE WORD JUMP 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 318 22 0 1 0 318 modify address of next
25911 124 305 2 0 1 0 305 modify address of next
25912 5 29 14 1 0 0 LAST 5 CHARS ANNOTATION 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 318 22 0 1 0 318 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
22213>26002 5 12 69 0 0 0 TRANSFER
26003 5 12 66 1 0 0 CLEAR INDICATOR TRANSFER
26004 5 12 70 0 0 0 TRANSFER
26005 84 495 2 0 0 0 495 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
Source image: P1030219.JPG
26109 12 70 0 0 0 SELECT
26110 71 261 2 0 0 0 261 >NO, DON T 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
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 05 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 495 2 0 0 1 495 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 SET SWITCH(ES) AT LITERAL VALUE
26220 80 263 10 0 0 0 263 >IGNORE UNDIRECTED CONST ENTER SUBROUTINE
26218>
26216>
26204>26221 12 88 0 0 0 >CLEAR OUT ALL DETAILS SELECT
26222 76 263 10 0 0 0 263 >SET SWITCH AT 2 JUMP unconditional
26207>26223 80 263 10 0 0 0 263 ENTER SUBROUTINE
26224 76 263 20 0 0 0 263 CLEAR DETAILS 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 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' DIRECTIVE LETTER EXPECT
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
Source image: P1030220.JPG
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
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 495 2 0 0 0 495 WL=LOCN OF SEOND 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 495 2 0 0 0 495 WL=LOCN OF SEOND CHAR SET SWITCH(ES) AT VARIABLE VALUE
26355 10 0 0 0 1 RANDC SELECT LITERAL
26349>26356 11 0 0 0 1 R 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 NEST 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>
Source image: P1030221.JPG
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>
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 >OK JUMP IF A == 0
26423 12 0 0 0 1 SUBTRACT LITERAL
26424 70 264 8 0 0 0 264 >OK JUMP IF A == 0
26425 76 264 14 0 0 0 264 >REPORT JUMP unconditional
26407>26426 12 88 0 0 0 CAHR 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 ASSEMBLER 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 B 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 B 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
Source image: P1030222.JPG
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 COMMASX2 SELECT
26509 70 265 14 0 0 0 265 >OK 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 >OK 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
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 495 2 0 0 0 495 SELECT SWITCH R
26523 70 265 44 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 44 0 0 0 265 >SECTION JUMP IF A < 0
26528 12 0 0 0 899 SUBTRACT LITERAL
26529 72 265 44 0 0 0 265 >EX RANGE JUMP IF A >= 0
26530 0 12 67 0 0 0 SELECT
26531 62 0 0 0 0 SET EXCESS CONSTANTS
26532 32 0 0 0 2- REPLACE 3-DIGIT NUMBER SHIFT (AB) BY QUARTETS
26533 5 94 1- 0 1 0 (FIRST DIGIT ALWAYS NONZERO) TRANSFER
26534 32 0 0 0 1 SHIFT (AB) BY QUARTETS
26535 71 265 37 0 0 0 265 JUMP IF A != 0
26536 10 0 0 0 30 SELECT LITERAL
26535>26537 5 94 0 0 1 0 TRANSFER
26538 32 0 0 0 1 SHIFT (AB) BY QUARTETS
26539 71 265 41 0 0 0 265 JUMP IF A != 0
26540 10 0 0 0 30 SELECT LITERAL
26539>26541 5 94 1 0 1 0 TRANSFER
26542 54 1 6 0 0 18 BULK CLEAR
26543 76 265 80 0 0 0 265 >ASSEMBLE JUMP unconditional
26529>
26527>
26523>26544 0 12 33 0 0 0 SELECT
26545 70 266 17 0 0 0 266 >MT JUMP IF A == 0
26546 54 1 6 0 0 18 CLEAR 1/6'-1/22'=EDIT AREA BULK CLEAR
26547 87 27 10 0 0 0 SWITCH ACCORDING TO N
26548 C 265 80 0 0 0 265 >PT
26549 C 265 50 0 0 0 265 >CARDS
26549>26550 94 61 0 0 0 DIRECTIVE CTR SELECT
26551 12 0 0 0 4 SUBTRACT LITERAL
26552 72 265 69 0 0 0 265 >MIXED CONST JUMP IF A >= 0
26553 86 267 2 0 0 0 267 SELECT SWITCH R
26554 12 0 0 0 1 SUBTRACT LITERAL
26555 71 265 69 0 0 0 265 >NOT ALPHA JUMP IF A != 0
26556 94 0 0 0 0 FIRST CHAR SELECT
26557 12 0 0 0 7Ю SUBTRACT LITERAL
26558 70 265 60 0 0 0 265 >'(' JUMP IF A == 0
26559 10 0 0 0 3- SELECT LITERAL
26558>26560 11 0 0 0 3 ADD LITERAL
26561 17 12 90 0 0 3 LONG/SHORT CTR MULTIPLY LITERAL and ADD
26562 11 0 0 0 1.00002 END VALUE 30 ADD LITERAL
Source image: P1030223.JPG
26563 3 12 70 0 0 0 NEW CONSTANTS LENGTH COPY
26564 91 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE
26565 10 0 0 0 7: SELECT LITERAL
26567>26566 5 94 0 0 1 0 TRANSFER
26567 94 265 66 0 1 1 265 >CLEAR REST OF CONSTANT STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
26568 76 265 80 0 0 0 265 JUMP unconditional
26555>
26552>26569 90 0 0 1 28 SET MODIFICATION REGISTER AT LITERAL
26570 C 0 0 0 0
26573>26571 94 0 0 1 0 SELECT
26572 71 265 74 0 0 0 265 >FIRST NONZERO CHAR FROM END JUMP IF A != 0
26573 94 265 71 0 1 1- 265 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
26572>26574 10 0 0 0 7: SELECT LITERAL
26575 5 94 1 0 1 0 SET NEW CONST END TRANSFER
26576 5 94 29 0 0 0 CLEAR OLD END TRANSFER
26577 96 0 0 1 0 SELECT MODIFIER
26578 11 0 0 0 1 ADD LITERAL
26579 5 12 70 0 0 0 NEW NUMBER OF CHARS TRANSFER
26616>
26568>
26548>
26543>26580 94 0 0 2 0 SELECT
26600 PROCR 266 266
26601 NOTES RADIX SELECT
26602 30 0 0 0 2 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 80 0 0 0 265 >CYCLE FOR MULTIPLE OF 5 JUMP IF A < 0
26545>26617 1 42 1 0 0 SELECT
26618 2 318 26 1 0 0 318 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 249 2 0 0 0 249 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 249 2 0 0 0 249 >CONST IS MIXED OR CONTAINS (E) 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Ю 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‼ )' 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
Source image: P1030224.JPG
26701 NOTES RADIX 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 13 0 0 0 267 >REPORT R JUMP IF A >= 0
26711 11 0 0 0 £67 1000-99 BIN RADIX ADD LITERAL
26712 72 267 15 0 0 0 267 >REF IS A PROCR JUMP IF A >= 0
26710>26713 80 225 2 0 0 0 225 >REPORT R ENTER SUBROUTINE
26714 76 249 2 0 0 0 249 JUMP unconditional
26712>26715 12 66 0 0 0 ITEM SELECT
26716 12 0 0 0 99 SUBTRACT LITERAL
26717 72 245 21 0 0 0 245 >REPORT I JUMP IF A >= 0
26718 76 249 2 0 0 0 249 >OK JUMP unconditional
26800 PROCR 268 268 CHECK ALPHA CONSTANTS
26801 NOTES RADIX SELECT
26703>26802 00 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 249 2 0 0 0 249 >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 00 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 BEFORE 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
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 CHAR TRANSFER
27011 0 12 66 1 0 0 SELECT
Source image: P1030225.JPG
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 00 12 90 0 0 0 LONG/SHORT CONST IND SELECT
27103 71 249 2 0 0 0 249 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 249 2 0 0 0 249 JUMP unconditional
27200 PROCR 272 272 BINARY PATTERN
27201 NOTES RADIX SELECT
26706>27202 00 12 90 0 0 0 LONG/SHORT CONST 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 249 2 0 0 0 249 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 OF 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
27506 5 234 2 0 0 0 234 TRANSFER
27507 76 234 5 0 0 0 234 >ENTER JUMP unconditional
27600 PROCR 276 276 TABLES
27601 NOTES RADIX SELECT
22212>27602 05 12 3 0 0 0 CLEAR ERROR WL TRANSFER
27603 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
Source image: P1030226.JPG
27604 C 0 0 0 8
27621>27605 0 1 22 0 2 0 ITEM SELECT
27606 05 1 10 0 0 0 TRANSFER
27607 00 1 20 1 2 0 REF(NUM) SELECT
27608 80 275 2 0 0 0 275 >UPDATE ADDRESS ENTER SUBROUTINE
27609 00 1 10 0 0 0 NEW ITEM SELECT
27610 05 1 22 0 2 0 TRANSFER
27611 00 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 21 0 0 0 276 > JUMP IF A == 0
27616 10 0 0 0 1 1 SELECT LITERAL
27617 32 0 0 0 10- >B SHIFT (AB) BY QUARTETS
27618 36 1 10 0 0 0 ITEM COLLATE AND ADD
27619 70 276 21 0 0 0 276 >EVEN JUMP IF A == 0
27620 80 226 2 0 0 0 226 >REPORT I ENTER SUBROUTINE
27619>
27615>27621 94 276 5 0 2 4 276 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
27622 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 173 2 0 0 1 173 SET SWITCH(ES) AT LITERAL VALUE
27704 12 4 0 0 0 REF TO BE CHECKED SELECT
27705 70 277 14 0 0 0 277 OK JUMP IF A == 0
27706 12 0 0 0 100 SUBTRACT LITERAL
27707 72 277 12 0 0 0 277 >NOT SECTION JUMP IF A >= 0
27713>27708 80 225 2 0 0 0 225 >REPORT R ENTER SUBROUTINE
27709 80 295 2 0 0 0 295 >IGNORE ENTER SUBROUTINE
27710 83 173 2 0 0 2 173 IGNORE ANY MORE 'VALTHIS REF FOR SET SWITCH(ES) AT LITERAL VALUE
27711 76 277 14 0 0 0 277 JUMP unconditional
27707>27712 12 0 0 0 900 SUBTRACT LITERAL
27713 72 277 8 0 0 0 277 >REF>999,IGNORE JUMP IF A >= 0
27711>
27705>27714 82 277 2 0 0 0 277 END OF SUBROUTINE / LEAVE SUBROUTINE
27800 PROCR 278 278 TABLE SWITCH
27801 NOTES RADIX SELECT
27622>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 2 0 0 0 281
27813 C 249 2 0 0 0 249
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
Source image: P1030227.JPG
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 SECOND 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 >IN CONSISTENT 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
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 SPACES 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 INDICTOR SELECT
28013 71 280 17 0 0 0 280 JUMP IF A != 0
28014 2 12 63 0 0 0 STERLING CTR SUBTRACT
28015 70 280 24 0 0 0 280 >OK 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 IND SELECT
28025 3 12 6 0 0 0 COPY TO WL COPY
28026 70 249 2 0 0 0 249 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 CTR AT EACH LTE TRANSFER
28036 2 12 63 0 0 0 STERLING INDICATORAS NOT SUBTRACT
28037 70 249 2 0 0 0 249 OCCURRED IN 3 CONSECUTIVE LINES JUMP IF A == 0
Source image: P1030228.JPG
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
27812>
27810>28102 1 11 0 0 0 'SINGLE/BE' SELECT
28103 70 281 8 0 0 0 281 JUMP IF A == 0
28104 12 0 0 0 1 SUBTRACT LITERAL
28105 71 282 16 0 0 0 282 JUMP IF A != 0
28106 1 18 0 0 0 'LAST TABLE ENTRY' SELECT
28107 70 282 2 0 0 0 282 JUMP IF A == 0
28103>28108 1 12 0 0 0 NO OF CHARS SELECT
28109 71 282 14 0 0 0 282 JUMP IF A != 0
28110 1 13 0 0 0 DISCARDS SELECT
28111 71 282 12 0 0 0 282 JUMP IF A != 0
28112 1 14 0 0 0 SPACES SELECT
28113 71 282 10 0 0 0 282 JUMP IF A != 0
28114 1 15 0 0 0 ZEROS SELECT
28115 71 282 8 0 0 0 282 JUMP IF A != 0
28116 1 16 0 0 0 SIGN SELECT
28117 70 281 20 0 0 0 281 JUMP IF A == 0
28118 12 0 0 0 2 SUBTRACT LITERAL
28119 71 282 6 0 0 0 282 JUMP IF A != 0
28117>28120 1 17 0 0 0 STERLING IND SELECT
28121 71 282 4 0 0 0 282 JUMP IF A != 0
28122 76 249 2 0 0 0 249 JUMP unconditional
28200 PROCR 282 282 MAKE REPORT'T*'
28201 NOTES RADIX SELECT
28107>
28028>28202 10 0 0 0 1 T13 SELECT LITERAL
28203 5 12 3 0 0 0 TRANSFER
28121>
28039>
28018>28204 10 0 0 0 1 T12 SELECT LITERAL
28205 4 12 3 0 0 0 AUGMENT
28119>28206 10 0 0 0 1 T11 SELECT LITERAL
28207 4 12 3 0 0 0 AUGMENT
28115>
28011>
27926>28208 10 0 0 0 1 T10 SELECT LITERAL
28209 4 12 3 0 0 0 AUGMENT
28113>
28004>28210 10 0 0 0 1 T9 SELECT LITERAL
28211 4 12 3 0 0 0 AUGMENT
28111>28212 10 0 0 0 1 T8 SELECT LITERAL
28213 4 12 3 0 0 0 AUGMENT
28109>
28006>
27922>28214 10 0 0 0 1 T7 SELECT LITERAL
28215 4 12 3 0 0 0 AUGMENT
28105>
27914>28216 10 0 0 0 1 T6 SELECT LITERAL
28217 4 12 3 0 0 0 AUGMENT
27805>
27803>28218 10 0 0 0 1 T5 SELECT LITERAL
28219 4 12 3 0 0 0 AUGMENT
28220 10 0 0 0 1 T4 SELECT LITERAL
28221 4 12 3 0 0 0 AUGMENT
Source image: P1030235.JPG
27912>28222 10 0 0 0 2 T3 SELECT LITERAL
28223 4 12 3 0 0 0 AUGMENT
27807>28224 10 0 0 0 1 T1 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
23121>28229 10 0 0 0 730000 SELECT LITERAL
28230 4 1 44 1 0 0 AUGMENT
28231 76 249 2 0 0 0 249 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 P/T
28308 C 283 31 0 0 0 283 CARDS
28307>28309 00 92 30 0 0 0 AMEND RUN? SELECT
28310 70 283 13 0 0 0 283 >NO 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 325 2 0 0 0 325 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 00 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 05 1 8 1 0 0 & MUST BE UNPACKED DIFFERENTLY TRANSFER
28322 00 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 325 2 0 0 0 325 UNPACK CORRECTLY ENTER SUBROUTINE
28339>
28342>
28506>
28606>
28609>
28614>
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 00 1 8 1 0 0 SELECT
28336 30 0 0 0 4 LEFT ALIGN SECTION NO SHIFT (A) BY QUARTETS
28337 05 1 8 1 0 0 TRANSFER
28338 00 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
Source image: P1030236.JPG
28342 71 283 28 0 0 0 283 >NOT 'PROCR', LEAVE SR JUMP IF A != 0
28343 00 1 18 1 0 0 S/DIR WAS ''NOTES'' OF PROCR SELECT
28344 05 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
28402 81 284 2 0 0 0 284 START OF SUBROUTINE
28403 54 1 6 1 0 40 BULK CLEAR
25805>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 UNPACK PAPER TAPE PART TWO
28501 NOTES RADIX SELECT
Source image: P1030237.JPG
28305>28502 87 27 5 0 0 0 SWITCH ACCORDING TO N
28503 C 286 2 0 0 0 286 >'PROCR'
28504 C 286 7 0 0 0 286 >'TABLE'
28505 C 286 10 0 0 0 286 >'CONST'
28506 C 283 28 0 0 0 283 'VALUE'(DUMMY)
28600 PROCR 286 286 UNPACK PAPER TAPE PART THREE
28601 NOTES RADIX SELECT
28503>28602 124 312 2 0 2 0 312 select literal and division
28603 80 325 2 0 0 0 325 >INSTRUCTIONS ENTER SUBROUTINE
28604 10 0 0 0 0 SELECT LITERAL
28605 5 1 20 1 0 0 CLEAR'CLEO'WORD TRANSFER
28606 76 283 28 0 0 0 283 JUMP unconditional
28504>28607 124 313 2 0 2 0 313 select literal and division
28608 80 325 2 0 0 0 325 >TABLE ENTRIES ENTER SUBROUTINE
28609 76 283 28 0 0 0 283 JUMP unconditional
28505>28610 124 314 2 0 2 0 314 select literal and division
28611 80 325 2 0 0 0 325 >CONSTANTS ENTER SUBROUTINE
28612 50 9 4 0 0 0 UNPACK FIXED FIELD DATA
28613 C 310 8 0 0 0 310
28614 76 283 28 0 0 0 283 JUMP unconditional
28700 PROCR 287 287 TEST WORD IN ACCUMULATOR
28701 NOTES RADIX IS A STACKING WORD SELECT
28702 81 287 2 0 0 0 287 START OF SUBROUTINE
28703 2 318 4 1 0 0 318 '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 318 4 1 0 0 318 ADD
28707 02 318 12 1 0 0 318 'NOTES' SUBTRACT
28708 71 287 14 0 0 0 287 >NO 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
28712 10 0 0 0 10 SET (12/38)>0 SELECT LITERAL
28713 76 287 33 0 0 0 287 JUMP unconditional
28708>28714 01 318 12 1 0 0 318 'NOTES' ADD
28715 02 318 6 1 0 0 318 '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 01 318 6 1 0 0 318 'PROCR' ADD
28719 02 318 2 1 0 0 318 '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 01 318 2 1 0 0 318 'TABLE' ADD
28723 02 318 28 1 0 0 318 '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 JUMP IF A != 0
28727 10 0 0 0 1 >PT IN,'VALUE' ISNT A DIRECTIVE SELECT LITERAL
28705>28728 11 0 0 0 1 ADD LITERAL
28720>28729 11 0 0 0 1 (CONST) ADD LITERAL
28716>28730 11 0 0 0 1 (TABLE) ADD LITERAL
28731 5 27 5 0 0 0 (PROCR) TRANSFER
28732 12 0 0 0 10 SUBTRACT LITERAL
28713>28733 05 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>
Source image: P1030238.JPG
28704>28735 10 0 0 0 0 SELECT LITERAL
28736 05 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 CARD SER ERROR SELECT
28804 70 288 11 0 0 0 288 >NO ERROR JUMP IF A == 0
28805 12 111 0 0 0 SELECT
28806 70 288 10 0 0 0 288 JUMP IF A == 0
28807 124 318 22 0 1 0 318 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
28815>28813 29 2- 1 1 0 LAST WORD SELECT
28814 71 288 16 0 0 0 288 >NON-ZERO JUMP IF A != 0
28815 94 288 13 0 1 2- 288 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
28814>28816 96 0 0 1 0 CONTENTS OF MODIFIER SELECT MODIFIER
28817 3 29 0 2 0 0 REC LENGTH COPY
28818 10 0 0 0 90 TOTAL ROOM SEC 8 SELECT LITERAL
28819 2 317 12 0 0 0 317 SUBTRACT
28820 2 29 0 2 0 0 CURRENT RECORD LENGTH SUBTRACT
28821 72 288 30 0 0 0 288 >+VE OR ZERO JUMP IF A >= 0
32405>28822 317 12 0 0 0 317 SELECT
28823 3 8 4 2 0 0 BLOCK LENGTH COPY
28824 91 317 12 0 1 0 317 SET MODIFICATION REGISTER AT VARIABLE
28825 318 10 1 0 0 318 BE WORD SELECT
28826 5 8 6 1 1 0 TRANSFER
28827 80 290 2 0 0 0 290 >WRITE ENTER SUBROUTINE
28828 54 8 4 1 0 46 BULK CLEAR
28829 5 317 12 0 0 0 317 CLEAR TRANSFER
28821>28830 10 0 0 0 6 SELECT LITERAL
28831 5 12 2 0 0 0 TRANSFER
28832 91 317 12 0 1 0 317 SET MODIFICATION REGISTER AT VARIABLE
28833 55 29 0 1 0 0 COPY TO SEC 8 BULK COPY
28834 C 8 6 1 1 0
28835 C 29 0 2 0 0
28836 29 0 2 0 0 SELECT
28837 4 317 12 0 0 0 317 STEP QTTY IN BLOCK TO DATE AUGMENT
28838 54 29 0 1 0 44 CLEAR SEC 29 BULK CLEAR
28839 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 318 10 1 0 0 318 SELECT
28904 5 8 50 1 0 0 BEW 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
Source image: P1030239.JPG
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
29203 80 301 2 0 0 0 301 >READ A6 ENTER SUBROUTINE
29204 9 4 1 0 0 SELECT
29205 2 318 46 1 0 0 318 'TRAMD' SUBTRACT
29206 70 292 19 0 0 0 292 >DONT INSERT BE JUMP IF A == 0
29207 34 9 48 2 0 0 SET (N) IN B
29208 10 0 0 0 0 SELECT LITERAL
29209 32 0 0 0 7 SHIFT (AB) BY QUARTETS
29210 5 319 42 1 0 0 319 WORD CTR TRANSFER
29211 91 319 42 0 1 0 319 SET MODIFICATION REGISTER AT VARIABLE
29212 32 0 0 0 3 SHIFT (AB) BY QUARTETS
29213 5 288 2 0 0 0 288 COL POSN>WL TRANSFER
29214 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
29215 10 0 0 0 7. SELECT LITERAL
29216 124 288 2 0 1 0 288 modify address of next
29217 32 0 0 0 0 ///// SHIFT (AB) BY QUARTETS
29218 37 9 0 1 1 0 REPLACE SELECTED BITS
29206>29219 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 124 311 2 0 2 0 311 select literal and division
29305 80 325 2 0 0 0 325 ENTER SUBROUTINE
29306 1 6 1 0 0 SELECT
29307 80 287 2 0 0 0 287 >TEST DIRECTIVE ENTER SUBROUTINE
29308 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 318 14 1 0 0 318 'END ' SUBTRACT
29407 70 294 11 0 0 0 294 JUMP IF A == 0
29408 9 4 1 0 0 SELECT
29409 2 318 46 1 0 0 318 '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 34 0 0 0 294 JUMP unconditional
29410>29413 10 0 0 0 0 CLEAR LOCATION TO WHICH SELECT LITERAL
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 325 2 0 0 0 325 >UNPACK AMEND LETTER ENTER SUBROUTINE
29417 34 1 4 1 0 0 SET (N) IN B
29418 10 0 0 0 0 SELECT LITERAL
29419 32 0 0 0 2 SHIFT (AB) BY QUARTETS
29420 12 0 0 0 69 SUBTRACT LITERAL
29421 70 294 31 0 0 0 294 JUMP IF A == 0
Source image: P1030240.JPG
29422 11 0 0 0 15 ADD LITERAL
29423 70 294 30 0 0 0 294 JUMP IF A == 0
29424 12 0 0 0 19 SUBTRACT LITERAL
29425 70 294 29 0 0 0 294 JUMP IF A == 0
29426 11 0 0 0 22 ADD LITERAL
29427 71 294 36 0 0 0 294 JUMP IF A != 0
29428 10 0 0 0 1 SELECT LITERAL
29425>29429 11 0 0 0 1 ADD LITERAL
29423>29430 11 0 0 0 1 ADD LITERAL
29421>29431 11 0 0 0 1 ADD LITERAL
29432 84 254 2 0 0 0 254 SET SWITCH(ES) AT VARIABLE VALUE
29433 10 0 0 0 1 SELECT LITERAL
29437>
29412>29434 3 12 44 1 0 0 COPY
29435 82 294 2 0 0 0 294 END OF SUBROUTINE / LEAVE SUBROUTINE
29427>29436 10 0 0 0 0 SELECT LITERAL
29437 76 294 34 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 318 26 1 0 0 318 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 318 26 1 0 0 318 SELECT
29604 124 318 22 0 1 0 318 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 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
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 00 7 10 1 0 0 SELECT
29906>29908 2 318 14 1 0 0 318 SUBTRACT
29909 70 321 2 0 0 0 321 JUMP IF A == 0
29910 82 299 2 0 0 0 299 END OF SUBROUTINE / LEAVE SUBROUTINE
30000 PROCR 300 300 LEFT ALIGN SUB-ROUTINE
Source image: P1030241.JPG
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
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 32 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
Source image: P1030242.JPG
30420 70 304 29 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 71 304 26 0 0 0 304 >NOT'PROCR' JUMP IF A != 0
30424 12 38 0 0 0 SELECT
30425 73 304 47 0 0 0 304 >NOT NOTES OF PROCR JUMP IF A < 0
30423>30426 28 14 1 0 0 CONST/TABLE TYPE OR RADIX LETTER SELECT
30427 5 1 16 1 0 0 TRANSFER
30428 76 304 47 0 0 0 304 JUMP unconditional
30420>30429 55 28 14 1 0 26 ANNOTATION ETC EVEN IF ABSENT BULK COPY
30430 C 1 16 1 0 0
30431 76 304 47 0 0 0 304 JUMP unconditional
30405>30432 27 5 0 0 0 SELECT
30433 12 0 0 0 4 SUBTRACT LITERAL
30434 70 304 61 0 0 0 304 >VALUES JUMP IF A == 0
30435 0 2 8 0 SELECT
30436 3 319 42 0 0 0 319 LENGTH COPY
30437 124 27 5 0 1 0 modify address of next
30438 2 305 2 0 0 0 305 (MAX DATA LENGTH+2) SUBTRACT
30439 72 304 49 0 0 0 304 >RECORD HAS ANNOTATION JUMP IF A >= 0
30440 319 42 0 0 0 319 SELECT
30460>30441 30 0 0 0 5 SHIFT (A) BY QUARTETS
30442 98 0 0 8 0 DATA START ADD MODIFICATION REGISTER TO A
30443 128 28 0 1 1 0 COPY RECORD bulk copy long numeric
30444 124 27 5 0 1 0 modify address of next
30445 305 6 0 0 0 305 SELECT
30446 128 28 2 0 2 0 UNPACK>SEC1 unpack fixed field data
30467>
30431>
30428>
30425>30447 60 0 0 0 0 SET DECIMAL RADIX
30448 82 284 2 0 0 0 284 END OF SUBROUTINE / LEAVE SUBROUTINE
30439>30449 5 319 43 0 0 0 319 ANNOTATION LENGTH ANNOTATED DATA TRANSFER
30450 12 86 0 0 0 SELECT
30451 71 304 58 0 0 0 304 >JUST HERE TO UNPACK NUMBERS JUMP IF A != 0
30452 319 43 0 0 0 319 SELECT
30453 30 0 0 0 5 SHIFT (A) BY QUARTETS
30454 98 0 0 8 0 ADD MODIFICATION REGISTER TO A
30455 124 27 5 0 1 0 modify address of next
30456 1 305 2 0 0 0 305 DATA LENGTH+2 ADD
30457 128 1 28 1 1 0 COPY ANNOTATION bulk copy long numeric
30451>30458 124 27 5 0 1 0 modify address of next
30459 305 2 0 0 0 305 SELECT
30460 76 304 41 0 0 0 304 >UNPACK NUMBERS JUMP unconditional
30434>30461 0 2 8 0 LENGTH VALUES SELECT
30462 12 0 0 0 6 SUBTRACT LITERAL
30463 30 0 0 0 5 SHIFT (A) BY QUARTETS
30464 98 0 0 8 0 START ADD MODIFICATION REGISTER TO A
30465 11 0 0 0 7 ADD LITERAL
30466 128 1 9 1 0 0 ALPHA>NUM bulk copy alpha to short
30467 76 304 47 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 (C)308:0;
30508 309:0;
Source image: P1030243.JPG
30509 310:0; DIRECTIVES-PASS 1 REPORTS
30510 (B)12; ORDERS
30511 22; TABLE
30512 22; CONST
30513 26; VALUE
30514 42;
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
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 SERAL
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
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 SERAL
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
Source image: P1030244.JPG
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' ONWARDS
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+TYPE
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 TABLE ENTRIES
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
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 DIRECTIVE
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
31301 NOTES FROM P/T OR CARDS
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 UNPACKCONSTANT (FIRST STAGE)
31401 NOTES FROM P/T OR CARDS
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)
Source image: P1030245.JPG
31406 1 28 0 0 2 0 5 0 0 0 0 0 1
31500 TABLE 315 315 1 EDIT ALL BUT TRIAL DATA
31501 NOTES
31502 1 9 0 0 0 0 5 0 0 4 0 0 0
31504 1 10 0 0 0 0 5 0 0 4 1 0 1
31600 CONST 316 316 0 CHECKING CONSTANTS FOR INSTRUCTIONS
31602 (D)83‼91;
31603 00‼11;
31604 ££000;
31605 (R)18:2496; FOR SEQUENCE CHANGES
31606 (R)18:0;
31607 (R)93:0;
31608 (R)14:0;
31609 (D)0; ZERO IF RT9 PRINTER
31700 CONST 317 317 0 MISC
31702 (D)2;
31703 10000; BIT 17
31704 £££; Q1-3
31705 70; BITS 5-7
31706 7; BITS 1-3
31707 8; BIT 4
31708 80; BIT 8
31709 £00; Q3
31710 4; BIT3
31711 0; FIRST RECORD INDICATOR
31712 0; ACC.RECORD LENGTH
31800 CONST 318 318 1 ALPHA CONSTANTS
31802 (A)TABLE;
31804 CONST;
31806 PROCR;
31808 * ;
31810 (D)7.0000007.; BLOCK END WORD
31812 (A)NOTES;
31814 END ;
31816 DUMPS;
31818 FILES;
31820 (D)££+00003££; BITS 1-10 AND 31-40
31822 0; EVEN=WL FOR EDIT SWITCH,ODD=C/FWD HIGHES
31824 (A)SHEET;
31826 (D)5:5:5:5:5:; '?????'
31828 (A)VALUE;
31830 (D)6£6£6£6£6£;
31832 (A)INDEX;
31834 £££££;
31836 2;
31838 CHAIN;
31840 ????R;
31842 ????I;
31844 ????*;
31846 (A)TRAMD;
31848 (B20)16(D)0(C)1:28; BULK COPY
31850 (A)FINIS;
31900 CONST 319 319 1 CONVERT TABLES
31902 (D)1; BIN>DEC
31904 16;
Source image: P1030246.JPG
31906 256;
31908 4096;
31910 65536;
31912 1048576;
31914 16777216;
31916 268435456;
31918 4294967296;
31920 ££££££££££;
31922 1; DEC>BIN
31924 Ю;
31926 64;
31928 3.8;
31930 2710;
31932 186Ю0;
31934 £4240;
31936 989680;
31938 5£5.100;
31940 3‼9Ю+Ю00; (A)WL
31942 0; BITS 1-6
31944 3£;
31946 (A)CHAPT;
31948 PREND;
32000 PROCR 320 320 RIGHT ALIGN A WORD
32001 NOTES RADIX PLACED IN B SELECT
32002 81 320 2 0 0 0 320 START OF SUBROUTINE
32003 10 0 0 0 0 SELECT LITERAL
32004 5 12 88 1 0 0 TRANSFER
32008>32005 1 12 88 1 0 0 ADD
32006 32 0 0 0 2 LEAVE A CLEAR SHIFT (AB) BY QUARTETS
32007 5 12 88 1 0 0 TRANSFER
32008 75 320 5 0 0 0 320 AND PUT WORD JUMP IF AB != 0
32009 12 88 1 0 0 SELECT
32010 82 320 2 0 0 0 320 IN 12/88' END OF SUBROUTINE / LEAVE SUBROUTINE
32100 PROCR 321 321 END ROUTINE
32101 NOTES RADIX SELECT
29909>32102 60 0 0 0 0 SET DECIMAL RADIX
32103 10 0 0 0 1 SELECT LITERAL
32104 4 92 3 0 0 0 STEP PROCR AUGMENT
32105 62 0 0 0 0 SET EXCESS CONSTANTS
32106 318 22 0 0 0 318 DIRECTIVE FOR LAST BLOCK DELETED SELECT
32107 12 0 0 0 3 SUBTRACT LITERAL
32108 71 321 11 0 0 0 321 >WASNT A CONSTANT JUMP IF A != 0
32109 10 0 0 0 1 SELECT LITERAL
32110 5 29 6 0 0 0 TRANSFER
32108>32111 80 288 2 0 0 0 288 >O/P FINAL DATA BLOCK ENTER SUBROUTINE
32112 0 92 3 0 0 0 SELECT
32113 30 0 0 0 2 SHIFT (A) BY QUARTETS
32114 5 12 88 0 0 0 TRANSFER
32115 52 29 4 0 0 0 EDIT
32116 C 306 6 0 0 0 306
32126>32117 9 4 1 0 0 SELECT
32118 30 0 0 0 4- SHIFT (A) BY QUARTETS
32119 30 0 0 0 4 SHIFT (A) BY QUARTETS
32120 2 318 14 1 0 0 318 SUBTRACT
32121 70 321 27 0 0 0 321 >END WITHOUT TD JUMP IF A == 0
32122 10 0 0 0 5£5£5£5£5£ 5 SQUARES SELECT LITERAL
32123 3 27 6 0 0 0 'PT OMITTED' COPY
32124 5 29 12 1 0 0 TRANSFER
Source image: P1030247.JPG
32125 80 301 2 0 0 0 301 >READ PT ENTER SUBROUTINE
32126 76 321 17 0 0 0 321 >TEST NEXT BLOCK JUMP unconditional
32121>32127 318 50 1 0 0 318 'FINIS' SELECT
32128 5 9 4 1 0 0 TRANSFER
32129 318 14 1 0 0 318 SELECT
32130 5 29 6 1 0 0 'END' TRANSFER
32131 80 288 2 0 0 0 288 >WRITE INTERCODE END SIGN ENTER SUBROUTINE
32132 80 324 2 0 0 0 324 ENTER SUBROUTINE
32133 90 0 0 1 1 SET MODIFICATION REGISTER AT LITERAL
32134 C 0 0 0 100
32135 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
32136 C 0 0 0 200
32165>32137 96 0 0 1 0 SELECT MODIFIER
32138 80 247 2 0 0 0 247 >TO DEC ENTER SUBROUTINE
32139 62 0 0 0 0 SET EXCESS CONSTANTS
32140 32 0 0 0 1- DIVIDE BY 10 SHIFT (AB) BY QUARTETS
32141 92 0 0 3 0 TENS DIGIT SET MODIFIER AT VARIABLE
32142 32 0 0 0 1 SHIFT (AB) BY QUARTETS
32143 5 247 2 0 0 0 247 WL TRANSFER
32144 10 0 0 0 1 SELECT LITERAL
32145 124 247 2 0 1 0 247 modify address of next
32146 31 0 0 0 0 /////BIT PATTERN OF UNITS DIGIT SHIFT (A) BY BITS
32147 3 247 2 0 0 0 247 COPY
32148 33 0 0 0 30- REL TO BIT 10 OF B SHIFT (AB) BY BITS
32149 36 12 72 0 3 0 12/72-81=SECTION BIT PATTERNS COLLATE AND ADD
32150 70 321 65 0 0 0 321 JUMP IF A == 0
32151 96 0 0 3 0 CLEAR B SELECT MODIFIER
32152 35 0 0 0 0 HALVE PREPARE FOR DIGIT COLLATION
32153 33 0 0 0 1- SHIFT (AB) BY BITS
32154 92 0 0 3 0 >WAS ODD SET MODIFIER AT VARIABLE
32155 75 321 58 0 0 0 321 JUMP IF AB != 0
32156 34 247 2 0 0 0 247 SET (N) IN B
32157 76 321 60 0 0 0 321 JUMP unconditional
32155>32158 34 247 2 0 0 0 247 SET (N) IN B
32159 33 0 0 0 10 SHIFT (AB) BY BITS
32157>32160 36 12 100 0 3 0 12/100-104='TX AREA USED'INDS COLLATE AND ADD
32161 71 321 65 0 0 0 321 >NOT PSEUDO-TX AREA JUMP IF A != 0
32162 96 0 0 1 0 SELECT MODIFIER
32163 5 92 34 0 2 0 STORE SECTION NUMBER TRANSFER
32164 94 0 0 2 1 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
32161>
32150>32165 94 321 37 0 1 1 321 >NEXT SECTION STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
32200 PROCR 322 322 CALC CHAPS INITIALLY
32202 10 0 0 0 £££00 SELECT LITERAL
32203 3 23 47 0 0 0 (TO PRINT HEADING) COPY
32204 124 92 0 0 0 0 modify address of next
32205 4 92 9 0 0 0 'LAST PROCR'IN FINAL CHAP AUGMENT
32206 91 12 12 0 3 0 0:TWICE UNCORR CHAPS SET MODIFICATION REGISTER AT VARIABLE
32213>32207 92 10 0 3 0 SELECT
32208 30 0 0 0 9 SHIFT (A) BY QUARTETS
32209 30 0 0 0 9- ISOLATE Q1=CORR CHAP SHIFT (A) BY QUARTETS
32210 2 92 29 0 0 0 (ZERO INITIALLY) SUBTRACT
32211 73 322 13 0 0 0 322 JUMP IF A < 0
32212 4 92 29 0 0 0 UPDATE AUGMENT
32211>32213 94 322 7 0 3 1 322 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
32214 10 0 0 0 1 SELECT LITERAL
32215 4 92 29 0 0 0 FORM CHAPS INITIALLY AUGMENT
32216 92 9 0 0 0 SELECT
32217 5 92 8 0 0 0 STORE SC CTR TRANSFER
Source image: P1030248.JPG
32218 92 29 0 0 0 SELECT
32219 5 92 9 0 0 0 SPEC CHAP+'UNCORR CHAR 0'EQUIVALENT TRANSFER
32300 PROCR 323 323 READ/COPY TRIAL DATA
32301 NOTES RADIX SELECT
32302 80 289 2 0 0 0 289 ENTER SUBROUTINE
32303 80 289 2 0 0 0 289 >WRITE 2 BLANKS ENTER SUBROUTINE
32304 318 30 1 0 0 318 SELECT
32305 5 8 4 1 0 0 5 ALIGNMENT MARKS TRANSFER
32306 10 0 0 0 6 SELECT LITERAL
32307 5 8 10 0 0 0 TRANSFER
32308 80 289 2 0 0 0 289 >WRITE ALIGN BLOCK FOR PASS 3 ENTER SUBROUTINE
32309 318 32 1 0 0 318 'INDEX' SELECT
32310 5 8 4 1 0 0 TRANSFER
32311 80 289 2 0 0 0 289 >WRITE ENTER SUBROUTINE
32312 90 0 0 1 0 WRITE CURRENT SET MODIFICATION REGISTER AT LITERAL
32313 C 0 0 0 1110 PROCR INDEX
32314 90 0 0 2 0 +ADJUST DETAILS SET MODIFICATION REGISTER AT LITERAL
32315 C 0 0 0 48 +UNIQUE REFS
32324>32316 93 0 0 1 0 UNCONDITIONALLY SELECT
32317 5 8 4 2 2 0 TRANSFER
32318 94 323 24 0 2 2 323 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
32319 318 10 1 0 0 318 BEW SELECT
32320 5 8 52 1 0 0 TRANSFER
32321 80 290 2 0 0 0 290 >WRITE ENTER SUBROUTINE
32322 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
32323 C 0 0 0 48
32318>32324 94 323 16 0 1 1 323 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
32325 80 290 2 0 0 0 290 >LAST BLOCK ENTER SUBROUTINE
32326 80 289 2 0 0 0 289 ENTER SUBROUTINE
32327 80 289 2 0 0 0 289 >2 BLANKS ENTER SUBROUTINE
32335>32328 0 9 4 1 0 0 SELECT
32329 2 318 50 1 0 0 318 'FINIS' SUBTRACT
32330 70 323 36 0 0 0 323 >YES JUMP IF A == 0
32331 55 9 4 1 0 50 BULK COPY
32332 C 8 4 1 0 0
32333 80 289 2 0 0 0 289 >WRITE ENTER SUBROUTINE
32334 80 301 2 0 0 0 301 >READ ENTER SUBROUTINE
32335 76 323 28 0 0 0 323 JUMP unconditional
32330>32336 45 A2 0 0 0 0 REWIND
32337 45 A6 0 0 0 1 REWIND
32338 0 12 12 1 0 0 COPY DATA FOR PASS 2 PREP STAGE SELECT
32339 5 94 0 1 0 0 TRANSFER
32340 5 27 3 0 0 0 TRANSFER
32341 41 A1 0 0 0 1 CLOSE FILE
32342 76 200 2 0 0 0 200 >CALL PASS 2 JUMP unconditional
32400 PROCR 324 324
32402 81 324 2 0 0 0 324 START OF SUBROUTINE
32403 324 2 0 0 0 324 SELECT
32404 5 288 2 0 0 0 288 TRANSFER
32405 76 288 22 0 0 0 288 JUMP unconditional
32500 PROCR 325 325 UNPACK SECTION 9 SUBROUTINE
32501 NOTES RADIX SELECT
32502 81 325 2 0 0 0 325 START OF SUBROUTINE
32503 124 999 0 1 2 0 (FORMED) modify address of next
32504 128 4 0 3 0 unpack variable field data
32505 82 325 2 0 0 0 325 END OF SUBROUTINE / LEAVE SUBROUTINE
32506 9 0 0 0 0 DUMMY FOR PARAMETER SELECT
Source image: P1030249.JPG
32507 128 4 0 2 0 unpack fixed field data
32600 PROCR 326 326 START OF PASS 2
32601 NOTES RADIX B DEAL WITH SECTIONS USED ONLY FOR GP OUTPUT SELECT
35935>32602 152 200 4 0 0 0 200 CALL/ENTER PASS 3 OVERLAY
32603 C 445 4 0 0 0 445
32604 999 16 1 0 0 COPY SEC 7 PARAS>PTS WL'S SELECT
32605 5 999 30 1 0 0 TRANSFER
32606 54 5 0 0 0 50 BULK CLEAR
32607 52 5 2 0 0 0 EDIT
32608 C 335 36 0 0 0 335 EDIT 'INDEX' LINE
32700 PROCR 327 327 CALC LENGTHS OF SWITCH PROCR IN EACH CORRECTED CHAPTER
32701 NOTES RADIX B AND MOVE THE SC BACK LIST SELECT
32702 54 72 3 0 0 14 BULK CLEAR
32703 10 0 0 0 1 SELECT LITERAL
32704 5 61 4 0 0 0 CTR INCREMENT TRANSFER
32705 10 0 0 0 8 SELECT LITERAL
32706 5 61 3 0 0 0 BIT SHIFT CONTROL TRANSFER
32707 91 94 0 0 3 0 UNCORR CHAP CTR SET MODIFICATION REGISTER AT VARIABLE
32712>32708 10 0 0 0 1 SELECT LITERAL
32709 32 0 0 0 10- SHIFT (AB) BY QUARTETS
32710 36 72 3 0 3 0 COLLATE AND ADD
32711 4 72 3 0 3 0 ROUND UP CTRS AUGMENT
32712 94 327 8 0 3 1 327 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
32713 10 0 0 0 2 SEQ CHANGE LIST SELECT LITERAL
32714 4 92 8 0 0 0 AUGMENT
32715 1 437 74 0 0 0 437 ABS ADDRESS 18:2496 ADD
32716 2 92 8 0 0 0 SUBTRACT
32717 3 337 2 0 0 0 337 QTTY TO COPY COPY
32718 70 327 23 0 0 0 327 >NONE JUMP IF A == 0
32719 30 0 0 0 5 SHIFT (A) BY QUARTETS
32720 1 92 8 0 0 0 START ADD
32721 124 436 15 1 2 0 436 ABS ADDRESS 18/0 modify address of next
32722 128 0 1 1 0 bulk copy long numeric
32718>32723 436 15 0 0 0 436 SELECT
32724 1 337 2 0 0 0 337 QTTY ADD
32725 5 92 8 0 0 0 NEW LIST END TRANSFER
32800 PROCR 328 328 OPEN FILES CLEAR W/LS
32801 NOTES RADIX B PREP STAGE SELECT
32802 40 A2 0 0 0 1 *****DON T MOVE***** OPEN FILE
32803 0 27 9 0 0 0 SELECT
32804 71 328 13 0 0 0 328 >NOT PRINT JUMP IF A != 0
32805 27 8 0 0 0 PRINTER TYPE SELECT
32806 11 0 0 0 Ю ADD LITERAL
32807 30 0 0 0 5 SHIFT (A) BY QUARTETS
32808 1 999 7 0 0 0 ROUTE ADD
32809 125 4096 1 1 0 clear indicators
32810 124 999 0 0 3 0 modify address of next
32811 123 160 0 2 0 >OPEN PRINTER OR MT A9 enter master routine
32812 62 0 0 0 0 SET EXCESS CONSTANTS
32804>32813 54 61 0 0 0 120 BULK CLEAR
32814 54 94 0 0 0 100 BULK CLEAR
32815 54 66 0 0 0 34 66+49 BULK CLEAR
32816 10 0 0 0 1 SELECT LITERAL
32817 4 92 0 0 0 0 NO OF CHAPS AUGMENT
32818 101 998 1 3 0 select literal address
32819 1 92 0 0 0 0 (CHAPS CODED)+1 ADD
32820 3 61 5 0 0 0 LONG CONSTS PROCR COPY
Source image: P1030250.JPG
32821 11 0 0 0 1 ADD LITERAL
32822 3 61 6 0 0 0 SHORT CONSTS PROCR COPY
32823 11 0 0 0 1 ADD LITERAL
32824 5 61 7 0 0 0 TSL PROCR TRANSFER
32825 10 0 0 0 800000 SELECT LITERAL
32826 1 27 9 0 0 0 ADD
32827 91 0 0 1 0 SET FOR RE-ENTRY SET MODIFICATION REGISTER AT VARIABLE
32900 PROCR 329 329 I/P 1ST BLOCK, UNPACK, PRINT
32901 NOTES RADIX B PREP STAGE SELECT
32908>32902 80 432 2 0 0 0 432 >READ ENTER SUBROUTINE
32903 8 6 1 0 0 SELECT
32904 2 336 2 1 0 0 336 'PROGM' SUBTRACT
32905 70 329 16 0 0 0 329 >OK JUMP IF A == 0
32906 8 4 1 0 0 SELECT
32907 12 0 0 0 5659650000 'FIN ' SUBTRACT LITERAL
32908 71 329 2 0 0 0 329 >KEEP READING JUMP IF A != 0
32910>32909 150 0 0 0 4 OFFER OPTIONS
32910 C 329 9 0 0 0 329 (DUMMY)
32911 C 329 13 0 0 0 329 RUN BACK AND RETURN TO PASS 1
32912 C 329 15 0 0 0 329 >UNLOAD
32911>32913 45 A2 0 0 0 1 REWIND O/P TAPE REWIND
32914 76 100 5 0 0 0 100 >ENTER PASS 1 JUMP unconditional
32912>32915 151 0 0 0 0 UNLOAD UNLOAD PROGRAMME
32905>32916 50 8 4 0 0 0 UNPACK FIXED FIELD DATA
32917 C 334 2 0 0 0 334
32918 52 8 2 0 0 0 EDIT
32919 C 334 2 0 0 0 334
32920 66 4 1 0 0 SUITE NO SELECT
32921 30 0 0 0 2 SHIFT (A) BY QUARTETS
32922 1 66 6 2 0 0 JOB NO ADD
32923 5 61 112 0 0 0 PROG ID TRANSFER
32924 00 66 8 1 0 0 SELECT
32925 5 72 0 1 0 0 ALPHA SERIAL NUMBER TRANSFER
32926 27 9 0 0 0 SELECT
32927 70 329 28 0 0 0 329 >PRINTING JUMP IF A == 0
32927>32928 80 333 2 0 0 0 333 >WRITE/PRINT'PROGM' ENTER SUBROUTINE
32929 40 A6 0 0 0 0 OPEN FILE
32930 52 9 4 0 0 0 EDIT FIRST HEADING EDIT
32931 C 334 12 0 0 0 334 BLOCK
32932 80 407 2 0 0 0 407 OP ENTER SUBROUTINE
32933 435 20 0 0 0 435 '£££££' SELECT
32934 5 9 4 2 0 0 TRANSFER
32935 436 2 1 0 0 436 BEW SELECT
32936 5 9 6 1 0 0 TRANSFER
32937 80 407 2 0 0 0 407 >DUMMY 'INDEX'DATA ENTER SUBROUTINE
32938 52 9 4 0 0 0 PROG & SERIAL FOR PASS 3 EDIT
32939 C 334 20 0 0 0 334
32940 5 9 16 1 0 0 TRANSFER
32941 80 407 2 0 0 0 407 >SHORT RUBBISH BLOCK ENTER SUBROUTINE
32942 80 432 2 0 0 0 432 I/P ENTER SUBROUTINE
32943 50 8 4 0 0 0 UNPACK FIXED FIELD DATA
32944 C 334 2 0 0 0 334
32945 66 4 1 0 0 PROCR OF ENTRY SELECT
32946 80 430 2 0 0 0 430 >CONVERT ENTER SUBROUTINE
32947 5 72 2 0 0 0 TRANSFER
32948 52 8 2 0 0 0 EDIT
32949 C 334 2 0 0 0 334
32950 80 333 2 0 0 0 333 PRINT'ENTRY' ENTER SUBROUTINE
32951 52 9 4 0 0 0 EDIT SECOND BLOCK EDIT
Source image: P1030251.JPG
32952 C 334 28 0 0 0 334
32953 80 407 2 0 0 0 407 >O/P ENTER SUBROUTINE
33000 PROCR 330 330 DEAL WITH FILE IDS
33001 NOTES RADIX B SELECT
33002 17 92 7 0 0 10 SPACE OCCUPIED BY CONVERT TABLES MULTIPLY LITERAL and ADD
33003 101 204 1 1 0 FOR ALLOCATOR add literal address
33004 5 61 100 0 0 0 SP CHAP SPACE CTR TRANSFER
33005 10 0 0 0 0 2R=0 SELECT LITERAL
33006 31 0 0 0 1- SHIFT (A) BY BITS
33007 1 92 29 0 0 0 EXTRA CHAP NO ADD
33008 1 92 29 0 0 0 ADD
33009 3 61 40 0 0 0 LAST ROUTE PARAMETER COPY
33010 5 61 39 0 0 0 PARA CTR TRANSFER
33011 10 0 0 0 0 2R=0 SELECT LITERAL
33012 91 0 0 2 0 SET MODIFICATION REGISTER AT VARIABLE
33013 90 0 0 1 0 O/P M.R. SET MODIFICATION REGISTER AT LITERAL
33014 C 0 0 0 48
33015 80 432 2 0 0 0 432 I/P ENTER SUBROUTINE
33100 PROCR 331 331 O/P REMAINING FILE IDS, CHAP START POINTS
33101 NOTES RADIX B PREP SELECT
33102 96 0 0 1 0 SELECT MODIFIER
33103 70 331 7 0 0 0 331 JUMP IF A == 0
33104 436 2 1 0 0 436 BEW SELECT
33105 5 9 4 1 1 0 TRANSFER
33106 80 407 2 0 0 0 407 O/P ENTER SUBROUTINE
33103>33107 50 8 4 0 0 0 UNPACK FIXED FIELD DATA
33108 C 335 2 0 0 0 335 UNPACK 'CHAPS'
33109 54 70 0 1 0 100 CLEAR FOR SECTION DETAILS BULK CLEAR
33110 80 405 2 0 0 0 405 >BLANK LINE ENTER SUBROUTINE
33111 52 8 2 0 0 0 EDIT
33112 C 335 2 0 0 0 335
33113 80 333 2 0 0 0 333 PRINT'CHAPS' ENTER SUBROUTINE
33114 80 432 2 0 0 0 432 >READ MT ENTER SUBROUTINE
33200 PROCR 332 332 PRINT CHAPS I/P & TEST S/D
33201 NOTES RADIX B PREP STAGE SELECT
33202 80 423 2 0 0 0 423 >PRINT'INDEX'EX SEC 5 ENTER SUBROUTINE
33203 80 423 2 0 0 0 423 >PRINT BLANK LINE ENTER SUBROUTINE
33204 76 339 2 0 0 0 339 PROCR ETC ON MT JUMP unconditional
33300 PROCR 333 333
33302 81 333 2 0 0 0 333 START OF SUBROUTINE
33303 55 8 0 1 0 52 BULK COPY
33304 C 7 0 1 0 0
33305 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION
33306 37 7 2 0 0 0 PRINT REPLACE SELECTED BITS
33307 80 403 2 0 0 0 403 ENTER SUBROUTINE
33308 82 333 2 0 0 0 333 END OF SUBROUTINE / LEAVE SUBROUTINE
33400 TABLE 334 334 1 PROGM, ENTRY, O/P HDNG, SECTIONS FILES
33401 NOTES
33402 66 0 0 0 2 0 5 0 0 0 0 0 0 AMEND IND
33404 66 2 0 0 2 0 5 0 11 0 0 0 0 PROGM/ENTRY
33406 66 4 0 0 1 0 5 5 1 2 0 0 0 SUITE/PROCR
33408 66 6 0 0 2 0 5 0 2 0 0 0 0 JOB/PRIORITY
33410 66 8 0 0 2 0 5 0 1 0 0 0 1 SERIAL/CODER
33412 336 10 0 0 2 0 5 0 0 0 0 0 0 ALIGN MARKS
33414 336 8 0 0 2 0 5 0 0 0 0 0 0 'INDEX'
Source image: P1030252.JPG
33416 435 20 0 0 0 0 5 0 0 0 0 0 0
33418 336 13 0 0 0 0 1 3 4 0 0 0 0 '4'
33420 66 4 0 0 1 0 3 7 0 0 0 0 0 PROG SUITE
33422 66 6 0 0 2 0 2 3 0 0 0 0 0 PROG ID
33424 66 8 0 0 2 0 5 0 0 0 0 0 0 PROG SERIAL
33426 436 2 0 0 2 0 5 0 0 0 0 0 1 BEW
33428 92 5 0 0 0 0 5 0 0 4 0 0 0 FP IND
33430 92 4 0 0 0 0 5 0 0 4 0 0 0 MG
33432 66 6 0 0 2 0 5 0 0 0 0 0 0 PRIORITY
33434 92 0 0 0 0 0 5 0 0 4 0 0 0 CHAPS+1
33436 92 29 0 0 0 0 5 0 0 4 0 0 0 CHAPS INITIALLY
33438 436 2 0 0 2 0 5 0 0 0 0 0 1 BEW
33440 66 10 0 0 2 0 5 0 0 0 0 0 0 AMEND IND
33442 66 0 0 0 2 0 5 0 5 0 0 0 0 SERIAL
33444 66 2 0 0 1 0 5 5 4 4 0 0 0 SEC NO
33446 66 4 0 0 1 0 5 5 3 4 0 0 0 LENGTH
33448 66 6 0 0 1 0 5 5 0 4 0 0 0 TX AREA IND
33450 66 8 0 0 1 0 5 5 3 4 0 0 1 CHAP
33452 66 0 0 0 2 0 5 0 0 0 0 0 0 AMEND IND== FILES
33454 66 2 0 0 2 0 5 0 15 0 0 0 0 FILE ID
33456 66 4 0 0 1 0 5 5 1 4 0 0 0 ROUTE TYPE
33458 66 6 0 0 1 0 5 5 2 4 0 0 0 RETN PERIOD
33460 66 8 0 0 1 0 5 5 2 4 0 0 0 MBS
33462 66 10 0 0 1 0 5 5 0 4 0 0 1 ALT ROUTE
33464 66 2 0 0 2 0 5 0 0 0 0 0 0 FILE ID == FILES
33466 66 4 0 0 1 0 5 5 0 4 0 0 0 ROUTE TYPE
33468 66 6 0 0 1 0 5 5 0 4 0 0 0 RETN PERIOD
33470 66 8 0 0 1 0 5 5 0 4 0 0 0 MBS
33472 61 0 0 0 0 0 5 0 0 4 0 0 0 START LOCN
33474 66 10 0 0 1 0 5 5 0 4 0 0 1 ALT ROUTE
33500 TABLE 335 335 1 CHAPS LINE
33501 NOTES
33502 66 0 0 0 2 0 5 0 0 0 0 0 0 AMEND IND
33504 66 2 0 0 2 0 5 0 1 0 0 0 0 'CHAPS'
33506 66 4 0 0 0 0 5 0 0 4 0 0 0 NUMBER OF CHAPS
33508 66 6 0 0 0 0 5 0 1 4 0 0 0 1
33510 66 7 0 0 0 0 5 0 1 5 0 0 0 2
33512 66 8 0 0 0 0 5 0 1 5 0 0 0 3
33514 66 9 0 0 0 0 5 0 1 5 0 0 0 4
33516 66 10 0 0 0 0 5 0 1 5 0 0 0 5
33518 66 11 0 0 0 0 5 0 1 5 0 0 0 6
33520 66 12 0 0 0 0 5 0 1 5 0 0 0 7
33522 66 13 0 0 0 0 5 0 1 5 0 0 0 8
33524 66 14 0 0 0 0 5 0 1 5 0 0 0 9
33526 66 15 0 0 0 0 5 0 1 5 0 0 0 10
33528 66 16 0 0 0 0 5 0 1 5 0 0 0 11
33530 66 17 0 0 0 0 5 0 1 5 0 0 0 12
33532 66 18 0 0 0 0 5 0 1 5 0 0 0 13
33534 66 19 0 0 0 0 5 0 1 5 0 0 1 14-TH START
33536 336 8 0 0 2 0 5 0 6 0 0 0 0 'INDEX'
33538 92 29 0 0 0 0 1 4 4 0 0 0 0 CHAPS INITIALLY
33540 92 10 0 0 0 0 1 4 5 1 0 0 0 CORRECTED CHAPTER NUMBERS
33542 92 11 0 0 0 0 1 4 5 1 0 0 0
33544 92 12 0 0 0 0 1 4 5 1 0 0 0
33546 92 13 0 0 0 0 1 4 5 1 0 0 0
33548 92 14 0 0 0 0 1 4 5 1 0 0 0
33550 92 15 0 0 0 0 1 4 5 1 0 0 0
33552 92 16 0 0 0 0 1 4 5 1 0 0 0
33554 92 17 0 0 0 0 1 4 5 1 0 0 0
Source image: P1030253.JPG
33556 92 18 0 0 0 0 1 4 5 1 0 0 0
33558 92 19 0 0 0 0 1 4 5 1 0 0 0
33560 92 20 0 0 0 0 1 4 5 1 0 0 0
33562 92 21 0 0 0 0 1 4 5 1 0 0 0
33564 92 22 0 0 0 0 1 4 5 1 0 0 0
33566 92 23 0 0 0 0 1 4 5 1 0 0 1 LAST ENTRY
33600 CONST 336 336 1 FOR PASS 2 PREP STAGE
33602 (A)PROGM;
33604 ENTRY;
33606 CHAPS;
33608 INDEX;
33610 (D)6£6£6£6£6£;
33612 0514908000; 08000 FILE A9
33700 PROCR 337 337 DUMMIES FOR SEC 61 DESCRIPTION
33701 NOTES 337 SELECT
33702 61 0 0 0 0 ACTION WL/ENTRY POINT SELECT
33703 61 1 0 0 0 NON-ARITH IND SELECT
33800 PROCR 338 338
33802 81 338 2 0 0 0 338 START OF SUBROUTINE
33803 0 338 2 0 0 0 338 SELECT
33804 5 401 2 0 0 0 401 TRANSFER
33805 76 401 8 0 0 0 401 JUMP unconditional
33900 PROCR 339 339 FORM PARA CTR ETC
33901 NOTES RADIX B PREP STAGE SELECT
33204>33902 80 338 2 0 0 0 338 ENTER SUBROUTINE
33903 80 354 2 0 0 0 354 >EDIT FIRST DIRECTIVE ENTER SUBROUTINE
33904 10 0 0 0 0 SELECT LITERAL
33905 5 437 99 0 0 0 437 TRANSFER
33906 61 39 0 0 0 SELECT
33907 11 0 0 0 1 FORM ADD LITERAL
33908 3 61 41 0 0 0 MOD GROUP PARAMETER COPY
33909 11 0 0 0 4 ADD LITERAL
33910 5 61 39 0 0 0 TOTAL NO OF PARAMETER TRANSFER
33911 0 92 8 0 0 0 LIST END SELECT
33912 30 0 0 0 5 SHIFT (A) BY QUARTETS
33913 1 436 15 0 0 0 436 ABS ADDRESS 18:0 ADD
33914 91 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE
33915 436 14 0 0 0 436 ABS ADDRESS 18:2499 SELECT
33916 5 61 118 0 0 0 LOCN CTR SC'S FWD TRANSFER
33917 436 4 1 0 0 436 0:144 SELECT
33918 5 61 44 1 0 0 O/P MOD CTR TRANSFER
33919 10 0 0 0 1 SELECT LITERAL
33920 5 61 111 0 0 0 UNCORRECTED CHAP NO. TRANSFER
35819>33921 10 0 0 0 41 SELECT LITERAL
33922 5 61 26 1 0 0 TYPE TRANSFER
33923 5 61 28 1 0 0 SECTION NO. TRANSFER
33924 80 409 2 0 0 0 409 O/P TYPE S/R THIS CLEARS D67 INITENTER SUBROUTINE
33925 10 0 0 0 1 SELECT LITERAL
33926 5 61 42 1 0 0 TRANSFER
33927 5 61 109 0 0 0 CLEAR STERLING CTR TRANSFER
33928 05 67 0 0 0 0 67/0 NOT CLEARED BY O/P TYPE S/R TRANSFER
34000 PROCR 340 340 O/P PARAS
34001 NOTES RADIX B CHAP START ROUTINE SELECT
34002 61 39 0 0 0 PARA CTR SELECT
34003 30 0 0 0 5 SHIFT (A) BY QUARTETS
Source image: P1030254.JPG
34004 5 61 0 1 0 0 TRANSFER
34005 91 61 0 1 3 0 M/R 3 AT W/L SET MODIFICATION REGISTER AT VARIABLE
34009>34006 95 0 0 3 0 SELECT MODIFICATION REGISTER
34007 5 67 2 0 0 0 TRANSFER
34008 80 411 2 0 0 0 411 O/P ENTER SUBROUTINE
34009 94 340 6 0 3 1 340 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
34010 10 0 0 0 3 SELECT LITERAL
34011 4 61 5 0 0 0 LONG PROCR AUGMENT
34012 4 61 6 0 0 0 SHORT PROCR AUGMENT
34013 4 61 7 0 0 0 TSL PROCR AUGMENT
34014 10 0 0 0 0 SELECT LITERAL
34015 35 0 0 0 1 PREPARE FOR DIGIT COLLATION
34016 124 61 111 0 0 0 UNCORRECTED CHAP NO modify address of next
34017 36 92 9 0 0 0 CORRECTED CHAP NUMBER COLLATE AND ADD
34018 3 61 51 0 0 0 COPY
34019 1 61 51 0 0 0 ADD
34020 5 61 3 0 0 0 2C TRANSFER
34021 61 5 0 0 0 SELECT
34022 30 0 0 0 2 SHIFT (A) BY QUARTETS
34023 1 61 3 0 0 0 ADD
34024 5 61 4 0 0 0 LN:2C TRANSFER
34025 10 0 0 0 .0000. 14:14 SELECT LITERAL
34026 5 61 12 1 0 0 LN CTR TRANSFER
34027 5 61 14 1 0 0 SN CTR TRANSFER
34028 436 16 1 0 0 436 180:180 SELECT
34029 5 61 16 1 0 0 TSL CTR TRANSFER
34030 5 61 10 1 0 0 TRANSFER
34031 80 411 2 0 0 0 411 O/P ZERO COMPARTMENTFOR LINK ENTER SUBROUTINE
34032 80 369 2 0 0 0 369 >O/P 25/1/1 4096+24/0/3 0 ENTER SUBROUTINE
34033 10 0 0 0 700 7 IN Q3 SELECT LITERAL
34034 5 67 1 0 0 0 SET'MR ENTRY' IND TRANSFER
34035 0 437 60 0 0 0 437 23/0/2 0 SELECT
34036 80 350 2 0 0 0 350 >O/P ENTER SUBROUTINE
34037 80 411 2 0 0 0 411 O/P TWO ZERO COMPARTMENTS ENTER SUBROUTINE
34038 80 411 2 0 0 0 411 ENTER SUBROUTINE
34039 438 15 0 0 0 438 26/0/1/6- SELECT
34040 80 398 2 0 0 0 398 >O/P INT SC ENTER SUBROUTINE
34100 PROCR 341 341 SECTION START ROUTINE
34101 NOTES RADIX B SELECT
35509>
35511>34102 62 0 0 0 0 SET EXCESS CONSTANTS
34103 6 1 12 0 SELECT
34104 2 434 8 1 0 0 434 PROCR SUBTRACT
34105 71 341 9 0 0 0 341 JUMP IF A != 0
34106 10 0 0 0 1 SELECT LITERAL
34107 5 61 42 0 0 0 TRANSFER
34108 76 343 4 0 0 0 343 JUMP unconditional
34105>34109 80 346 2 0 0 0 346 ROUND UP SPACE CTR ENTER SUBROUTINE
34110 14 2 12 0 CONST OR TABLE TYPE SELECT
34111 30 0 0 0 4- SHIFT (A) BY QUARTETS
34112 5 61 47 0 0 0 TRANSFER
34113 6 1 12 0 SELECT
34114 2 434 4 1 0 0 434 TABLE SUBTRACT
34115 71 342 5 0 0 0 342 = JUMP IF A != 0
34200 PROCR 342 342 SECTION START ROUTINE
34201 NOTES RADIX B SELECT
34202 10 0 0 0 2 SELECT LITERAL
34203 5 61 42 0 0 0 TRANSFER
Source image: P1030255.JPG
34204 76 343 3 0 0 0 343 JUMP unconditional
34115>34205 10 0 0 0 2 AMOUNT TO AUGMENT SPACE CTR ON O/P SELECT LITERAL
34206 5 61 42 0 0 0 TRANSFER
34300 PROCR 343 343 SECTION START ROUTINE
34301 NOTES RADIX B SELECT
34302 10 0 0 0 1 'CONST' SELECT LITERAL
34204>34303 11 0 0 0 1 TABLE ADD LITERAL
34108>34304 11 0 0 0 1 PROCR ADD LITERAL
34305 3 61 26 2 0 0 COPY
34306 84 345 2 0 0 0 345 SET SWITCH(ES) AT VARIABLE VALUE
34307 7 12 2 0 0 NEW PROCR NO SELECT
34400 PROCR 344 344 SECTION START ROUTINE
34401 NOTES RADIX B SELECT
34402 80 430 2 0 0 0 430 >CONVERT ENTER SUBROUTINE
34403 3 61 28 2 0 0 COPY
34404 3 61 10 0 0 0 CURRENT PROCR COPY
34405 2 72 2 0 0 0 ENTRY PROCR SUBTRACT
34406 71 344 9 0 0 0 344 >NO JUMP IF A != 0
34407 61 43 0 0 0 SELECT
34408 5 27 5 0 0 0 ENTRY LOCN TRANSFER
34406>34409 0 61 43 0 0 0 SELECT
34410 5 61 11 0 0 0 STORE PROCR START ADDRESS TRANSFER
34411 80 347 2 0 0 0 347 >SET'PRINT PROCEDURE'IND ENTER SUBROUTINE
34412 80 409 2 0 0 0 409 O/P TYPE ENTER SUBROUTINE
34413 10 0 0 0 80 TRACK 8 SELECT LITERAL
34414 5 61 46 0 0 0 HEAD OF FORM TRANSFER
34415 80 423 2 0 0 0 423 >SECOND PRINT SR ENTER SUBROUTINE
34416 80 402 2 0 0 0 402 >PRINT ENTER SUBROUTINE
34417 80 351 2 0 0 0 351 BULK CLEAR SEC 7 ENTER SUBROUTINE
34418 76 353 2 0 0 0 353 JUMP unconditional
34500 PROCR 345 345 SWITCH A
34501 NOTES RADIX B SELECT
35305>
35324>34502 85 345 2 0 0 0 345 SWITCH R
34503 C 360 2 0 0 0 360 INST
34504 C 391 2 0 0 0 391 TABLE
34505 C 370 2 0 0 0 370 CONST
34506 C 353 2 0 0 0 353 DUMMY
34507 C 353 2 0 0 0 353 ' '
34508 C 353 2 0 0 0 353 ' '
34509 C 352 8 0 0 0 352
34600 PROCR 346 346 SUBROUTINE 1
34601 NOTES RADIX B ROUND OFF TO MULT OF 2 SELECT
34602 81 346 2 0 0 0 346 START OF SUBROUTINE
34603 10 0 0 0 0 SELECT LITERAL
34604 34 436 6 0 0 0 436 1 SET (N) IN B
34605 36 61 43 0 0 0 SPACE CTR COLLATE AND ADD
34606 70 346 11 0 0 0 346 JUMP IF A == 0
34607 5 61 42 0 0 0 TRANSFER
34608 5 67 0 1 0 0 TRANSFER
34609 5 67 2 1 0 0 TRANSFER
34610 80 411 2 0 0 0 411 >O/P ZERO LOCATION ENTER SUBROUTINE
34606>34611 82 346 2 0 0 0 346 END OF SUBROUTINE / LEAVE SUBROUTINE
34700 PROCR 347 347 EXTRACT'PRINT PROCEDURE'IND FROM ARRAY IN SEC 23
34702 81 347 2 0 0 0 347 START OF SUBROUTINE
Source image: P1030256.JPG
34703 19 61 10 0 0 14 PROCR/20 DIVIDE LITERAL
34704 5 348 2 0 0 0 348 TRANSFER
34705 32 0 0 0 9 SHIFT (AB) BY QUARTETS
34706 5 352 2 0 0 0 352 WL TRANSFER
34707 34 435 22 0 0 0 435 1 SET (N) IN B
34708 124 352 2 0 1 0 352 modify address of next
34709 33 0 0 0 0 ///// SHIFT (AB) BY BITS
34710 124 348 2 0 1 0 348 modify address of next
34711 36 23 5- 0 0 0 COLLATE AND ADD
34712 5 23 47 0 0 0 NON-ZERO TO PRINT WHOLE PROCR TRANSFER
34713 82 347 2 0 0 0 347 END OF SUBROUTINE / LEAVE SUBROUTINE
34800 PROCR 348 348 O/P WITH ZERO REF, PARA=2C
34801 NOTES 348 SELECT
34802 81 348 2 0 0 0 348 (A)=INSTRUCTION START OF SUBROUTINE
34803 5 67 3 0 0 0 TRANSFER
34804 61 3 0 0 0 2C SELECT
34805 5 67 2 0 0 0 TRANSFER
34806 80 411 2 0 0 0 411 ENTER SUBROUTINE
34807 82 348 2 0 0 0 348 END OF SUBROUTINE / LEAVE SUBROUTINE
34900 PROCR 349 349 O/P ARITH INSTRUCTION
34901 NOTES 349 SELECT
34902 81 349 2 0 0 0 349 START OF SUBROUTINE
34903 5 61 0 0 0 0 TRANSFER
34904 5 61 1 0 0 0 TRANSFER
34905 80 429 2 0 0 0 429 >COMPLEX O/P ENTER SUBROUTINE
34906 82 349 2 0 0 0 349 END OF SUBROUTINE / LEAVE SUBROUTINE
35000 PROCR 350 350
35001 NOTES 350 SELECT
35002 81 350 2 0 0 0 350 START OF SUBROUTINE
35003 5 67 3 0 0 0 TRANSFER
35004 80 411 2 0 0 0 411 O/P ENTER SUBROUTINE
35005 82 350 2 0 0 0 350 END OF SUBROUTINE / LEAVE SUBROUTINE
35100 PROCR 351 351
35102 81 351 2 0 0 0 351 START OF SUBROUTINE
35103 54 7 2 1 0 48 BULK CLEAR SEC 7 BULK CLEAR
35104 82 351 2 0 0 0 351 END OF SUBROUTINE / LEAVE SUBROUTINE
35200 PROCR 352 352 LN:2C SUBROUTINE
35201 NOTES 352 SELECT
35202 81 352 2 0 0 0 352 (A)=INSTRUCTION START OF SUBROUTINE
35203 5 67 3 0 0 0 TRANSFER
35204 0 61 4 0 0 0 LN:2C FOR FIRST LN PROCR SELECT
35205 5 67 2 0 0 0 IN CHAP TRANSFER
35206 80 411 2 0 0 0 411 >O/P ENTER SUBROUTINE
35207 82 352 2 0 0 0 352 END OF SUBROUTINE / LEAVE SUBROUTINE
36104>
36105>
36106>
36107>
36108>
36109>
36110>
36111>
36112>
36113>
36118>
36119>
36611>
Source image: P1030257.JPG
34509>35208 80 352 2 0 0 0 352 (THEN GET NEXT BLOCK) ENTER SUBROUTINE
35300 PROCR 353 353 GET NEXT BLOCK
35301 NOTES RADIX B SELECT
35327>
36010>
36011>
36013>
36706>
37718>
39518>
39522>
42109>
34508>
34507>
34506>
34418>35302 80 401 2 0 0 0 401 >READ ENTER SUBROUTINE
41509>35303 6 1 12 0 SELECT
35304 2 434 6 1 0 0 434 'CONST' SUBTRACT
35305 73 345 2 0 0 0 345 >NOT A DIRECTIVE JUMP IF A < 0
35306 80 354 2 0 0 0 354 EDIT DIRECTIVES ENTER SUBROUTINE
35307 6 1 12 0 SELECT
35308 2 434 6 1 0 0 434 'CONST' SUBTRACT
35309 70 355 2 0 0 0 355 JUMP IF A == 0
35310 1 434 6 1 0 0 434 ADD
35311 2 434 4 1 0 0 434 TABLE SUBTRACT
35312 70 355 2 0 0 0 355 JUMP IF A == 0
35313 1 434 4 1 0 0 434 ADD
35314 2 434 8 1 0 0 434 'PROCR' SUBTRACT
35315 70 355 2 0 0 0 355 JUMP IF A == 0
35316 1 434 8 1 0 0 434 ADD
35317 2 434 12 1 0 0 434 END(SPACE)(SPACE) SUBTRACT
35318 71 353 22 0 0 0 353 JUMP IF A != 0
35319 10 0 0 0 1 SELECT LITERAL
35320 5 61 48 0 0 0 TRANSFER
35321 76 355 13 0 0 0 355 JUMP unconditional
35318>35322 1 434 12 1 0 0 434 ADD
35323 2 434 10 1 0 0 434 'NOTES' SUBTRACT
35324 71 345 2 0 0 0 345 JUMP IF A != 0
35325 80 402 2 0 0 0 402 >PRINT 'NOTES' LINE ENTER SUBROUTINE
35326 80 351 2 0 0 0 351 BULK CLEAR SEC 7 ENTER SUBROUTINE
35327 76 353 2 0 0 0 353 JUMP unconditional
35400 PROCR 354 354 EDIT DIRECTIVES
35402 81 354 2 0 0 0 354 START OF SUBROUTINE
35403 80 351 2 0 0 0 351 BULK CLEAR SEC 7 ENTER SUBROUTINE
35404 77 2 1 0 0 AMEND IND SELECT
35405 5 7 2 1 0 0 TRANSFER
35406 77 4 1 0 0 LINE SERIAL SELECT
35407 5 7 6 1 0 0 TRANSFER
35408 77 6 1 0 0 'PROCR/TABLE/CONST/NOTES/VALUE/END' SELECT
35409 5 7 10 1 0 0 TRANSFER
35410 77 8 1 0 0 PROCR NO SELECT
35411 30 0 0 0 4- SHIFT (A) BY QUARTETS
35412 5 7 12 1 0 0 TRANSFER
35413 77 10 1 0 0 OLD PROCR NO SELECT
35414 5 7 16 1 0 0 TRANSFER
35415 77 6 1 0 0 SELECT
Source image: P1030258.JPG
35416 2 434 10 1 0 0 434 'NOTES' SUBTRACT
35417 71 354 21 0 0 0 354 >NO JUMP IF A != 0
35418 77 12 1 0 0 'RADIX' SELECT
35419 5 7 16 1 0 0 TRANSFER
35420 76 354 23 0 0 0 354 JUMP unconditional
35417>35421 77 12 1 0 0 PASS 1 REPORTS SELECT
35422 5 7 48 1 0 0 TRANSFER
35420>35423 77 6 1 0 0 SELECT
35424 2 434 8 1 0 0 434 'PROCR' SUBTRACT
35425 70 354 29 0 0 0 354 >YES JUMP IF A == 0
35426 77 14 1 0 0 TABLE/CONST TYPE/RADIX LETTER SELECT
35427 5 7 20 1 0 0 TRANSFER
35428 76 354 31 0 0 0 354 JUMP unconditional
35425>35429 77 14 1 0 0 FIRST 5 CHARS ANNOTATION SELECT
35430 5 7 20 1 0 0 TRANSFER
35428>35431 55 77 16 1 0 26 COPY ANNOTATION BULK COPY
35432 C 7 22 1 0 0
35433 82 354 2 0 0 0 354 END OF SUBROUTINE / LEAVE SUBROUTINE
35500 PROCR 355 355 TEST NEW CHAP
35501 NOTES RADIX B SELECT
35315>
35312>
35309>35502 0 7 12 2 0 0 NEW PROCR SELECT
35503 5 61 35 0 0 0 TRANSFER
35504 124 61 111 0 0 0 THIS CHAP UCORR modify address of next
35505 92 9 0 0 0 LAST PROCR THIS CHAP SELECT
35506 30 0 0 0 2- SHIFT (A) BY QUARTETS
35507 80 431 2 0 0 0 431 >CONVERT TO DEC ENTER SUBROUTINE
35508 2 61 35 0 0 0 SUBTRACT
35509 72 341 2 0 0 0 341 NOT NEW CHAP JUMP IF A >= 0
35510 11 0 0 0 1 TEST THIS PROCEDURE SAFETY ADD LITERAL
35511 71 341 2 0 0 0 341 ONE GREATER THAN PREDEVICE JUMP IF A != 0
35512 62 0 0 0 0 SET EXCESS CONSTANTS
35321>35513 80 346 2 0 0 0 346 >ROUND UP SPACE CTR ENTER SUBROUTINE
35514 80 356 2 0 0 0 356 >ROUND UP FORMED SECTIONS ENTER SUBROUTINE
35515 80 357 2 0 0 0 357 >O/P FORMED SECTIONS ENTER SUBROUTINE
35516 76 358 2 0 0 0 358 JUMP unconditional
35600 PROCR 356 356 ROUND UP SECTION CTRS
35601 NOTES RADIX B SUBROUTINE SELECT
35602 81 356 2 0 0 0 356 START OF SUBROUTINE
35603 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
35604 C 0 0 0 6
35611>35605 0 61 13 0 2 0 END VALUE SELECT
35606 31 0 0 0 2 SHIFT (A) BY BITS
35607 32 0 0 0 1- (DIVIDE BY 4) SHIFT (AB) BY QUARTETS
35608 38 0 0 0 4 ROUND UP TO MULTIPLE OF 4 ROUND OFF
35609 31 0 0 0 2 SHIFT (A) BY BITS
35610 5 61 13 0 2 0 TRANSFER
35611 94 356 5 0 2 2 356 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
35612 82 356 2 0 0 0 356 END OF SUBROUTINE / LEAVE SUBROUTINE
35700 PROCR 357 357 O/P FORMED SECTIONS
35701 NOTES RADIX B SUBROUTINE SELECT
35702 81 357 2 0 0 0 357 START OF SUBROUTINE
35703 10 0 0 0 600000 SELECT LITERAL
35704 5 61 0 1 0 0 TRANSFER
35705 5 61 12 0 0 0 TRANSFER
35706 5 61 2 0 0 0 TRANSFER
Source image: P1030259.JPG
35722>35707 91 61 2 0 3 0 SET MODIFICATION REGISTER AT VARIABLE
35708 436 7 0 3 0 436 TYPE NO SELECT
35709 5 61 26 1 0 0 TRANSFER
35710 61 5 0 3 0 SELECT
35711 5 61 28 2 0 0 PROCR NUMBER TRANSFER
35712 80 409 2 0 0 0 409 O/P TYPE ENTER SUBROUTINE
35713 436 10 0 3 0 436 SELECT
35714 5 61 42 0 0 0 NO OF LOCNS TO STEP ON LCN CTR ON O TRANSFER
35715 124 61 0 0 0 0 modify address of next
35716 61 12 1 0 0 SECT COUNTER SELECT
35717 5 61 30 1 0 0 TRANSFER
35718 10 0 0 0 1 SELECT LITERAL
35719 4 61 2 0 0 0 AUGMENT
35720 123 2 0 0 0 step on and test
35721 C 61 0 0 0 0
35722 76 357 7 0 0 0 357 JUMP unconditional
35723 82 357 2 0 0 0 357 END OF SUBROUTINE / LEAVE SUBROUTINE
35800 PROCR 358 358 DEAL WITH TRANS VACANT SECS
35801 NOTES RADIX B CHAP END ROUTINE SELECT
35516>35802 10 0 0 0 1 TYPE 1 SELECT LITERAL
35803 5 61 26 2 0 0 TRANSFER
35804 101 1001 1 3 0 CALC SWITCH PROCR select literal address
35805 1 61 111 0 0 0 THIS CHAP UNCORRECTED ADD
35806 5 61 28 2 0 0 61/43=CHAP LENGTH TRANSFER
35807 80 409 2 0 0 0 409 >O/P 'TYPE' ENTER SUBROUTINE
35808 61 43 0 0 0 CHAP LENGTH SELECT
35809 124 61 111 0 1 0 UNCORR CHAP modify address of next
35810 5 72 17 0 0 0 STORE 72/18-31 TRANSFER
35811 434 24 1 0 0 434 'TYPE.' SELECT
35812 5 61 26 1 0 0 TRANSFER
35813 5 61 28 1 0 0 TRANSFER
35814 80 410 2 0 0 0 410 ALPHA O/P S/R ENTER SUBROUTINE
35815 10 0 0 0 1 SELECT LITERAL
35816 1 61 111 0 0 0 ADD
35817 3 61 111 0 0 0 COPY
35818 61 48 0 0 0 SELECT
35819 70 339 21 0 0 0 339 JUMP IF A == 0
35820 76 359 3 0 0 0 359 JUMP unconditional
35900 PROCR 359 359 PROG END ROUTINE
35901 NOTES RADIX B SELECT
35902 76 359 9 0 0 0 359 THIS AN ORDER CONSTANT JUMP unconditional
35820>35903 80 413 2 0 0 0 413 >O/P REMAINING DETS S/R ENTER SUBROUTINE
35904 0 437 6 0 0 0 437 ALL THE £'S SELECT
35905 5 66 2 1 0 0 SET AS BLOCK SERIAL TRANSFER
35906 359 2 0 0 0 359 SELECT
35907 5 419 2 0 0 0 419 PLANT AN END SIGN TRANSFER
35908 76 415 23 0 0 0 415 >I/P C-LINE SR JUMP unconditional
35902>35909 10 0 0 0 1 SELECT LITERAL
35910 5 23 47 0 0 0 ALWAYS PRINT END SIGN TRANSFER
35911 80 423 2 0 0 0 423 >BLANK LINE ENTER SUBROUTINE
35912 80 403 2 0 0 0 403 >PRINT END SIGN ENTER SUBROUTINE
35913 72 2 0 0 0 ENTRY POINT SELECT
35914 5 61 35 0 0 0 TRANSFER
35915 80 396 2 0 0 0 396 ENTER SUBROUTINE
35916 5 92 8 0 0 0 CHAP OF ENTRY TRANSFER
35917 27 5 0 0 0 ENTRY LOCN SELECT
35918 5 92 6 0 0 0 TRANSFER
35919 0 434 30 1 0 0 434 'TYPE£' SELECT
Source image: P1030260.JPG
35920 05 9 4 1 0 0 TRANSFER
35921 436 2 1 0 0 436 SELECT
35922 05 9 6 1 0 0 BEW TRANSFER
35923 80 407 2 0 0 0 407 >O/P ENTER SUBROUTINE
35931>35924 80 432 2 0 0 0 432 >READ A2 ENTER SUBROUTINE
35925 8 4 1 0 0 SELECT
35926 12 0 0 0 5659655972 'FINIS' SUBTRACT LITERAL
35927 70 359 32 0 0 0 359 >END JUMP IF A == 0
35928 55 8 4 1 0 50 BULK COPY
35929 C 9 4 1 0 0
35930 80 407 2 0 0 0 407 >WRITE A6 ENTER SUBROUTINE
35931 76 359 24 0 0 0 359 JUMP unconditional
35927>35932 55 70 0 1 0 100 COPY DETAILS FOR PASS 3 BULK COPY
35933 C 9 0 1 0 0
35934 45 A6 0 0 0 0 REWIND O/P FILE REWIND
35935 76 326 2 0 0 0 326 >CALL PASS 3 JUMP unconditional
36000 PROCR 360 360 INST ROUTINE
36001 NOTES RADIX B NOTES AND CONTINUATION OF SWITCH INTO NEXT PROCEDURE SELECT
34503>36002 10 0 0 0 1 SELECT LITERAL
36003 5 61 99 0 0 0 NON I/P IND TRANSFER
36004 80 415 2 0 0 0 415 -I/P C-LINE S/R ENTER SUBROUTINE
36005 66 2 1 0 0 LINE SERIAL SELECT
36006 5 67 0 1 0 0 TRANSFER
36007 5 61 2 0 0 0 CLEAR MOD DIGITS FOR M&P. TRANSFER
36008 5 61 25 0 0 0 SET BINARY INDICATOR TRANSFER
36009 0 61 110 0 0 0 GROUP+1 SELECT
36010 70 353 2 0 0 0 353 G.N.B TEST GROUP OUT JUMP IF A == 0
36011 73 353 2 0 0 0 353 G.N.B OF RANGE JUMP IF A < 0
36012 12 0 0 0 11 SUBTRACT LITERAL
36013 72 353 2 0 0 0 353 G.N.B JUMP IF A >= 0
36014 84 361 2 0 0 0 361 SWITCH B (GROUP) SET SWITCH(ES) AT VARIABLE VALUE
36015 C 61 110 0 0 0
36016 84 411 2 0 0 0 411 VARIANT SWITCH SET SWITCH(ES) AT VARIABLE VALUE
36017 C 61 50 0 0 0 VARIANT +1
36100 PROCR 361 361 SWITCH B
36101 NOTES RADIX B SELECT
36102 10 0 0 0 0 SELECT LITERAL
36103 85 361 2 0 0 0 361 SWITCH R
36104 C 352 8 0 0 0 352
36105 C 352 8 0 0 0 352
36106 C 352 8 0 0 0 352
36107 C 352 8 0 0 0 352
36108 C 352 8 0 0 0 352
36109 C 352 8 0 0 0 352
36110 C 352 8 0 0 0 352
36111 C 352 8 0 0 0 352
36112 C 352 8 0 0 0 352
36113 C 352 8 0 0 0 352
36114 C 366 5 0 0 0 366 10
36115 C 366 4 0 0 0 366 11
36116 C 366 3 0 0 0 366 12
36117 C 366 2 0 0 0 366 13
36118 C 352 8 0 0 0 352
36119 C 352 8 0 0 0 352
36200 PROCR 362 362 S.C. S/R
36201 NOTES RADIX B SELECT
36202 81 362 2 0 0 0 362 REF START OF SUBROUTINE
Source image: P1030261.JPG
36203 0 66 6 1 0 0 REF SELECT
36204 70 364 9 0 0 0 364 JUMP IF A == 0
36205 12 0 0 0 3.7 999 SUBTRACT LITERAL
36206 72 364 9 0 0 0 364 >SKIP JUMP IF A >= 0
36207 66 8 1 0 0 ITEM SELECT
36208 71 362 13 0 0 0 362 >NOT TO PROCR START JUMP IF A != 0
36209 61 10 0 0 0 THIS PROCR SELECT
36210 2 66 6 0 0 0 REF SUBTRACT
36211 72 363 30 0 0 0 363 >SC BACK TO PROCR START JUMP IF A >= 0
36212 76 362 23 0 0 0 362 >SC FORWARD JUMP unconditional
36208>36213 95 0 0 1 0 CURRENT HEAD OF'SC BACK' LIST SELECT MODIFICATION REGISTER
36214 30 0 0 0 5 SHIFT (A) BY QUARTETS
36215 1 436 15 0 0 0 436 ABS ADDRESS 18/0 ADD
36216 91 0 0 2 0 R2=(A) SET MODIFICATION REGISTER AT VARIABLE
36217 94 362 19 0 2 0 362 ///// STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
36218 76 362 23 0 0 0 362 >NO DESTS REPLACED YET JUMP unconditional
36222>
36217>36219 66 2 0 0 0 THIS ORDER SELECT
36220 2 1 0 2 0 INTERCODE DEST SUBTRACT
36221 70 364 2 0 0 0 364 >MATCH FOUND JUMP IF A == 0
36222 94 362 19 0 2 2 362 >TRY NEXT STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
36218>
36212>36223 0 66 6 1 0 0 ASSUME SEQ CH F SELECT
36224 80 431 2 0 0 0 431 >REF TO DEC ENTER SUBROUTINE
36225 30 0 0 0 2 SHIFT (A) BY QUARTETS
36226 5 61 18 0 0 0 TRANSFER
36227 0 66 8 1 0 0 SELECT
36228 80 431 2 0 0 0 431 >ITEM TO DEC ENTER SUBROUTINE
36229 11 0 0 0 2 ADD 2 TO ITEM ADD LITERAL
36230 4 61 18 0 0 0 AUGMENT
36231 62 0 0 0 0 SET BINARY SET EXCESS CONSTANTS
36232 0 61 117 0 0 0 CTR OF SEC 20 LENGTH SELECT
36233 91 0 0 2 0 ZERO END VALUE SET MODIFICATION REGISTER AT VARIABLE
36234 70 363 9 0 0 0 363 >EMPTY JUMP IF A == 0
36235 12 0 0 0 12+ 300 SUBTRACT LITERAL
36236 73 362 38 0 0 0 362 >OK JUMP IF A < 0
36237 82 362 2 0 0 0 362 >EXIT, DON T SET S'C IND END OF SUBROUTINE / LEAVE SUBROUTINE
36308>
36236>36238 0 20 3- 0 2 0 NEXT DEST(LAST IN LIST FIRST) SELECT
36239 2 61 18 0 0 0 SUBTRACT
36240 73 363 9 0 0 0 363 >FITS NOW JUMP IF A < 0
36300 PROCR 363 363 S.C. S/R
36301 NOTES RADIX SELECT
36302 0 20 3- 0 2 0 MOVE LIST DOWN 1 ITEM SELECT
36303 5 20 0 0 2 0 TRANSFER
36304 0 20 2- 0 2 0 SELECT
36305 5 20 1 0 2 0 TRANSFER
36306 0 20 1- 0 2 0 SELECT
36307 5 20 2 0 2 0 TRANSFER
36308 94 362 38 0 2 3- 362 >NEXT STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
36240>
36234>36309 0 61 18 0 0 0 DEST OF NEWCOMER SELECT
36310 5 20 0 0 2 0 TRANSFER
36311 66 2 1 0 0 SOURCE SELECT
36312 5 20 1 0 2 0 TRANSFER
36313 66 8 1 0 0 SELECT
36314 3 20 2 0 2 0 COPY
36315 70 363 28 0 0 0 363 >DEST IS A PROCR START JUMP IF A == 0
36316 10 0 0 0 1 SELECT LITERAL
Source image: P1030262.JPG
36317 5 67 1 0 0 0 SET 'SEQ CH' IND TRANSFER
36318 0 438 19 0 0 0 438 FLIPFLOP 1/10 SELECT
36319 30 0 0 0 4 TO Q5 SHIFT (A) BY QUARTETS
36320 1 61 118 0 0 0 ABS LOCN IN SEC 18(18:2499 INITIALL ADD
36321 5 20 2 0 2 0 TRANSFER
36322 10 0 0 0 Ю SELECT LITERAL
36323 2 438 19 0 0 0 438 SUBTRACT
36324 3 438 19 0 0 0 438 REVERSE COPY
36325 71 363 28 0 0 0 363 >NEXT TIME IS TOP 10 BITS OF SAME LOCN JUMP IF A != 0
36326 12 0 0 0 1 SUBTRACT LITERAL
36327 4 61 118 0 0 0 REDUCE ABS ADDRESS AUGMENT
36325>
36315>36328 10 0 0 0 3 SELECT LITERAL
36329 4 61 117 0 0 0 STEP CTR OF ACTIVE SC'S AUGMENT
36211>36330 82 362 2 0 0 0 362 END OF SUBROUTINE / LEAVE SUBROUTINE
36400 PROCR 364 364 SC S/R: MATCH FOUND IN SC BACK LIST
36401 NOTES RADIX B SELECT
36221>36402 34 0 0 2 0 PROCR+ITEM SET (N) IN B
36403 33 0 0 0 30 SHIFT (AB) BY BITS
36404 5 66 6 1 0 0 REF(BITS 11-20) TRANSFER
36405 33 0 0 0 10 SHIFT (AB) BY BITS
36406 5 66 8 1 0 0 ITEM(BITS 1-10) TRANSFER
36407 96 0 0 2 0 SELECT MODIFIER
36408 80 365 2 0 0 0 365 >CONTRACT LIST ENTER SUBROUTINE
36206>
36204>36409 82 362 2 0 0 0 362 END OF SUBROUTINE / LEAVE SUBROUTINE
36500 PROCR 365 365 CONTRACT THE SC BACK LIST BY 1 WORD
36501 NOTES 365 SELECT
36502 81 365 2 0 0 0 365 START OF SUBROUTINE
36503 5 61 114 0 0 0 WORD TO BE OVERWRITTEN TRANSFER
36504 95 0 0 1 0 SELECT MODIFICATION REGISTER
36505 5 61 18 1 0 0 START/END OF LIST (ABS) TRANSFER
36506 61 19 0 0 0 SELECT
36507 2 61 114 0 0 0 SUBTRACT
36508 70 365 18 0 0 0 365 >NONE TO BE MOVED JUMP IF A == 0
36509 30 0 0 0 5 SHIFT (A) BY QUARTETS
36510 1 61 114 0 0 0 ADD
36511 11 0 0 0 2 FORM SOURCE IN A ADD LITERAL
36512 124 61 114 0 3 0 modify address of next
36513 128 0 1 1 0 COPY UP BY 1 WORD bulk copy long numeric
36514 12 0 0 0 2 SUBTRACT LITERAL
36515 4 61 18 0 0 0 AUGMENT
36516 4 61 19 0 0 0 ADJUST R1 FOR NEW LIST POSITION AUGMENT
36517 91 61 18 0 1 0 SET MODIFICATION REGISTER AT VARIABLE
36508>36518 82 365 2 0 0 0 365 END OF SUBROUTINE / LEAVE SUBROUTINE
36600 PROCR 366 366 M/C ACTIONS
36601 NOTES RADIX B CALCULATE PARAMETER, TEST 24/1/0 OR 27/D/M SELECT
36117>36602 10 0 0 0 Ю GROUP 13 SELECT LITERAL
36116>36603 11 0 0 0 Ю 12 ADD LITERAL
36115>36604 11 0 0 0 Ю 11 ADD LITERAL
36114>36605 12 0 0 0 1 10 SUBTRACT LITERAL
36606 1 61 50 0 0 0 V+1 ADD
36607 3 61 0 0 0 0 ACTION COPY
36608 12 0 0 0 17 23 SUBTRACT LITERAL
36609 70 368 2 0 0 0 368 >ACTION 23 JUMP IF A == 0
36610 12 0 0 0 9 SUBTRACT LITERAL
36611 72 352 8 0 0 0 352 JUMP IF A >= 0
Source image: P1030263.JPG
36804>36612 66 6 0 0 0 REF PARA 0 OR 2C SELECT
36613 70 366 20 0 0 0 366 JUMP IF A == 0
36614 3 61 35 0 0 0 COPY
36615 80 396 2 0 0 0 396 DET CHAP ENTER SUBROUTINE
36616 31 0 0 0 1 FORM 2C' SHIFT (A) BY BITS
36617 76 366 20 0 0 0 366 >STORE PARA JUMP unconditional
36618 61 51 0 0 0 SELECT
36619 1 61 51 0 0 0 ADD
36617>
36613>36620 5 61 34 0 0 0 PARA W/L TRANSFER
36621 0 66 10 0 0 0 DISC SELECT
36622 12 0 0 0 2 SUBTRACT LITERAL
36623 71 366 27 0 0 0 366 >TAKE YOUR CHANCE JUMP IF A != 0
36624 10 0 0 0 1 SELECT LITERAL
36625 3 66 10 0 0 0 COPY
36626 4 66 8 1 0 0 ADJUST ITEM AUGMENT
36623>36627 61 0 0 0 0 ACTION SELECT
36628 3 362 2 0 0 0 362 COPY
36629 31 0 0 0 1 SHIFT (A) BY BITS
36630 34 435 2 0 0 0 435 BIT 1 SET (N) IN B
36631 36 66 10 0 0 0 DISC COLLATE AND ADD
36632 31 0 0 0 2 SHIFT (A) BY BITS
36633 34 436 18 0 0 0 436 BITS 1+2 SET (N) IN B
36634 36 66 12 0 0 0 MOD DIGITS COLLATE AND ADD
36635 31 0 0 0 1 SHIFT (A) BY BITS
36636 30 0 0 0 3 SHIFT (A) BY QUARTETS
36637 3 61 0 0 0 0 COMBINED A/D/M COPY
36638 30 0 0 0 5- SHIFT (A) BY QUARTETS
36639 70 366 47 0 0 0 366 >POSITIVE ACTION JUMP IF A == 0
36640 61 0 0 0 0 SELECT
36641 71 366 44 0 0 0 366 >NOT'0-' JUMP IF A != 0
36642 10 0 0 0 2 SELECT LITERAL
36643 5 67 1 0 0 0 SET IND TRANSFER
36641>36644 10 0 0 0 0 SELECT LITERAL
36645 2 61 0 0 0 0 SUBTRACT
36646 5 61 0 0 0 0 NEGATE ACTION TRANSFER
36639>36647 5 66 10 1 0 0 TRANSFER
36648 5 66 12 1 0 0 TRANSFER
36649 61 0 0 0 0 SELECT
36650 2 437 46 0 0 0 437 24/1/0 SUBTRACT
36651 70 367 2 0 0 0 367 >IS A SEQ CHANGE JUMP IF A == 0
36652 362 2 0 0 0 362 SELECT
36653 12 0 0 0 1‼ TEST FOR 27/D/M SUBTRACT LITERAL
36654 71 367 3 0 0 0 367 JUMP IF A != 0
36700 PROCR 367 367 M/C ACTIONS
36701 NOTES RADIX B SELECT
36651>36702 80 362 2 0 0 0 362 -S.C. S/R ENTER SUBROUTINE
36821>
36654>36703 80 424 2 0 0 0 424 -NEG NO S/R ENTER SUBROUTINE
36704 80 425 2 0 0 0 425 - STACK ENTER SUBROUTINE
36705 80 411 2 0 0 0 411 O/P ENTER SUBROUTINE
36706 76 353 2 0 0 0 353 GNB JUMP unconditional
36800 PROCR 368 368 ACTION 123/0/0
36801 NOTES RADIX B SELECT
36609>36802 66 12 0 0 0 MOD SELECT
36803 34 66 10 0 0 0 DISC SET (N) IN B
36804 75 366 12 0 0 0 366 JUMP IF AB != 0
36805 5 61 34 0 0 0 SET PARA ZERO TRANSFER
Source image: P1030264.JPG
36806 00 437 61 0 0 0 437 23/0/0 SELECT
36807 5 61 0 0 0 0 TRANSFER
36808 80 425 2 0 0 0 425 -STACK ENTER SUBROUTINE
36809 80 411 2 0 0 0 411 -O/P ENTER SUBROUTINE
36810 80 414 2 0 0 0 414 I/P INSTRUCTION ENTER SUBROUTINE
36811 66 6 0 0 0 SELECT
36812 70 368 19 0 0 0 368 -ABS ADD JUMP IF A == 0
36813 5 61 35 0 0 0 TRANSFER
36814 80 396 2 0 0 0 396 -DET CHAP ENTER SUBROUTINE
36815 3 61 34 0 0 0 COPY
36816 1 61 34 0 0 0 ADD
36817 70 368 19 0 0 0 368 >DON'T MAKE A PARA 1- JUMP IF A == 0
36818 12 0 0 0 1 SUBTRACT LITERAL
36817>
36812>36819 5 61 34 0 0 0 TRANSFER
36820 5 61 0 0 0 0 TRANSFER
36821 76 367 3 0 0 0 367 JUMP unconditional
36900 PROCR 369 369 SET NON-INTERRUPTIBLE S/R
36901 NOTES RADIX B GROUPS 4 AND 15 BEFORE ENTER MASTER SELECT
36902 81 369 2 0 0 0 369 START OF SUBROUTINE
36903 437 73 0 0 0 437 25/1/1/4096 SELECT
36904 80 350 2 0 0 0 350 >O/P ENTER SUBROUTINE
36905 80 399 2 0 0 0 399 >O/P 24/0/3 0 ENTER SUBROUTINE
36906 82 369 2 0 0 0 369 END OF SUBROUTINE / LEAVE SUBROUTINE
37000 PROCR 370 370 CONSTANTS
37001 NOTES RADIX B SELECT
34505>37002 54 61 55 0 0 14 CLEAR W/LS BULK CLEAR
37003 80 379 2 0 0 0 379 -PREP S/R ENTER SUBROUTINE
37004 80 380 2 0 0 0 380 -GET NEXT CHAR S/R ENTER SUBROUTINE
37418>37005 10 0 0 0 0 SELECT LITERAL
37100 PROCR 371 371 CONSTANTS
37101 NOTES RADIX B SELECT
37732>37102 80 380 2 0 0 0 380 -GET NEXT CHAR ENTER SUBROUTINE
37103 10 0 0 0 1 SELECT LITERAL
37104 5 61 30 0 0 0 DEFN LINE IND TRANSFER
37105 5 61 98 1 0 0 TRANSFER
37106 91 61 60 0 2 0 SET MODIFICATION REGISTER AT VARIABLE
37107 61 24 0 0 0 THIS CHARACTER SELECT
37108 12 0 0 0 51 A SUBTRACT LITERAL
37109 70 372 6 0 0 0 372 JUMP IF A == 0
37110 12 0 0 0 1 B SUBTRACT LITERAL
37111 70 372 3 0 0 0 372 JUMP IF A == 0
37112 12 0 0 0 1 >NOT 'C' SUBTRACT LITERAL
37113 71 371 16 0 0 0 371 16 JUMP IF A != 0
37114 10 0 0 0 10 >SET AS SUBFIELD LENGTH SELECT LITERAL
37115 76 371 21 0 0 0 371 JUMP unconditional
37113>37116 12 0 0 0 1 SUBTRACT LITERAL
37117 70 372 4 0 0 0 372 JUMP IF A == 0
37118 12 0 0 0 13 P SUBTRACT LITERAL
37119 70 372 5 0 0 0 372 JUMP IF A == 0
37120 10 0 0 0 £ HENCE'R' SELECT LITERAL
37115>37121 5 61 55 0 2 0 SUBFIELD LENGTH TRANSFER
37200 PROCR 372 372 CONSTANTS
37201 NOTES RADIX B SELECT
37202 10 0 0 0 1 R,C=5 SELECT LITERAL
37111>37203 11 0 0 0 1 B=4 ADD LITERAL
Source image: P1030265.JPG
37117>37204 11 0 0 0 1 D=3 ADD LITERAL
37119>37205 11 0 0 0 1 P=2 ADD LITERAL
37109>37206 11 0 0 0 1 A=1 ADD LITERAL
37207 3 61 62 0 2 0 SWITCH SETTING COPY
37208 84 374 2 0 0 0 374 SET SWITCH(ES) AT VARIABLE VALUE
37216>37209 80 380 2 0 0 0 380 GET NEXT CHAR ENTER SUBROUTINE
37210 12 0 0 0 7‼ ) SUBTRACT LITERAL
37211 70 373 2 0 0 0 373 JUMP IF A == 0
37212 00 61 98 1 0 0 COLLECT * IN'(B)' DIRECTIVE SELECT
37213 30 0 0 0 2 SHIFT (A) BY QUARTETS
37214 1 61 24 0 0 0 THIS CHAR ADD
37215 05 61 98 1 0 0 TRANSFER
37216 76 372 9 0 0 0 372 LOOP UNTIL')'FOUND JUMP unconditional
37300 PROCR 373 373 CONSTANTS
37301 NOTES RADIX B SELECT
37211>37302 32 0 0 0 10 PRESERVE B DURING CONVERT SHIFT (AB) BY QUARTETS
37303 5 61 96 1 0 0 TRANSFER
37304 61 98 2 0 0 SELECT
37305 80 430 2 0 0 0 430 CONVERT NO OF BITS FOR BIN CONSTANT ENTER SUBROUTINE
37306 73 373 8 0 0 0 373 >SAFETY DEVICE JUMP IF A < 0
37307 4 61 55 0 2 0 AUG SHIFT CONTROL AUGMENT
37306>37308 34 61 96 1 0 0 RESTORE B SET (N) IN B
38414>
38416>
38419>37309 10 0 0 0 0 SELECT LITERAL
37400 PROCR 374 374 CONSTANTS MAIN LOOP
37401 NOTES RADIX B SELECT
38311>
38509>
38518>
38608>37402 80 380 2 0 0 0 380 GET NEXT CHAR ENTER SUBROUTINE
37608>
37728>
38806>37403 12 0 0 0 7Ю ( SUBTRACT LITERAL
37404 70 374 15 0 0 0 374 >YES JUMP IF A == 0
37405 12 0 0 0 2 , SUBTRACT LITERAL
37406 70 376 2 0 0 0 376 JUMP IF A == 0
37407 12 0 0 0 1 NE SUBTRACT LITERAL
37408 70 377 2 0 0 0 377 >END OF CONSTANT JUMP IF A == 0
37409 85 374 2 0 0 0 374 SWITCH R
37410 C 383 2 0 0 0 383 ALPHA
37411 C 384 2 0 0 0 384 P
37412 C 385 2 0 0 0 385 D
37413 C 387 2 0 0 0 387 B
37414 C 389 2 0 0 0 389 R
37404>37415 10 0 0 0 1 SELECT LITERAL
37416 5 61 61 0 0 0 MIXED CONST IND TRANSFER
37417 80 375 2 0 0 0 375 >SHIFT UP PREVIOUS SUBFIELD ENTER SUBROUTINE
37418 76 370 5 0 0 0 370 >GET NEXT CHAR JUMP unconditional
37500 PROCR 375 375 CONSTANTS S/R
37501 NOTES RADIX B ADD THIS SUBFIELD TO PREVIOUS ONES SELECT
37502 81 375 2 0 0 0 375 START OF SUBROUTINE
37503 0 61 26 1 0 0 CONSTANT TO DATE SELECT
37504 124 61 60 0 0 0 SUBFIELD CTR modify address of next
37505 124 61 55 0 0 0 LENGTH OF SUBFIELD modify address of next
37506 31 0 0 0 0 ///// SHIFT (A) BY BITS
37507 1 61 28 1 0 0 VALUE OF CURRENT SUBCONST ADD
Source image: P1030266.JPG
37508 5 61 26 1 0 0 TRANSFER
37509 5 61 28 1 0 0 TRANSFER
37510 10 0 0 0 1 SELECT LITERAL
37511 4 61 60 0 0 0 STEP SF COUNTER AUGMENT
37512 82 375 2 0 0 0 375 END OF SUBROUTINE / LEAVE SUBROUTINE
37600 PROCR 376 376 , ROUTINE
37601 NOTES RADIX B SELECT
37406>37602 80 380 2 0 0 0 380 >GET NEXT CHAR AFTER COMMA ENTER SUBROUTINE
37603 80 375 2 0 0 0 375 >ADD IN SUBCONST PRECEDING COMMA ENTER SUBROUTINE
37726>37604 91 61 60 0 2 0 SET MODIFICATION REGISTER AT VARIABLE
37605 84 374 2 0 0 0 374 SET SWITCH(ES) AT VARIABLE VALUE
37606 C 61 62 0 2 0 NEXT SUBFIELD TYPE
37607 61 24 0 0 0 NEXT CHAR AFTER COMMA SELECT
37608 76 374 3 0 0 0 374 JUMP unconditional
37700 PROCR 377 377 PREPARE FOR O/P
37701 NOTES RADIX B CONSTANTS SELECT
37408>37702 80 375 2 0 0 0 375 >ADD IN FINAL SUBCONST ENTER SUBROUTINE
37703 61 32 0 0 0 NEG IND SELECT
37704 70 377 13 0 0 0 377 >CONSTANT IS POSITIVE JUMP IF A == 0
37705 61 47 0 0 0 CONST TYPE SELECT
37706 70 377 11 0 0 0 377 SHORT CONST JUMP IF A == 0
37707 10 0 0 0 0 SELECT LITERAL
37708 2 61 26 1 0 0 SUBTRACT
37709 5 61 26 1 0 0 TRANSFER
37710 76 377 13 0 0 0 377 COMPLEMENT CONST LONG OR SHORT JUMP unconditional
37706>37711 2 61 26 0 0 0 SUBTRACT
37712 5 61 26 0 0 0 TRANSFER
37919>
37710>
37704>37713 6 2 12 0 SELECT
37714 5 61 31 0 0 0 SET END IND TRANSFER
37715 80 403 2 0 0 0 403 >PRINT ENTER SUBROUTINE
37716 80 378 2 0 0 0 378 >CONST O/P SR ENTER SUBROUTINE
37717 61 31 0 0 0 END IND SELECT
37718 71 353 2 0 0 0 353 >YES,GNB JUMP IF A != 0
37719 80 401 2 0 0 0 401 -I/P ENTER SUBROUTINE
37720 80 379 2 0 0 0 379 -PREP S/R ENTER SUBROUTINE
37721 10 0 0 0 0 CLEAR A FOR GET NEXTCHARACTER S/R SELECT LITERAL
37722 80 380 2 0 0 0 380 -GET NEXT CHAR ENTER SUBROUTINE
37723 12 0 0 0 7Ю ( SUBTRACT LITERAL
37724 70 377 29 0 0 0 377 >THIS IS A DIRECTIVE LINE JUMP IF A == 0
37725 61 61 0 0 0 SELECT
37726 71 376 4 0 0 0 376 -THIS IS A MIXED CONSTANT JUMP IF A != 0
37727 61 24 0 0 0 NEXT CHARACTER SELECT
37728 76 374 3 0 0 0 374 - JUMP unconditional
37724>37729 5 61 55 0 0 0 TRANSFER
37730 5 61 56 1 0 0 TRANSFER
37731 5 61 58 1 0 0 TRANSFER
37732 76 371 2 0 0 0 371 >GET DIRECTIVE LETTER JUMP unconditional
37800 PROCR 378 378 O/P S/R
37801 NOTES RADIX B CONSTANTS SELECT
37802 81 378 2 0 0 0 378 START OF SUBROUTINE
37803 61 27 0 0 0 MOST SIG HALF LONG CONST SELECT
37804 5 67 3 0 0 0 TRANSFER
37805 61 26 0 0 0 LEAST SIG HALF SELECT
37806 124 61 68 0 0 0 0 OR 2 modify address of next
37807 5 67 1 0 0 0 TRANSFER
Source image: P1030267.JPG
37808 61 47 0 0 0 CONST TYPE SELECT
37809 71 378 16 0 0 0 378 -LONG NO CONST JUMP IF A != 0
37810 61 31 0 0 0 NONZERO IF FINAL CONST IN SECTION SELECT
37811 71 378 16 0 0 0 378 - JUMP IF A != 0
37812 10 0 0 0 2 SELECT LITERAL
37813 2 61 68 0 0 0 SUBTRACT
37814 3 61 68 0 0 0 COPY
37815 71 378 23 0 0 0 378 >FIRST TIME THRU JUMP IF A != 0
37811>
37809>37816 61 26 1 0 0 SET B8 OF PARAM SELECT
37817 72 378 22 0 0 0 378 IF NEGATIVE LN CONSTJUMP IF A >= 0
37818 61 27 0 0 0 WITH MOST SIGNI SELECT
37819 71 378 22 0 0 0 378 >MOST SIG HALF IS NOT MINUS ZERO JUMP IF A != 0
37820 10 0 0 0 80 B8 SELECT LITERAL
37821 4 67 2 0 0 0 PARAMETER AUGMENT
37819>
37817>37822 80 411 2 0 0 0 411 O/P ENTER SUBROUTINE
37815>37823 82 378 2 0 0 0 378 END END OF SUBROUTINE / LEAVE SUBROUTINE
37900 PROCR 379 379 CONSTANTS PREP S/R
37901 NOTES RADIX B SELECT
37902 81 379 2 0 0 0 379 START OF SUBROUTINE
37903 54 61 26 0 0 8 CLEAR W/L'S BULK CLEAR
37904 77 2 1 0 0 AMEND IND SELECT
37905 5 7 2 1 0 0 TRANSFER
37906 77 4 1 0 0 LINE SERIAL SELECT
37907 5 7 6 1 0 0 TRANSFER
37908 55 77 8 1 0 18 COPY CONSTANTS BULK COPY
37909 C 7 12 1 0 0
37910 77 26 1 0 0 PASS 1 REPORTS SELECT
37911 5 7 48 1 0 0 TRANSFER
37912 55 77 28 1 0 16 COPY ANNOTATION BULK COPY
37913 C 7 32 1 0 0
37914 0 61 68 0 0 0 O/P IND SELECT
37915 71 379 17 0 0 0 379 >SECOND HALF OF SHORT CONST JUMP IF A != 0
37916 5 67 0 0 0 0 CLEAR THIS TRANSFER
37915>37917 7 46 1 0 0 SELECT
37918 2 434 28 1 0 0 434 IGNORE TRANSLATION IND SUBTRACT
37919 70 377 13 0 0 0 377 >YES,GO TO PRINT JUMP IF A == 0
37920 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
37921 C 0 0 0 10
37922 34 77 8 1 0 0 FIRST WORD OF CONSTANT SET (N) IN B
37923 10 0 0 0 2 SELECT LITERAL
37924 5 61 38 0 0 0 SET WORD CTR TRANSFER
37925 5 61 60 0 0 0 S/F MOD TRANSFER
37926 82 379 2 0 0 0 379 END OF SUBROUTINE / LEAVE SUBROUTINE
38000 PROCR 380 380 GET NEXT CHAR S/R
38001 NOTES RADIX B SELECT
38002 81 380 2 0 0 0 380 START OF SUBROUTINE
38003 32 0 0 0 2 SHIFT (AB) BY QUARTETS
38004 5 61 24 1 0 0 THIS CHAR W/L TRANSFER
38005 94 380 12 0 3 2 380 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
38006 124 61 38 0 0 0 modify address of next
38007 34 77 8 1 0 0 NEXT WORD SET (N) IN B
38008 10 0 0 0 2 SELECT LITERAL
38009 4 61 38 0 0 0 AUGMENT
38010 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
38011 C 0 0 0 10
38005>38012 61 24 1 0 0 SELECT
Source image: P1030268.JPG
38013 82 380 2 0 0 0 380 END OF SUBROUTINE / LEAVE SUBROUTINE
38100 PROCR 381 381 TEST (,NE S/R
38101 NOTES RADIX B CONSTANTS SELECT
38102 81 381 2 0 0 0 381 START OF SUBROUTINE
38103 12 0 0 0 7Ю ( SUBTRACT LITERAL
38104 70 381 8 0 0 0 381 JUMP IF A == 0
38105 12 0 0 0 2 , SUBTRACT LITERAL
38106 70 381 8 0 0 0 381 JUMP IF A == 0
38107 12 0 0 0 1 NE SUBTRACT LITERAL
38106>
38104>38108 82 381 2 0 0 0 381 END OF SUBROUTINE / LEAVE SUBROUTINE
38200 PROCR 382 382 PUT THIS CHAR INTO O/P WORD S/R
38201 NOTES RADIX B SELECT
38202 81 382 2 0 0 0 382 START OF SUBROUTINE
38203 61 28 1 0 0 SELECT
38204 30 0 0 0 1 SHIFT (A) BY QUARTETS
38205 1 61 24 2 0 0 NEXT CHAR(BASIC ONLY) ADD
38206 5 61 28 1 0 0 TRANSFER
38207 82 382 2 0 0 0 382 END OF SUBROUTINE / LEAVE SUBROUTINE
38300 PROCR 383 383 ALPHA CONSTANTS
38301 NOTES RADIX B SELECT
37410>38302 61 30 0 0 0 DEFN LINE IND SELECT
38303 70 383 7 0 0 0 383 >NO JUMP IF A == 0
38304 10 0 0 0 8 SELECT LITERAL
38305 124 61 60 0 0 0 SF CTR modify address of next
38306 4 61 55 0 0 0 AUG SF LENGTH BY 8 FOR EACH ALPHA C AUGMENT
38303>38307 61 28 1 0 0 SELECT
38308 30 0 0 0 2 SHIFT (A) BY QUARTETS
38309 1 61 24 0 0 0 ADD
38310 5 61 28 1 0 0 ADD IN THIS CHAR TO SUBCONST TRANSFER
38311 76 374 2 0 0 0 374 JUMP unconditional
38400 PROCR 384 384 BINAY PATTERNS
38401 NOTES RADIX B SELECT
37411>38402 0 61 24 0 0 0 THIS CHARACTER SELECT
38403 12 0 0 0 10 MINUS SIGN SUBTRACT LITERAL
38404 70 384 15 0 0 0 384 JUMP IF A == 0
38405 0 61 30 0 0 0 SELECT
38406 70 384 10 0 0 0 384 >NOT DEFINITION LINE JUMP IF A == 0
38407 10 0 0 0 1 SELECT LITERAL
38408 124 61 60 0 0 0 SF MOD modify address of next
38409 4 61 55 0 0 0 AUG SF LENGTH BY 1 BIT PER CHAR AUGMENT
38406>38410 61 28 1 0 0 SELECT
38411 1 61 28 1 0 0 ADD
38412 1 61 24 2 0 0 ADD
38413 5 61 28 1 0 0 ADD THIS BIT INTO SUBCONST TRANSFER
38414 76 373 9 0 0 0 373 JUMP unconditional
38404>38415 0 61 60 0 0 0 TEST FIRST SUBFIELD SELECT
38416 71 373 9 0 0 0 373 JUMP IF A != 0
38417 10 0 0 0 1 SELECT LITERAL
38418 5 61 32 0 0 0 NEG INDICATOR TRANSFER
38419 76 373 9 0 0 0 373 JUMP unconditional
38500 PROCR 385 385 DECIMAL CONSTS (-VE)
38501 NOTES RADIX B SELECT
37412>38502 61 24 0 0 0 SELECT
38503 12 0 0 0 10 NEG SIGN SUBTRACT LITERAL
Source image: P1030269.JPG
38504 71 386 2 0 0 0 386 JUMP IF A != 0
38505 61 60 0 0 0 S/F MOD SELECT
38506 71 385 10 0 0 0 385 NOT FIRST MOD JUMP IF A != 0
38507 10 0 0 0 1 SELECT LITERAL
38508 5 61 32 0 0 0 NEG IND TRANSFER
38509 76 374 2 0 0 0 374 JUMP unconditional
38506>38510 10 0 0 0 1 BIT 1 SELECT LITERAL
38511 124 61 60 0 0 0 SF MOD modify address of next
38512 124 61 55 0 0 0 SF LENGTH modify address of next
38513 31 0 0 0 0 ///// SHIFT (A) BY BITS
38514 60 0 0 0 0 SET DECIMAL RADIX
38515 2 61 28 1 0 0 FORM N BIT SUBTRACT
38516 5 61 28 1 0 0 DEC COMPT TRANSFER
38517 62 0 0 0 0 SET EXCESS CONSTANTS
38518 76 374 2 0 0 0 374 JUMP unconditional
38600 PROCR 386 386 DECIMAL CONSTANTS (+VE)
38601 NOTES RADIX B SELECT
38504>38602 61 30 0 0 0 SELECT
38603 70 386 7 0 0 0 386 >NOT DIRECTIVE LINE JUMP IF A == 0
38604 10 0 0 0 4 SELECT LITERAL
38605 124 61 60 0 0 0 SF MOD modify address of next
38606 4 61 55 0 0 0 AUG SF LENGTH BY 4 BITS PER CHAR AUGMENT
38603>38607 80 382 2 0 0 0 382 >ADD THIS CHAR TO O/P WORD ENTER SUBROUTINE
38608 76 374 2 0 0 0 374 JUMP unconditional
38700 PROCR 387 387 BINARY NO CONSTANTS
38701 NOTES RADIX B SELECT
38711>
37413>38702 61 24 0 0 0 SELECT
38703 12 0 0 0 10 -SIGN SUBTRACT LITERAL
38704 71 387 8 0 0 0 387 JUMP IF A != 0
38705 10 0 0 0 1 SELECT LITERAL
38706 5 61 33 0 0 0 TRANSFER
38707 76 387 9 0 0 0 387 JUMP unconditional
38704>38708 80 382 2 0 0 0 382 -THIS CHAP SET UP O/P ENTER SUBROUTINE
38707>38709 80 380 2 0 0 0 380 -GET NEXT CHAT ENTER SUBROUTINE
38710 80 381 2 0 0 0 381 -TEST S/R ENTER SUBROUTINE
38711 71 387 2 0 0 0 387 JUMP IF A != 0
38712 32 0 0 0 10 SHIFT (AB) BY QUARTETS
38713 5 61 34 1 0 0 PRESERVE B TRANSFER
38714 61 28 1 0 0 DEC VALUE OD CONST SELECT
38715 80 430 2 0 0 0 430 CONVERT ENTER SUBROUTINE
38716 5 61 28 1 0 0 TRANSFER
38717 34 61 34 1 0 0 RESTORE B SET (N) IN B
38718 61 33 0 0 0 NEG IND FOR BIN CONSTS SELECT
38719 70 388 5 0 0 0 388 >NOT NEGATIVE JUMP IF A == 0
38720 61 60 0 0 0 S/F MOD SELECT
38721 70 388 2 0 0 0 388 >FIRST S/F JUMP IF A == 0
38722 10 0 0 0 1 SELECT LITERAL
38723 124 61 60 0 0 0 S/F MOD modify address of next
38724 124 61 55 0 0 0 S/F LENGTH=N modify address of next
38725 31 0 0 0 0 ///// SHIFT (A) BY BITS
38726 2 61 28 1 0 0 FORM N-BIT COMPT SUBTRACT
38727 5 61 28 1 0 0 TRANSFER
38728 76 388 4 0 0 0 388 JUMP unconditional
38800 PROCR 388 388 BINARY NO CONSTANTS
38801 NOTES RADIX SELECT
38721>38802 10 0 0 0 1 SELECT LITERAL
Source image: P1030270.JPG
38803 5 61 32 0 0 0 NEG IND TRANSFER
38728>38804 5 61 33 0 0 0 BIN NO NEG IND TRANSFER
39032>
38719>38805 61 24 0 0 0 SELECT
38806 76 374 3 0 0 0 374 - JUMP unconditional
38900 PROCR 389 389 RELATIVE ADDRESS CONSTS
38901 NOTES RADIX SELECT
38910>
37414>38902 61 24 0 0 0 SELECT
38903 12 0 0 0 4: SUBTRACT LITERAL
38904 70 390 2 0 0 0 390 >COLON JUMP IF A == 0
38905 11 0 0 0 4: ADD LITERAL
38906 80 381 2 0 0 0 381 -TEST S/R ENTER SUBROUTINE
38907 70 390 24 0 0 0 390 JUMP IF A == 0
38908 80 382 2 0 0 0 382 -THIS CHAR SET UP O/P ENTER SUBROUTINE
38909 80 380 2 0 0 0 380 -GET NEXT CHAR ENTER SUBROUTINE
38910 76 389 2 0 0 0 389 JUMP unconditional
39000 PROCR 390 390 RELATIVE ADDRESS CONSTS
39001 NOTES RADIX B SELECT
38904>39002 32 0 0 0 10 SHIFT (AB) BY QUARTETS
39003 5 61 98 1 0 0 STORE REGISTER B TRANSFER
39004 61 28 1 0 0 SELECT
39005 80 430 2 0 0 0 430 CONVERT ENTER SUBROUTINE
39006 5 61 35 0 0 0 TRANSFER
39007 91 61 68 0 2 0 SET MODIFICATION REGISTER AT VARIABLE
39008 80 396 2 0 0 0 396 -DET CHAP S/R ENTER SUBROUTINE
39009 3 67 0 0 2 0 PARA COPY
39010 70 390 13 0 0 0 390 ABS ADD JUMP IF A == 0
39011 12 0 0 0 1 =2C+1 SUBTRACT LITERAL
39012 4 67 0 0 2 0 AUGMENT
39010>39013 61 35 0 0 0 REF SELECT
39014 30 0 0 0 2 SHIFT (A) BY QUARTETS
39015 4 67 0 0 2 0 AUGMENT
39016 10 0 0 0 0 SELECT LITERAL
39017 5 61 28 1 0 0 CLEAR FOR ITEM TRANSFER
39018 34 61 98 1 0 0 SET (N) IN B
39023>39019 80 380 2 0 0 0 380 >GET NEXT CHAR ENTER SUBROUTINE
39020 80 381 2 0 0 0 381 >TEST S/R ENTER SUBROUTINE
39021 70 390 26 0 0 0 390 JUMP IF A == 0
39022 80 382 2 0 0 0 382 >THIS CHAR SET UP O/P ENTER SUBROUTINE
39023 76 390 19 0 0 0 390 JUMP unconditional
38907>39024 91 61 68 0 2 0 SET MODIFICATION REGISTER AT VARIABLE
39025 5 67 0 0 2 0 TRANSFER
39021>39026 32 0 0 0 10 SHIFT (AB) BY QUARTETS
39027 5 61 34 1 0 0 STORE 2 TRANSFER
39028 61 28 1 0 0 SELECT
39029 80 430 2 0 0 0 430 CONVERT ITEM ENTER SUBROUTINE
39030 5 61 28 1 0 0 TRANSFER
39031 34 61 34 1 0 0 REPLACE B SET (N) IN B
39032 76 388 5 0 0 0 388 - JUMP unconditional
39100 PROCR 391 391 TABLE ENTRIES
39101 NOTES RADIX B SELECT
34504>39102 50 77 2 0 0 0 UNPACK FIXED FIELD DATA
39103 C 441 2 0 0 0 441
39104 52 7 2 0 0 0 EDIT TABLES EDIT
39105 C 441 2 0 0 0 441
39106 77 22 1 0 0 PASS 1 REPORTS SELECT
Source image: P1030271.JPG
39107 5 7 48 1 0 0 TRANSFER
39108 55 77 24 1 0 16 COPY ANNOTATION BULK COPY
39109 C 7 32 1 0 0
39110 80 403 2 0 0 0 403 PRINT ENTER SUBROUTINE
39200 PROCR 392 392 TABLE ENTRIES
39201 NOTES RADIX B SELECT
39202 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
39203 C 0 0 0 20
39207>39204 66 3 0 2 0 SELECT
39205 80 430 2 0 0 0 430 CONVERT ENTER SUBROUTINE
39206 5 66 3 0 2 0 TRANSFER
39207 94 392 4 0 2 1 392 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
39208 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
39209 C 0 0 0 4
39217>39210 66 16 0 2 0 SELECT
39211 101 100 1 2 0 subtract literal address
39212 73 392 17 0 0 0 392 >SECTION JUMP IF A < 0
39213 101 899 1 2 0 subtract literal address
39214 72 392 17 0 0 0 392 >999 JUMP IF A >= 0
39215 10 0 0 0 2- SELECT LITERAL
39216 4 66 17 0 2 0 REDUCE ITEM FOR CALCS AUGMENT
39214>
39212>39217 94 392 10 0 2 2 392 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
39218 10 0 0 0 0 SELECT LITERAL
39219 34 61 47 0 0 0 TYPE SET (N) IN B
39220 36 436 6 0 0 0 436 BIT 1 COLLATE AND ADD
39221 71 392 28 0 0 0 392 NOT TYPES 2 OR 4 JUMP IF A != 0
39222 0 66 19 0 0 0 SECOND ITEM SELECT
39223 71 392 27 0 0 0 392 >'LAST ITEM'GIVEN JUMP IF A != 0
39224 0 66 17 0 0 0 FIRST ITEM SELECT
39225 71 392 27 0 0 0 392 JUMP IF A != 0
39226 00 437 8 0 0 0 437 SOMETHING IN Q5 SELECT
39225>
39223>39227 5 67 2 0 0 0 TRANSFER
39221>39228 0 66 16 0 0 0 FIRST REF SELECT
39229 5 61 35 0 0 0 REF TRANSFER
39230 80 396 2 0 0 0 396 DET CHAP ENTER SUBROUTINE
39300 PROCR 393 393 TABLE ENTRIES
39301 NOTES RADIX B SELECT
39302 3 67 0 0 0 0 FORM PARA 2C-1 COPY
39303 70 393 6 0 0 0 393 ABS ADD JUMP IF A == 0
39304 12 0 0 0 1 SUBTRACT LITERAL
39305 4 67 0 0 0 0 AUGMENT
39303>39306 61 35 0 0 0 REF SELECT
39307 30 0 0 0 2 SHIFT (A) BY QUARTETS
39308 4 67 0 0 0 0 AUGMENT
39309 0 66 3 0 0 0 SHORT/LONG/ALPHA SELECT
39310 70 393 15 0 0 0 393 JUMP IF A == 0
39311 12 0 0 0 1 SUBTRACT LITERAL
39312 70 393 14 0 0 0 393 JUMP IF A == 0
39313 437 49 0 0 0 437 B17 SELECT
39312>39314 1 437 13 0 0 0 437 B18 ADD
39310>39315 5 67 3 0 0 0 TRANSFER
39316 66 13 0 0 0 SIGN SELECT
39317 70 394 2 0 0 0 394 JUMP IF A == 0
39318 12 0 0 0 2 SUBTRACT LITERAL
39319 70 393 21 0 0 0 393 JUMP IF A == 0
39320 437 51 0 0 0 437 B20 SELECT
Source image: P1030272.JPG
39319>39321 1 437 9 0 0 0 437 ADD
39322 4 67 3 0 0 0 AUGMENT
39400 PROCR 394 394 TABLE ENTRIES
39401 NOTES RADIX B SELECT
39317>39402 0 66 4 0 0 0 SINGLE/BE SELECT
39403 70 394 6 0 0 0 394 JUMP IF A == 0
39404 437 51 0 0 0 437 B20 SELECT
39405 4 67 3 0 0 0 AUGMENT
39403>39406 66 12 0 0 0 ZEROS SELECT
39407 30 0 0 0 1 SHIFT (A) BY QUARTETS
39408 1 66 10 0 0 0 DISC ADD
39409 30 0 0 0 1 SHIFT (A) BY QUARTETS
39410 1 66 11 0 0 0 SPACES ADD
39411 30 0 0 0 1 SHIFT (A) BY QUARTETS
39412 1 66 5 0 0 0 NO OF CHARS ADD
39413 4 67 3 0 0 0 AUGMENT
39414 66 15 0 0 0 LTE SELECT
39415 70 395 4 0 0 0 395 JUMP IF A == 0
39416 10 0 0 0 0 SELECT LITERAL
39417 2 67 3 0 0 0 SUBTRACT
39418 70 395 2 0 0 0 395 JUMP IF A == 0
39419 5 67 3 0 0 0 TRANSFER
39420 76 395 4 0 0 0 395 JUMP unconditional
39500 PROCR 395 395 TABLE ENTRIES
39501 NOTES RADIX B SELECT
39418>39502 10 0 0 0 80 B8 SET B8 OF PARAM SELECT LITERAL
39503 4 67 0 0 0 0 IF LTE AND 67/3 AUGMENT
39420>
39415>39504 0 66 17 0 0 0 FIRST ITEM SELECT
39505 5 67 1 0 0 0 TRANSFER
39506 66 14 0 0 0 STERLING INDICATOR SELECT
39507 70 395 16 0 0 0 395 SET BIT 17 JUMP IF A == 0
39508 4 61 109 0 0 0 ON 2ND TIME TWR AUGMENT
39509 0 61 109 0 0 0 AND THERE AFTER SELECT
39510 12 0 0 0 2 EVERY THIRD TIME SUBTRACT LITERAL
39511 71 395 16 0 0 0 395 THRU IE FOR SHILLINGJUMP IF A != 0
39512 12 0 0 0 1 SUBTRACT LITERAL
39513 5 61 109 0 0 0 SET CTR=1- TRANSFER
39514 437 49 0 0 0 437 B17 SELECT
39515 4 67 1 0 0 0 AUGMENT
39511>
39507>39516 0 66 15 0 0 0 LTE IND SELECT
39517 80 411 2 0 0 0 411 O/P ENTER SUBROUTINE
39518 76 353 2 0 0 0 353 GNB JUMP unconditional
39519 5 61 109 0 0 0 TRANSFER
39520 5 61 109 0 0 0 CLEAR STERLING CTR TRANSFER
39521 80 411 2 0 0 0 411 O/P ENTER SUBROUTINE
39522 76 353 2 0 0 0 353 GNB JUMP unconditional
39600 PROCR 396 396 DETERMINE CHAP S/R
39601 NOTES RADIX B SELECT
39602 81 396 2 0 0 0 396 START OF SUBROUTINE
39603 61 35 0 0 0 REF SELECT
39604 70 396 18 0 0 0 396 ABS ADD JUMP IF A == 0
39605 12 0 0 0 64 100 SUBTRACT LITERAL
39606 72 397 2 0 0 0 397 JUMP IF A >= 0
39607 35 0 0 0 1 Q1 PREPARE FOR DIGIT COLLATION
39608 10 0 0 0 0 SELECT LITERAL
Source image: P1030273.JPG
39609 124 61 35 0 0 0 modify address of next
39610 36 70 0 0 0 0 SECT DETS COLLATE AND ADD
39611 5 61 18 0 0 0 TRANSFER
39612 34 437 51 0 0 0 437 B20 SET (N) IN B
39613 124 61 35 0 0 0 modify address of next
39614 36 70 0 0 0 0 SECT DETS COLLATE AND ADD
39714>39615 35 0 0 0 1 PREPARE FOR DIGIT COLLATION
39616 124 61 18 0 0 0 UNCORRECTED CHAP modify address of next
39617 36 92 9 0 0 0 CORRECTED CHAP IN Q1 COLLATE AND ADD
39604>39618 82 396 2 0 0 0 396 END OF SUBROUTINE / LEAVE SUBROUTINE
39700 PROCR 397 397 DET CHAP S/R
39701 NOTES RADIX B SELECT
39606>39702 12 0 0 0 383 899 REF999 SUBTRACT LITERAL
39703 73 397 8 0 0 0 397 JUMP IF A < 0
39704 71 397 10 0 0 0 397 >REF >999, CHEAT JUMP IF A != 0
39705 5 61 35 0 0 0 SET REF ZERO TRANSFER
39706 61 51 0 0 0 THIS CHAP SELECT
39707 82 396 2 0 0 0 396 END OF SUBROUTINE / LEAVE SUBROUTINE
39703>39708 11 0 0 0 3.7 999 ADD LITERAL
39709 30 0 0 0 2 PROCR IN Q3-5 SHIFT (A) BY QUARTETS
39704>39710 101 92 10 0 0 0 BIN LAST PROCRS IN CHAP table look up
39711 32 0 0 0 10 SHIFT (AB) BY QUARTETS
39712 2 437 2 0 0 0 437 ABS ADDRESS 92/9 SUBTRACT
39713 5 61 18 0 0 0 UNCORR C NO TRANSFER
39714 76 396 15 0 0 0 396 JUMP unconditional
39800 PROCR 398 398 SR FOR INTERNAL SC'S TO MAKE REL TO PROCR STARTS
39801 NOTES 398 SELECT
39802 81 398 2 0 0 0 398 START OF SUBROUTINE
39803 73 398 7 0 0 0 398 >NEGATIVE ACTION JUMP IF A < 0
39804 1 61 43 0 0 0 ADD
39805 2 61 11 0 0 0 START OF CURRENT PROCR SUBTRACT
39806 76 398 9 0 0 0 398 JUMP unconditional
39803>39807 2 61 43 0 0 0 SUBTRACT
39808 1 61 11 0 0 0 ADD
39806>39809 5 67 3 0 0 0 TRANSFER
39810 0 61 10 0 0 0 CURRENT PROCR(IN THIS CHAPTER) SELECT
39811 30 0 0 0 2 SHIFT (A) BY QUARTETS
39812 1 61 3 0 0 0 2C ADD
39813 5 67 2 0 0 0 PARA TRANSFER
39814 80 411 2 0 0 0 411 >O/P ENTER SUBROUTINE
39815 82 398 2 0 0 0 398 END OF SUBROUTINE / LEAVE SUBROUTINE
39900 PROCR 399 399 OUTPUT 24/0/3 BY 0 OR 24/0/3 BY OTHER CHAP 15-BIT START
39901 NOTES 399 SELECT
39902 81 399 2 0 0 0 399 START OF SUBROUTINE
39903 70 399 8 0 0 0 399 >24/0/3 BY 0 JUMP IF A == 0
39904 5 67 3 0 0 0 TRANSFER
Source image: P1030281.JPG
39905 10 0 0 0 1 SELECT LITERAL
39906 2 67 3 0 0 0 SUBTRACT
39907 2 67 3 0 0 0 SUBTRACT
39903>39908 1 438 2 0 0 0 438 24/0/3 ADD
39909 80 348 2 0 0 0 348 >O/P ENTER SUBROUTINE
39910 82 399 2 0 0 0 399 END OF SUBROUTINE / LEAVE SUBROUTINE
40000 PROCR 400 400 OUTPUT 24/0/3 BY 0
40001 NOTES RADIX B SELECT
40002 81 400 2 0 0 0 400 START OF SUBROUTINE
40003 10 0 0 0 0 SELECT LITERAL
40004 80 399 2 0 0 0 399 ENTER SUBROUTINE
40005 82 400 2 0 0 0 400 END OF SUBROUTINE / LEAVE SUBROUTINE
40100 PROCR 401 401 I/P SR
40101 NOTES RADIX B SELECT
40102 81 401 2 0 0 0 401 START OF SUBROUTINE
40103 0 2 12 0 CURRENT RECORD LENGTH SELECT
40104 5 430 2 0 0 0 430 TRANSFER
40105 97 430 2 0 12 0 430 STEP ON AND TEST MODIFICATION REGISTER (VARIABLE)
40106 C 401 8 0 0 0 401
40107 80 432 2 0 0 0 432 >READ ENTER SUBROUTINE
40106>
33805>40108 10 0 0 0 0 SELECT LITERAL
40109 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION
40110 36 2 1 12 0 'AMENDED IMPLICITY'IND COLLATE AND ADD
40111 5 437 99 0 0 0 437 TRANSFER
40112 37 2 1 12 0 CLEAR 2 CHARS REPLACE SELECTED BITS
40113 54 77 0 1 0 44 BULK CLEAR BULK CLEAR
40114 55 0 1 12 0 BULK COPY BULK COPY
40115 C 77 0 1 0 0
40116 C 0 2 12 0
40117 82 401 2 0 0 0 401 END OF SUBROUTINE / LEAVE SUBROUTINE
40200 PROCR 402 402 PRINT LINE AND RE-SITE AMEND IND
40201 NOTES 402 SELECT
40202 81 402 2 0 0 0 402 START OF SUBROUTINE
40203 8 4 1 0 0 SELECT
40204 5 8 2 1 0 0 TRANSFER
40205 5 8 4 1 0 0 TRANSFER
40206 80 403 2 0 0 0 403 >PRINT ENTER SUBROUTINE
40207 82 402 2 0 0 0 402 END OF SUBROUTINE / LEAVE SUBROUTINE
40300 PROCR 403 403 PRINT FROM SEC 5 OR 7 SR-TX AREA PARAS SET UP IN ADVANCE
40301 NOTES RADIX B SELECT
40302 81 403 2 0 0 0 403 START OF SUBROUTINE
40303 0 436 2 1 0 0 436 BEW SELECT
40304 5 7 50 1 0 0 TRANSFER
40305 7 46 1 0 0 SELECT
40306 80 408 2 0 0 0 408 >REPORT IF TOP 4 CHARS='?' ENTER SUBROUTINE
40307 70 403 21 0 0 0 403 >YES JUMP IF A == 0
40308 7 48 1 0 0 SELECT
40309 70 403 23 0 0 0 403 >NO ERRORS JUMP IF A == 0
Source image: P1030282.JPG
40310 80 408 2 0 0 0 408 >TEST FOR REPORT ENTER SUBROUTINE
40311 70 403 21 0 0 0 403 >DISASTROUS ERROR JUMP IF A == 0
40312 7 32 1 0 0 FIRST 5 CHARS ANNOTATION SELECT
40313 12 0 0 0 7171717171 '/////' SUBTRACT LITERAL
40314 71 403 18 0 0 0 403 JUMP IF A != 0
40315 35 0 0 0 111111 Q1-6 PREPARE FOR DIGIT COLLATION
40316 37 7 48 1 0 0 REPLACE SELECTED BITS
40317 76 403 23 0 0 0 403 >DONT COUNT JUMP unconditional
40314>40318 86 407 2 0 0 0 407 SELECT SWITCH R
40319 11 0 0 0 1 STEP CTR OF OTHER ERRORS ADD LITERAL
40320 84 407 2 0 0 0 407 SET SWITCH(ES) AT VARIABLE VALUE
40311>
40307>40321 10 0 0 0 1 (PRINT REPORTED LINES) SELECT LITERAL
40322 5 437 99 0 0 0 437 TRANSFER
40317>
40309>40323 0 23 46 1 0 0 'PRINT PROCR'+'PRINT ALL'INDS SELECT
40324 71 403 30 0 0 0 403 >PRINT JUMP IF A != 0
40325 0 437 99 0 0 0 437 'IMPLICITLY AMENDED' SELECT
40326 70 403 35 0 0 0 403 >DONT PRINT JUMP IF A == 0
40327 0 438 20 0 0 0 438 LAST RECORD PRINTED? SELECT
40328 71 403 30 0 0 0 403 >YES JUMP IF A != 0
40329 80 405 2 0 0 0 405 >BLANK LINE ENTER SUBROUTINE
40328>
40324>40330 0 61 46 0 0 0 HEAD OF FORM,OR ZERO SELECT
40331 5 7 0 2 0 0 TRANSFER
40332 80 406 2 0 0 0 406 >PRINT LINE ENTER SUBROUTINE
40333 10 0 0 0 1 SELECT LITERAL
40334 3 61 46 0 0 0 SET FOR NEXT TIME COPY
40326>40335 5 438 20 0 0 0 438 SET/CLEAR IND TRANSFER
40336 82 403 2 0 0 0 403 END OF SUBROUTINE / LEAVE SUBROUTINE
40400 PROCR 404 404 STORE LINE SERIAL FOR DIS ERRORS
40402 100 0 0 0 0 Halt
40403 124 435 46 0 1 0 435 modify address of next
40404 102 24 0 0 0 0 transfer (A) to N
40405 123 1 0 0 0 step on and test
40406 100 435 46 0 0 0 435 Halt
40407 126 404 2 0 1 0 404 leave subroutine
40408 106 404 7 0 0 0 404 select (N)
40409 102 404 3 0 0 0 404 transfer (A) to N
40410 126 404 2 0 1 0 404 leave subroutine
40500 PROCR 405 405 PRINT BLANK LINE UNCONDITIONALLY
40502 81 405 2 0 0 0 405 START OF SUBROUTINE
40503 999 16 1 0 0 COPY SEC 7 PARAS SELECT
40504 5 435 42 1 0 0 435 TRANSFER
40505 0 999 8 0 0 0 PT ROUTE SELECT
40506 5 999 16 0 0 0 TRANSFER
40507 2 999 8 0 0 0 SUBTRACT
40508 12 0 0 0 40 65 SUBTRACT LITERAL
40509 5 999 17 0 0 0 CREATE R,-(64+R) TRANSFER
40510 5 7 0 1 0 0 TRANSFER
40511 0 436 2 1 0 0 436 BEW SELECT
40512 5 7 2 1 0 0 TRANSFER
40513 80 406 2 0 0 0 406 >PRINT EX SEC 7 ENTER SUBROUTINE
40514 0 435 42 1 0 0 435 SELECT
40515 5 999 16 1 0 0 RESTORE SEC 7 PARAS TRANSFER
40516 82 405 2 0 0 0 405 END OF SUBROUTINE / LEAVE SUBROUTINE
40600 PROCR 406 406 PRINT SEC 7(OR SEC 5,OR PT ANNEX)
Source image: P1030283.JPG
40602 81 406 2 0 0 0 406 START OF SUBROUTINE
40603 27 9 0 0 0 SELECT
40604 70 406 9 0 0 0 406 >PRINTER JUMP IF A == 0
40605 55 7 0 1 0 54 BULK COPY
40606 C 10 4 1 0 0
40607 80 433 2 0 0 0 433 >O/P> ENTER SUBROUTINE
40608 82 406 2 0 0 0 406 END OF SUBROUTINE / LEAVE SUBROUTINE
40604>40609 27 8 0 0 0 PRINTER TYPE SELECT
40610 12 0 0 0 9 SUBTRACT LITERAL
40611 70 406 28 0 0 0 406 >SPECIAL JUMP IF A == 0
40612 437 51 0 0 0 437 BIT20 SELECT
40613 5 7 1 0 0 0 TRANSFER
40614 54 10 0 1 0 384 (GP ANNEX) BULK CLEAR
40615 124 999 17 1 2 0 SEC 7 modify address of next
40616 124 0 0 2 0 select literal and division
40617 124 999 13 1 2 0 SEC 10 modify address of next
40618 129 0 0 1 0 edit for anelex output
40619 10 0 0 0 4 SELECT LITERAL
40631>40620 30 0 0 0 5 SHIFT (A) BY QUARTETS
40621 1 999 7 0 0 0 ROUTE ADD
40622 34 999 12 0 0 0 SET (N) IN B
40623 125 4096 1 1 0 clear indicators
40624 124 999 0 0 3 0 modify address of next
40625 123 160 0 2 0 enter master routine
40626 62 0 0 0 0 SET EXCESS CONSTANTS
40627 82 406 2 0 0 0 406 END OF SUBROUTINE / LEAVE SUBROUTINE
40611>40628 55 7 0 1 0 54 COPY ANNEXES BULK COPY
40629 C 10 0 1 0 0
40630 10 0 0 0 9 SELECT LITERAL
40631 76 406 20 0 0 0 406 JUMP unconditional
40700 PROCR 407 407 OUTPUT 9>A6
40701 NOTES RADIX B SELECT
40702 81 407 2 0 0 0 407 START OF SUBROUTINE
40703 43 A6 0 0 0 0 OUTPUT
40704 C 9 0 0 0 0
40705 82 407 2 0 0 0 407 END OF SUBROUTINE / LEAVE SUBROUTINE
40800 PROCR 408 408 TEST FOR DISASTROUS ERROR CONDITION IN PRINTER ANNEX
40801 NOTES 408 SELECT
40802 81 408 2 0 0 0 408 START OF SUBROUTINE
40803 30 0 0 0 2- SHIFT (A) BY QUARTETS
40804 30 0 0 0 2 SHIFT (A) BY QUARTETS
40805 11 0 0 0 5: ADD LITERAL
40806 2 434 28 1 0 0 434 '?????' SUBTRACT
40807 71 408 14 0 0 0 408 >NOT DISASTROUS JUMP IF A != 0
40808 86 403 2 0 0 0 403 STEP DISASTER CTR SELECT SWITCH R
40809 11 0 0 0 1 ADD LITERAL
40810 84 403 2 0 0 0 403 (CLEARS A) SET SWITCH(ES) AT VARIABLE VALUE
40811 7 6 2 0 0 SELECT
40812 80 404 2 0 0 0 404 ENTER SUBROUTINE
40813 10 0 0 0 0 SELECT LITERAL
40807>40814 82 408 2 0 0 0 408 END OF SUBROUTINE / LEAVE SUBROUTINE
40900 PROCR 409 409 O/P TYPE SR
40901 NOTES RADIX B SELECT
40902 81 409 2 0 0 0 409 START OF SUBROUTINE
40903 91 61 44 0 2 0 SET MODIFICATION REGISTER AT VARIABLE
40904 61 26 1 0 0 TYPE NO ALPHA SELECT
40905 1 434 18 1 0 0 434 TYPE(SPACE) ADD
Source image: P1030284.JPG
40906 05 9 4 1 2 0 TRANSFER
40907 61 28 1 0 0 SELECT
40908 05 9 6 1 2 0 TRANSFER
40909 61 43 0 0 0 SPACE CTR SELECT
40910 05 9 8 2 2 0 TRANSFER
40911 5 9 10 1 2 0 CLEAR TRANSFER
40912 76 412 2 0 0 0 412 JUMP unconditional
41000 PROCR 410 410 ALPHA OUTPUT SR
41001 NOTES RADIX B SELECT
41002 81 410 2 0 0 0 410 START OF SUBROUTINE
41003 91 61 44 0 2 0 SET MODIFICATION REGISTER AT VARIABLE
41004 61 26 1 0 0 SELECT
41005 05 9 4 1 2 0 TRANSFER
41006 61 28 1 0 0 SELECT
41007 05 9 6 1 2 0 TRANSFER
41008 67 2 0 0 0 SELECT
41009 05 9 8 2 2 0 TRANSFER
41010 67 3 0 0 0 SELECT
41011 05 9 10 2 2 0 TRANSFER
41012 410 2 0 0 0 410 O/P ALPHA S/R LINK SELECT
41013 76 411 15 0 0 0 411 JUMP unconditional
41100 PROCR 411 411 O/P SR
41101 NOTES RADIX B SELECT
41102 81 411 2 0 0 0 411 START OF SUBROUTINE
41103 61 42 0 0 0 SELECT
41104 4 61 43 0 0 0 AUGMENT LOCATION COUNTER AUGMENT
41105 91 61 44 0 2 0 SET MODIFICATION REGISTER AT VARIABLE
41106 67 0 0 0 0 SERIAL NO FOR INST RUCTIONS SELECT
41107 05 9 4 2 2 0 TRANSFER
41108 67 1 0 0 0 SC INDICATOR FOR INSIONS SELECT
41109 05 9 6 2 2 0 TRANSFER
41110 67 2 0 0 0 PARAMETER SELECT
41111 05 9 8 2 2 0 TRANSFER
41112 67 3 0 0 0 SELECT
41113 05 9 10 2 2 0 TRANSFER
41114 411 2 0 0 0 411 LINK SELECT
41013>41115 5 409 2 0 0 0 409 O/P TYPE S/R LINK TRANSFER
41200 PROCR 412 412 O/P SR
41201 NOTES RADIX B SELECT
40912>41202 94 412 8 0 2 8 412 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
41308>41203 436 2 1 0 0 436 BE WORD SELECT
41204 05 9 4 1 2 0 TRANSFER
41205 80 407 2 0 0 0 407 PREP STAGE OP ENTER SUBROUTINE
41206 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
41207 C 0 0 0 144
41202>41208 95 0 0 2 0 SELECT MODIFICATION REGISTER
41209 5 61 44 1 0 0 TRANSFER
41210 5 67 1 0 0 0 CLEAR S67 TRANSFER
41211 5 67 2 1 0 0 TRANSFER
41212 82 409 2 0 0 0 409 - END OF SUBROUTINE / LEAVE SUBROUTINE
41300 PROCR 413 413 OP REMAINING DETAILS SR
41301 NOTES RADIX B SELECT
41302 81 413 2 0 0 0 413 START OF SUBROUTINE
41303 00 61 44 0 0 0 SELECT
41304 70 413 9 0 0 0 413 NOTHING TO O/P JUMP IF A == 0
41305 91 61 44 0 2 0 OP CTR SET MODIFICATION REGISTER AT VARIABLE
Source image: P1030285.JPG
41306 00 413 2 0 0 0 413 LINK SELECT
41307 05 409 2 0 0 0 409 O/P TYPE S/R LINK TRANSFER
41308 76 412 3 0 0 0 412 JUMP unconditional
41304>41309 82 413 2 0 0 0 413 END OF SUBROUTINE / LEAVE SUBROUTINE
41400 PROCR 414 414 I/P INSTRUCTION S/R
41401 NOTES RADIX B SELECT
41402 81 414 2 0 0 0 414 START OF SUBROUTINE
41403 80 401 2 0 0 0 401 -I/P ENTER SUBROUTINE
41404 10 0 0 0 1 SELECT LITERAL
41405 5 61 99 0 0 0 NON I/P IND TRANSFER
41406 80 415 2 0 0 0 415 -I/P C-LINE S/R ENTER SUBROUTINE
41407 82 414 2 0 0 0 414 END OF SUBROUTINE / LEAVE SUBROUTINE
41500 PROCR 415 415 I/P C-LINE S/R
41501 NOTES RADIX B SELECT
41502 81 415 2 0 0 0 415 START OF SUBROUTINE
41503 61 99 0 0 0 NON I/P IND SELECT
41504 71 415 10 0 0 0 415 JUMP IF A != 0
41505 80 427 2 0 0 0 427 SUSPEND ENTER SUBROUTINE
41506 80 401 2 0 0 0 401 INPUT ENTER SUBROUTINE
41507 6 1 12 0 SELECT
41508 2 434 26 1 0 0 434 C, , , , , SUBTRACT
41509 71 353 3 0 0 0 353 -G.N.B. JUMP IF A != 0
41504>41510 50 77 2 0 0 0 UNPACK FIXED FIELD DATA
41511 C 440 2 0 0 0 440
41512 52 7 2 0 0 0 EDIT INSTRUCTIONS EDIT
41513 C 440 2 0 0 0 440
41514 77 20 1 0 0 PREVIOUS PROCR NO SELECT
41515 5 7 28 1 0 0 TRANSFER
41516 77 22 1 0 0 PASS 1 REPORTS SELECT
41517 5 7 48 1 0 0 TRANSFER
41518 55 77 24 1 0 16 COPY ANNOTATION BULK COPY
41519 C 7 32 1 0 0
41520 0 66 4 1 0 0 ACTION ALPHA SELECT
41521 2 434 26 1 0 0 434 SUBTRACT
41522 70 419 2 0 0 0 419 >THIS IS A C-LINE JUMP IF A == 0
41535>
35908>41523 10 0 0 0 0 SELECT LITERAL
41524 5 61 20 1 0 0 TRANSFER
41525 94 415 27 0 1 0 415 ///// STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
41526 76 418 2 0 0 0 418 >NO UNMATCHED SEQ CHS BACK JUMP unconditional
41525>41527 1 0 1 0 (R1 ABS) SC BACK DEST SELECT
41528 02 66 2 1 0 0 SERIAL THIS ORDER SUBTRACT
41529 70 417 2 0 0 0 417 >THIS IS A DESTINATION JUMP IF A == 0
41530 72 418 2 0 0 0 418 >NOW TRY SEQ CH FWD LIST JUMP IF A >= 0
41531 434 28 1 0 0 434 ????? SELECT
41532 5 61 20 1 0 0 TRANSFER
41533 80 416 2 0 0 0 416 >STORE 'ADDRESS'=CURRENT SPACE CTR ENTER SUBROUTINE
41840>41534 80 422 2 0 0 0 422 PRINT ENTRY POINT S/PRINT WRONG ENTRY POENTER SUBROUTINE
41535 76 415 23 0 0 0 415 JUMP unconditional
41600 PROCR 416 416
41601 NOTES 416 SELECT
41602 81 416 2 0 0 0 416 START OF SUBROUTINE
41603 0 0 1 0 SOURCE OF SC BACK SELECT
41604 3 61 0 0 0 0 COPY
41605 5 1 0 1 0 OVERWRITE DEST TRANSFER
41606 0 61 20 1 0 0 SELECT
41607 71 416 15 0 0 0 416 >IGNORED JUMP IF A != 0
Source image: P1030286.JPG
41608 35 0 0 0 11 PREPARE FOR DIGIT COLLATION
41609 36 66 2 0 0 0 COLLATE AND ADD
41610 12 0 0 0 2 SUBTRACT LITERAL
41611 71 416 15 0 0 0 416 >NOT TO PROCR START JUMP IF A != 0
41612 96 0 0 1 0 SELECT MODIFIER
41613 80 365 2 0 0 0 365 >CONTRACT SC BACK LIST ENTER SUBROUTINE
41614 76 416 20 0 0 0 416 >STEP R1 JUMP unconditional
41611>
41607>41615 0 61 10 0 0 0 CURRENT PROCR SELECT
41616 31 0 0 0 10 SHIFT (A) BY BITS
41617 1 61 43 0 0 0 SPACE CTR ADD
41618 2 61 11 0 0 0 PROCR START SUBTRACT
41619 5 0 0 1 0 STORE PROCR+ADDRESS IN PROCR TRANSFER
41614>41620 94 416 21 0 1 2 416 STEP STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
41620>41621 82 416 2 0 0 0 416 END OF SUBROUTINE / LEAVE SUBROUTINE
41700 PROCR 417 417 I/P C-LINE S/R
41701 NOTES RADIX B STORE ABS DEST FOR MATCHES SC'S BACK SELECT
41707>
41529>41702 80 416 2 0 0 0 416 >STORE ADDRESS ENTER SUBROUTINE
41703 0 0 1 0 1 0 (R1 IS ABS) NEXT DEST SELECT
41704 2 66 2 0 0 0 THIS SERIAL SUBTRACT
41705 71 418 41 0 0 0 418 >NONE,TRY SC FWD LIST JUMP IF A != 0
41706 80 422 2 0 0 0 422 ENTER SUBROUTINE
41707 76 417 2 0 0 0 417 >THERE MAY BE MORE JUMP unconditional
41800 PROCR 418 418 I/P C-LINE S/R
41801 NOTES RADIX B TRY MATCH WITH SEQ CHS FWD SELECT
41530>
41526>41802 0 61 117 0 0 0 CTR OF SEC 20 LENGTH SELECT
41803 70 419 2 0 0 0 419 >EMPTY JUMP IF A == 0
41804 0 20 0 0 0 0 SMALLEST DEST OF SC FWD SELECT
41805 70 419 2 0 0 0 419 >LIST EMPTY,SKIP TO END JUMP IF A == 0
41806 2 66 2 1 0 0 THIS SERIAL SUBTRACT
41807 70 418 11 0 0 0 418 >IS DEST OF SEQ CH FWD JUMP IF A == 0
41808 72 419 2 0 0 0 419 >EARLIER THAN EARLIEST DEST JUMP IF A >= 0
41809 00 434 28 1 0 0 434 SELECT
41810 5 61 20 1 0 0 SEQ CHS FORWARD TRANSFER
41845>
41807>41811 20 2 0 0 0 SELECT
41812 30 0 0 0 6 SHIFT (A) BY QUARTETS
41813 30 0 0 0 1- SHIFT (A) BY QUARTETS
41814 70 418 17 0 0 0 418 >SC TO PROCR START JUMP IF A == 0
41815 99 0 1 1 0 SUBTRACT MODIFICATION REGISTER FROM A
41816 72 418 17 0 0 0 418 >OK JUMP IF A >= 0
41816>
41814>41817 0 20 1 0 0 0 SELECT
41818 5 61 0 0 0 0 TRANSFER
41819 0 20 2 0 0 0 SELECT
41820 70 418 30 0 0 0 418 >SC TO PROGR START JUMP IF A == 0
41821 30 0 0 0 4- SHIFT (A) BY QUARTETS
41822 5 416 2 0 0 0 416 FLIPFLOP TRANSFER
41823 0 61 43 0 0 0 SPACE CTR SELECT
41824 2 61 11 0 0 0 CURRENT PROCR START SUBTRACT
41825 34 436 24 0 0 0 436 BITS 1-10 SET (N) IN B
41826 124 416 2 0 1 0 416 0 OR 10 modify address of next
41827 33 0 0 0 0 ///// SHIFT (AB) BY BITS
41828 124 20 2 0 3 0 ABS LOCN Q1-4 modify address of next
41829 114 0 0 0 0 PACK NEXT ENTRY>SEC 18 replace selected bits
41820>41830 0 61 117 0 0 0 SELECT
Source image: P1030287.JPG
41831 12 0 0 0 3 SUBTRACT LITERAL
41832 3 61 117 0 0 0 REDUCE NO OF SC'S IN TRANSIT COPY
41833 71 418 36 0 0 0 418 >LIST NOT EMPTY JUMP IF A != 0
41834 5 20 0 0 0 0 TRANSFER
41835 76 418 39 0 0 0 418 >TEST IF LAST SC WAS WRONG JUMP unconditional
41833>41836 124 20 3 0 2 0 select literal and division
41837 1 61 116 1 0 0 LENGTH IN 61/117 ADD
41838 128 20 0 0 0 0 IP 3 LOCNS bulk copy short numeric
41835>41839 61 20 1 0 0 SELECT
41840 71 415 34 0 0 0 415 >WAS A WRONG ENTRY POINT JUMP IF A != 0
41705>41841 20 0 0 0 0 NEXT SC FWD DEST LOOK FOR MORE E SELECT
41842 2 66 2 0 0 0 SUBTRACT
41843 71 418 46 0 0 0 418 >NO MORE ENTRIES HERE JUMP IF A != 0
41844 80 422 2 0 0 0 422 ENTER SUBROUTINE
41845 76 418 11 0 0 0 418 >MOVE LIST UP,TRY AGAIN JUMP unconditional
41843>41846 52 7 2 0 0 0 EDIT ENTRY POINT EDIT
41847 C 443 8 0 0 0 443
41900 PROCR 419 419 I/P C LINE S/R
41901 NOTES RADIX B SELECT
41808>
41805>
41803>
41522>41902 10 0 0 0 0 SELECT LITERAL
41903 34 66 6 1 0 0 REF SET (N) IN B
41904 80 426 2 0 0 0 426 RT ALIGN S/R ENTER SUBROUTINE
41905 5 66 6 1 0 0 TRANSFER
41906 5 66 16 0 0 0 CLEAR INDICATOR TRANSFER
41907 35 0 0 0 1 QUARTET ONE. PREPARE FOR DIGIT COLLATION
41908 36 66 8 1 0 0 ITEM COLLATE AND ADD
41909 12 0 0 0 + + SUBTRACT LITERAL
41910 71 420 2 0 0 0 420 >NOT 'ITEM+' JUMP IF A != 0
41911 10 0 0 0 1 SELECT LITERAL
41912 5 66 16 0 0 0 IF IT IS SET TRANSFER
41913 66 8 1 0 0 INDICATOR SELECT
41914 30 0 0 0 1- AND REMOVE + SHIFT (A) BY QUARTETS
41915 72 419 17 0 0 0 419 JUMP IF A >= 0
41916 11 0 0 0 1 TO MAKE COMPLEMENT CORRECT ADD LITERAL
41915>41917 5 66 8 1 0 0 TRANSFER
42000 PROCR 420 420 I/P C-LINE S/R
42001 NOTES RADIX B SELECT
41910>42002 77 38 1 0 0 IGNORE'IND SELECT
42003 2 434 28 1 0 0 434 SUBTRACT
42004 3 61 98 1 0 0 COPY
42005 70 420 6 0 0 0 420 JUMP IF A == 0
42005>42006 80 403 2 0 0 0 403 PRINT ENTER SUBROUTINE
42007 66 6 2 0 0 DEC REF SELECT
42008 12 0 0 0 100 SUBTRACT LITERAL
42009 73 420 16 0 0 0 420 >SECTION JUMP IF A < 0
42010 12 0 0 0 899 SUBTRACT LITERAL
42011 72 420 16 0 0 0 420 >999 OR 1000+ JUMP IF A >= 0
42012 60 0 0 0 0 SET DECIMAL RADIX
42013 10 0 0 0 2- SELECT LITERAL
42014 4 66 8 1 0 0 REDUCE ITEM AUGMENT
42015 62 0 0 0 0 SET EXCESS CONSTANTS
42011>
42009>42016 66 4 1 0 0 SELECT
42017 2 434 26 1 0 0 434 C, , , , , SUBTRACT
42018 70 421 6 0 0 0 421 JUMP IF A == 0
Source image: P1030288.JPG
42019 34 66 4 1 0 0 SET (N) IN B
42020 80 426 2 0 0 0 426 RT ALIGN S/R ENTER SUBROUTINE
42021 5 66 4 1 0 0 TRANSFER
42022 66 4 2 0 0 ACTION SELECT
42023 32 0 0 0 1- SHIFT (AB) BY QUARTETS
42024 5 61 110 0 0 0 GROUP TRANSFER
42025 32 0 0 0 1 SHIFT (AB) BY QUARTETS
42026 11 0 0 0 1 ADD LITERAL
42027 5 61 50 0 0 0 VARIANT +1 TRANSFER
42100 PROCR 421 421 I/P C-LINE S/R
42101 NOTES RADIX B SELECT
42102 0 61 110 0 0 0 SELECT
42103 80 430 2 0 0 0 430 CONVERT ENTER SUBROUTINE
42104 11 0 0 0 1 ADD LITERAL
42105 5 61 110 0 0 0 GROUP+1 TRANSFER
42018>42106 61 98 1 0 0 W/L SELECT
42107 71 421 10 0 0 0 421 JUMP IF A != 0
42108 5 61 110 0 0 0 CLEAR GROUP WHEN'IGNORE'IND SET TRANSFER
42109 76 353 2 0 0 0 353 >GNB JUMP unconditional
42107>42110 124 435 22 0 2 0 435 select literal and division
42111 112 66 8 1 0 0 convert
42112 5 66 8 1 0 0 ITEM TO BIN TRANSFER
42113 124 435 22 0 2 0 435 select literal and division
42114 112 66 12 1 0 0 convert
42115 5 66 12 1 0 0 MOD DIGITS TO BIN TRANSFER
42116 124 435 22 0 2 0 435 select literal and division
42117 112 66 7 1 0 0 convert
42118 5 66 6 1 0 0 REF TO BIN TRANSFER
42119 5 61 99 0 0 0 NON I/P IND TRANSFER
42120 82 415 2 0 0 0 415 END OF SUBROUTINE / LEAVE SUBROUTINE
42200 PROCR 422 422 PRINT SEQ CHANGE ENTRY POINT ON SEPARATE LINE
42201 NOTES RADIX B SELECT
42202 81 422 2 0 0 0 422 START OF SUBROUTINE
42203 0 61 20 1 0 0 SELECT
42204 71 422 7 0 0 0 422 >PRINT REPORTED SC JUMP IF A != 0
42205 0 23 46 1 0 0 'PRINT UNCONDITIONALLY' INDS SELECT
42206 70 422 12 0 0 0 422 >DONT PRINT SEPARATE SC JUMP IF A == 0
42204>42207 52 5 2 0 0 0 EDIT
42208 C 443 2 0 0 0 443
42209 0 61 20 1 0 0 ?????'OR ZERO SELECT
42210 5 5 46 1 0 0 TRANSFER
42211 80 423 2 0 0 0 423 ENTER SUBROUTINE
42206>42212 82 422 2 0 0 0 422 END OF SUBROUTINE / LEAVE SUBROUTINE
42300 PROCR 423 423 SECOND PRINT S/R
42301 NOTES RADIX B SELECT
42302 81 423 2 0 0 0 423 START OF SUBROUTINE
42303 00 436 2 1 0 0 436 BEW SELECT
42304 5 5 50 1 0 0 TRANSFER
42305 0 999 14 1 0 0 SEC 5 PARAS SELECT
42306 5 999 16 1 0 0 CORRUPT SEC 7 PARAS TRANSFER
42307 80 403 2 0 0 0 403 >PRINT SR(WHICH WILL USE SEC 5) ENTER SUBROUTINE
42308 0 999 30 1 0 0 SELECT
42309 5 999 16 1 0 0 RESTORE SEC 7 PARAS EX WL TRANSFER
42310 54 5 2 1 0 48 BULK CLEAR
42311 82 423 2 0 0 0 423 END OF SUBROUTINE / LEAVE SUBROUTINE
42400 PROCR 424 424 NEG NO S/R
Source image: P1030289.JPG
42401 NOTES RADIX B SELECT
42402 81 424 2 0 0 0 424 START OF SUBROUTINE
42403 10 0 0 0 0 SELECT LITERAL
42404 2 66 8 1 0 0 ITEM SUBTRACT
42405 70 424 17 0 0 0 424 DO NOT SET INDICATORFOR ZERO ITEM JUMP IF A == 0
42406 73 424 17 0 0 0 424 JUMP IF A < 0
42407 5 66 8 1 0 0 TRANSFER
42408 10 0 0 0 80 B8 SELECT LITERAL
42409 4 61 34 0 0 0 PARA W/L AUGMENT
42410 66 10 1 0 0 DEAL WITH SELECT
42411 12 0 0 0 2 DISC 2 SUBTRACT LITERAL
42412 71 424 17 0 0 0 424 FOR -VE ITEM JUMP IF A != 0
42413 12 0 0 0 1 SUBTRACT LITERAL
42414 4 66 8 1 0 0 AUGMENT
42415 10 0 0 0 1 SELECT LITERAL
42416 5 66 10 1 0 0 TRANSFER
42412>
42406>
42405>42417 82 424 2 0 0 0 424 END OF SUBROUTINE / LEAVE SUBROUTINE
42500 PROCR 425 425 STACK S/R
42501 NOTES RADIX B SELECT
42502 81 425 2 0 0 0 425 START OF SUBROUTINE
42503 0 61 0 0 0 0 ACTION SELECT
42504 5 67 3 0 0 0 TRANSFER
42505 66 6 1 0 0 REF SELECT
42506 30 0 0 0 2 SHIFT (A) BY QUARTETS
42507 1 61 34 0 0 0 PARAM ADD
42508 5 67 2 0 0 0 TRANSFER
42509 66 10 1 0 0 SELECT
42510 70 425 16 0 0 0 425 GDISC 0 JUMP IF A == 0
42511 12 0 0 0 2 SUBTRACT LITERAL
42512 71 425 15 0 0 0 425 >NOT DISC 2 JUMP IF A != 0
42513 10 0 0 0 1 STEP ITEM SELECT LITERAL
42514 4 66 8 1 0 0 AUGMENT
42512>42515 437 29 0 0 0 437 B16 SELECT
42510>42516 124 66 12 0 1 0 MOD DIGITS modify address of next
42517 1 437 25 0 0 0 437 BITS IN B14 POSN ADD
42518 1 66 8 0 0 0 ITEM ADD
42519 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION
42520 36 67 3 0 0 0 COLLATE AND ADD
42521 37 67 3 0 0 0 PACK WITH ACTION REPLACE SELECTED BITS
42522 10 0 0 0 0 CLEAR A SELECT LITERAL
42523 82 425 2 0 0 0 425 END OF SUBROUTINE / LEAVE SUBROUTINE
42600 PROCR 426 426 RT ALIGN S/R
42601 NOTES RADIX B SELECT
42602 81 426 2 0 0 0 426 START OF SUBROUTINE
42603 10 0 0 0 0 SELECT LITERAL
42604 05 61 18 1 0 0 TRANSFER
42608>42605 00 61 18 1 0 0 SELECT
42606 32 0 0 0 2 SHIFT (AB) BY QUARTETS
42607 05 61 18 1 0 0 TRANSFER
42608 75 426 5 0 0 0 426 JUMP IF AB != 0
42609 00 61 18 1 0 0 SELECT
42610 82 426 2 0 0 0 426 END OF SUBROUTINE / LEAVE SUBROUTINE
42700 PROCR 427 427 SUSPEND S/R
42701 NOTES RADIX B SELECT
42702 81 427 2 0 0 0 427 START OF SUBROUTINE
Source image: P1030290.JPG
42703 55 66 6 1 0 8 BULK COPY
42704 C 61 26 1 0 0
42705 66 16 0 0 0 ITEM + IND SELECT
42706 5 66 17 0 0 0 ITEM + IND (STORE) TRANSFER
42707 82 427 2 0 0 0 427 END OF SUBROUTINE / LEAVE SUBROUTINE
42800 PROCR 428 428 REPLACE S/R
42801 NOTES RADIX B SELECT
42802 81 428 2 0 0 0 428 START OF SUBROUTINE
42803 55 61 26 1 0 8 BULK COPY
42804 C 66 6 1 0 0
42805 66 17 0 0 0 ITEM + IND (STORE) SELECT
42806 5 66 16 0 0 0 ITEM + IND TRANSFER
42807 82 428 2 0 0 0 428 END OF SUBROUTINE / LEAVE SUBROUTINE
42900 PROCR 429 429 OP INST S/R
42901 NOTES RADIX B SELECT
42902 81 429 2 0 0 0 429 START OF SUBROUTINE
42903 66 12 1 0 0 MOD DIGITS SELECT
42904 5 61 2 0 0 0 TRANSFER
42905 80 497 2 0 0 0 497 >MOD AND PARAMETER ENTER SUBROUTINE
42906 61 2 0 0 0 SELECT
42907 5 66 12 1 0 0 TRANSFER
42908 0 66 8 1 0 0 SELECT
42909 72 429 11 0 0 0 429 >NOT NEGATIVE ITEM JUMP IF A >= 0
42910 80 424 2 0 0 0 424 NEG NO ENTER SUBROUTINE
42909>42911 80 425 2 0 0 0 425 STACK ENTER SUBROUTINE
42912 80 411 2 0 0 0 411 OP ENTER SUBROUTINE
42913 82 429 2 0 0 0 429 END OF SUBROUTINE / LEAVE SUBROUTINE
43000 PROCR 430 430 CONVERT (A) TO BINARY
43001 NOTES RADIX SELECT
43002 81 430 2 0 0 0 430 START OF SUBROUTINE
43003 5 435 42 1 0 0 435 TRANSFER
43004 62 0 0 0 0 SET EXCESS CONSTANTS
43005 124 435 22 0 2 0 435 select literal and division
43006 112 435 42 1 0 0 435 convert
43007 82 430 2 0 0 0 430 END OF SUBROUTINE / LEAVE SUBROUTINE
43100 PROCR 431 431 CONVERT (A) TO DECIMAL
43101 NOTES 431 SELECT
43102 81 431 2 0 0 0 431 START OF SUBROUTINE
43103 5 435 42 1 0 0 435 TRANSFER
43104 60 0 0 0 0 SET DECIMAL RADIX
43105 124 435 2 0 2 0 435 select literal and division
43106 112 435 42 1 0 0 435 convert
43107 82 431 2 0 0 0 431 END OF SUBROUTINE / LEAVE SUBROUTINE
43200 PROCR 432 432 A2>8
43202 81 432 2 0 0 0 432 START OF SUBROUTINE
43203 42 A2 0 0 0 0 INPUT
43204 C 8 0 0 0 0
43205 59 8 6 0 12 0 SET MODIFICATION REGISTER FOR MERGE
43206 C 8 4 2 0 0
43207 82 432 2 0 0 0 432 END OF SUBROUTINE / LEAVE SUBROUTINE
43300 PROCR 433 433 O/P>A9
43302 81 433 2 0 0 0 433 START OF SUBROUTINE
43303 10 0 0 0 800000 SELECT LITERAL
43304 34 999 12 0 0 0 SET (N) IN B
Source image: P1030291.JPG
43305 125 4096 1 1 0 clear indicators
43306 1 999 7 0 0 0 D1/A9 ADD
43307 124 999 0 0 3 0 modify address of next
43308 123 160 0 2 0 enter master routine
43309 82 433 2 0 0 0 433 END OF SUBROUTINE / LEAVE SUBROUTINE
43400 CONST 434 434 1 ALPHA CONSTANTS
43402 (A)VALUE;
43404 TABLE;
43406 CONST;
43408 PROCR;
43410 (A)NOTES;
43412 END ; END
43414 DUMPS;
43416 FILES;
43418 TYPE ;
43420 FIEND;
43422 > ;
43424 TYPE.;
43426 C ;
43428 ?????;
43430 TYPE£;
43432 (B)1; CONVERT LITERALS OF 35 ACTION
43434 2;
43436 4;
43438 8;
43440 16;
43442 32;
43444 64;
43446 128;
43448 256;
43450 512;
43500 CONST 435 435 1 CONVERT TABLES
43502 (D)1; BIN>DEC
43504 16;
43506 256;
43508 4096;
43510 65536;
43512 1048576;
43514 16777216;
43516 268435456;
43518 4294967296;
43520 ££££££££££;
43522 1; DEC>BIN
43524 Ю;
43526 64;
43528 3.8;
43530 2710;
43532 186Ю0;
43534 £4240;
43536 989680;
43538 5£5.100;
43540 3‼9Ю+Ю00;
43542 0; (A)WL
43544 0; 'CLEO'PARA WORD
43546 +00000;
43600 CONST 436 436 0 DECIMAL CONSTANTS
43602 (D)7.; B.E.
Source image: P1030292.JPG
43603 7.000; WORD
43604 0; 0:48 MR SETTING
43605 90; MR NOW 0:144
43606 1; FUNCTION WORDS
43607 45; TYPES IN ALPHA
43608 45;
43609 44;
43610 4;
43611 4;
43612 2;
43613 0;
43614 (R)18:2499; FOR SEQUENCE CHANGES
43615 18:0;
43616 (B)180; FOR TSL STORAGE
43617 180;
43618 (D)3;
43619 7£££0; B5-19
43620 1£££; B1-13
43621 66666; DEC RADIX
43622 66.64; ST RADIX
43623 66666; DEC RADIX
43624 3££; BITS 1-10
43625 01000; BIT 13
43626 3£; BITS 1-6
43700 CONST 437 437 0 INSTRUCTIONS
43702 (R)92:9;
43703 (D)08006; 10/1/0/6
43704 +8006; 12/1/0/6
43705 7;
43706 £££££; THIS ISN'T A DUMMY
43707 £££££;
43708 (D)60000; 6
43709 40000; 4 B19
43710 50000; 5
43711 30000; 3
43712 70000; 7
43713 20000; 2 B18
43714 90000; 9
43715 Ю0000; 10
43716 ‼0000; 11
43717 :0000; 13
43718 20001-; 18/1/1/0/1
43719 8+000-; 24/1/2
43720 80000-; 24/0/0
43721 0Ю000; 0/1/1
43722 1.000; 0/1/3
43723 1Ю000; 1/1/1
43724 1+000; 1/1/2
43725 0; 0/0/0
43726 02000; 0/0/1 B14
43727 04000; 0/0/2 B15
43728 06000; 0/0/3 B14
43729 08000; 0/1/0 B16
43730 28000; 2/1/0
43731 38000; 3/1/0
43732 22000-; 18/0/1
43733 26000-; 18/0/3
43734 2Ю000-; 18/1/1
43735 2.000-; 18/1/3
Source image: P1030293.JPG
43736 12000; 1/0/1
43737 £0000; 15
43738 .0000; 14
43739 14000; 1/0/2
43740 ‼0000-; 27/0/0
43741 ‼2000-; 27/0/1
43742 ‼4000-; 27/0/2
43743 ‼6000-; 27/0/3
43744 ‼8000-; 27/1/0
43745 ‼Ю000-; 27/1/1
43746 88000-; 24/1/0
43747 Ю0000-; 26/0/0
43748 Ю2000-; 26/0/1
43749 10000; 1/0/0 B17
43750 2Ю00Ю-; 18/1/1/0/10
43751 80000; 8/0/0 B20
43752 88000; 8/1/0
43753 1.001; 1/1/3/0/1
43754 48000; 4/1/0
43755 2Ю005-; 18/1/1/0/5
43756 Ю8000-; 26/1/0
43757 68000; 6/1/0
43758 +0000; 12
43759 90000-; 25/0/0
43760 74000-; 23/0/2
43761 70000-; 23/0/0
43762 2‼016-; 18/1/1/0/10 (18/1/11/4096+22)
43763 Ю4000-; 26/0/2
43764 2‼017-; 18/1/1/0/9- (18/1/1/4094+23
43765 +0000-; 28/0/0
43766 84000-; 24/0/2
43767 :2000-; 29/0/1
43768 +4000-; 28/0/2
43769 +6000-; 28/0/3
43770 ++000-; 28/1/2
43771 +.000-; 28/1/3
43772 2‼01‼-; 18/1/1/0/5-
43773 9‼000-;
43774 (R)18:2496; FOR SEQUENCE CHANGES
43775 (D)1;
43776 £0000-; 31/0/0
43777 £8000-; 31/1/0
43778 .8000-; 30/1/0
43779 .0008-; 30/0/0/8
43780 .0000-; 30/0/0
43781 £0008-; 31/0/0/8
43782 40000-; 20/0/0
43783 48000-; 20/1/0
43784 58000-; 21/1/0
43785 40008-; 20/0/0/8
43786 50000-; 21/0/0
43787 60000-; 22/0/0
43788 .0004-; 30/0/0 4
43789 £8004-; 31/1/0 4
43790 68000-; 22/1/0
43791 407+; BITS 3-7+15
43792 400; PARA 152
43793 6808Ю; 6/1/0 138
43794 500; PARA 154
43795 0409+; 0/0/2/156
Source image: P1030294.JPG
43796 200; PARA 150
43797 300; PARA 151
43798 Ю6000-; 26/0/3 0
43799 ; INDICATOR FOR PRINTING CURRENT BLOCK
43800 CONST 438 438 0 MORE ACTIONS
43802 (D)86000-; 24/0/3
43803 82000-; 24/0/1
43804 28006; 2/1/06
43805 38006; 3/1/06
43806 ‼8002-; 27/1/02
43807 1Ю002; 1/1/12
43808 22005-; 18/0/15
43809 06004; 0/0/34
43810 20001; 2/0/01
43811 88001-; 24/1/01
43812 ‼4002-; 27/0/22
43813 88007-; 24/1/07
43814 Ю5££‼-; 26/0/35-
43815 Ю1££Ю-; 26/0/16-
43816 20006; 2/0/06
43817 86006-; 24/0/36
43818 74002-; 23/0/22
43819 0; THIS IS A 0/10 FLIPFLOP USED FOR SC'S FW
43820 0; SERIAL LAST MT BLOCK PRINTED IMPLICITLY
43821 8+006-; 24/1/2 6
43822 1Ю00Ю; 1/1/1 10
43823 30002; 3/0/0 2
43824 1Ю014; 1/1/1 20
43825 04002; 0/0/2 2
43826 88005-; 24/1/0 5
43827 :6000-; 29/0/3 0
43828 8000-; 16/1/0 0
43900 TABLE 439 439 1 TRIAL DATA HEADING BLOCK 'FILES'
43901 NOTES
44000 TABLE 440 440 1 INSTRUCTIONS
44001 NOTES
44002 66 0 0 0 2 0 5 0 0 0 0 0 0 AM IND
44004 66 2 0 0 1 0 5 5 5 0 0 0 0 S. NO
44006 66 4 0 0 2 0 5 0 4 0 0 0 0 ACTION
44008 66 6 0 0 2 0 5 0 3 0 0 0 0 REF
44010 66 8 0 0 1 0 5 5 0 4 2 0 0 ITEM
44012 66 10 0 0 1 0 2 8 1 1 0 0 0 DISC
44014 66 12 0 0 1 0 3 7 0 2 0 0 0 MOD
44016 66 14 0 0 1 0 10 0 5 9 2 0 0 LITERAL
44018 435 44 0 0 2 0 5 0 0 0 0 0 1 'CLEO'PARA WORD
44100 TABLE 441 441 1 TABLES
44101 NOTES
44102 66 0 0 0 2 0 5 0 0 0 0 0 0 AM IND
44104 66 2 0 0 0 0 5 0 5 0 0 0 0 S NO
44106 66 16 0 0 0 0 5 0 1 4 0 0 0 FIRST REF
44108 66 17 0 0 0 0 5 0 1 4 0 0 0 FIRST ITEM
44110 66 18 0 0 0 0 5 0 1 4 0 0 0 SECOND REF
44112 66 19 0 0 0 0 5 0 1 4 0 0 0 SECOND ITEM
44114 66 3 0 0 0 0 2 3 1 1 0 0 0 S/L/ALPHA
44116 66 4 0 0 0 0 3 2 0 2 0 0 0 SINGLE/BE
44118 66 5 0 0 0 0 2 3 2 1 0 0 0 NO OF CHARS
Source image: P1030295.JPG
44120 66 10 0 0 0 0 3 2 1 2 0 0 0 DISC
44122 66 11 0 0 0 0 2 3 2 1 0 0 0 SPACES
44124 66 12 0 0 0 0 3 2 1 2 0 0 0 ZEROS
44126 66 13 0 0 0 0 1 4 2 0 0 0 0 SIGN
44128 66 14 0 0 0 0 2 3 1 1 0 0 0 STERLING
44130 66 15 0 0 0 0 2 3 1 1 0 0 1 L.T.E.
44200 TABLE 442 442 1 VALUE
44201 NOTES
44202 67 3 0 0 0 0 5 0 1 4 1 0 0 VALUE
44204 67 2 0 0 0 0 4 1 0 3 0 0 1 PARA
44300 TABLE 443 443 1
44301 NOTES ENTRY PT ADJUSTMENTPM POINTS
44302 61 20 0 0 2 0 3 2 0 0 0 0 0 ??? OR ZERO
44304 61 0 0 0 0 0 5 0 1 0 0 0 0 ENTRY POINT
44306 434 22 0 0 2 0 1 0 0 0 0 0 1 '+'
44308 66 0 0 0 2 0 3 0 0 0 0 0 0 AMEND IND
44310 61 0 0 0 0 0 5 0 1 0 0 0 0 ENTRY PT
44312 434 22 0 0 2 0 1 0 0 0 0 0 1 >
44400 CONST 444 444 1 DUMMY FOR INSERTING M/C MODS
44500 PROCR 445 445 START OF PASS 3
44501 NOTES RADIX PREP STAGE SELECT
44502 152 200 4 0 0 0 200 CALL PASS 4 OVERLAY
44503 C 557 2 0 0 0 557 COPY SECTION DETAILS
44504 55 9 0 1 0 100 BULK COPY
44505 C 15 0 1 0 0 INPUT EX PASS 2
44506 40 A6 0 0 0 1 OPEN FILE
44507 54 16 0 0 0 40 CLEAR PRINTER ANNEX BULK CLEAR
44508 54 5 0 0 0 50 CLEAR DETAILS BULK CLEAR
44509 10 0 0 0 0 OF SECTION 0 SELECT LITERAL
44510 5 94 0 0 0 0 TRANSFER
44511 55 72 3 0 0 14 BULK COPY
44512 C 16 5 0 0 0
44513 54 72 3 0 0 14 BULK CLEAR
44514 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
44515 C 0 0 0 0 /////
44516 92 0 0 0 0 CHAPTERS CODED +1 SELECT
44517 30 0 0 0 5 SHIFT (A) BY QUARTETS
44518 11 0 0 0 1 ADD LITERAL
44519 91 0 0 1 0 SET MODIFICATION REGISTER AT VARIABLE
44611>44520 10 0 0 0 0 SELECT LITERAL
44521 35 0 0 0 1 PREPARE FOR DIGIT COLLATION
44522 36 92 9 0 1 0 COLLATE AND ADD
44523 5 16 2 0 0 0 CORRECTED CHAP TRANSFER
44524 96 0 0 1 0 SELECT MODIFIER
44525 5 16 1 0 0 0 UNCORR CHAP TRANSFER
44526 10 0 0 0 10 BIT 5 SELECT LITERAL
44527 32 0 0 0 10- SHIFT (AB) BY QUARTETS
44528 36 92 9 0 1 0 UNIQUENESS IND Q2 COLLATE AND ADD
44529 32 0 0 0 2- (CLEAR A) SHIFT (AB) BY QUARTETS
44530 75 445 33 0 0 0 445 >CHAP NOT UNIQUE JUMP IF AB != 0
44531 124 16 2 0 1 0 CORR CHAP modify address of next
44532 16 4 0 0 0 SW SEC LENGTH SELECT
44530>44533 1 72 18 0 3 0 CHAP LENGTH(CODING ONLY) ADD
44534 5 16 3 0 0 0 START OF FIRST SEC IN UNCORR CHAP TRANSFER
44535 5 16 4 0 0 0 CLEAR FOR TOT LENGTHS ALL SECS IN C TRANSFER
Source image: P1030296.JPG
44600 PROCR 446 446 UPDATE SEC INDEX, SWITCH PROCR STARTS
44601 NOTES 446 SELECT
44602 80 447 2 0 0 0 447 >DEAL WITH SECTIONS,ANNEXES ENTER SUBROUTINE
44603 16 3 0 0 0 UNCORR CHAP LENGTH SELECT
44604 1 16 4 0 0 0 ADD
44605 124 16 2 0 1 0 CORR CHAP modify address of next
44606 2 72 2 0 0 0 SUBTRACT
44607 73 446 10 0 0 0 446 JUMP IF A < 0
44608 124 16 2 0 1 0 modify address of next
44609 4 72 2 0 0 0 FORM MAX CORR CHAP LENGTH AUGMENT
44607>44610 94 446 11 0 3 1 446 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
44610>44611 94 445 20 0 1 1 445 >NEXT UNCORR CHAP STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
44612 91 92 28 0 1 0 COUNT CORR CHAPS SET MODIFICATION REGISTER AT VARIABLE
44613 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
44614 C 0 0 0 0 /////
44624>44615 10 0 0 0 10 BIT 5 SELECT LITERAL
44616 32 0 0 0 10- SHIFT (AB) BY QUARTETS
44617 36 92 10 0 1 0 COLLATE AND ADD
44618 70 446 23 0 0 0 446 >CHAR IS UNIQUE JUMP IF A == 0
44619 0 72 3 0 1 0 SELECT
44620 5 72 18 0 2 0 SWITCH PROCR START=END OF SECTIONS TRANSFER
44621 0 16 5 0 1 0 SELECT
44622 4 72 3 0 1 0 UPDATE CHAPTER LENGTH. AUGMENT
44618>44623 94 446 24 0 2 1 446 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
44623>44624 94 446 15 0 1 1 446 >NEXT CHAP STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
44625 0 61 100 0 0 0 BASIC SPECIAL CHAP LENGTH SELECT
44626 5 16 3 0 0 0 TRANSFER
44627 5 16 1 0 0 0 ZERO UNCORR CHAP TRANSFER
44628 0 92 29 0 0 0 SELECT
44629 5 16 2 0 0 0 CORR CHAP=SPEC CHAP TRANSFER
44630 5 16 4 0 0 0 CLEAR SUBTOTAL TRANSFER
44631 80 447 2 0 0 0 447 >DEAL WITH SPECIAL CHAP ENTER SUBROUTINE
44632 0 16 3 0 0 0 SELECT
44633 1 16 4 0 0 0 FORM SPECIAL CHAP LENGTH ADD
44634 5 72 2 0 1 0 TRANSFER
44635 101 220 1 3 0 FIRST CHAP MIN LENGTH=220 select literal address
44636 2 72 3 0 0 0 SUBTRACT
44637 73 446 39 0 0 0 446 >OK JUMP IF A < 0
44638 4 72 3 0 0 0 AUGMENT
44637>44639 54 16 0 0 0 40 CLEAR WL'S BULK CLEAR
44640 0 92 29 0 0 0 SELECT
44641 12 0 0 0 7 SUBTRACT LITERAL
44642 73 446 44 0 0 0 446 >OK JUMP IF A < 0
44643 10 0 0 0 0 SELECT LITERAL
44642>44644 11 0 0 0 7 MAX VALUE=7 ADD LITERAL
44645 5 92 29 0 0 0 SPECIAL CHAP NUMBER TRANSFER
44646 80 461 2 0 0 0 461 READ ALIGN BLOCK A6 NORMAL RUN, PREP STAENTER SUBROUTINE
44647 80 461 2 0 0 0 461 READ SECOND INDEX BLOCK ENTER SUBROUTINE
44648 80 461 2 0 0 0 461 READ PROG DETAILS BLOCK ENTER SUBROUTINE
44649 00 9 4 2 0 0 PROG ID SELECT
44650 5 16 2 0 0 0 TRANSFER
44651 00 9 6 2 0 0 PROG SERIAL SELECT
44652 5 16 3 0 0 0 TRANSFER
44653 54 13 0 0 0 14 BULK CLEAR
44654 46 A2 10 0 0 1 BACK TO ALIGN BLOCK RUN BACK
44655 C 0 0 0 6
44656 48 A2 0 0 0 0 (STEP SO AS TO OVERWRITE IT) STEP BACK
44657 C 0 0 0 1
44658 468 60 1 0 0 468 ALIGN MARKS SELECT
44659 5 8 4 1 0 0 TRANSFER
Source image: P1030297.JPG
44660 469 4 1 0 0 469 'INDEX' SELECT
44661 5 8 6 1 0 0 TRANSFER
44662 468 60 2 0 0 468 SELECT
44663 5 8 8 2 0 0 TRANSFER
44664 10 0 0 0 3 INDEX IDENTIFIER SELECT LITERAL
44665 5 8 10 1 0 0 TRANSFER
44666 80 464 2 0 0 0 464 >WRITE ENTER SUBROUTINE
44667 80 448 2 0 0 0 448 >WRITE DETAILS ENTER SUBROUTINE
44668 76 449 2 0 0 0 449 JUMP unconditional
44700 PROCR 447 447 PLACE SECTIONS AND ANNEXES IN UNCORRECTED CHAPTER SR
44702 81 447 2 0 0 0 447 START OF SUBROUTINE
44703 82 447 2 0 0 0 447 END OF SUBROUTINE / LEAVE SUBROUTINE
44800 PROCR 448 448 SR TO WRITE'INDEX'DATA
44801 NOTES 448 SELECT
44802 81 448 2 0 0 0 448 START OF SUBROUTINE
44803 16 2 0 0 0 PROG ID SELECT
44804 3 8 4 2 0 0 COPY
44805 5 8 12 2 0 0 TRANSFER
44806 0 16 3 0 0 0 PROG SERIAL SELECT
44807 3 8 6 2 0 0 COPY
44808 5 8 14 2 0 0 TRANSFER
44809 10 0 0 0 2 SELECT LITERAL
44810 5 8 10 2 0 0 PASS 1 IDENTIFIER TRANSFER
44811 10 0 0 0 3 SELECT LITERAL
44812 3 8 18 2 0 0 IDENTIFIER COPY
44813 10 0 0 0 2 SELECT LITERAL
44814 1 27 12 0 0 0 0/2=PTS NO/YES ADD
44815 5 8 16 2 0 0 PASS IND TRANSFER
44816 468 60 2 0 0 468 SELECT
44817 5 8 20 2 0 0 TRANSFER
44818 80 464 2 0 0 0 464 >WRITE ON A2 ENTER SUBROUTINE
44819 82 448 2 0 0 0 448 END OF SUBROUTINE / LEAVE SUBROUTINE
44900 PROCR 449 449 HEADING BLOCK
44901 NOTES RADIX B PREP STAGE SELECT
44668>44902 54 5 0 1 0 50 BULK CLEAR
44903 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
44904 C 0 0 0 10
44906>44905 80 463 2 0 0 0 463 >PRINT SPACERS ENTER SUBROUTINE
44906 94 449 5 0 1 1 449 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
44907 5 464 2 0 0 0 464 NO OF FILES NON TRANSFER
44908 5 463 2 0 0 0 463 NO OF TX AREAS TRANSFER
44909 10 0 0 0 80 HEAD OF FORM SELECT LITERAL
44910 5 472 9 0 0 0 472 TRANSFER
44911 52 5 0 0 0 0 EDIT FIRST LINE EDIT
44912 C 478 2 0 0 0 478
44913 80 463 2 0 0 0 463 >PRINT ENTER SUBROUTINE
44914 80 463 2 0 0 0 463 >SPACER ENTER SUBROUTINE
44915 0 468 60 2 0 0 468 SELECT
44916 5 8 4 2 0 0 TRANSFER
44917 10 0 0 0 55 SELECT LITERAL
44918 5 8 6 2 0 0 TRANSFER
44919 16 2 0 0 0 PROG ID SELECT
44920 5 8 8 2 0 0 TRANSFER
44921 16 3 0 0 0 PROG SERIAL SELECT
44922 5 8 10 2 0 0 TRANSFER
44923 0 468 70 1 0 0 468 'PASS3' SELECT
44924 5 8 12 1 0 0 TRANSFER
Source image: P1030298.JPG
44925 80 464 2 0 0 0 464 >WRITE ENTER SUBROUTINE
44926 80 461 2 0 0 0 461 >READ ENTER SUBROUTINE
44927 55 9 4 1 0 10 BULK COPY
44928 C 11 0 1 0 0
44929 5 11 12 2 0 0 T TRANSFER
44930 5 11 10 2 0 0 R TRANSFER
44931 5 11 14 2 0 0 NO OF DISCS TRANSFER
45000 PROCR 450 450 OUTPUT SECOND HEADING BLOCK
45001 NOTES RADIX B PREP STAGE SELECT
45002 55 11 0 1 0 16 BULK COPY
45003 C 8 4 1 0 0
45004 5 92 28 0 0 0 CLEAR TRANSFER
45005 92 6 0 0 0 2ND HEADING BLOCK SELECT
45006 5 8 20 2 0 0 TRANSFER
45007 92 8 0 0 0 CHAPTER SELECT
45008 5 8 22 2 0 0 TRANSFER
45009 91 92 28 0 2 0 SET MODIFICATION REGISTER AT VARIABLE
45010 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
45011 C 0 0 0 14
45025>45012 0 72 3 0 2 0 CHAP LENGTH SELECT
45013 71 450 16 0 0 0 450 JUMP IF A != 0
45014 468 92 1 0 0 468 100,000 INBIN SELECT
45015 3 72 3 0 2 0 SET RIDICULOUS LENGTH COPY
45013>45016 5 8 24 2 1 0 TRANSFER
45017 10 0 0 0 20 BIT 6 SELECT LITERAL
45018 32 0 0 0 10- SHIFT (AB) BY QUARTETS
45019 36 92 10 0 2 0 COLLATE AND ADD
45020 70 450 24 0 0 0 450 >NORMAL JUMP IF A == 0
45021 10 0 0 0 0 SELECT LITERAL
45022 2 8 24 2 1 0 SUBTRACT
45023 5 8 24 2 1 0 SET IND THAT IN ANOTHER STORE TRANSFER
45020>45024 94 0 0 1 2 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
45025 94 450 12 0 2 1 450 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
45026 0 16 2 0 0 0 SELECT
45027 5 8 38 2 0 0 PROG ID TRANSFER
45028 0 16 3 0 0 0 SELECT
45029 5 8 40 2 0 0 PROG SERIAL TRANSFER
45030 10 0 0 0 5163636653 'ALLOC' SELECT LITERAL
45031 5 8 42 1 0 0 TRANSFER
45032 80 464 2 0 0 0 464 >WRITE ENTER SUBROUTINE
45100 PROCR 451 451 SECOND HEADING LINE
45101 NOTES RADIX B PREP. STAGE SELECT
45102 91 478 2 0 1 0 478 SET MODIFICATION REGISTER AT VARIABLE
45103 91 478 4 0 2 0 478 SET MODIFICATION REGISTER AT VARIABLE
45104 95 0 0 1 0 SELECT MODIFICATION REGISTER
45105 5 478 2 1 0 0 478 TRANSFER
45106 95 0 0 2 0 SELECT MODIFICATION REGISTER
45107 5 478 4 1 0 0 478 TRANSFER
45108 90 0 0 2 0 SET MOD REGISTER SET MODIFICATION REGISTER AT LITERAL
45109 C 0 0 0 4
45116>45110 11 0 2 2 0 SELECT DETAIL SELECT
45111 70 451 14 0 0 0 451 OUT IF ZERO JUMP IF A == 0
45112 468 4 1 0 0 468 ELSE SELECT SELECT
45113 76 451 15 0 0 0 451 YES JUMP unconditional
45111>45114 468 6 1 0 0 468 SELECT NO SELECT
45113>45115 5 13 0 1 2 0 STORE YES OR NO TRANSFER
45116 94 451 10 0 2 2 451 REPEAT STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
45117 0 92 6 0 0 0 SELECT
Source image: P1030299.JPG
45118 80 465 2 0 0 0 465 TO DEC ENTER SUBROUTINE
45119 5 92 6 0 0 0 TRANSFER
45120 62 0 0 0 0 RESET BINARY SET EXCESS CONSTANTS
45121 52 5 2 0 0 0 EDIT
45122 C 477 2 0 0 0 477 EDIT AND OUTPUT
45123 80 463 2 0 0 0 463 >PRINT FP, MOD GP, ENTRY ETC ENTER SUBROUTINE
45124 80 463 2 0 0 0 463 >SPACER ENTER SUBROUTINE
45125 11 8 2 0 0 SELECT
45126 5 13 2 1 0 0 TRANSFER
45200 PROCR 452 452 THIRD HEADING LINE
45201 NOTES RADIX B PREP STAGE SELECT
45202 11 10 2 0 0 STORE SELECT
45203 5 16 8 0 0 0 NO. OF FILES TRANSFER
45204 0 11 8 2 0 0 NUMBER OF CHAPTERS INITIALLY SELECT
45205 5 16 9 0 0 0 NO. OF CHAPTERS TRANSFER
45206 54 13 0 0 0 14 CLEAR WL'S BULK CLEAR
45207 92 28 1 0 0 SELECT
45208 12 0 0 0 100000 SUBTRACT LITERAL
45209 91 0 0 2 0 SET MODIFICATION REGISTER AT VARIABLE
45219>45210 72 3 0 2 0 SELECT
45211 80 465 2 0 0 0 465 TO DEC ENTER SUBROUTINE
45212 5 13 0 0 2 0 STORE CHAPTER LENGTHS TRANSFER
45213 62 0 0 0 0 SET EXCESS CONSTANTS
45214 72 3 0 2 0 SELECT
45215 12 0 0 0 2001 8193 INBIN SUBTRACT LITERAL
45216 73 452 19 0 0 0 452 >OK JUMP IF A < 0
45217 10 0 0 0 1 SELECT LITERAL
45218 3 13 10 0 0 0 COPY
45216>45219 94 452 10 0 2 1 452 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
45220 10 0 0 0 506 SELECT LITERAL
45221 3 470 4 0 0 0 470 COPY
45222 5 13 0 0 2 0 STD LENGTH 506 TRANSFER
45223 13 10 0 0 0 SELECT
45224 70 452 33 0 0 0 452 >OK JUMP IF A == 0
45225 86 403 2 0 0 0 403 CTR DISASTROUS ERRORS SELECT SWITCH R
45226 11 0 0 0 1 ADD LITERAL
45227 84 403 2 0 0 0 403 AUGMENT SET SWITCH(ES) AT VARIABLE VALUE
45228 10 0 0 0 5:5:5:5:5: '?????' SELECT LITERAL
45229 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
45230 C 0 0 0 10
45232>45231 3 5 40 1 2 0 25 QUESTION MARKS COPY
45232 94 452 31 0 2 2 452 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
45224>45233 52 5 2 0 0 0 EDIT AND OUTPUT EDIT
45234 C 476 2 0 0 0 476
45235 80 463 2 0 0 0 463 PRINT ENTER SUBROUTINE
45236 80 463 2 0 0 0 463 SPACER ENTER SUBROUTINE
45237 52 5 2 0 0 0 EDIT
45238 C 475 2 0 0 0 475 EDIT FILE DETAILS HEADING
45239 80 463 2 0 0 0 463 PRINT ENTER SUBROUTINE
45240 54 13 0 0 0 31 BULK CLEAR
45300 PROCR 453 453 FILE DETAILS FOR PRINT-OUT
45301 NOTES RADIX B PREP STAGE SELECT
45302 52 5 2 0 0 0 EDIT HEADINGS&OUTPUT EDIT
45303 C 479 14 0 0 0 479 HEADING BLOCK
45304 80 463 2 0 0 0 463 PRINT TX AREA HEADING ENTER SUBROUTINE
45400 PROCR 454 454 PRINT SECTION START POINTS
45401 NOTES RADIX SELECT
Source image: P1030300.JPG
45402 468 62 1 0 0 468 'SEC' SELECT
45403 05 5 2 1 0 0 TRANSFER
45404 468 64 1 0 0 468 'TION.' SELECT
45405 05 5 4 1 0 0 TRANSFER
45406 0 468 84 1 0 0 468 SELECT
45407 05 5 6 1 0 0 TRANSFER
45408 80 463 2 0 0 0 463 >PRINT ENTER SUBROUTINE
45409 80 463 2 0 0 0 463 PRINT LAST LINE ENTER SUBROUTINE
45410 76 457 2 0 0 0 457 >PRINT SWITCHES JUMP unconditional
45500 PROCR 455 455 PRINT LOCNS OF MOD REGISTERS 4-20
45501 NOTES 455 SELECT
45605>45502 52 5 2 0 0 0 EDIT
45503 C 480 8 0 0 0 480
45504 80 463 2 0 0 0 463 >PRINT HEADING ENTER SUBROUTINE
45505 80 463 2 0 0 0 463 >PRINT LAST LINE ENTER SUBROUTINE
45506 90 0 0 12 2499 SET MODIFICATION REGISTER AT LITERAL
45507 C 0 0 0 0
45508 90 0 0 5 0 SET MODIFICATION REGISTER AT LITERAL
45509 C 0 0 0 40
45510 91 0 0 1 0 CLEAR R1 SET MODIFICATION REGISTER AT VARIABLE
45511 76 483 2 0 0 0 483 PASS 4 JUMP unconditional
45600 PROCR 456 456 PRINT LOCATIONS OF ITEM+ COUNTERS
45601 NOTES 456 SELECT
45706>45602 52 5 2 0 0 0 EDIT
45603 C 480 12 0 0 0 480
45604 80 463 2 0 0 0 463 >PRINT HEADING ENTER SUBROUTINE
45605 76 455 2 0 0 0 455 >NONE JUMP unconditional
45700 PROCR 457 457
45701 NOTES PRINT LOCATION OF SWITCHES SELECT
45410>45702 52 5 2 0 0 0 EDIT
45703 C 480 16 0 0 0 480
45704 80 463 2 0 0 0 463 >PRINT HEADING ENTER SUBROUTINE
45705 80 463 2 0 0 0 463 >PRINT LAST LINE ENTER SUBROUTINE
45706 76 456 2 0 0 0 456 >PRINT ITEM+ JUMP unconditional
45800 PROCR 458 458
45801 NOTES RADIX EDIT AND OUTPUT DETAIL FOR TRANSLATOR'S WORKING SECTIONS SELECT
45802 81 458 2 0 0 0 458 START OF SUBROUTINE
45803 0 468 2 0 0 0 468 SELECT
45804 80 465 2 0 0 0 465 TO DEC ENTER SUBROUTINE
45805 5 468 2 0 0 0 468 TRANSFER
45806 0 468 3 0 0 0 468 SELECT
45807 80 465 2 0 0 0 465 ENTER SUBROUTINE
45808 5 468 3 0 0 0 468 TRANSFER
45809 0 468 4 0 0 0 468 SELECT
45810 80 465 2 0 0 0 465 ENTER SUBROUTINE
45811 5 468 4 0 0 0 468 TRANSFER
45812 62 0 0 0 0 BIN SET EXCESS CONSTANTS
45813 52 5 2 0 1 0 EDIT
45814 C 480 20 0 0 0 480
45815 94 458 19 0 1 6 458 >LINE NOT FULL STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
45816 80 463 2 0 0 0 463 >PRINT ENTER SUBROUTINE
45817 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
45818 C 0 0 0 48
45815>45819 82 458 2 0 0 0 458 END OF SUBROUTINE / LEAVE SUBROUTINE
45900 PROCR 459 459 READ A2
Source image: P1030301.JPG
45901 NOTES READ A2 SELECT
45902 81 459 2 0 0 0 459 START OF SUBROUTINE
45903 42 A2 0 0 0 0 INPUT
45904 C 8 0 0 0 0
45905 82 459 2 0 0 0 459 END OF SUBROUTINE / LEAVE SUBROUTINE
46000 PROCR 460 460 INPUT OFF PASS 2
46001 NOTES RADIX B SUB ROUTINE SELECT
46002 81 460 2 0 0 0 460 START OF SUBROUTINE
46003 94 460 7 0 2 8 460 STANDARD INCREMENT STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
46004 80 461 2 0 0 0 461 READ A6>SEC 9 ENTER SUBROUTINE
46005 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
46006 C 0 0 0 144
46003>46007 82 460 2 0 0 0 460 END OF SUBROUTINE / LEAVE SUBROUTINE
46100 PROCR 461 461 INPUT
46101 NOTES RADIX B SUB ROUTINE SELECT
46102 81 461 2 0 0 0 461 START OF SUBROUTINE
46103 42 A6 0 0 0 0 INPUT
46104 C 9 0 0 0 0
46105 82 461 2 0 0 0 461 END OF SUBROUTINE / LEAVE SUBROUTINE
46200 PROCR 462 462 WRITE ON WORKING TAPE
46201 NOTES 462 SELECT
46202 81 462 2 0 0 0 462 START OF SUBROUTINE
46203 55 8 4 1 0 50 COPY ANNEXES BULK COPY
46204 C 9 4 1 0 0
46205 0 468 56 1 0 0 468 BEW SELECT
46206 5 9 52 1 0 0 TRANSFER
46207 43 A6 0 0 0 0 OUTPUT
46208 C 9 0 0 0 0
46209 54 9 0 0 0 52 BULK CLEAR
46210 82 462 2 0 0 0 462 END OF SUBROUTINE / LEAVE SUBROUTINE
46300 PROCR 463 463 PRINT
46301 NOTES RADIX B SUB ROUTINE SELECT
46302 81 463 2 0 0 0 463 START OF SUBROUTINE
46303 62 0 0 0 0 SET EXCESS CONSTANTS
46304 468 56 1 0 0 468 SELECT
46305 05 5 50 1 0 0 BEW TRANSFER
46306 472 9 0 0 0 472 HEAD OF FORM OR TRAC1 SELECT
46307 05 5 0 1 0 0 FUNCTION WORD TRANSFER
46308 10 0 0 0 1 SELECT LITERAL
46309 5 472 9 0 0 0 472 TRANSFER
46310 27 9 0 0 0 SELECT
46311 70 463 16 0 0 0 463 >PRINTER JUMP IF A == 0
46312 55 5 0 1 0 54 BULK COPY
46313 C 10 4 1 0 0
46314 80 467 2 0 0 0 467 >WRITE ON A9 ENTER SUBROUTINE
46315 76 463 39 0 0 0 463 JUMP unconditional
46311>46316 27 8 0 0 0 PRINTER TYPE SELECT
46317 12 0 0 0 9 SUBTRACT LITERAL
46318 70 463 35 0 0 0 463 >SPECIAL JUMP IF A == 0
46319 10 0 0 0 80000 SELECT LITERAL
46320 5 5 1 0 0 0 BIT 40 TRANSFER
46321 54 10 0 1 0 384 BULK CLEAR
46322 124 999 15 1 2 0 SEC 5 modify address of next
46323 124 0 0 2 0 select literal and division
46324 124 999 13 1 2 0 SEC 10 modify address of next
46325 129 0 0 1 0 edit for anelex output
Source image: P1030302.JPG
46326 10 0 0 0 4 SELECT LITERAL
46338>46327 30 0 0 0 5 SHIFT (A) BY QUARTETS
46328 1 999 7 0 0 0 ROUTE ADD
46329 34 999 12 0 0 0 SET (N) IN B
46330 125 4096 1 1 0 clear indicators
46331 124 999 0 0 3 0 modify address of next
46332 123 160 0 2 0 enter master routine
46333 62 0 0 0 0 SET EXCESS CONSTANTS
46334 76 463 39 0 0 0 463 JUMP unconditional
46318>46335 55 5 0 1 0 54 BULK COPY
46336 C 10 0 1 0 0
46337 10 0 0 0 9 SELECT LITERAL
46338 76 463 27 0 0 0 463 JUMP unconditional
46334>
46315>46339 54 5 0 0 0 50 BULK CLEAR
46340 5 16 1 0 0 0 CLEAR INDICATOR TRANSFER
46341 82 463 2 0 0 0 463 END OF SUBROUTINE / LEAVE SUBROUTINE
46400 PROCR 464 464 OUTPUT ON A2
46401 NOTES RADIX B SUB ROUTINE SELECT
46402 81 464 2 0 0 0 464 START OF SUBROUTINE
46403 468 56 1 0 0 468 BEW SELECT
46404 5 8 52 1 0 0 TRANSFER
46405 43 A2 0 0 0 0 OUTPUT OUTPUT
46406 C 8 0 0 0 0
46407 54 8 0 0 0 52 CLEAR BULK CLEAR
46408 82 464 2 0 0 0 464 END OF SUBROUTINE / LEAVE SUBROUTINE
46500 PROCR 465 465 CONVERT (A) TO DECIMAL
46501 NOTES 465 SELECT
46502 81 465 2 0 0 0 465 START OF SUBROUTINE
46503 5 470 4 1 0 0 470 TRANSFER
46504 60 0 0 0 0 SET DECIMAL RADIX
46505 124 471 22 0 2 0 471 select literal and division
46506 112 470 4 1 0 0 470 convert
46507 82 465 2 0 0 0 465 END OF SUBROUTINE / LEAVE SUBROUTINE
46600 PROCR 466 466 CONVERT (A) TO BIN
46601 NOTES 466 SELECT
46602 81 466 2 0 0 0 466 START OF SUBROUTINE
46603 5 470 4 1 0 0 470 TRANSFER
46604 62 0 0 0 0 SET EXCESS CONSTANTS
46605 124 471 2 0 2 0 471 select literal and division
46606 112 470 4 1 0 0 470 convert
46607 82 466 2 0 0 0 466 END OF SUBROUTINE / LEAVE SUBROUTINE
46700 PROCR 467 467 O/P>A9
46702 81 467 2 0 0 0 467 START OF SUBROUTINE
46703 10 0 0 0 800000 SELECT LITERAL
46704 34 999 12 0 0 0 SEC 10 SET (N) IN B
46705 125 4096 1 1 0 clear indicators
46706 1 999 7 0 0 0 D1/A9 ADD
46707 124 999 0 0 3 0 modify address of next
46708 123 160 0 2 0 enter master routine
46709 82 467 2 0 0 0 467 END OF SUBROUTINE / LEAVE SUBROUTINE
46800 CONST 468 468 1
46802 (A)F.PT.;
46804 YES;
46806 NO;
Source image: P1030303.JPG
46808 MOD.;
46810 GP.;
46812 PRIOR;
46814 ITY;
46816 FIRST;
46818 LOCN.;
46820 CHAPT;
46822 TYPE£;
46824 FILES;
46826 TRAN.;
46828 AREAS;
46830 ALT.R;
46832 OUTES;
46834 PROGR;
46836 AMME;
46838 SERIA;
46840 ID.;
46842 RTE.;
46844 TYPE;
46846 ST.OF;
46848 BLOCK;
46850 SIZE;
46852 SIT;
46854 PREND;
46856 (D)7.0000007.;
46858 (A)= CH/;
46860 (D)6£6£6£6£6£;
46862 (A)SEC;
46864 TION.;
46866 PROC;
46868 EDURE;
46870 PASS3;
46872 (A)MR'S ;
46874 4-20 ;
46876 ITEM+;
46878 CTRS;
46880 SWITC;
46882 HES ;
46884 (A)START;
46886 NOTES;
46888 SPOOL;
46890 ENTRY;
46892 (B)100000; 100,000
46900 CONST 469 469 1
46902 (D)5.5.;
46904 (A)INDEX;
46906 CHAIN;
46908 (D)7£££0003££; BITS 5-19+1-10
46910 (A)08000;
46912 PTS I;
46914 NCLUD;
46916 ED ;
47000 CONST 470 470 1 CONVERT TABLE
47002 (D)1; BIN>DEC
47004 0; (A) WL
47100 CONST 471 471 1 COMPILER'S CONVERT TABLES
47102 (D)1; DEC>BIN
Source image: P1030304.JPG
47104 Ю;
47106 64;
47108 3.8;
47110 2710;
47112 186Ю0;
47114 £4240;
47116 989680;
47118 5£5.100;
47120 3‼9Ю+Ю00;
47122 1; BIN>DEC
47124 16;
47126 256;
47128 4096;
47130 65536;
47132 1048576;
47134 16777216;
47136 268435456;
47138 4294967296;
47140 ££££££££££;
47200 CONST 472 472 0
47202 (D)7;
47203 80000;
47204 0; THIS IS A 0/1 FLIPFLOP FOR SC'S FWD
47205 3£; BITS 1-6
47206 £0000; £ IN Q5
47207 7£;
47208 80; HEAD OF FORM
47209 0; IND FOR HEAD OF FORM
47300 TABLE 473 473 1 TRIAL DATA HEADING+T/W COMMENT
47301 NOTES
47400 TABLE 474 474 1 PRINT HEADING DATA
47401 NOTES
47402 468 20 0 0 2 0 4 0 1 0 0 0 0 CHAPS
47404 468 38 0 0 2 0 1 0 0 0 0 0 0
47406 11 8 0 0 2 0 1 4 2 0 0 0 0 NO OF CHAPS INITIALLY
47408 468 24 0 0 2 0 5 0 3 0 0 0 0 FILES
47410 11 10 0 0 0 0 2 3 2 1 0 0 0 NO OF FILES
47412 468 26 0 0 2 0 5 0 7 0 0 0 0 TRAN AREAS
47414 468 28 0 0 2 0 5 0 2 0 0 0 0 XX
47416 11 12 0 0 0 0 2 3 2 1 0 0 0
47418 468 56 0 0 2 0 5 0 6 0 0 0 1
47420 13 4 0 0 0 0 5 0 0 0 0 0 0
47422 13 3 0 0 0 0 5 0 0 0 0 0 0
47424 13 0 0 0 0 0 5 0 0 0 0 0 0
47426 13 2 0 0 0 0 5 0 0 0 0 0 1
47500 TABLE 475 475 1 PRINT
47501 NOTES G LINE
47502 468 24 0 0 2 0 4 0 1 0 0 0 0
47504 468 40 0 0 2 0 3 2 2 0 0 0 0 FILE 10.
47506 468 42 0 0 2 0 4 1 6 0 0 0 0
47508 468 44 0 0 2 0 4 1 2 0 0 0 0 RTE. TYPE
47510 468 84 0 0 2 0 5 0 6 0 0 0 0
47512 468 18 0 0 2 0 5 0 2 0 0 0 0 START LOCN.
47514 468 30 0 0 2 0 5 0 6 0 0 0 0
47516 468 32 0 0 2 0 5 0 0 0 0 0 0 ALT ROUTES
47518 468 48 0 0 2 0 5 0 4 0 0 0 0
Source image: P1030305.JPG
47520 468 50 0 0 2 0 5 0 1 0 0 0 0 'BLOCK SIZE'
47522 468 20 0 0 2 0 5 0 10 0 0 0 1 CHAPT
47600 TABLE 476 476 1 PRINT HEADING DATA
47601 NOTES 4TH
47602 468 50 0 0 2 0 5 0 3 0 0 0 0 LGTH. OF CHAPS
47604 468 46 0 0 2 0 2 3 2 0 0 0 0
47606 468 20 0 0 2 0 4 0 2 0 0 0 0
47608 468 38 0 0 2 0 1 0 0 0 0 0 0
47610 13 0 0 0 0 0 5 0 2 4 2 0 0
47612 13 1 0 0 0 0 5 0 2 4 2 0 0
47614 13 2 0 0 0 0 5 0 2 4 2 0 0
47616 13 3 0 0 0 0 5 0 2 4 2 0 0
47618 13 4 0 0 0 0 5 0 2 4 2 0 0
47620 13 5 0 0 0 0 5 0 2 4 2 0 0
47622 13 6 0 0 0 0 5 0 2 4 2 0 1
47624 13 0 0 0 0 0 5 0 0 0 0 0 0 TX AREA DETAILS MT
47626 13 2 0 0 2 0 5 0 0 0 0 0 0
47628 13 4 0 0 2 0 5 0 0 0 0 0 1
47700 TABLE 477 477 1 PRINT HEADING DATA
47701 NOTES SEC
47702 468 2 0 0 2 0 5 0 4 0 0 0 0 F.PT.
47704 13 0 0 0 2 0 3 2 2 0 0 0 0 XXX
47706 468 8 0 0 2 0 4 1 7 0 0 0 0
47708 468 10 0 0 2 0 3 2 2 0 0 0 0 MOD. GP.
47710 13 2 0 0 2 0 3 2 2 0 0 0 0 XXX
47712 468 12 0 0 2 0 5 0 7 0 0 0 0
47714 468 14 0 0 2 0 3 2 0 0 0 0 0 PRIORITY
47716 11 4 0 0 2 0 1 4 2 0 0 0 0 X
47718 468 90 0 0 2 0 5 0 7 0 0 0 0 'ENTRY'
47720 468 58 0 0 2 0 4 0 0 0 0 0 0 '= CH'
47722 92 8 0 0 0 0 1 4 0 0 0 0 0 CHAP NUMBER
47724 468 58 0 0 2 0 1 4 0 0 0 0 0 '/'
47726 92 6 0 0 0 0 4 1 0 3 0 0 1 LOCN IN CHAP
47800 TABLE 478 478 1 PRINT FIRST HEADING LINE
47801 NOTES
47802 472 8 0 0 0 0 5 0 0 4 0 0 0 CALL HEAD OF FORM
47804 468 34 0 0 2 0 5 0 1 0 0 0 0
47806 468 36 0 0 2 0 4 1 0 0 0 0 0
47808 16 2 0 0 0 0 5 0 3 0 0 0 0 PROG IDENTITY
47810 468 38 0 0 2 0 5 0 3 0 0 0 0 'SERIA-
47812 468 18 0 0 2 0 1 0 0 0 0 0 0 '-L'
47814 16 3 0 0 0 0 5 0 3 4 0 0 0 PROG SERIAL
47816 468 20 0 0 2 0 4 0 15 0 0 0 0 'CHAP-'
47818 468 38 0 0 2 0 1 0 0 0 0 0 0 -S'
47820 92 29 0 0 0 0 1 4 2 0 0 0 0 NUMBER OF CHAPS
47822 468 24 0 0 2 0 5 0 3 0 0 0 0 'FILES'
47824 464 2 0 0 0 0 1 4 2 0 0 0 0 NUMBER OF FILES
47826 468 26 0 0 2 0 5 0 6 0 0 0 0 'TRAN'
47828 468 28 0 0 2 0 5 0 2 0 0 0 0 'AREAS'
47830 463 2 0 0 0 0 1 4 2 0 0 0 1 NUMBER OF TX AREAS
47900 TABLE 479 479 1 PRINT
47901 NOTES FIL
47902 11 0 0 0 2 0 5 0 6 0 0 0 0 FILE ID
47904 468 2 0 0 0 0 4 0 12 3 0 0 0 ROUTE TYPE
47906 13 6 0 0 0 0 4 1 13 3 0 0 0 START LOCATION
47908 13 8 0 0 2 0 3 2 11 0 0 0 0 ALT ROUTE
Source image: P1030306.JPG
47910 13 4 0 0 0 0 4 1 12 3 0 0 0 LENGTH
47912 13 2 0 0 0 0 4 1 12 3 0 0 1 'CHAPT'
47914 468 26 0 0 2 0 5 0 1 0 0 0 0
47916 468 28 0 0 2 0 5 0 2 0 0 0 0
47918 468 84 0 0 2 0 5 0 2 0 0 0 0
47920 468 18 0 0 2 0 5 0 2 0 0 0 0
47922 468 20 0 0 2 0 5 0 7 0 0 0 0
47924 468 50 0 0 2 0 5 0 6 0 0 0 1 LGTH
47926 468 2 0 0 0 0 5 0 5 5 0 0 0 SEC NO
47928 13 0 0 0 0 0 4 1 11 3 0 0 0 START
47930 466 2 0 0 0 0 1 4 13 0 0 0 0 CHAPTER
47932 13 4 0 0 0 0 4 1 7 3 0 0 1 LENGTH
47934 11 0 0 0 2 0 5 0 0 0 0 0 0 SENTINEL MARK
47936 11 2 0 0 2 0 5 0 0 0 0 0 0 SENTINEL TYPE
47938 11 4 0 0 2 0 5 0 0 0 0 0 0 PROG ID NO
47940 11 6 0 0 2 0 5 0 0 0 0 0 1 SERIAL NO
48000 TABLE 480 480 1
48001 NOTES
48002 468 2 0 0 0 0 2 3 3 1 0 0 0 SEC NO
48004 468 58 0 0 2 0 1 0 0 0 0 0 0 '='
48006 468 3 0 0 0 0 4 1 0 3 0 0 1 SECTION START
48008 468 72 0 0 2 0 5 0 0 0 0 0 0 MR'S 4-20
48010 468 74 0 0 2 0 5 0 0 0 0 0 1
48012 468 76 0 0 2 0 5 0 0 0 0 0 0 ITEM+COUNTERS
48014 468 78 0 0 2 0 5 0 0 0 0 0 1
48016 468 80 0 0 2 0 5 0 0 0 0 0 0 SWITCHES
48018 468 82 0 0 2 0 5 0 0 0 0 0 1
48020 468 4 0 0 0 0 5 0 0 4 0 0 0 SW/MR/SEC
48022 468 58 0 0 2 0 4 0 0 0 0 0 0 '=CH'
48024 468 2 0 0 0 0 1 4 0 0 0 0 0 CHAP NO
48026 468 58 0 0 2 0 1 4 0 0 0 0 0 '/'
48028 468 3 0 0 0 0 4 1 0 3 0 0 1 POSITION
48100 TABLE 481 481 3
48101 NOTES G BLOCK
48102 16 16 0 0 0 0 5 0 0 0 0 0 0
48104 472 2 0 0 0 0 5 0 0 0 0 0 0
48106 16 2 0 0 0 0 5 0 0 0 0 0 0
48108 16 3 0 0 0 0 5 0 0 0 0 0 0 SERIAL
48110 468 20 0 0 2 0 5 0 0 0 0 0 1 'CHAPT'
48112 468 20 0 0 2 0 5 0 0 0 0 0 0
48114 16 16 0 0 0 0 5 0 3 4 0 0 1
48116 11 0 0 0 2 0 5 0 0 0 0 0 0 FILE IDENTITY
48118 11 2 0 0 2 0 4 0 1 0 0 0 0 ROUTE TYPE
48120 11 8 0 0 2 0 5 0 0 0 0 0 0 START LOCATION
48122 11 4 0 0 2 0 5 0 0 0 0 0 0 TWICE CHAP
48124 11 6 0 0 2 0 5 0 0 0 0 0 0 MAX BLOCK LENGTH
48126 11 10 0 0 2 0 5 0 0 0 0 0 1 ALT ROUTE
48200 CONST 482 482 1 CONSTANTS
48202 (D)0;
48204 (A)£ ;
48206 0; CHUNK START/ORDER
48208 0; A
48210 0; B
48212 0; C
48214 0; A
48216 0; B
48218 0; C
Source image: P1030307.JPG
48300 PROCR 483 483 START OF PASS 4=READ/STORE PROCR START INDEX
45511>48302 52 5 0 0 0 0 TYPE'PROG OUT' EDIT
48303 C 530 14 0 0 0 530
48304 154 5 0 0 0 0 COMMENT IN LOG
48305 54 5 0 1 0 50 BULK CLEAR
48306 54 26 0 1 0 1080 BULK CLEAR
48307 90 0 0 8 0 SET MODIFICATION REGISTER AT LITERAL
48308 C 0 0 0 48 FOR PROCR STARTS
48324>48309 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
48310 C 0 0 0 144
48311 80 517 2 0 0 0 517 READ A6>SEC 9 ENTER SUBROUTINE
48312 55 9 4 2 0 8 BULK COPY
48313 C 11 0 2 0 0
48314 5 18 0 0 0 0 CLEAR CTR TRANSFER
48315 11 0 1 0 0 SELECT
48316 32 0 0 0 2- TEST TYPE AS EXPECTED SHIFT (AB) BY QUARTETS
48317 2 525 8 1 0 0 525 SUBTRACT
48318 70 483 25 0 0 0 483 >OK JUMP IF A == 0
48319 10 0 0 0 900000 SELECT LITERAL
48320 1 27 9 0 0 0 ADD
48321 91 0 0 1 0 FOR REENTRY SET MODIFICATION REGISTER AT VARIABLE
48322 150 0 0 0 8 ALARM 8 OFFER OPTIONS
48323 C 100 5 0 0 0 100 RE-ENTER PASS 0
48324 C 483 9 0 0 0 483 >READ NEXT BLOCK
48318>48325 9 0 2 0 0 SELECT
48326 5 511 2 0 0 0 511 CURRENT BLOCK SERIAL WL TRANSFER
48349>48327 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
48328 C 0 0 0 144
48347>48329 9 4 1 2 0 SELECT
48330 32 0 0 0 2- SHIFT (AB) BY QUARTETS
48331 2 525 8 1 0 0 525 'TYPE' SUBTRACT
48332 71 483 47 0 0 0 483 >STEP R2 JUMP IF A != 0
48333 32 0 0 0 2 SHIFT (AB) BY QUARTETS
48334 12 0 0 0 46 SUBTRACT LITERAL
48335 70 483 47 0 0 0 483 >6=C-PROCR JUMP IF A == 0
48336 12 0 0 0 1 >7=VALUES SUBTRACT LITERAL
48337 70 483 47 0 0 0 483 >TYPE 1-5 JUMP IF A == 0
48338 73 483 42 0 0 0 483 JUMP IF A < 0
48339 12 0 0 0 8 >END OF PROGM SUBTRACT LITERAL
48340 70 483 50 0 0 0 483 JUMP IF A == 0
48341 76 483 47 0 0 0 483 JUMP unconditional
48338>48342 9 6 2 2 0 SELECT
48343 5 26 0 0 0 0 TRANSFER
48344 9 8 2 2 0 START SELECT
48345 124 26 0 0 1 0 modify address of next
48346 5 26 0 0 0 0 TRANSFER
48341>
48337>
48335>
48332>48347 94 483 29 0 2 8 483 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
48348 80 517 2 0 0 0 517 >READ ENTER SUBROUTINE
48349 76 483 27 0 0 0 483 JUMP unconditional
48340>48350 46 A6 4 0 0 1 REALIGN RUN BACK
48351 C 0 0 0
48355>48352 80 517 2 0 0 0 517 >READ ENTER SUBROUTINE
48353 9 0 2 0 0 SELECT
48354 2 511 2 0 0 0 511 SUBTRACT
48355 71 483 52 0 0 0 483 >GET TO REQUIRED BLOCK JUMP IF A != 0
48356 55 94 0 1 0 100 SECTION START ADDRESSES BULK COPY
Source image: P1030308.JPG
48357 C 26 0 1 0 0
48358 101 204 1 3 0 select literal address
48359 5 26 1000 0 0 0 CONVERT TABLE START TRANSFER
48360 124 92 29 0 1 0 modify address of next
48361 26 1001 0 0 0 SELECT
48362 124 92 29 0 1 0 modify address of next
48363 5 72 17 0 0 0 (TO PRESERVE IT IN COPY) TRANSFER
48364 55 72 18 0 0 0 SWITCH PROCR STARTS BULK COPY
48365 C 26 1002 0 0 0
48366 C 92 29 0 0 0 (CHAPS INITIALLY)
48367 124 92 29 0 1 0 modify address of next
48368 72 2 0 0 0 SPECIAL CHAP LENGTH SELECT
48369 5 26 1001 0 0 0 SET START OF PRINT SR TRANSFER
48370 5 27 7 0 0 0 CLEAR TRANSFER
48400 PROCR 484 484 SET UP BLOCKS FOR PTS
48402 16 2 0 0 0 PROG ID SELECT
48403 5 8 6 2 0 0 TRANSFER
48404 16 3 0 0 0 PROG SERIAL SELECT
48405 5 8 8 2 0 0 TRANSFER
48406 526 12 1 0 0 526 'FIEND' SELECT
48407 5 8 4 1 0 0 TRANSFER
48408 80 521 2 0 0 0 521 WRITE'FIEND'BLOCK ENTER SUBROUTINE
48409 80 521 2 0 0 0 521 WRITE FINAL BLOCK ENTER SUBROUTINE
48500 PROCR 485 485 CHAPTER HEADING BLOCK-THE FIRST ONE
48502 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
48503 C 0 0 0 48
48504 10 0 0 0 1 SELECT LITERAL
48505 5 16 16 0 0 0 TRANSFER
48506 52 8 4 0 0 0 EDIT
48507 C 532 2 0 0 0 532
48508 80 521 2 0 0 0 521 WRITE CHAP HEADING BLOCK ENTER SUBROUTINE
48509 52 5 2 0 0 0 EDIT
48510 C 532 12 0 0 0 532
48511 10 0 0 0 2 SELECT LITERAL
48512 3 16 16 0 0 0 COPY
48513 80 519 2 0 0 0 519 >PRINT CHAP HEADING ENTER SUBROUTINE
48514 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
48515 C 0 0 0 144
48516 76 486 3 0 0 0 486 >DEAL WITH FIRST'TYPE'BLOCK JUMP unconditional
48600 PROCR 486 486 ENTRY POINT
48601 NOTES RADIX B MAIN LOOP SELECT
48706>
48718>
48722>
48819>
49815>
50117>
50119>
50505>
50537>
50539>
50630>
50712>
50720>
50818>
50827>
50831>48602 80 516 2 0 0 0 516 >GET NEXT ITEM ENTER SUBROUTINE
Source image: P1030309.JPG
48516>48603 80 522 2 0 0 0 522 ENTER SUBROUTINE
49044>48604 11 0 1 0 0 SELECT
48605 32 0 0 0 2- SHIFT (AB) BY QUARTETS
48606 2 525 8 1 0 0 525 'TYPE' SUBTRACT
48607 71 495 2 0 0 0 495 >SWITCH, NOT A 'TYPE' UNIT JUMP IF A != 0
48608 32 0 0 0 2 SHIFT (AB) BY QUARTETS
48609 12 0 0 0 48 SUBTRACT LITERAL
48610 72 489 2 0 0 0 489 (MUST BE 14=CHAP END) JUMP IF A >= 0
48611 11 0 0 0 8 ADD LITERAL
48612 84 495 2 0 0 0 495 SET SWITCH(ES) AT VARIABLE VALUE
48613 00 11 4 2 0 0 SELECT
48614 05 16 23 0 0 0 SPACE CTR FOR USE WITH VALUES TRANSFER
48615 11 2 2 0 0 SELECT
48616 80 523 2 0 0 0 523 TO DEC ENTER SUBROUTINE
48617 3 16 17 0 0 0 COPY
48618 5 527 6 0 0 0 527 STORE CURRENT PROCR TRANSFER
48619 62 0 0 0 0 RESET BINARY SET EXCESS CONSTANTS
48700 PROCR 487 487 PRINT HEADING FOR INSTRUCTIONS
48701 NOTES RADIX B MAIN LOOP SELECT
48702 85 100 5 0 0 0 100 SWITCH R
48703 C 487 23 0 0 0 487 >PRINT
48704 C 487 5 0 0 0 487 >DONT PRINT
48704>48705 0 11 2 2 0 0 PROCR SELECT
48706 70 486 2 0 0 0 486 >DONT PRINT JUMP IF A == 0
48707 0 11 4 2 0 0 PROCR START SELECT
48708 80 523 2 0 0 0 523 TO DEC ENTER SUBROUTINE
48709 62 0 0 0 0 SET EXCESS CONSTANTS
48710 5 16 36 0 0 0 PROCR START TRANSFER
48711 52 5 2 0 8 0 EDIT
48712 C 532 16 0 0 0 532
48713 86 495 2 0 0 0 495 TYPE SELECT SWITCH R
48714 12 0 0 0 6 SUBTRACT LITERAL
48715 71 487 18 0 0 0 487 JUMP IF A != 0
48716 10 0 0 0 537354 'CTD' SELECT LITERAL
48717 5 5 2 1 8 0 TRANSFER
48715>48718 94 486 2 0 8 4 486 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
48719 80 519 2 0 0 0 519 >PRINT ENTER SUBROUTINE
48720 90 0 0 8 0 SET MODIFICATION REGISTER AT LITERAL
48721 C 0 0 0 48
48722 76 486 2 0 0 0 486 JUMP unconditional
48703>48723 95 0 0 5 0 SELECT MODIFICATION REGISTER
48724 5 525 38 1 0 0 525 TRANSFER
48725 0 16 1 0 0 0 LINE PRINTED? SELECT
48726 70 487 28 0 0 0 487 >YES JUMP IF A == 0
48727 80 511 2 0 0 0 511 >O/P LINE ENTER SUBROUTINE
48726>48728 91 525 38 0 5 0 525 RESET R5 SET MODIFICATION REGISTER AT VARIABLE
48729 5 16 37 0 0 0 CLEAR SUBCTR TRANSFER
48730 86 495 2 0 0 0 495 TEST TYPE 1 SELECT SWITCH R
48731 12 0 0 0 1 SUBTRACT LITERAL
48732 71 488 2 0 0 0 488 IF NOT GO TO 728 JUMP IF A != 0
48733 0 525 28 1 0 0 525 SET UP'PROCEDURE' SELECT
48734 34 525 30 1 0 0 525 SET (N) IN B
48735 76 488 15 0 0 0 488 JUMP unconditional
48800 PROCR 488 488 PRINT OTHER HEADINGS
48801 NOTES RADIX B MAIN LOOP SELECT
48732>48802 12 0 0 0 5 SUBTRACT LITERAL
48803 71 488 7 0 0 0 488 >NOT TYPE 6 JUMP IF A != 0
48804 10 0 0 0 5366657354 'CONTD' SELECT LITERAL
Source image: P1030310.JPG
48812>48805 5 5 2 1 0 0 TRANSFER
48806 76 488 18 0 0 0 488 >PRINT JUMP unconditional
48803>48807 12 0 0 0 1 SUBTRACT LITERAL
48808 71 488 13 0 0 0 488 >NOT TYPE 7 JUMP IF A != 0
48809 90 0 0 8 0 (FOR SPECIAL PRINTING) SET MODIFICATION REGISTER AT LITERAL
48810 C 0 0 0 40
48811 10 0 0 0 7551637455 'VALUE' SELECT LITERAL
48812 76 488 5 0 0 0 488 JUMP unconditional
48808>48813 0 525 32 1 0 0 525 SELECT
48814 34 525 34 1 0 0 525 SET (N) IN B
48735>48815 100 16 18 1 0 0 copy registers
48816 52 5 2 0 0 0 EDIT
48817 C 532 42 0 0 0 532 HEADING BLOCK
48806>48818 80 519 2 0 0 0 519 ENTER SUBROUTINE
48819 76 486 2 0 0 0 486 JUMP unconditional
48900 PROCR 489 489 CHAPTER END
48901 NOTES RADIX B MAIN LOOP SELECT
48910>
48610>48902 80 516 2 0 0 0 516 GET NEXT ITEM ENTER SUBROUTINE
48903 80 522 2 0 0 0 522 ENTER SUBROUTINE
48904 11 0 1 0 0 SELECT
48905 2 525 20 1 0 0 525 BEW SUBTRACT
48906 70 516 4 0 0 0 516 >READ BLOCK,SR LINK STILL SET JUMP IF A == 0
48907 11 0 1 0 0 SELECT
48908 30 0 0 0 2- SHIFT (A) BY QUARTETS
48909 2 525 8 1 0 0 525 'TYPE' SUBTRACT
48910 71 489 2 0 0 0 489 >LOOP JUMP IF A != 0
49114>48911 529 10 0 0 0 529 £ IN Q5 SELECT
48912 5 8 4 2 1 0 =PARAMETER TRANSFER
48913 5 8 6 1 1 0 TRANSFER
48914 80 521 2 0 0 0 521 >WRITE ENTER SUBROUTINE
48915 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
48916 C 0 0 0 48
48917 0 16 1 0 0 0 SELECT
48918 70 490 2 0 0 0 490 JUMP IF A == 0
48919 80 511 2 0 0 0 511 >O/P LINE ENTER SUBROUTINE
49000 PROCR 490 490 NEW CHAPTER HEADING
49001 NOTES RADIX B MAIN LOOP SELECT
48918>49002 10 0 0 0 0 SELECT LITERAL
49003 5 16 28 0 0 0 TRANSFER
49004 5 16 37 0 0 0 CLEAR SERIAL SUB-CTR TRANSFER
49005 52 8 4 0 0 0 EDIT EDIT
49006 C 532 2 0 0 0 532
49007 0 16 16 0 0 0 SELECT
49008 80 524 2 0 0 0 524 >TO BIN ENTER SUBROUTINE
49009 5 8 4 2 0 0 BIN CHAP NUMBER ON MT TRANSFER
49010 85 100 5 0 0 0 100 SWITCH R
49011 C 490 16 0 0 0 490 >PRINT
49012 C 490 13 0 0 0 490 >DONT PRINT
49012>49013 80 519 2 0 0 0 519 >PRINT PROCR START LINE ENTER SUBROUTINE
49014 90 0 0 8 0 SET MODIFICATION REGISTER AT LITERAL
49015 C 0 0 0 48
49011>49016 52 5 2 0 0 0 EDIT
49017 C 532 12 0 0 0 532
49018 90 0 0 5 0 SET MODIFICATION REGISTER AT LITERAL
49019 C 0 0 0 40
49020 60 0 0 0 0 SET DECIMAL RADIX
49021 10 0 0 0 1 SELECT LITERAL
Source image: P1030311.JPG
49022 4 16 16 0 0 0 AUGMENT
49023 62 0 0 0 0 SET EXCESS CONSTANTS
49024 16 16 0 0 0 SELECT
49025 12 0 0 0 1 SUBTRACT LITERAL
49026 2 92 29 0 0 0 SUBTRACT
49027 71 490 35 0 0 0 490 JUMP IF A != 0
49028 55 526 2 1 0 6 526 BULK COPY
49029 C 5 10 1 0 0
49030 101 202 1 3 0 select literal address
49031 5 16 28 0 0 0 TRANSFER
49032 80 519 2 0 0 0 519 ENTER SUBROUTINE
49033 80 521 2 0 0 0 521 ENTER SUBROUTINE
49034 76 491 2 0 0 0 491 JUMP unconditional
49027>49035 11 0 1 0 0 SELECT
49036 2 525 4 1 0 0 525 SUBTRACT
49037 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
49038 C 0 0 0 0 /////
49039 70 490 45 0 0 0 490 JUMP IF A == 0
49040 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
49041 C 0 0 0 48
49042 80 519 2 0 0 0 519 ENTER SUBROUTINE
49043 80 521 2 0 0 0 521 ENTER SUBROUTINE
49044 76 486 4 0 0 0 486 JUMP unconditional
49039>49045 27 7 0 0 0 SELECT
49046 70 490 71 0 0 0 490 JUMP IF A == 0
49047 30 0 0 0 5 SHIFT (A) BY QUARTETS
49048 91 0 0 3 0 SET MODIFICATION REGISTER AT VARIABLE
49049 54 5 2 1 0 46 BULK CLEAR
49050 80 519 2 0 0 0 519 ENTER SUBROUTINE
49051 80 519 2 0 0 0 519 ENTER SUBROUTINE
49052 80 519 2 0 0 0 519 ENTER SUBROUTINE
49053 10 0 0 0 6955560000 SELECT LITERAL
49054 5 5 4 1 0 0 TRANSFER
49055 10 0 0 0 6769665369 SELECT LITERAL
49056 5 5 6 1 0 0 TRANSFER
49057 80 519 2 0 0 0 519 ENTER SUBROUTINE
49067>49058 18 3 0 3 0 SELECT
49059 80 523 2 0 0 0 523 ENTER SUBROUTINE
49060 5 523 2 0 0 0 523 TRANSFER
49061 18 2 0 3 0 SELECT
49062 5 519 2 0 0 0 519 TRANSFER
49063 62 0 0 0 0 SET EXCESS CONSTANTS
49064 52 5 4 0 0 0 EDIT
49065 C 530 10 0 0 0 530
49066 80 519 2 0 0 0 519 ENTER SUBROUTINE
49067 94 490 58 0 3 2 490 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
49068 80 519 2 0 0 0 519 ENTER SUBROUTINE
49069 80 519 2 0 0 0 519 ENTER SUBROUTINE
49070 80 519 2 0 0 0 519 ENTER SUBROUTINE
49046>49071 55 26 0 1 0 1000 BULK COPY
49072 C 18 1000 1 0 0
49073 76 535 2 0 0 0 535 JUMP unconditional
49100 PROCR 491 491
49034>49102 10 0 0 0 £00 SELECT LITERAL
49103 5 13 0 2 0 0 TRANSFER
49104 101 202 1 3 0 select literal address
49105 5 13 2 2 0 0 TRANSFER
49106 80 513 2 0 0 0 513 ENTER SUBROUTINE
49107 10 0 0 0 14 SELECT LITERAL
Source image: P1030312.JPG
49108 92 0 0 5 0 SET MODIFIER AT VARIABLE
49109 10 0 0 0 0 SELECT LITERAL
49110 5 13 0 2 0 0 TRANSFER
49111 5 13 2 2 0 0 TRANSFER
49112 80 510 2 0 0 0 510 ENTER SUBROUTINE
49113 80 510 2 0 0 0 510 O/P LOCNS 202 203 BLANK ENTER SUBROUTINE
49114 76 489 11 0 0 0 489 JUMP unconditional
49200 PROCR 492 492 WRITE PTS BLOCK TO A2
49202 81 492 2 0 0 0 492 START OF SUBROUTINE
49203 5 8 4 2 2 0 TRANSFER
49204 94 492 8 0 2 2 492 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
49205 80 521 2 0 0 0 521 WRITE>A2 ENTER SUBROUTINE
49206 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
49207 C 0 0 0 48
49204>49208 82 492 2 0 0 0 492 END OF SUBROUTINE / LEAVE SUBROUTINE
49300 PROCR 493 493 READ/STORE NEXT'FIEND'ITEM
49302 81 493 2 0 0 0 493 START OF SUBROUTINE
49303 94 493 8 0 2 2 493 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
49304 80 494 2 0 0 0 494 READ A1>7 ENTER SUBROUTINE
49305 80 504 2 0 0 0 504 COPY 7>8>A2 ENTER SUBROUTINE
49306 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
49307 C 0 0 0 48
49303>49308 7 4 2 2 0 SELECT
49309 82 493 2 0 0 0 493 READ A1>7 END OF SUBROUTINE / LEAVE SUBROUTINE
49400 PROCR 494 494 READ A1>7
49402 81 494 2 0 0 0 494 START OF SUBROUTINE
49403 42 A1 0 0 0 0 INPUT
49404 C 7 0 0 0 0
49405 82 494 2 0 0 0 494 END OF SUBROUTINE / LEAVE SUBROUTINE
49500 PROCR 495 495 'TYPE'SWITCH
49501 NOTES RADIX B MAIN LOOP SELECT
48607>49502 85 495 2 0 0 0 495 SWITCH R
49503 C 496 2 0 0 0 496 INSTRUCTIONS
49504 C 502 2 0 0 0 502 TABLE ENTRIES
49505 C 506 2 0 0 0 506 PROGRAMME CONSTS
49506 C 506 2 0 0 0 506 TABLE STARTS
49507 C 507 2 0 0 0 507 FORMED CONST
49508 C 496 2 0 0 0 496 6=C-PROCR
49509 C 508 2 0 0 0 508 7=VALUES
49600 PROCR 496 496 TEST FOR SEQUENCE CHANGE
49601 NOTES RADIX B INSTRUCTIONS SELECT
49508>
49503>49602 11 4 2 0 0 SELECT
49603 32 0 0 0 2- SHIFT (AB) BY QUARTETS
49604 5 16 18 0 0 0 REF TRANSFER
49605 33 0 0 0 1 SHIFT (AB) BY BITS
49606 5 16 24 0 0 0 NEG ITEM IND TRANSFER
49607 33 0 0 0 7 SHIFT (AB) BY BITS
49608 5 13 0 2 0 0 PARA TRANSFER
49609 34 11 6 2 0 0 ADM+ITEM SET (N) IN B
49610 11 2 2 0 0 TEST FOR SEQUENCE CHANGE SELECT
49611 70 497 2 0 0 0 497 >NOT SEQ CHANGE OR MR ENTRY JUMP IF A == 0
49612 12 0 0 0 1 SUBTRACT LITERAL
49613 70 499 2 0 0 0 499 >IS SEQ CHANGE JUMP IF A == 0
49614 12 0 0 0 1 SUBTRACT LITERAL
Source image: P1030313.JPG
49615 71 496 27 0 0 0 496 >NOT ACTION 16/0/0 JUMP IF A != 0
49616 36 529 3 0 0 0 529 BITS 1-13 COLLATE AND ADD
49617 5 16 19 0 0 0 MODULUS OF ITEM TRANSFER
49618 34 16 24 0 0 0 SET (N) IN B
49619 74 496 22 0 0 0 496 >POSITIVE ITEM JUMP IF AB == 0 // 27, 1, 0
49620 1 16 19 0 0 0 ADD
49621 76 496 23 0 0 0 496 JUMP unconditional
49619>49622 2 16 19 0 0 0 SUBTRACT
49621>49623 124 16 18 0 1 0 REF modify address of next
49624 2 26 0 0 0 0 SUBTRACT
49625 5 13 2 2 0 0 TRANSFER
49626 76 498 12 0 0 0 498 >O/P JUMP unconditional
49615>49627 0 11 2 2 0 0 SELECT
49628 5 13 0 2 0 0 COPY IND AS PARA TRANSFER
49700 PROCR 497 497 INSTRUCTIONS
49701 NOTES RADIX B INSTRUCTIONS SELECT
49611>49702 36 529 3 0 0 0 529 BITS 1-13 COLLATE AND ADD
49703 5 16 19 0 0 0 MODULUS OF ITEM TRANSFER
49704 11 6 2 0 0 SELECT
49705 5 13 2 2 0 0 TRANSFER
49706 34 16 24 0 0 0 SET (N) IN B
49707 74 497 10 0 0 0 497 >NOT NEGATIVE ITEM JUMP IF AB == 0 // 27, 1, 0
49708 2 16 19 0 0 0 SUBTRACT
49709 5 16 19 0 0 0 (SET SIGN) TRANSFER
49707>49710 16 19 0 0 0 SELECT
49711 124 16 18 0 1 0 modify address of next
49712 1 26 0 0 0 0 PROCR START ADD
49713 73 498 2 0 0 0 498 >REPORT JUMP IF A < 0
49714 34 529 3 0 0 0 529 BITS 1-13 SET (N) IN B
49715 37 13 2 2 0 0 REPLACE SELECTED BITS
49716 76 498 12 0 0 0 498 JUMP unconditional
49800 PROCR 498 498 REPORT ACTION WITH NEGATIVE ITEM
49801 NOTES RADIX B ACTION DETAILS SELECT
49713>49802 10 0 0 0 78000- 23/1/0 ACTION FOR LOCKOUT SELECT LITERAL
49803 5 13 2 2 0 0 TRANSFER
49804 5 13 0 2 0 0 TRANSFER
49805 91 27 7 0 3 0 QTR SET MODIFICATION REGISTER AT VARIABLE
49806 16 18 0 0 0 THIS REF SELECT
49807 30 0 0 0 5 SHIFT (A) BY QUARTETS
49808 1 527 6 0 0 0 527 CURRENT PROCR ADD
49809 5 18 2 1 3 0 TRANSFER
49810 10 0 0 0 2 SELECT LITERAL
49811 4 27 7 0 0 0 STEP CTR AUGMENT
49922>
49924>
49716>
49626>49812 80 513 2 0 0 0 513 EDIT+WRITE INSTRUCTION ENTER SUBROUTINE
49813 85 100 5 0 0 0 100 SWITCH R
49814 C 500 2 0 0 0 500 >PRINT
49815 C 486 2 0 0 0 486 >DONT PRINT
49900 PROCR 499 499 SEQUENCE CHANGES
49901 NOTES RADIX B INSTRUCTIONS SELECT
49613>49902 0 529 15 0 0 0 529 FLIPFLOP SELECT
49903 70 499 7 0 0 0 499 >BOTTOM 10 BITS JUMP IF A == 0
49904 0 18 0 0 12 0 SELECT
49905 31 0 0 0 10- SHIFT (A) BY BITS
49906 76 499 9 0 0 0 499 JUMP unconditional
Source image: P1030314.JPG
49903>49907 34 529 14 0 0 0 529 BITS 1-10 SET (N) IN B
49908 36 18 0 0 12 0 COLLATE AND ADD
49906>49909 124 16 18 0 1 0 ITEM WITHIN PROCR IN A modify address of next
49910 1 26 0 0 0 0 ADD
49911 5 16 18 0 0 0 =SEQ CHANGE ADDRESS TRANSFER
49912 34 11 6 2 0 0 SET (N) IN B
49913 36 529 4 0 0 0 529 BITS 14-20+SIGN COLLATE AND ADD
49914 73 499 17 0 0 0 499 JUMP IF A < 0
49915 1 16 18 0 0 0 ADD
49916 76 499 18 0 0 0 499 JUMP unconditional
49914>49917 2 16 18 0 0 0 SUBTRACT
49916>49918 5 13 2 2 0 0 TRANSFER
49919 10 0 0 0 1 SELECT LITERAL
49920 2 529 15 0 0 0 529 SUBTRACT
49921 3 529 15 0 0 0 529 REVERSE FLIPFLOP COPY
49922 71 498 12 0 0 0 498 >NOW ADDRESSES TOP 10 BITS JUMP IF A != 0
49923 94 0 0 12 1- STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
49924 76 498 12 0 0 0 498 >SAFETY JUMP unconditional
50000 PROCR 500 500 DECODE INSTRUCTION FOR PRINTING
50001 NOTES RADIX B INSTRUCTIONS SELECT
49814>50002 34 13 2 2 0 0 (A IS CLEAR) SET (N) IN B
50003 32 0 0 0 6 SHIFT (AB) BY QUARTETS
50004 5 16 21 0 0 0 ACTION TRANSFER
50005 33 0 0 0 1 SHIFT (AB) BY BITS
50006 5 16 25 0 0 0 DISC TRANSFER
50007 33 0 0 0 2 SHIFT (AB) BY BITS
50008 5 16 26 0 0 0 MOD TRANSFER
50009 33 0 0 0 13 SHIFT (AB) BY BITS
50010 5 16 24 0 0 0 ADDRESS TRANSFER
50011 0 13 2 2 0 0 SELECT
50012 72 501 2 0 0 0 501 >POSITIVE ACTION JUMP IF A >= 0
50013 10 0 0 0 10 16 SELECT LITERAL
50014 4 16 21 0 0 0 AUGMENT
50100 PROCR 501 501 CONVERT FOR PRINT
50101 NOTES RADIX B INSTRUCTIONS SELECT
50012>50102 0 13 0 2 0 0 PARA SELECT
50103 80 523 2 0 0 0 523 >CONVERT TO DEC ENTER SUBROUTINE
50104 5 13 4 0 0 0 TRANSFER
50105 0 16 24 0 0 0 ADDRESS SELECT
50106 80 523 2 0 0 0 523 TO DEC ENTER SUBROUTINE
50107 5 13 2 1 0 0 TRANSFER
50108 0 16 21 0 0 0 ACTION SELECT
50109 80 523 2 0 0 0 523 TO DEC ENTER SUBROUTINE
50110 5 13 0 1 0 0 TRANSFER
50111 62 0 0 0 0 RESET BINARY BINARY SET EXCESS CONSTANTS
50112 52 5 4 0 5 0 EDIT
50113 C 533 2 0 0 0 533
50114 10 0 0 0 1 SELECT LITERAL
50115 4 16 37 0 0 0 AUG SUBCTR AUGMENT
50116 5 16 1 0 0 0 TRANSFER
50117 94 486 2 0 5 10 486 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
50118 80 511 2 0 0 0 511 >O/P LINE ENTER SUBROUTINE
50119 76 486 2 0 0 0 486 JUMP unconditional
50200 PROCR 502 502 FORM ADDRESS
50201 NOTES RADIX B TABLE ENTRIES SELECT
49504>50202 11 0 2 0 0 SELECT
50203 32 0 0 0 2- SELECT REFERENCE SHIFT (AB) BY QUARTETS
Source image: P1030315.JPG
50204 5 16 18 0 0 0 TRANSFER
50205 33 0 0 0 1 SHIFT (AB) BY BITS
50206 5 16 21 0 0 0 NEG ITEM IND TRANSFER
50207 33 0 0 0 7 SHIFT (AB) BY BITS
50208 3 13 0 2 0 0 COPY
50209 5 13 4 2 0 0 PARAMETER TRANSFER
50300 PROCR 503 503 DEAL WITH 2ND ITEM FOR CONDENSE
50301 NOTES RADIX B TABLE ENTRIES SELECT
50302 11 6 1 0 0 SELECT
50303 5 13 6 1 0 0 STORE Q'S AND I'S TRANSFER
50304 11 4 2 0 0 SELECT
50305 70 503 26 0 0 0 503 >NOT CONDENSE/UNPACK TABLE JUMP IF A == 0
50306 124 16 18 0 1 0 REF modify address of next
50307 0 26 0 0 0 0 SELECT
50308 35 0 0 0 1111 PREPARE FOR DIGIT COLLATION
50309 36 11 4 2 0 0 (POSITIVE) ITEM COLLATE AND ADD
50310 5 16 22 0 0 0 PROVISIONAL ADDRESS TRANSFER
50311 0 13 6 2 0 0 Q+1 SELECT
50312 72 503 15 0 0 0 503 >NORMAL JUMP IF A >= 0
50313 2 16 22 0 0 0 SUBTRACT
50314 76 503 16 0 0 0 503 JUMP unconditional
50312>50315 1 16 22 0 0 0 ADD
50314>50316 5 13 6 2 0 0 SET SECOND ADDRESS+LTE TRANSFER
50317 34 16 21 0 0 0 '-0'IND SET (N) IN B
50318 74 503 27 0 0 0 503 >NO,CALC FIRST ADDRESS JUMP IF AB == 0 // 27, 1, 0
50319 2 13 6 2 0 0 SUBTRACT
50320 70 503 24 0 0 0 503 >SET'-0'PARA,CALC FIRST ADDRESS JUMP IF A == 0
50321 5 13 6 2 0 0 (SET SIGN BIT) TRANSFER
50322 5 16 21 0 0 0 TRANSFER
50323 76 503 27 0 0 0 503 JUMP unconditional
50320>50324 5 16 21 0 0 0 CLEAR THIS TRANSFER
50325 0 529 8 0 0 0 529 £ IN Q4 (MINUS ZERO) SELECT
50305>50326 5 13 4 2 0 0 CLEAR PARA FIXED FIELD TRANSFER
50323>
50318>50327 124 16 18 0 1 0 REF modify address of next
50328 0 26 0 0 0 0 SELECT
50329 1 11 2 2 0 0 FIRST ITEM (ALWAYS>0) ADD
50330 5 13 2 2 0 0 TRANSFER
50331 0 16 21 0 0 0 '-0'IND SELECT
50332 70 503 35 0 0 0 503 >NO JUMP IF A == 0
50333 0 529 8 0 0 0 529 £ IN Q4 SELECT
50334 5 13 4 2 0 0 SET SECOND PARA TRANSFER
50332>50335 80 513 2 0 0 0 513 >O/P MT ENTER SUBROUTINE
50336 0 13 0 2 0 0 PARA SELECT
50337 80 523 2 0 0 0 523 TO DEC ENTER SUBROUTINE
50338 5 16 22 0 0 0 TRANSFER
50339 34 13 2 2 0 0 SET (N) IN B
50340 32 0 0 0 6 DELETE B17 SHIFT (AB) BY QUARTETS
50341 10 0 0 0 0 (STARLING INDICATOR) SELECT LITERAL
50342 32 0 0 0 4 SHIFT (AB) BY QUARTETS
50343 80 523 2 0 0 0 523 TO DEC ENTER SUBROUTINE
50344 5 16 30 0 0 0 TRANSFER
50345 62 0 0 0 0 RESET BINARY SET EXCESS CONSTANTS
50346 35 0 0 0 10000 Q5 PREPARE FOR DIGIT COLLATION
50347 36 13 2 2 0 0 STERLING IND COLLATE AND ADD
50348 4 16 22 0 0 0 STORE WITH PARA AUGMENT
50349 13 4 1 0 0 SET UP SECOND HALF OF SELECT
50350 5 13 0 1 0 0 DETAILS FOR TRANSFER
50351 13 6 1 0 0 OUTPUT SELECT
Source image: P1030316.JPG
50352 5 13 2 1 0 0 TRANSFER
50353 80 513 2 0 0 0 513 >O/P SECOND HALF ENTER SUBROUTINE
50354 76 505 2 0 0 0 505 JUMP unconditional
50400 PROCR 504 504 WRITE SEC 7>A2
50402 81 504 2 0 0 0 504 START OF SUBROUTINE
50403 55 7 4 1 0 50 BULK COPY
50404 C 8 4 1 0 0
50405 80 521 2 0 0 0 521 >WRITE 9>A2 ENTER SUBROUTINE
50406 82 504 2 0 0 0 504 END OF SUBROUTINE / LEAVE SUBROUTINE
50500 PROCR 505 505
50501 NOTES RADIX SELECT
50354>50502 35 0 0 0 1111 Q1-4 OF INDS/QTTS PREPARE FOR DIGIT COLLATION
50503 85 100 5 0 0 0 100 SWITCH R
50504 C 505 6 0 0 0 505 >PRINT
50505 C 486 2 0 0 0 486 >DONT PRINT
50504>50506 36 13 2 2 0 0 COLLATE AND ADD
50507 80 523 2 0 0 0 523 TO DEC ENTER SUBROUTINE
50508 62 0 0 0 0 ITEM FOR SET EXCESS CONSTANTS
50509 5 525 38 0 0 0 525 CONDENSE TRANSFER
50510 5 13 22 0 0 0 CLEAR'LAST TE'IND TRANSFER
50511 13 2 2 0 0 QTTS+INDS SELECT
50512 73 505 16 0 0 0 505 > LAST TE JUMP IF A < 0
50513 13 0 2 0 0 SECOND PARA SELECT
50514 30 0 0 0 3- TEST Q 4 NON-ZERO SHIFT (A) BY QUARTETS
50515 70 505 18 0 0 0 505 > NOT LTE IND JUMP IF A == 0
50512>50516 10 0 0 0 1 SELECT LITERAL
50517 5 13 22 0 0 0 SET LTE IND TRANSFER
50515>50518 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
50519 C 0 0 0 5
50520 34 13 2 2 0 0 QTTS SET (N) IN B
50521 32 0 0 0 6 SHIFT (AB) BY QUARTETS
50524>50522 5 13 0 0 3 0 TRANSFER
50523 32 0 0 0 1 SHIFT (AB) BY QUARTETS
50524 94 505 22 0 3 1 505 STORE Q5-1 IN 13/0-4 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
50525 90 0 0 3 0 SET MODIFICATION REGISTER AT LITERAL
50526 C 0 0 0 5
50530>50527 00 13 0 0 3 0 SELECT
50528 80 523 2 0 0 0 523 TO DECIMAL ENTER SUBROUTINE
50529 05 13 0 0 3 0 TRANSFER
50530 94 505 27 0 3 1 505 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
50531 62 0 0 0 0 SET EXCESS CONSTANTS
50532 52 5 4 0 5 0 EDIT
50533 C 532 22 0 0 0 532
50633>50534 10 0 0 0 2 SELECT LITERAL
50535 4 16 37 0 0 0 AUG SUBCTR AUGMENT
50536 5 16 1 0 0 0 TRANSFER
50537 94 486 2 0 5 20 486 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
50538 80 511 2 0 0 0 511 >O/P LINE ENTER SUBROUTINE
50539 76 486 2 0 0 0 486 JUMP unconditional
50600 PROCR 506 506 DEAL WITH PROGRAMME CONSTANTS AND FORMED TSL'S
50601 NOTES RADIX B SELECT
49506>
49505>50602 90 0 0 4 0 SET MODIFICATION REGISTER AT LITERAL
50603 C 0 0 0 8
50627>50604 11 0 2 4 0 SELECT
50605 32 0 0 0 2- SHIFT (AB) BY QUARTETS
50606 5 16 18 0 0 0 REF TRANSFER
Source image: P1030317.JPG
50607 32 0 0 0 2 SHIFT (AB) BY QUARTETS
50608 5 13 0 2 0 0 PARA TRANSFER
50609 34 529 11 0 0 0 529 BIT 8 SET (N) IN B
50610 36 13 0 2 0 0 COLLATE AND ADD
50611 70 506 14 0 0 0 506 >NOT MINUS ZERO JUMP IF A == 0
50612 529 8 0 0 0 529 £ IN Q4 SELECT
50613 5 13 0 2 0 0 TRANSFER
50611>50614 0 11 2 2 4 0 SELECT
50615 72 506 19 0 0 0 506 >POSITIVE ITEM JUMP IF A >= 0
50616 124 16 18 0 1 0 modify address of next
50617 2 26 0 0 0 0 PROCR START SUBTRACT
50618 76 506 21 0 0 0 506 JUMP unconditional
50615>50619 124 16 18 0 1 0 modify address of next
50620 1 26 0 0 0 0 ADD
50618>50621 5 13 2 2 0 0 TRANSFER
50622 80 513 2 0 0 0 513 >O/P ENTER SUBROUTINE
50623 0 13 2 2 0 0 CONST SELECT
50624 5 13 4 0 4 0 STORE FOR PRINT TRANSFER
50625 0 13 0 2 0 0 PARA SELECT
50626 5 13 6 0 4 0 TRANSFER
50627 94 506 4 0 4 4 506 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
50628 85 100 5 0 0 0 100 SWITCH R
50629 C 506 31 0 0 0 506 >PRINT
50630 C 486 2 0 0 0 486 >DONT PRINT
50629>50631 52 5 4 0 5 0 EDIT
50632 C 531 6 0 0 0 531
50633 76 505 34 0 0 0 505 >VIA TABLE ENTRIES JUMP unconditional
50700 PROCR 507 507 DEAL WITH TRANSLATOR'S FORMED LONG/SHORT CONSTS
50701 NOTES RADIX B FORMED CONSTANTS SELECT
49507>50702 90 0 0 4 0 4 CONSTANTS PER ITEM SET MODIFICATION REGISTER AT LITERAL
50703 C 0 0 0 8
50704 10 0 0 0 0 CLEAR PARA SELECT LITERAL
50705 5 13 0 2 0 0 TRANSFER
50709>50706 0 11 0 1 4 0 SELECT
50707 5 13 2 1 0 0 TRANSFER
50708 80 513 2 0 0 0 513 ENTER SUBROUTINE
50709 94 507 6 0 4 2 507 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
50710 85 100 5 0 0 0 100 SWITCH R
50711 C 507 13 0 0 0 507 >PRINT
50712 C 486 2 0 0 0 486 >DONT PRINT
50711>50713 90 0 0 4 0 SET MODIFICATION REGISTER AT LITERAL
50714 C 0 0 0 8
50719>50715 0 11 0 2 4 0 SELECT
50716 5 13 4 0 0 0 TRANSFER
50717 5 13 6 0 0 0 TRANSFER
50718 80 509 2 0 0 0 509 ENTER SUBROUTINE
50719 94 507 15 0 4 2 507 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
50720 76 486 2 0 0 0 486 JUMP unconditional
50800 PROCR 508 508 VALUES
50801 NOTES RADIX B SELECT
49509>50802 11 0 1 0 0 SELECT
50803 2 525 24 1 0 0 525 'NOTES' SUBTRACT
50804 71 508 32 0 0 0 508 >NOT NEW REF/ITEM JUMP IF A != 0
50805 11 4 2 0 0 REF SELECT
50806 5 16 18 0 0 0 TRANSFER
50807 11 6 2 0 0 ITEM SELECT
50808 124 16 18 0 0 0 modify address of next
50809 1 26 0 0 0 0 ADD
Source image: P1030318.JPG
50810 02 16 23 0 0 0 CURRENT VALUE OF STACKER SUBTRACT
50811 03 13 2 2 0 0 >DELTA COPY
50812 04 16 23 0 0 0 >NEW VALUE OF STACKER AUGMENT
50813 10 0 0 0 £00 SELECT LITERAL
50837>50814 5 13 0 2 0 0 PARA FOR DELTA TRANSFER
50815 80 513 2 0 0 0 513 WRITE ENTER SUBROUTINE
50816 85 100 5 0 0 0 100 SWITCH R
50817 C 508 19 0 0 0 508 >PRINT
50818 C 486 2 0 0 0 486 >DONT PRINT
50817>50819 0 13 0 2 0 0 PARA SELECT
50820 5 13 6 0 0 0 TRANSFER
50821 0 13 2 2 0 0 VALUE SELECT
50822 5 13 4 0 0 0 TRANSFER
50823 10 0 0 0 1 SELECT LITERAL
50824 5 16 1 0 0 0 SET PRINT IND TRANSFER
50825 52 5 4 0 8 0 EDIT
50826 C 531 2 0 0 0 531
50827 94 486 2 0 8 10 486 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
50828 80 519 2 0 0 0 519 >PRINT ENTER SUBROUTINE
50829 90 0 0 8 0 SET MODIFICATION REGISTER AT LITERAL
50830 C 0 0 0 40
50831 76 486 2 0 0 0 486 JUMP unconditional
50804>50832 10 0 0 0 1 SELECT LITERAL
50833 04 16 23 0 0 0 AUGMENT LOCN COUNTER AUGMENT
50834 00 11 6 2 0 0 SELECT
50835 5 13 2 2 0 0 VALUE TRANSFER
50836 11 4 2 0 0 PARA FOR VALUE SELECT
50837 76 508 14 0 0 0 508 JUMP unconditional
50900 PROCR 509 509 PRINT CONVERT TABLES+TRANSLATOR'S CONSTS
50902 81 509 2 0 0 0 509 START OF SUBROUTINE
50903 10 0 0 0 1 SELECT LITERAL
50904 4 16 37 0 0 0 AUGMENT
50905 5 16 1 0 0 0 TRANSFER
50906 52 5 4 0 5 0 EDIT
50907 C 531 2 0 0 0 531
50908 94 509 10 0 5 10 509 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
50909 80 511 2 0 0 0 511 >O/P LINE ENTER SUBROUTINE
50908>50910 82 509 2 0 0 0 509 END OF SUBROUTINE / LEAVE SUBROUTINE
51000 PROCR 510 510
51002 81 510 2 0 0 0 510 START OF SUBROUTINE
51003 80 513 2 0 0 0 513 >WRITE ENTER SUBROUTINE
51004 13 2 2 0 0 SELECT
51005 5 13 4 0 0 0 TRANSFER
51006 5 13 6 0 0 0 TRANSFER
51007 85 100 5 0 0 0 100 SWITCH R
51008 C 510 10 0 0 0 510 >PRINT
51009 C 510 11 0 0 0 510 >DONT PRINT
51008>51010 80 509 2 0 0 0 509 >PRINT ENTER SUBROUTINE
51009>51011 82 510 2 0 0 0 510 END OF SUBROUTINE / LEAVE SUBROUTINE
51100 PROCR 511 511 PRINT LINE WHEN FULL,STEP SERIAL
51101 NOTES RADIX B SUB ROUTINE SELECT
51102 81 511 2 0 0 0 511 START OF SUBROUTINE
51103 0 16 28 0 0 0 SERIAL AT START OF LINE SELECT
51104 80 523 2 0 0 0 523 >TO DEC ENTER SUBROUTINE
51105 5 525 40 0 0 0 525 WL TRANSFER
51106 52 5 2 0 0 0 EDIT SERIAL EDIT
51107 C 532 52 0 0 0 532
Source image: P1030319.JPG
51108 80 519 2 0 0 0 519 >PRINT ENTER SUBROUTINE
51109 62 0 0 0 0 SET EXCESS CONSTANTS
51110 0 16 37 0 0 0 INCREMENT THIS LINE SELECT
51111 4 16 28 0 0 0 UPDATE FOR NEXT AUGMENT
51112 10 0 0 0 0 SELECT LITERAL
51113 5 16 37 0 0 0 TRANSFER
51114 90 0 0 5 0 SET MODIFICATION REGISTER AT LITERAL
51115 C 0 0 0 40
51116 82 511 2 0 0 0 511 END OF SUBROUTINE / LEAVE SUBROUTINE
51200 CONST 512 512 1 CONSTANTS
51202 (D);
51204 (A)£ ;
51206 (D)0; CHUNK START/ORDER
51208 0; A
51210 0; B
51212 0; C
51214 0; A
51216 0; B
51218 0; C
51300 PROCR 513 513 GENERAL MAG - TAPE EDIT & OUTPUT
51301 NOTES RADIX B SUB ROUTINE SELECT
51302 81 513 2 0 0 0 513 START OF SUBROUTINE
51303 0 13 0 1 0 0 QUICKER THAN EDIT SELECT
51304 5 8 4 1 1 0 TRANSFER
51305 0 13 2 1 0 0 SELECT
51306 5 8 6 1 1 0 TRANSFER
51307 94 513 11 0 1 4 513 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
51308 80 521 2 0 0 0 521 >WRITE BLOCK ENTER SUBROUTINE
51309 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
51310 C 0 0 0 48
51307>51311 82 513 2 0 0 0 513 END OF SUBROUTINE / LEAVE SUBROUTINE
51400 PROCR 514 514 READ A2
51401 NOTES 514 SELECT
51402 81 514 2 0 0 0 514 START OF SUBROUTINE
51403 42 A2 0 0 0 0 INPUT
51404 C 8 0 0 0 0
51405 82 514 2 0 0 0 514 END OF SUBROUTINE / LEAVE SUBROUTINE
51500 PROCR 515 515 CLOSE OUTPUT FILES
51501 NOTES RADIX SELECT
51502 81 515 2 0 0 0 515 START OF SUBROUTINE
51506>51503 80 514 2 0 0 0 514 ENTER SUBROUTINE
51504 0 8 4 1 0 0 SELECT
51505 12 0 0 0 5659655972 'FINIF' SUBTRACT LITERAL
51506 71 515 3 0 0 0 515 JUMP IF A != 0
51507 41 A2 0 0 0 1 CLOSE I/P CLOSE FILE
51508 82 515 2 0 0 0 515 END OF SUBROUTINE / LEAVE SUBROUTINE
51600 PROCR 516 516 INPUT OFF PASS 2
51601 NOTES RADIX B SUB ROUTINE SELECT
51602 81 516 2 0 0 0 516 START OF SUBROUTINE
51603 94 516 7 0 2 8 516 STANDARD INCREMENT STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
48906>51604 80 517 2 0 0 0 517 READ A6>SEC 9 ENTER SUBROUTINE
51605 90 0 0 2 0 SET MODIFICATION REGISTER AT LITERAL
51606 C 0 0 0 144
51603>51607 82 516 2 0 0 0 516 END OF SUBROUTINE / LEAVE SUBROUTINE
Source image: P1030320.JPG
51700 PROCR 517 517 INPUT
51701 NOTES RADIX B SUB ROUTINE SELECT
51702 81 517 2 0 0 0 517 START OF SUBROUTINE
51703 42 A6 0 0 0 0 INPUT
51704 C 9 0 0 0 0
51705 82 517 2 0 0 0 517 END OF SUBROUTINE / LEAVE SUBROUTINE
51800 PROCR 518 518 WRITE ON WORKING TAPE
51801 NOTES 518 SELECT
51802 81 518 2 0 0 0 518 START OF SUBROUTINE
51803 55 8 4 1 0 50 COPY ANNEXES BULK COPY
51804 C 9 4 1 0 0
51805 0 525 20 1 0 0 525 BEW SELECT
51806 5 9 52 1 0 0 TRANSFER
51807 43 A6 0 0 0 0 OUTPUT
51808 C 9 0 0 0 0
51809 54 9 0 0 0 52 BULK CLEAR
51810 82 518 2 0 0 0 518 END OF SUBROUTINE / LEAVE SUBROUTINE
51900 PROCR 519 519 PRINT
51901 NOTES RADIX B SUB ROUTINE SELECT
51902 81 519 2 0 0 0 519 START OF SUBROUTINE
51903 62 0 0 0 0 SET EXCESS CONSTANTS
51904 525 20 1 0 0 525 SELECT
51905 05 5 50 1 0 0 BEW TRANSFER
51906 10 0 0 0 1 ALWAYS TRACK 1 SELECT LITERAL
51907 05 5 0 1 0 0 FUNCTION WORD TRANSFER
51908 27 9 0 0 0 SELECT
51909 70 519 14 0 0 0 519 >PRINTER JUMP IF A == 0
51910 55 5 0 1 0 54 BULK COPY
51911 C 10 4 1 0 0
51912 80 520 2 0 0 0 520 >O/P ENTER SUBROUTINE
51913 76 519 37 0 0 0 519 JUMP unconditional
51909>51914 27 8 0 0 0 PRINTER TYPE SELECT
51915 12 0 0 0 9 SUBTRACT LITERAL
51916 70 519 33 0 0 0 519 >SPECIAL JUMP IF A == 0
51917 10 0 0 0 80000 SELECT LITERAL
51918 5 5 1 0 0 0 BIT 40 TRANSFER
51919 54 10 0 1 0 384 BULK CLEAR
51920 124 999 15 1 2 0 SEC 5 modify address of next
51921 124 0 0 2 0 select literal and division
51922 124 999 13 1 2 0 SEC 10 modify address of next
51923 129 0 0 1 0 edit for anelex output
51924 10 0 0 0 4 SELECT LITERAL
51936>51925 30 0 0 0 5 SHIFT (A) BY QUARTETS
51926 1 999 7 0 0 0 ROUTE ADD
51927 34 999 12 0 0 0 SET (N) IN B
51928 125 4096 1 1 0 clear indicators
51929 124 999 0 0 3 0 modify address of next
51930 123 160 0 2 0 enter master routine
51931 62 0 0 0 0 SET EXCESS CONSTANTS
51932 76 519 37 0 0 0 519 JUMP unconditional
51916>51933 55 5 0 1 0 54 BULK COPY
51934 C 10 0 1 0 0
51935 10 0 0 0 9 SELECT LITERAL
51936 76 519 25 0 0 0 519 JUMP unconditional
51932>
51913>51937 54 5 0 0 0 50 BULK CLEAR
51938 5 16 1 0 0 0 CLEAR INDICATOR TRANSFER
51939 82 519 2 0 0 0 519 END OF SUBROUTINE / LEAVE SUBROUTINE
Source image: P1030321.JPG
52000 PROCR 520 520 O/P>A9
52002 81 520 2 0 0 0 520 START OF SUBROUTINE
52003 10 0 0 0 800000 SELECT LITERAL
52004 34 999 12 0 0 0 SEC 10 SET (N) IN B
52005 125 4096 1 1 0 clear indicators
52006 1 999 7 0 0 0 D1/A9 ADD
52007 124 999 0 0 3 0 modify address of next
52008 123 160 0 2 0 enter master routine
52009 82 520 2 0 0 0 520 END OF SUBROUTINE / LEAVE SUBROUTINE
52100 PROCR 521 521 OUTPUT ON A2
52101 NOTES RADIX B SUB ROUTINE SELECT
52102 81 521 2 0 0 0 521 START OF SUBROUTINE
52103 525 20 1 0 0 525 BEW SELECT
52104 5 8 52 1 0 0 TRANSFER
52105 43 A2 0 0 0 0 OUTPUT OUTPUT
52106 C 8 0 0 0 0
52107 54 8 0 0 0 52 CLEAR BULK CLEAR
52108 82 521 2 0 0 0 521 END OF SUBROUTINE / LEAVE SUBROUTINE
52200 PROCR 522 522
52202 81 522 2 0 0 0 522 START OF SUBROUTINE
52203 50 9 4 0 2 0 UNPACK FIXED FIELD DATA
52204 C 531 14 0 0 0 531 UNPACK NEXT ITEM
52205 82 522 2 0 0 0 522 END OF SUBROUTINE / LEAVE SUBROUTINE
52300 PROCR 523 523 CONVERT (A) TO DECIMAL
52301 NOTES 523 SELECT
52302 81 523 2 0 0 0 523 START OF SUBROUTINE
52303 5 527 4 1 0 0 527 TRANSFER
52304 60 0 0 0 0 SET DECIMAL RADIX
52305 124 528 22 0 2 0 528 select literal and division
52306 112 527 4 1 0 0 527 convert
52307 82 523 2 0 0 0 523 END OF SUBROUTINE / LEAVE SUBROUTINE
52400 PROCR 524 524 CONVERT (A) TO BIN
52401 NOTES 524 SELECT
52402 81 524 2 0 0 0 524 START OF SUBROUTINE
52403 5 527 4 1 0 0 527 TRANSFER
52404 62 0 0 0 0 SET EXCESS CONSTANTS
52405 124 528 2 0 2 0 528 select literal and division
52406 112 527 4 1 0 0 527 convert
52407 82 524 2 0 0 0 524 END OF SUBROUTINE / LEAVE SUBROUTINE
52500 CONST 525 525 1
52502 (A)CHAPT;
52504 TYPE£;
52506 FILES;
52508 TYPE;
52510 ST.OF;
52512 BLOCK;
52514 SIZE;
52516 SIT;
52518 PREND;
52520 (D)7.0000007.;
52522 (A)START;
52524 NOTES;
52526 SPOOL;
52528 (A)PROC;
Source image: P1030322.JPG
52530 EDURE;
52532 SEC;
52534 TION ;
52536 (D)6£6£6£6£6£;
52538 0;
52540 0;
52542 0;
52544 (A)ON/=;
52600 CONST 526 526 1
52602 (A)EXTRA;
52604 CHAP;
52606 TER ;
52608 (D)7£££0003££; BITS 1-10+25-39
52610 5.5.;
52612 (A)FIEND;
52614 (A)INDEX;
52616 CHAIN;
52618 08004;
52620 PROG;
52622 OUT;
52624 (D)5.5.;
52700 CONST 527 527 1 CONVERT TABLE
52702 (D)1; BIN>DEC
52704 0; (A) WL
52706 0; CURRENT PROCR
52800 CONST 528 528 1 COMPILER'S CONVERT TABLES
52802 (D)1; DEC>BIN
52804 Ю;
52806 64;
52808 3.8;
52810 2710;
52812 186Ю0;
52814 £4240;
52816 989680;
52818 5£5.100;
52820 3‼9Ю+Ю00;
52822 1; BIN>DEC
52824 16;
52826 256;
52828 4096;
52830 65536;
52832 1048576;
52834 16777216;
52836 268435456;
52838 4294967296;
52840 ££££££££££;
52900 CONST 529 529 0
52902 (D)7;
52903 1£££;
52904 £.000-;
52905 7£;
52906 8000;
52907 6000;
52908 £000;
52909 80000;
52910 £0000;
Source image: P1030323.JPG
52911 80;
52912 £0000-;
52913 £;
52914 3££; BITS 1-10
52915 0; THIS IS A FLIPFLOP FOR SC'S FWD
52916 3£; BITS 1-6
53000 TABLE 530 530 1 PRINT HEADING DATA
53001 NOTES
53002 13 4 0 0 0 0 5 0 0 0 0 0 0
53004 13 3 0 0 0 0 5 0 0 0 0 0 0
53006 13 0 0 0 0 0 5 0 0 0 0 0 0
53008 13 2 0 0 0 0 5 0 0 0 0 0 1
53010 523 2 0 0 0 0 3 2 0 2 0 0 0 REF----ACTIONS WITH NEGATIVE ADDRESSES
53012 519 2 0 0 0 0 5 0 2 4 0 0 1 PROCR
53014 526 18 0 0 2 0 5 0 0 0 0 0 0 '08000'
53016 526 20 0 0 2 0 4 1 1 0 0 0 0 'PROG'
53018 526 22 0 0 2 0 3 2 1 0 0 0 0 'OUT'
53020 16 2 0 0 0 0 5 0 2 0 0 0 0 PROGM
53022 16 3 0 0 0 0 5 0 2 4 0 0 0 SERIAL
53024 526 24 0 0 2 0 2 3 0 0 0 0 1 DOUBLE LE
53100 TABLE 531 531 1
53101 NOTES
53102 13 4 0 0 0 0 5 0 7 4 2 0 0
53104 13 6 0 0 0 0 5 0 2 4 0 0 1
53106 13 4 0 0 0 0 5 0 7 4 2 0 0 CONST
53108 13 6 0 0 0 0 5 0 2 4 0 0 0 PARA
53110 13 8 0 0 0 0 5 0 12 4 2 0 0 CONST
53112 13 10 0 0 0 0 5 0 2 4 0 0 1
53114 11 0 0 0 2 0 5 0 0 0 0 0 0
53116 11 2 0 0 2 0 5 0 0 0 0 0 0
53118 11 4 0 0 2 0 5 0 0 0 0 0 0
53120 11 6 0 0 2 0 5 0 0 0 0 0 1
53200 TABLE 532 532 3
53201 NOTES G BLOCK
53202 16 16 0 0 0 0 5 0 0 0 0 0 0
53204 529 2 0 0 0 0 5 0 0 0 0 0 0
53206 16 2 0 0 0 0 5 0 0 0 0 0 0
53208 16 3 0 0 0 0 5 0 0 0 0 0 0 SERIAL
53210 525 2 0 0 2 0 5 0 0 0 0 0 1 'CHAPT'
53212 525 2 0 0 2 0 5 0 0 0 0 0 0
53214 16 16 0 0 0 0 5 0 3 4 0 0 1
53216 16 17 0 0 0 0 4 1 1 3 0 0 0 PROCR NUMBER
53218 525 44 0 0 2 0 1 4 0 0 0 0 0 '='
53220 16 36 0 0 0 0 4 1 0 3 0 0 1 PROCR START
53222 16 22 0 0 0 0 1 0 4 0 0 0 0 £ IND
53224 16 30 0 0 0 0 4 1 3 3 0 0 0 FIRST ADDRESS
53226 16 22 0 0 0 0 2 3 2 1 0 0 0 PARA
53228 525 38 0 0 0 0 5 0 4 4 0 0 0 SECOND ADDRESS
53230 13 0 0 0 0 0 2 3 2 1 0 0 0 Q5
53232 13 1 0 0 0 0 2 3 1 1 0 0 0 Q4
53234 13 2 0 0 0 0 2 3 1 1 0 0 0 Q3
53236 13 3 0 0 0 0 2 3 1 1 0 0 0 Q2
53238 13 4 0 0 0 0 2 3 1 1 0 0 0 Q1
53240 13 22 0 0 0 0 1 4 3 0 0 0 1 LTE
53242 16 18 0 0 2 0 5 0 0 0 0 0 0
53244 16 20 0 0 2 0 5 0 0 0 0 0 0
53246 16 17 0 0 0 0 4 1 1 3 0 0 1 PROCR NUMBER
Source image: P1030324.JPG
53248 13 0 0 0 2 0 5 0 0 0 0 0 0
53250 13 2 0 0 2 0 5 0 0 0 0 0 1
53252 525 40 0 0 0 0 5 0 0 4 0 0 1
53300 TABLE 533 533 1 EDIT INSTRUCTION FOR PRINT
53301 NOTES
53302 13 0 0 0 0 0 2 3 6 1 0 0 0 A
53304 16 25 0 0 0 0 1 4 2 0 0 0 0 D
53306 16 26 0 0 0 0 1 4 2 0 0 0 0 M
53308 13 2 0 0 0 0 4 1 2 3 0 0 0 ADDR
53310 13 4 0 0 0 0 4 1 1 3 0 0 1 PARAMETER
53400 PROCR 534 534 START OF PASS 5
53405>
53407>
53409>
53411>
53413>53402 152 200 4 0 0 0 200 DUMMY OVERLAY
53403 C 557 2 0 0 0 557
53404 85 403 2 0 0 0 403 SWITCH R
53405 C 534 2 0 0 0 534
53406 85 407 2 0 0 0 407 SWITCH R
53407 C 534 2 0 0 0 534
53408 85 212 2 0 0 0 212 SWITCH R
53409 C 534 2 0 0 0 534
53410 85 645 2 0 0 0 645 SWITCH R
53411 C 534 2 0 0 0 534
53412 85 411 2 0 0 0 411 SWITCH R
53413 C 534 2 0 0 0 534
53414 43 A1 0 0 0 0 SET UP SEC 5 OUTPUT
53415 C 5 0 0 0 0
53500 PROCR 535 535 08005 INSERTED BEFORE HERE-FINAL ROUTINES
49073>53502 54 8 4 1 0 48 BULK CLEAR
53503 10 0 0 0 55 SELECT LITERAL
53504 5 8 4 1 0 0 TRANSFER
53505 80 538 2 0 0 0 538 >WRITE'E'BLOCK ENTER SUBROUTINE
53506 546 2 1 0 0 546 'PREND' SELECT
53507 5 8 4 1 0 0 TRANSFER
53508 16 2 0 0 0 PROG ID SELECT
53509 5 8 6 2 0 0 TRANSFER
53510 80 538 2 0 0 0 538 >WRITE'PREND' ENTER SUBROUTINE
53511 546 12 1 0 0 546 'INDEX' SELECT
53512 5 8 6 1 0 0 TRANSFER
53513 546 18 2 0 0 546 '£££££' SELECT
53514 5 8 8 2 0 0 TRANSFER
53515 10 0 0 0 4 SELECT LITERAL
53516 5 8 10 1 0 0 TRANSFER
53517 546 18 1 0 0 546 ALINMENT MARKS SELECT
53518 5 8 4 1 0 0 TRANSFER
53519 80 538 2 0 0 0 538 >WRITE ENTER SUBROUTINE
53520 16 2 0 0 0 PROG IDENTITY SELECT
53521 3 8 4 2 0 0 COPY
53522 5 8 12 2 0 0 TRANSFER
53523 16 3 0 0 0 PROG SERIAL SELECT
53524 3 8 6 2 0 0 COPY
53525 5 8 14 2 0 0 TRANSFER
53526 10 0 0 0 2 SELECT LITERAL
53527 5 8 10 2 0 0 TRANSFER
53528 10 0 0 0 3 SELECT LITERAL
Source image: P1030325.JPG
53529 3 8 18 2 0 0 COPY
53530 10 0 0 0 2 SELECT LITERAL
53531 1 27 12 0 0 0 0/2=PTS NO/YES ADD
53532 5 8 16 2 0 0 TRANSFER
53533 546 18 2 0 0 546 '£££££' SELECT
53534 5 8 20 2 0 0 TRANSFER
53535 80 538 2 0 0 0 538 >WRITE'INDEX'DATA ENTER SUBROUTINE
53536 45 A6 0 0 0 1 REWIND
53537 54 5 0 1 0 48 BULK CLEAR
53538 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
53539 C 0 0 0 5
53541>53540 80 540 2 0 0 0 540 >PRINT 5 BLANKS ENTER SUBROUTINE
53541 94 535 40 0 1 1 535 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
53542 55 546 70 1 0 22 546 HEADINGS BULK COPY
53543 C 5 10 1 0 0
53544 80 540 2 0 0 0 540 >PRINT ENTER SUBROUTINE
53600 PROCR 536 536 PRINT FINAL LINE, TEST FOR PASS 3 COPY
53602 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
53603 C 0 0 0 13
53604 27 6 0 0 0 'PT OMITTED' SELECT
53605 70 536 8 0 0 0 536 >NO JUMP IF A == 0
53606 546 66 1 0 0 546 'YES' SELECT
53607 76 536 9 0 0 0 536 JUMP unconditional
53605>53608 546 68 1 0 0 546 'NO' SELECT
53607>53609 5 5 12 1 0 0 TRANSFER
53610 80 553 2 0 0 0 553 PRINT ENTER SUBROUTINE
53611 94 0 0 1 4 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
53612 10 0 0 0 0 SELECT LITERAL
53613 5 546 48 0 0 0 546 TRANSFER
53614 86 403 2 0 0 0 403 SERIOUS ERRORS CTR SELECT SWITCH R
53615 80 551 2 0 0 0 551 CONVERT ENTER SUBROUTINE
53616 80 554 2 0 0 0 554 EDIT ENTER SUBROUTINE
53617 52 5 18 0 0 0 EDIT
53618 C 549 38 0 0 0 549
53619 80 553 2 0 0 0 553 PRINT ENTER SUBROUTINE
53620 94 0 0 1 4 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
53621 10 0 0 0 0 SELECT LITERAL
53622 5 546 48 0 0 0 546 TRANSFER
53623 86 407 2 0 0 0 407 OTHER ERRORS CTR SELECT SWITCH R
53624 80 551 2 0 0 0 551 CONVERT ENTER SUBROUTINE
53625 80 554 2 0 0 0 554 EDIT ENTER SUBROUTINE
53626 80 553 2 0 0 0 553 PRINT ENTER SUBROUTINE
53627 62 0 0 0 0 SET EXCESS CONSTANTS
53629>53628 80 540 2 0 0 0 540 >MORE BLANK LINES ENTER SUBROUTINE
53629 94 536 28 0 1 1 536 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
53630 155 0 0 0 0 TRANSLATOR SERIAL SELECT PROGRAM SERIAL TO A
53631 5 546 32 1 0 0 546 TRANSFER
53632 55 546 20 1 0 14 546 BULK COPY
53633 C 5 6 1 0 0
53634 153 0 0 0 0 DATE SELECT DATE TO A, TIME TO B
53635 5 546 32 1 0 0 546 TRANSFER
53636 86 212 2 0 0 0 212 A2 SPOOL NO SELECT SWITCH R
53637 5 546 14 0 0 0 546 TRANSFER
53638 52 5 20 0 0 0 EDIT
53639 C 549 2 0 0 0 549
53640 80 540 2 0 0 0 540 PRINT 'MADE BY' ENTER SUBROUTINE
53641 55 546 92 1 0 8 546 BULK COPY
53642 C 5 20 1 0 0
53643 80 540 2 0 0 0 540 PRINT 'ISSUE' ENTER SUBROUTINE
Source image: P1030326.JPG
53644 27 9 0 0 0 SELECT
53645 70 536 48 0 0 0 536 >CLOSE PRINTER JUMP IF A == 0
53646 10 0 0 0 1+00000 CLOSE A9 SELECT LITERAL
53647 76 536 51 0 0 0 536 JUMP unconditional
53645>53648 27 8 0 0 0 PRINTER TYPE SELECT
53649 11 0 0 0 14 ADD LITERAL
53650 30 0 0 0 5 SHIFT (A) BY QUARTETS
53647>53651 1 999 7 0 0 0 ADD
53652 125 4096 1 1 0 clear indicators
53653 124 999 0 0 3 0 modify address of next
53654 123 160 0 2 0 CLOSE PRINTER enter master routine
53655 62 0 0 0 0 SET EXCESS CONSTANTS
53656 46 A2 10 0 0 0 RUN BACK TO SECOND'INDEX'BLOCK RUN BACK
53657 C 0 0 0 3
53658 10 0 0 0 1 SELECT LITERAL
53659 5 546 52 0 0 0 546 SET IND TRANSFER
53660 5 546 52 0 0 0 546 CLEAR IND TRANSFER
53661 40 A6 0 0 0 0 OPEN FILE
53662 100 546 46 1 0 0 546 SPOOL NUMBER>66 copy registers
53663 52 9 4 0 0 0 EDIT
53664 C 549 18 0 0 0 549
53665 154 9 4 0 0 0 TYPE COMMENT COMMENT IN LOG
53666 80 541 2 0 0 0 541 >WRITE BLANKS ENTER SUBROUTINE
53667 80 541 2 0 0 0 541 >WRITE 2 BLANK BLOCKS>A6 ENTER SUBROUTINE
53668 80 542 2 0 0 0 542 READ A2 ENTER SUBROUTINE
53669 10 0 0 0 2 SELECT LITERAL
53670 5 8 10 2 0 0 TRANSFER
53671 546 4 1 0 0 546 'CHAIN' SELECT
53672 5 8 12 1 0 0 TRANSFER
53673 80 541 2 0 0 0 541 >A6 ENTER SUBROUTINE
53700 PROCR 537 537 ALARM 6 OR 7
53702 80 542 2 0 0 0 542 A2> ENTER SUBROUTINE
53703 10 0 0 0 2 SELECT LITERAL
53704 1 27 12 0 0 0 0/2=PTS NO/YES ADD
53705 5 8 8 2 0 0 TRANSFER
53706 10 0 0 0 SELECT LITERAL
53707 5 8 12 2 0 0 TRANSFER
53708 80 541 2 0 0 0 541 >A6 ENTER SUBROUTINE
53714>53709 80 542 2 0 0 0 542 A2> ENTER SUBROUTINE
53710 0 8 6 1 0 0 SELECT
53711 2 546 12 1 0 0 546 'INDEX' SUBTRACT
53712 70 537 15 0 0 0 537 >YES JUMP IF A == 0
53713 80 541 2 0 0 0 541 >WRITE ENTER SUBROUTINE
53714 76 537 9 0 0 0 537 JUMP unconditional
53712>53715 80 541 2 0 0 0 541 >WRITE 'INDEX' ENTER SUBROUTINE
53716 80 542 2 0 0 0 542 >READ ENTER SUBROUTINE
53717 10 0 0 0 2 SELECT LITERAL
53718 1 27 12 0 0 0 0/2=PTS NO/YES ADD
53719 5 8 8 2 0 0 TRANSFER
53720 10 0 0 0 SELECT LITERAL
53721 5 8 12 2 0 0 TRANSFER
53722 80 541 2 0 0 0 541 >WRITE ENTER SUBROUTINE
53723 41 A6 0 0 0 0 CLOSE FILE
53724 46 A2 10 0 0 1 RUN BACK TO SECOND 'INDEX' BLOCK RUN BACK
53725 C 0 0 0 3
53726 90 0 0 1 0 CLEAR R1 SET MODIFICATION REGISTER AT LITERAL
53727 C 0 0 0 0 /////
53728 10 0 0 0 6 SELECT LITERAL
53729 5 546 14 0 0 0 546 TRANSFER
Source image: P1030327.JPG
53730 0 27 9 0 0 0 SELECT
53731 70 537 38 0 0 0 537 >ON-LINE PRINT JUMP IF A == 0
53732 86 403 2 0 0 0 403 'DISASTROUS' SELECT SWITCH R
53733 11 0 0 0 0 ADD LITERAL
53734 71 537 40 0 0 0 537 JUMP IF A != 0
53735 0 27 6 0 0 0 'PT OMITTED' SELECT
53736 11 0 0 0 0 ADD LITERAL
53737 71 537 40 0 0 0 537 JUMP IF A != 0
53731>53738 27 7 0 0 0 SELECT
53739 70 537 42 0 0 0 537 >NO CATASTROPHES JUMP IF A == 0
53737>
53734>53740 10 0 0 0 7 SELECT LITERAL
53741 5 546 14 0 0 0 546 TRANSFER
53739>53742 150 546 14 0 0 0 546 ALARM 6 OR 7 OFFER OPTIONS
53743 C 537 51 0 0 0 537 >END
53744 C 537 53 0 0 0 537 >CLOSE FILES,REENTER TO PRINT
53745 C 555 2 0 0 0 555 ENTER PIPS
53746 C 537 47 0 0 0 537 >RE ENTER OFF LINE
53746>53747 80 550 2 0 0 0 550 ENTER SUBROUTINE
53748 90 0 0 1 2 SET MODIFICATION REGISTER AT LITERAL
53749 C 0 0 0 48
53750 76 100 5 0 0 0 100 >PASS 0 JUMP unconditional
53743>53751 80 550 2 0 0 0 550 ENTER SUBROUTINE
53752 151 0 0 0 0 UNLOAD PROGRAMME
53744>53753 80 550 2 0 0 0 550 ENTER SUBROUTINE
53754 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
53755 C 0 0 0 48
53756 76 100 5 0 0 0 100 CALL START OF GENERATOR JUMP unconditional
53800 PROCR 538 538 WRITE>A2
53802 81 538 2 0 0 0 538 START OF SUBROUTINE
53803 546 16 1 0 0 546 BEW SELECT
53804 5 8 52 1 0 0 TRANSFER
53805 43 A2 0 0 0 0 OUTPUT
53806 C 8 0 0 0 0
53807 54 8 0 1 0 52 CLEAR BULK CLEAR
53808 82 538 2 0 0 0 538 END OF SUBROUTINE / LEAVE SUBROUTINE
53900 PROCR 539 539 OPEN & CLOSE A6
53902 81 539 2 0 0 0 539 START OF SUBROUTINE
53903 40 A6 0 0 0 1 OPEN FILE
53904 41 A6 0 0 0 1 CLOSE FILE
53905 82 539 2 0 0 0 539 END OF SUBROUTINE / LEAVE SUBROUTINE
54000 PROCR 540 540 PRINT SR
54002 81 540 2 0 0 0 540 START OF SUBROUTINE
54003 62 0 0 0 0 SET EXCESS CONSTANTS
54004 546 16 1 0 0 546 BEW SELECT
54005 5 5 50 1 0 0 TRANSFER
54006 546 52 0 0 0 546 HEAD OF FORM OR TRACK 1 SELECT
54007 5 5 0 2 0 0 TRANSFER
54008 10 0 0 0 1 SELECT LITERAL
54009 5 546 52 0 0 0 546 TRANSFER
54010 27 9 0 0 0 SELECT
54011 70 540 16 0 0 0 540 >PRINTER JUMP IF A == 0
54012 55 5 0 1 0 54 BULK COPY
54013 C 10 4 1 0 0
54014 80 552 2 0 0 0 552 O/P>A9 ENTER SUBROUTINE
54015 76 540 39 0 0 0 540 JUMP unconditional
54011>54016 27 8 0 0 0 PRINTER TYPE SELECT
Source image: P1030328.JPG
54017 12 0 0 0 9 SUBTRACT LITERAL
54018 70 540 35 0 0 0 540 >SPECIAL PRINTER JUMP IF A == 0
54019 10 0 0 0 80000 SELECT LITERAL
54020 5 5 1 0 0 0 TRANSFER
54021 54 10 0 1 0 384 BULK CLEAR
54022 124 999 15 1 2 0 modify address of next
54023 124 0 0 2 0 select literal and division
54024 124 999 13 1 2 0 modify address of next
54025 129 0 0 1 0 edit for anelex output
54026 10 0 0 0 4 SELECT LITERAL
54038>54027 30 0 0 0 5 SHIFT (A) BY QUARTETS
54028 1 999 7 0 0 0 ADD
54029 34 999 12 0 0 0 SET (N) IN B
54030 125 4096 1 1 0 clear indicators
54031 124 999 0 0 3 0 modify address of next
54032 123 160 0 2 0 enter master routine
54033 62 0 0 0 0 SET EXCESS CONSTANTS
54034 76 540 39 0 0 0 540 JUMP unconditional
54018>54035 55 5 0 1 0 54 BULK COPY
54036 C 10 0 1 0 0
54037 10 0 0 0 9 SELECT LITERAL
54038 76 540 27 0 0 0 540 JUMP unconditional
54034>
54015>54039 54 5 0 1 0 50 BULK CLEAR
54040 82 540 2 0 0 0 540 END OF SUBROUTINE / LEAVE SUBROUTINE
54100 PROCR 541 541 WRITE ON A6
54102 81 541 2 0 0 0 541 START OF SUBROUTINE
54103 55 8 4 1 0 50 BULK COPY
54104 C 9 4 1 0 0
54105 546 16 1 0 0 546 BEW SELECT
54106 5 9 52 1 0 0 TRANSFER
54107 43 A6 0 0 0 0 OUTPUT
54108 C 9 0 0 0 0
54109 54 9 0 1 0 52 BULK CLEAR
54110 82 541 2 0 0 0 541 END OF SUBROUTINE / LEAVE SUBROUTINE
54200 PROCR 542 542 READ A2
54202 81 542 2 0 0 0 542 START OF SUBROUTINE
54203 42 A2 0 0 0 0 INPUT
54204 C 8 0 0 0 0
54205 82 542 2 0 0 0 542 END OF SUBROUTINE / LEAVE SUBROUTINE
54300 PROCR 543 543 DELETE GUARD WORDS
54302 81 543 2 0 0 0 543 START OF SUBROUTINE
54303 124 999 5 0 3 0 modify address of next
54304 126 20 1 2 0 set modification register
54305 80 544 2 0 0 0 544 ENTER SUBROUTINE
54306 124 999 5 0 3 0 modify address of next
54307 126 22 1 2 0 set modification register
54308 80 544 2 0 0 0 544 ENTER SUBROUTINE
54309 124 999 5 0 3 0 modify address of next
54310 126 24 1 2 0 set modification register
54311 125 204 0 2 0 step on and test
54312 80 544 2 0 0 0 544 ENTER SUBROUTINE
54313 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
54314 C 0 0 0 0 /////
54315 126 543 2 0 3 0 543 leave master routine
54400 PROCR 544 544 STACK TAG SR
Source image: P1030329.JPG
54402 81 544 2 0 0 0 544 START OF SUBROUTINE
54403 123 547 2 0 3 0 547 PROG TAG select tag
54406>54404 124 999 0 0 3 0 modify address of next
54405 123 0 1 2 0 copy into tag
54406 94 544 4 0 2 2 544 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
54407 82 544 2 0 0 0 544 END OF SUBROUTINE / LEAVE SUBROUTINE
54500 PROCR 545 545 WRITE SEC8>A6
54502 81 545 2 0 0 0 545 START OF SUBROUTINE
54503 55 8 4 1 0 50 BULK COPY
54504 C 9 4 1 0 0
54505 546 16 1 0 0 546 BEW SELECT
54506 5 9 52 1 0 0 TRANSFER
54507 54 8 4 1 0 50 BULK CLEAR
54508 43 A6 0 0 0 0 OUTPUT
54509 C 9 0 0 0 0
54510 82 545 2 0 0 0 545 END OF SUBROUTINE / LEAVE SUBROUTINE
54600 CONST 546 546 1
54602 (A)PREND;
54604 CHAIN;
54606 FINIS;
54608 CHAPT;
54610 ALLOC;
54612 INDEX;
54614 (A)0;
54616 (D)7.0000007.;
54618 6£6£6£6£6£;
54620 (A)MADE ;
54622 BY 08;
54624 004 I;
54626 SSUE ;
54628 5 SE;
54630 RIAL ;
54632 40000;
54634 /;
54636 SPOOL;
54638 08004;
54640 MAKES;
54642 COPY ;
54644 PASS3;
54646 0; WL'S
54648 0; WL'S
54650 0; WL'S
54652 0; IND
54654 (A)PT OM;
54656 ITTED;
54658 DISAS;
54660 TROUS;
54662 OTHER;
54664 S ;
54666 YES;
54668 NO;
54670 IN;
54672 TERCO;
54674 DE ;
54676 ;
54678 SERIA;
54680 L NUM;
54682 BERS ;
Source image: P1030330.JPG
54684 OF IN;
54686 TERCO;
54688 DE RE;
54690 PORTS;
54692 (D)7Ю(A)0800;
54694 (A)0 ISS;
54696 (A)UE 8(D)7‼;
54698 (D)7.0000007.;
54700 CONST 547 547 1 COMPILER'S CONVERT TABLES
54702 (D)1;
54704 Ю;
54706 64;
54708 3.8;
54710 2710;
54712 18600;
54714 £4240;
54716 989680;
54718 5£5.100;
54720 3‼9Ю+Ю00;
54722 1; BIN>DEC
54724 16;
54726 256;
54728 4096;
54730 65536;
54732 1048576;
54734 16777216;
54736 268435456;
54738 4294967296;
54740 ££££££££££;
54742 1; STERLING>BIN
54744 +;
54746 78;
54748 £0;
54750 960;
54752 5:+0;
54754 3Ю980;
54756 249£00;
54758 16.3600;
54760 .4.1+00;
54762 1; BIN>STERLING
54764 14;
54766 1014;
54768 17014;
54770 273014;
54772 4369014;
54774 69905014;
54776 1118481014;
54778 ££££££££££;
54780 ££££££££££;
54782 1400000; 20/0
54800 PROCR 548 548 SET TAG 15
54802 81 548 2 0 0 0 548 START OF SUBROUTINE
54803 10 0 0 0 £0000 SELECT LITERAL
54804 4 548 2 0 0 0 548 AUGMENT
54805 126 548 2 0 3 0 548 leave master routine
54900 TABLE 549 549 1
54902 525 44 0 0 2 0 2 1 1 0 0 0 0
Source image: P1030331.JPG
54904 546 32 0 0 1 0 2 4 1 2 0 0 0 DAY
54906 546 34 0 0 2 0 1 4 0 0 0 0 0 '/'
54908 546 32 0 0 0 0 2 1 0 2 0 0 0 MONTH
54910 546 34 0 0 2 0 1 4 0 0 0 0 0 '/'
54912 546 32 0 0 0 0 2 3 0 2 0 0 0 YEAR
54914 546 36 0 0 2 0 5 0 2 0 0 0 0 'SPOOL'
54916 546 14 0 0 0 0 5 0 1 5 0 0 1 NUMBER
54918 546 38 0 0 2 0 5 0 2 0 0 0 0 '08000'
54920 546 40 0 0 2 0 5 0 1 0 0 0 0 MAKES
54922 546 44 0 0 2 0 5 0 1 0 0 0 0 PASS3
54924 546 42 0 0 2 0 5 0 1 0 0 0 0 'COPY'
54926 525 44 0 0 2 0 2 1 0 0 0 0 0
54928 546 48 0 0 0 0 5 0 1 5 0 0 0 SPOOL NUMBER
54930 526 24 0 0 2 0 2 3 0 0 0 0 1
54932 556 2 0 0 0 0 3 2 0 2 0 0 0 REF----ACTIONS WITH NEG ADDRESS
54934 545 2 0 0 0 0 5 0 2 4 0 0 1
54936 546 46 0 0 0 0 4 1 1 3 0 0 1 PROCR
54938 24 0 0 0 0 0 5 0 4 5 0 0 0 REPORTS
54940 24 1 0 0 0 0 5 0 1 5 0 0 0 DIS ERRORS
54942 24 2 0 0 0 0 5 0 1 5 0 0 0
54944 24 3 0 0 0 0 5 0 1 5 0 0 0
54946 24 4 0 0 0 0 5 0 1 5 0 0 0
54948 24 5 0 0 0 0 5 0 1 5 0 0 0
54950 24 6 0 0 0 0 5 0 1 5 0 0 0
54952 24 7 0 0 0 0 5 0 1 5 0 0 0
54954 24 8 0 0 0 0 5 0 1 5 0 0 0
54956 24 9 0 0 0 0 5 0 1 5 0 0 0
54958 24 10 0 0 0 0 5 0 1 5 0 0 0
54960 24 11 0 0 0 0 5 0 1 5 0 0 1
55000 PROCR 550 550 CLOSE I/P FILE
55002 81 550 2 0 0 0 550 START OF SUBROUTINE
55003 41 A2 0 0 0 1 CLOSE FILE
55004 82 550 2 0 0 0 550 END OF SUBROUTINE / LEAVE SUBROUTINE
55100 PROCR 551 551 CONVERT TO DEC
55102 81 551 2 0 0 0 551 START OF SUBROUTINE
55103 5 550 2 0 0 0 550 TRANSFER
55104 60 0 0 0 0 SET DECIMAL RADIX
55105 124 547 22 0 2 0 547 select literal and division
55106 112 550 2 0 0 0 550 convert
55107 82 551 2 0 0 0 551 END OF SUBROUTINE / LEAVE SUBROUTINE
55200 PROCR 552 552 O/P>A9
55202 81 552 2 0 0 0 552 START OF SUBROUTINE
55203 10 0 0 0 800000 SELECT LITERAL
55204 34 999 12 0 0 0 SEC 10 SET (N) IN B
55205 125 4096 1 1 0 clear indicators
55206 1 999 7 0 0 0 D1/A9 ADD
55207 124 999 0 0 3 0 modify address of next
55208 123 160 0 2 0 enter master routine
55209 82 552 2 0 0 0 552 END OF SUBROUTINE / LEAVE SUBROUTINE
55300 PROCR 553 553
55302 81 553 2 0 0 0 553 START OF SUBROUTINE
55303 546 54 1 1 0 546 SELECT
55304 5 5 6 1 0 0 TRANSFER
55305 546 56 1 1 0 546 SELECT
55306 5 5 8 1 0 0 TRANSFER
55307 80 540 2 0 0 0 540 PRINT ENTER SUBROUTINE
Source image: P1030332.JPG
55308 82 553 2 0 0 0 553 END OF SUBROUTINE / LEAVE SUBROUTINE
55400 PROCR 554 554 EDIT NUMBER OF REPORTS
55402 81 554 2 0 0 0 554 START OF SUBROUTINE
55403 5 546 46 0 0 0 546 TRANSFER
55404 52 5 12 0 0 0 EDIT
55405 C 549 36 0 0 0 549
55406 82 554 2 0 0 0 554 END OF SUBROUTINE / LEAVE SUBROUTINE
55500 PROCR 555 555 PASS 6=REMAINDER OF PTS
53745>55502 80 550 2 0 0 0 550 ENTER SUBROUTINE
10004>55503 80 548 2 0 0 0 548 SET TAG 15 S/R ENTER SUBROUTINE
55504 90 0 0 1 0 SET MODIFICATION REGISTER AT LITERAL
55505 C 0 0 0 10
55512>55506 10 0 0 0 . SELECT LITERAL
55507 124 999 5 0 3 0 modify address of next
55508 124 67 0 3 0 modify address of next
55509 123 0 1 0 0 SET TAG 15>14 copy into tag
55510 10 0 0 0 2 SELECT LITERAL
55511 4 999 5 0 0 0 AUGMENT
55512 94 555 6 0 1 1 555 STEP ON AND TEST MODIFICATION REGISTER (LITERAL)
55513 10 0 0 0 . SELECT LITERAL
55514 124 999 5 0 3 0 modify address of next
55515 123 106 1 0 0 126 OF SP CHAP copy into tag
55516 152 100 2 0 0 0 100 OVERLAY
55517 C 559 2 0 0 0 559
55518 76 559 2 0 0 0 559 JUMP unconditional
55519 152 101 2 0 0 0 101 DUMMY OVERLAY
55520 C 558 2 0 0 0 558
55600 PROCR 556 556 WRITE8>A2
55602 81 556 2 0 0 0 556 START OF SUBROUTINE
55603 10 0 0 0 7.0000007. SELECT LITERAL
55604 5 8 52 1 0 0 TRANSFER
55605 43 A2 0 0 0 0 OUTPUT
55606 C 8 0 0 0 0
55607 54 8 4 1 0 50 BULK CLEAR
55608 82 556 2 0 0 0 556 END OF SUBROUTINE / LEAVE SUBROUTINE
55700 PROCR 557 557
55800 PROCR 558 558
55900 PROCR 559 559 INITIAL ENTRY:FIND TW
56205>
55518>55902 62 0 0 0 0 SET EXCESS CONSTANTS
55903 125 4096 1 1 0 SET NON-INT clear indicators
55904 123 559 5 0 2 0 559 enter master routine
55905 123 559 5 0 2 0 559 SET KEY 14 enter master routine
55906 123 999 0 0 3 0 select tag
55907 101 1 1 2 0 subtract literal address
55908 71 562 6 0 0 0 562 >YES JUMP IF A != 0
55909 GO 559 51 0 0 0 559FUDGEFUDGE ASSUME T/W ON 7/2 JUMP unconditional
55910 76 559 16 0 0 0 559FUDGE>NO JUMP unconditional
55911 76 559 14 0 0 0 559FUDGE>YES JUMP unconditional
55912 76 559 14 0 0 0 559FUDGE>YES JUMP unconditional
55913 76 559 14 0 0 0 559FUDGE>YES JUMP unconditional
55913>
55912>
55911>55914 10 0 0 0 Ю FUDGE SELECT LITERAL
Source image: P1030333.JPG
55915 76 559 63 0 0 0 559FUDGE> JUMP unconditional
55910>55916 126 11 1 0 0 FUDGETEST TW ON 1/3 test route N1
55917 76 559 23 0 0 0 559FUDGE>NO JUMP unconditional
55918 76 559 21 0 0 0 559FUDGE>YES JUMP unconditional
55919 76 559 21 0 0 0 559FUDGE>YES JUMP unconditional
55920 76 559 21 0 0 0 559FUDGE>YES JUMP unconditional
55920>
55919>
55918>55921 10 0 0 0 ‼ FUDGE SELECT LITERAL
55922 76 559 63 0 0 0 559FUDGE> JUMP unconditional
55917>55923 126 18 1 0 0 FUDGETEST TW ON 2/2 test route N1
55924 GO 559 30 0 0 0 559>NO >NO JUMP unconditional
55925 GO 559 28 0 0 0 559>YES >YES JUMP unconditional
55926 GO 559 28 0 0 0 559>YES >YES JUMP unconditional
55927 GO 559 28 0 0 0 559>YES >YES JUMP unconditional
55927>
55926>
55925>55928 10 0 0 0 12 >YES SELECT LITERAL
55929 GO 559 63 0 0 0 559>YES >YES JUMP unconditional
55924>55930 126 34 1 0 0 >YES TEST TW ON 4/2 test route N1
55931 76 559 37 0 0 0 559>YES >NO JUMP unconditional
55932 76 559 35 0 0 0 559>YES >YES JUMP unconditional
55933 76 559 35 0 0 0 559>YES >YES JUMP unconditional
55934 76 559 35 0 0 0 559>YES >YES JUMP unconditional
55934>
55933>
55932>55935 10 0 0 0 22 >YES SELECT LITERAL
55936 76 559 63 0 0 0 559>YES >YES JUMP unconditional
55931>55937 126 42 1 0 0 >YES TEST TW ON 5/2 test route N1
55938 76 559 44 0 0 0 559>YES >NO JUMP unconditional
55939 76 559 42 0 0 0 559>YES >YES JUMP unconditional
55940 76 559 42 0 0 0 559>YES >YES JUMP unconditional
55941 76 559 42 0 0 0 559>YES >YES JUMP unconditional
55941>
55940>
55939>55942 10 0 0 0 2Ю >YES SELECT LITERAL
55943 76 559 63 0 0 0 559>YES >YES JUMP unconditional
55938>55944 126 50 1 0 0 >YES TEST TW ON 6/2 test route N1
55945 76 559 51 0 0 0 559>YES >NO JUMP unconditional
55946 76 559 49 0 0 0 559>YES >YES JUMP unconditional
55947 76 559 49 0 0 0 559>YES >YES JUMP unconditional
55948 76 559 49 0 0 0 559>YES >YES JUMP unconditional
55948>
55947>
55946>55949 10 0 0 0 32 >YES SELECT LITERAL
55950 76 559 63 0 0 0 559>YES >YES JUMP unconditional
55945>
55909>55951 126 58 1 0 0 >YES TEST TW ON 7/2 test route N1
55952 GO 562 4 0 0 0 562>NO >NO JUMP unconditional
55953 GO 559 56 0 0 0 559 JUMP unconditional
55954 GO 559 56 0 0 0 559 JUMP unconditional
55955 GO 559 56 0 0 0 559 JUMP unconditional
55955>
55954>
55953>55956 126 63 1 0 0 test route N1
55957 GO 559 62 0 0 0 559>YES >YES JUMP unconditional
55958 GO 562 4 0 0 0 562>NO >NO JUMP unconditional
55959 GO 562 4 0 0 0 562>NO >NO JUMP unconditional
55960 GO 562 4 0 0 0 562>NO >NO JUMP unconditional
55961 GO 562 4 0 0 0 562>NO >NO JUMP unconditional
55957>55962 10 0 0 0 3Ю >NO SELECT LITERAL
55950>
55943>
55936>
55929>
55922>
Source image: P1030334.JPG
55915>55963 5 559 3 0 0 0 559>NO STORE TW ROUTE TRANSFER
56000 PROCR 560 560 INITIAL ENTRY:OVERLAY
56002 562 3 0 0 0 562 SELECT
56003 124 999 0 0 3 0 STORE START OF IPS IN SP CH modify address of next
56004 101 91 1030 1 2 0 subtract literal address
56005 124 999 0 0 3 0 modify address of next
56006 124 3 0 3 0 modify address of next
56007 103 22 0 0 0 copy (A) to N
56008 103 999 3 0 0 0 IN 15 BIT PARAMETER FORM copy (A) to N
56009 101 701 2 1 1 0 701 add literal address
56010 5 559 2 0 0 0 559 FORM ENTRY LINK TRANSFER
56011 124 999 3 0 1 0 modify address of next
56012 101 0 1 3 0 select literal address
56013 102 999 4 0 0 0 IN 13 BIT PARAMETER FORM transfer (A) to N
56014 124 999 0 0 2 0 select literal and division
56015 11 0 0 0 1600000 ADD LITERAL
56016 124 999 3 0 3 0 modify address of next
56017 128 0 0 0 0 bulk copy short numeric
56018 152 101 2 0 0 0 101 OVERLAY
56019 C 564 2 0 0 0 564
56100 PROCR 561 561 INITIAL ENTRY:ENTER IPS
56121>56102 125 4096 1 1 0 SET NON-INT clear indicators
56103 123 561 4 0 2 0 561 SET KEY 14 enter master routine
56104 100 0 0 0 0 Halt
56105 124 999 0 0 3 0 modify address of next
56106 124 2 0 3 0 TEST MASTER STILL TYPING modify address of next
56107 124 6 0 3 0 modify address of next
56108 106 2 0 0 0 select (N)
56109 105 561 22 0 0 0 561 subtract (N) from (A)
56110 104 559 3 0 0 0 559 add (N) to (A)
56111 127 561 20 0 0 0 561 >YES jump A = Z
56112 101 248 1 3 0 select literal address
56113 118 4118 1 0 0 £8 IN B shift logical
56114 124 999 5 0 3 0 modify address of next
56115 124 32 0 3 0 modify address of next
56116 115 24 0 0 0 COLLATE OUT TAPE ROUTE collate and add
56117 118 4118 1 0 0 AND SHIFT INTO B shift logical
56118 106 559 3 0 0 0 559 TWRT select (N)
56119 82 559 2 0 0 0 559 > END OF SUBROUTINE / LEAVE SUBROUTINE
56111>56120 125 4096 1 0 0 set indicators
56121 GO 561 2 0 0 0 561> > JUMP unconditional
56122 126 0 1 0 0 > test route N1
56200 PROCR 562 562 INITIAL ENTRY:TW CLOSED
56202 100 4096 0 1 0 MIDDLE OF DIV 1 Invalid
56203 100 8190 0 1 0 END OF DIV 1 Invalid
55961>
55960>
55959>
55958>
55952>56204 154 563 2 0 0 0 563 COMMENT IN LOG
56205 GO 559 2 0 0 0 559> > JUMP unconditional
55908>56206 154 563 10 0 0 0 563> COMMENT IN LOG
Source image: P1030335.JPG
56207 151 0 0 0 0 > UNLOAD PROGRAMME
56300 CONST 563 563 1
56302 (D)6£(A)TYPE; TW CLOSED
56304 (A)WRITE;
56306 R CLO;
56308 (A)SED(D)5.5.;
56310 (D)6£(A)DO N;
56312 (A)OT TI;
56314 MESHA;
56316 RE 09;
56318 (A)000(D)5.5.;
56400 CONST 564 564 0 FUTURE INSTALLATION
56402 (D); TYPEWRITER
56403 0; CONTROL DATA
56404 0; MODS
56405 0; STORE SIZE
56406 0; CLOCK
56407 0; TIMER
56408 0; LOCKOUT
56409 0; FIRST MT ROUTE
56410 0; SECOND STORE SIZE
56500 CONST 565 565 0 PRESENT INSTALLATION
56502 (D); TYPEWRITER
56503 18; CONTROL DATA
56504 19; MODS
56505 0; STORE SIZE
56506 0; CLOCK
56507 0; TIMER
56508 0; LOCKOUT
56509 0; FIRST MT ROUTE
56510 0; SECOND STORE SIZE
56511 0; TAPE START ROUTE
56512 0; S/F INDICATOR
56513 0; END INDICATOR
56600 CONST 566 566 1 SIPS:MISCELLANEA
56602 (D); BLOCK COUNTER
56604 66666; BIN&DEC
56606 .000; DIV 0
56608 400000000; 2 DIV/0
56610 0; LOAD CHAPT 1(MASTER)
56612 2000; LOAD CHAPT 2(ISU)
56614 3+0000000; LOAD IPS
56700 PROCR 567 567 SIPS:INSTRUCTION CONSTANTS
56702 100 91 325 0 1 0 BULK COPY Invalid
56703 100 704 0 0 0 Halt
56704 100 91 5 0 1 0 BULK COPY Invalid
56705 100 1024 0 0 0 Halt
56706 114 91 0 0 1 0 ASL replace selected bits
56707 102 1 0 0 0 BULK CLEAR transfer (A) to N
56708 126 30 0 1 0 INTERRUPTION leave subroutine
56800 PROCR 568 568 SET KEY 15 SR
56802 100 0 0 0 0 Halt
56803 125 4096 1 1 0 SET NON-INT clear indicators
56804 124 568 6 0 2 0 568 select literal and division
Source image: P1030336.JPG
56805 102 30 0 1 0 transfer (A) to N
56806 126 568 7 0 3 0 568 SET KEY 15 leave master routine
56807 115 568 8 0 1 0 568 collate and add
56808 125 4096 1 1 0 SET NON-INT clear indicators
56809 126 568 2 0 1 0 568 leave subroutine
56900 PROCR 569 569 STEP BLOCK COUNTER SR
56902 81 569 2 0 0 0 569 START OF SUBROUTINE
56903 100 566 4 0 3 0 566 set radix
56904 101 3 0 1 0 prepare for digit collation
56905 101 1 1 3 0 select literal address
56906 115 566 3 1 0 0 566 collate and add
56907 100 566 5 0 3 0 566 set radix
56908 114 999 3 1 0 0 replace selected bits
56909 101 15 0 1 0 prepare for digit collation
56910 106 999 2 1 0 0 select (N)
56911 114 566 2 1 0 0 566 replace selected bits
56912 82 569 2 0 0 0 569 END OF SUBROUTINE / LEAVE SUBROUTINE
57000 PROCR 570 570 SIPS:READ&TEST ROUTE SR
57002 100 0 0 0 0 Halt
57003 124 565 11 0 3 0 565 modify address of next
57004 119 0 0 1 0 READ input one block/reset timer
57005 80 569 2 0 0 0 569 >STEP BLOCK COUNTER ENTER SUBROUTINE
57009>57006 124 565 11 0 3 0 565 modify address of next
57007 126 0 1 0 0 TEST ROUTE test route N1
57008 100 259 0 0 0 HALT 103 C Halt
57009 124 570 6 1 0 0 570 > E unconditional jump
57010 124 570 18 1 0 0 570 >HALT 105 D unconditional jump
57011 124 570 12 1 0 0 570 W unconditional jump
57011>57012 124 565 11 0 3 0 565 A modify address of next
57013 124 64 0 3 0 modify address of next
57014 106 1 1 0 0 TEST CORRECT BLOCK select (N)
57015 105 566 3 1 0 0 566 subtract (N) from (A)
57016 71 570 23 0 0 0 570 >NO:HALT 10. JUMP IF A != 0
57017 82 570 2 0 0 0 570 END OF SUBROUTINE / LEAVE SUBROUTINE
57010>57018 100 261 0 0 0 Halt
57019 124 565 11 0 3 0 565 modify address of next
57020 119 0 1 2 0 UNLOAD MT unload
57022>57021 100 261 0 0 0 Halt
57022 124 570 21 1 0 0 570 unconditional jump
57016>57023 100 270 0 0 0 Halt
57024 124 565 11 0 3 0 565 modify address of next
57025 119 0 1 2 0 UNLOAD MT unload
57027>57026 100 270 0 0 0 Halt
57027 124 570 26 1 0 0 570 unconditional jump
57100 PROCR 571 571 SIPS:INITIAL SR
57102 100 0 0 0 0 Halt
57103 125 8191 1 1 0 CLEAR I1-I13 clear indicators
57104 125 127 1 0 0 SET I1-7 set indicators
57105 100 566 5 0 3 0 566 BINARY set radix
57106 124 566 5 1 1 0 566 MGO set modification group
57107 126 566 6 1 1 0 566 MR1 FOR DIVO set modification register
57108 106 567 8 0 0 0 567 select (N)
57109 102 9 0 1 0 SET UP (9) transfer (A) to N
57110 80 568 2 0 0 0 568 >SET KEY 15 ENTER SUBROUTINE
57200 PROCR 572 572 SIPS=STACK TAGS SR
57202 126 566 8 1 2 0 566 SET MR2 AT 2 DIVS/0 set modification register
Source image: P1030337.JPG
57203 106 566 6 0 0 0 566 select (N)
57204 107 4 0 1 0 augment (N) by (A)
57205 107 5 0 1 0 augment (N) by (A)
57206 101 14 1 3 0 STACK TAG 14 IN DIVS 0&1 select literal address
57209>57207 123 0 1 2 0 copy into tag
57208 125 2 0 2 0 step on and test
57209 124 572 7 1 0 0 572 unconditional jump
57210 125 0 1 2 0 TEST LEO 326 interrogate indicators
57211 102 1 0 1 0 transfer (A) to N
57212 106 567 6 1 0 0 567 select (N)
57213 128 999 0 0 0 0 bulk copy short numeric
57214 106 1 0 1 0 select (N)
57215 103 565 12 0 0 0 565 copy (A) to N
57216 127 572 20 0 0 0 572 >YES jump A = Z
57217 125 0 1 2 0 STACK TAG 0 IN 0&32 OF DIV 0 interrogate indicators
57218 123 0 1 1 0 copy into tag
57219 123 32 1 1 0 copy into tag
57216>57220 101 15 1 3 0 STACK TAG 15 IN ANNEXE LIMIT WORD select literal address
57221 123 91 1030 1 0 0 copy into tag
57222 123 140 1 1 0 STACK TAG 15 IN 140-153 IN DIV 0 copy into tag
57223 123 142 1 1 0 copy into tag
57224 123 144 1 1 0 copy into tag
57225 123 146 1 1 0 copy into tag
57226 123 148 1 1 0 copy into tag
57227 123 150 1 1 0 copy into tag
57228 123 152 1 1 0 copy into tag
57229 82 571 2 0 0 0 571 END OF SUBROUTINE / LEAVE SUBROUTINE
57300 PROCR 573 573 SIPS:LOAD STORE SR
57302 100 577 2 0 1 0 577 Invalid
57311>57303 80 570 2 0 0 0 570 >READ & TEST ROUTE ENTER SUBROUTINE
57304 106 567 4 1 0 0 567 select (N)
57305 124 566 5 0 3 0 566 COPY NEXT 512 modify address of next
57306 124 4 0 3 0 modify address of next
57307 128 0 1 0 0 bulk copy alpha to short
57308 106 129 0 1 0 RESTORE MT CHANNEL select (N)
57309 102 565 11 0 0 0 565 transfer (A) to N
57310 125 512 0 2 0 TEST END step on and test
57311 76 573 3 0 0 0 573 >NO JUMP unconditional
57312 82 573 2 0 0 0 573 END OF SUBROUTINE / LEAVE SUBROUTINE
57400 PROCR 574 574 SIPS:ENTRY FROM PIPS
73642>57402 126 571 2 0 0 0 571 >INITIAL SR enter subroutine
57403 106 129 0 1 0 STORE MT CHANNEL select (N)
57404 102 565 11 0 0 0 565 transfer (A) to N
57405 106 564 10 0 0 0 564 STORE STORE SIZE select (N)
57406 118 4127 0 0 0 shift logical
57407 104 564 5 0 0 0 564 add (N) to (A)
57408 102 153 0 1 0 transfer (A) to N
57409 101 3 0 1 0 SET UP RT NO IN ISP prepare for digit collation
57410 106 564 3 0 0 0 564 select (N)
57411 114 144 0 1 0 replace selected bits
57412 114 145 0 1 0 replace selected bits
57413 101 64 1 1 0 add literal address
57414 114 143 0 1 0 replace selected bits
57500 PROCR 575 575 SISP:PREPARE TO READ
57502 124 565 11 0 3 0 565 SET UP BLOCK COUNTER modify address of next
57503 124 64 0 3 0 modify address of next
57504 106 0 1 0 0 select (N)
Source image: P1030338.JPG
57505 102 566 2 1 0 0 566 transfer (A) to N
57506 106 567 6 0 0 0 567 SET UP ASL select (N)
57507 124 565 11 0 3 0 565 modify address of next
57508 102 64 0 0 0 transfer (A) to N
57509 126 566 10 1 2 0 566 SET MR2 FOR CHAPT 1 set modification register
57600 PROCR 576 576 SIPS:LOAD STORE
57602 126 570 2 0 0 0 570 >READ&TEST ROUTE enter subroutine
57603 106 567 2 1 0 0 567 select (N)
57604 124 566 5 0 3 0 566 modify address of next
57605 128 160 1 0 0 COPY TO 160-511 bulk copy alpha to short
57606 125 512 0 2 0 step on and test
57607 106 567 6 0 0 0 567 RESET ASL select (N)
57608 124 565 11 0 3 0 565 modify address of next
57609 102 64 0 0 0 transfer (A) to N
57610 80 573 2 0 0 0 573 >LOAD STORE ENTER SUBROUTINE
57611 126 566 12 1 2 0 566 SET MR2 FROM CHAPT 2 set modification register
57612 80 573 2 0 0 0 573 >LOAD STORE ENTER SUBROUTINE
57613 126 566 14 1 2 0 566 SET MRZ FOR IPS set modification register
57614 80 573 2 0 0 0 573 >LOAD STORE ENTER SUBROUTINE
57700 PROCR 577 577 SIPS-:RESTORE STORE
57702 106 723 2 1 0 0 723 COPY INSTALLATION DETAILS TABLE select (N)
57703 128 565 2 0 0 0 565 bulk copy short numeric
57704 106 722 2 1 0 0 722 SET ALL SWITCHES AT 0 select (N)
57705 128 703 2 0 0 0 703 bulk copy short numeric
70129>57706 102 1 0 1 0 TEST LEO 326/360 transfer (A) to N
57707 106 567 6 1 0 0 567 select (N)
57708 128 999 0 0 0 0 bulk copy short numeric
57709 106 1 0 1 0 select (N)
57710 103 565 12 0 0 0 565 copy (A) to N
57711 70 577 16 0 0 0 577 >YES JUMP IF A == 0
57712 106 706 6 0 0 0 706 SET UP COUNTING CONSTANTS select (N)
57713 102 706 3 0 0 0 706 transfer (A) to N
57714 106 706 8 0 0 0 706 select (N)
57715 76 577 19 0 0 0 577 JUMP unconditional
57711>57716 106 706 7 0 0 0 706 select (N)
57717 102 706 3 0 0 0 706 transfer (A) to N
57718 106 706 9 0 0 0 706 select (N)
57715>57719 102 706 5 0 0 0 706 transfer (A) to N
57800 PROCR 578 578 SIPS-:SET UP TYPEWRITER ROUTE
57802 125 4095 1 2 0 TEST TW ROUTE TO BE CHANGED interrogate indicators
57803 101 3072 1 2 0 subtract literal address
57804 127 578 13 0 1 0 578 >NO jump A != Z
57809>57805 125 4095 1 1 0 CLEAR I1-12 clear indicators
57807>57806 125 4095 1 2 0 TEST TW ROUTE STACKED interrogate indicators
57807 127 578 6 0 0 0 578 >NO jump A = Z
57808 125 4032 1 2 0 interrogate indicators
57809 127 578 5 0 1 0 578 >NO jump A != Z
57810 125 63 1 2 0 STORE NEW TW ROUTE interrogate indicators
57811 103 564 2 0 0 0 564 copy (A) to N
57812 102 565 2 0 0 0 565 transfer (A) to N
57804>57813 125 4032 1 1 0 CLEAR I7-12 clear indicators
57814 125 127 1 0 0 SET I1-7 set indicators
57815 106 565 2 0 0 0 565 select (N)
57816 101 46 1 2 0 SET ST1=1 FOR PT OP AS TW subtract literal address
57817 127 578 23 0 2 0 578 SET POS FOR G P ASS jump A >= Z
57818 101 32 1 1 0 SET NEG FOR PT ASS add literal address
57819 127 578 22 0 2 0 578 jump A >= Z
Source image: P1030339.JPG
57820 101 1 1 3 0 select literal address
57821 124 578 23 1 0 0 578 unconditional jump
57819>57822 101 38 1 2 0 subtract literal address
57821>
57817>57823 102 703 20 0 0 0 703 OR ST1=2 FOR CP AS TW transfer (A) to N
57824 106 702 2 0 0 0 702 select (N)
57825 124 565 2 0 3 0 565 SET UP TW ASL modify address of next
57826 102 64 0 0 0 transfer (A) to N
57827 102 154 1 1 0 CLEAR TW ANNEXE transfer (A) to N
57828 106 702 5 0 0 0 702 SET UP TW ASL select (N)
57829 103 1 0 1 0 RETURN LINKS copy (A) to N
57830 103 17 0 1 0 copy (A) to N
57831 102 25 0 1 0 transfer (A) to N
57832 124 699 6 0 2 0 699 select literal and division
57833 102 31 0 1 0 transfer (A) to N
57834 106 703 21 0 0 0 703 SWITCH SX1 select (N)
57835 70 579 2 0 0 0 579 >NORMAL 0 JUMP IF A == 0
57836 80 648 2 0 0 0 648 >UNLOAD TAPE START 1 ENTER SUBROUTINE
57837 76 586 26 0 0 0 586 >INITIAL ENTRY JUMP unconditional
57900 PROCR 579 579 CHECK INTERRUPTION
57835>57902 106 703 7 0 0 0 703 TEST LOG FREE SWITCH SL1 select (N)
57903 70 579 5 0 0 0 579 >YES 0 JUMP IF A == 0
57922>57904 80 681 2 0 0 0 681 >LOG 1 ENTER SUBROUTINE
57903>57905 106 702 11 0 0 0 702 RETURN LINK select (N)
57906 102 30 0 1 0 transfer (A) to N
57907 125 4096 1 0 0 SET INT set indicators
57908 106 703 20 0 0 0 703 SWITCH ST1 select (N)
57909 71 579 12 0 0 0 579 1 JUMP IF A != 0
57910 106 716 20 1 0 0 716 2 select (N)
57911 76 579 13 0 0 0 579 JUMP unconditional
57909>57912 106 716 18 1 0 0 716 select (N)
57911>57913 102 154 1 1 0 transfer (A) to N
57914 124 565 2 0 3 0 565 modify address of next
57915 119 0 0 0 0 output
57916 126 566 8 1 3 0 566 set modification register
57918>57917 125 1 0 3 0 step on and test
57918 76 579 17 0 0 0 579 JUMP unconditional
57919 80 676 2 0 0 0 676 >REQ TW ENTER SUBROUTINE
57920 124 713 36 0 2 0 713 select literal and division
57921 80 688 2 0 0 0 688 >COPY COMMENT ENTER SUBROUTINE
57922 76 579 4 0 0 0 579 > JUMP unconditional
57923 80 568 2 0 0 0 568 >SET KEY I5 ENTER SUBROUTINE
57924 80 677 2 0 0 0 677 >REQ TW ENTER SUBROUTINE
57925 106 716 16 1 0 0 716 select (N)
57926 124 718 2 0 3 0 718 modify address of next
57927 102 0 1 0 0 transfer (A) to N
58000 PROCR 580 580 CHECK CLOCK
58002 106 565 6 0 0 0 565 TEST MC HAS CLOCK select (N)
58003 70 580 14 0 0 0 580 >NO JUMP IF A == 0
58004 80 694 2 0 0 0 694 >ARRANGE TO TYPE SHORTLY ENTER SUBROUTINE
58008>58005 106 156 0 1 0 TEST CLOCK ON select (N)
58006 71 580 12 0 0 0 580 >YES JUMP IF A != 0
58011>58007 126 695 2 0 0 0 695 >TEST TIME TO TYPE enter subroutine
58008 124 580 5 1 0 0 580 > unconditional jump
58009 124 713 12 0 2 0 713 select literal and division
58010 126 688 2 0 0 0 688 >COPY COMMENT enter subroutine
58011 124 580 7 1 0 0 580 > unconditional jump
58006>58012 106 724 12 1 0 0 724 select (N)
Source image: P1030340.JPG
58013 76 580 15 0 0 0 580 JUMP unconditional
58003>58014 106 724 14 1 0 0 724 select (N)
58013>58015 103 724 2 1 0 0 724 AMEND EDIT TIME TABLES copy (A) to N
58016 102 724 8 1 0 0 724 transfer (A) to N
58100 PROCR 581 581 CHECK TIMER
58102 106 565 7 0 0 0 565 TEST MC HAS TIMER select (N)
58103 127 582 2 0 0 0 582 >NO jump A = Z
58104 126 693 2 0 0 0 693 >ARRANGE TO TYPE enter subroutine
58108>58105 106 157 0 1 0 TEST TIMER ON select (N)
58106 127 582 2 0 1 0 582 >YES jump A != Z
58111>58107 126 695 2 0 0 0 695 >TEST TIME TO TYPE enter subroutine
58108 124 581 5 1 0 0 581 > unconditional jump
58109 124 715 20 0 2 0 715 select literal and division
58110 126 688 2 0 0 0 688 >COPY COMMENT enter subroutine
58111 124 581 7 1 0 0 581 > unconditional jump
58200 PROCR 582 582 CHECK UNASSIGNED ACTION
58106>
58103>58202 106 565 12 0 0 0 565 TEST 326 select (N)
58203 71 583 2 0 0 0 583 >NO JUMP IF A != 0
58204 80 693 2 0 0 0 693 >ARRANGE TO TYPE ENTER SUBROUTINE
58205 124 582 13 0 2 0 582 RETURN LINK select literal and division
58206 102 31 0 1 0 transfer (A) to N
58209>58207 100 566 5 0 1 0 566 TEST UA WORKING Invalid
58212>58208 126 695 2 0 0 0 695 NO>TEST TIME TO TYPE enter subroutine
58209 124 582 7 1 0 0 582 > unconditional jump
58210 124 715 26 0 2 0 715 select literal and division
58211 126 688 2 0 0 0 688 >COPY COMMENT enter subroutine
58212 124 582 8 1 0 0 582 > unconditional jump
58213 126 568 2 0 0 0 568 >SET KEY 15 enter subroutine
58300 PROCR 583 583 CHECK LOCKOUT
58203>58302 106 565 8 0 0 0 565 TEST MC HAS LOCKOUT select (N)
58303 127 584 2 0 0 0 584 >NO jump A = Z
58304 126 693 2 0 0 0 693 >ARRANGE TO TYPE enter subroutine
58305 124 583 16 0 2 0 583 RETURN LINK select literal and division
58306 102 31 0 1 0 transfer (A) to N
58307 102 6 1 1 0 transfer (A) to N
58312>58308 126 583 9 0 2 0 583 SET KEY 14 enter priority control
58309 100 0 0 0 0 Halt
58310 115 91 1031 1 3 0 TEST LOCKOUT ON collate and add
58315>58311 80 695 2 0 0 0 695 NO>TEST TIME TO TYPE ENTER SUBROUTINE
58312 76 583 8 0 0 0 583 >NO JUMP unconditional
58313 124 714 18 0 2 0 714 select literal and division
58314 126 688 2 0 0 0 688 >COPY COMMENT enter subroutine
58315 124 583 11 1 0 0 583 > unconditional jump
58316 126 568 2 0 0 0 568 >SET KEY 15 enter subroutine
58400 PROCR 584 584 CHECK OVERFLOW
58303>58402 126 693 2 0 0 0 693 >ARRANGE TO TYPE enter subroutine
58409>58403 124 584 13 0 2 0 584 RETURN LINK select literal and division
58404 102 31 0 1 0 transfer (A) to N
58405 100 708 2 0 3 0 708 SET UNARY set radix
58406 101 1 1 1 0 TEST OVERFLOW add literal address
58407 62 0 0 0 0 SET EXCESS CONSTANTS
58412>58408 80 695 2 0 0 0 695 >TEST TIME TO TYPE ENTER SUBROUTINE
58409 76 584 3 0 0 0 584 >NO JUMP unconditional
58410 124 715 2 0 2 0 715 select literal and division
58411 126 688 2 0 0 0 688 >COPY COMMENT enter subroutine
Source image: P1030341.JPG
58412 124 584 8 1 0 0 584 > unconditional jump
58413 62 0 0 0 0 SET EXCESS CONSTANTS
58414 126 568 2 0 0 0 568 >SET KEY 15 enter subroutine
58415 124 699 6 0 2 0 699 select literal and division
58416 102 31 0 1 0 transfer (A) to N
58500 PROCR 585 585 ALARM 77 (1)
58716>
64114>58502 125 2047 1 1 0 CLEAR I1-11 clear indicators
58503 125 128 1 0 0 SET I8 set indicators
58504 126 675 2 0 0 0 675 >REQ TW enter subroutine
58505 102 156 1 1 0 transfer (A) to N
58506 124 716 12 0 2 0 716 *77 select literal and division
58507 126 688 2 0 0 0 688 >COPY COMMENT enter subroutine
58508 124 726 2 0 2 0 726 select literal and division
58509 124 718 2 0 3 0 718 EDIT RESET modify address of next
58510 128 4 1 2 0 edit fixed field formats
58600 PROCR 586 586 ALARM 77 (2)
58602 125 15 1 2 0 TEST OPTION STACKED interrogate indicators
58603 127 586 5 0 1 0 586 >YES jump A != Z
58625>58604 126 681 2 0 0 0 681 >LOG enter subroutine
58603>58605 103 587 8 0 0 0 587 copy (A) to N
58606 103 587 18 0 0 0 587 copy (A) to N
58607 118 1 0 0 0 shift logical
58608 103 714 51 0 0 0 714 SET UP 'OPT' copy (A) to N
58609 103 714 55 0 0 0 714 & 'OREJ' copy (A) to N
58610 125 1919 1 2 0 interrogate indicators
58611 125 2047 1 1 0 CLEAR I1-11 clear indicators
58612 101 5 1 2 0 TEST OPTION IN RANGE subtract literal address
58613 127 587 2 0 3 0 587 >YES jump A < Z
58614 101 11 1 2 0 subtract literal address
58615 127 586 21 0 2 0 586 >REJECT jump A >= Z
58616 101 2 1 1 0 add literal address
58617 127 587 2 0 2 0 587 >OPT14,15 jump A >= Z
58618 101 5 1 3 0 select literal address
58619 102 587 8 0 0 0 587 transfer (A) to N
58620 124 587 2 1 0 0 587 unconditional jump
58615>58621 125 128 1 0 0 SET I8 set indicators
58622 126 676 2 0 0 0 676 >REQ TW enter subroutine
58623 124 714 52 0 2 0 714 0 REJ select literal and division
58624 126 688 2 0 0 0 688 > enter subroutine
58625 124 586 4 1 0 0 586 unconditional jump
58712>
57837>58626 101 1 1 3 0 select literal address
58627 102 703 4 0 0 0 703 transfer (A) to N
58710>58628 125 127 1 0 0 set indicators
58629 76 588 2 0 0 0 588 SET UP ASL'S JUMP unconditional
58700 PROCR 587 587 ALARM 77 (3)
58620>
58617>
58613>58702 126 675 2 0 0 0 675 >REQ TW enter subroutine
58703 124 714 48 0 2 0 714 OPT select literal and division
58704 126 688 2 0 0 0 688 >COPY COMMENT enter subroutine
58705 125 0 1 2 0 interrogate indicators
58706 124 587 8 0 1 0 587 modify address of next
58707 124 587 8 1 0 0 587 unconditional jump
58707>58708 100 0 0 0 0 Halt
58709 76 625 2 0 0 0 625 >OP 1 JUMP unconditional
Source image: P1030342.JPG
58710 76 586 28 0 0 0 586 >OPT 2 JUMP unconditional
58711 76 625 3 0 0 0 625 >OP 3 JUMP unconditional
58712 76 586 26 0 0 0 586 >OPT 4 JUMP unconditional
58713 106 587 18 0 0 0 587 select (N)
58714 101 4 1 2 0 MACHINE NUMBER subtract literal address
58715 102 180 0 1 0 transfer (A) to N
58716 76 585 2 0 0 0 585 >REOFFER OPTIONS JUMP unconditional
58717 100 0 0 0 0 Halt
58718 100 0 0 0 0 Halt
58727>58719 101 492 1 3 0 select literal address
58720 107 19 0 0 0 augment (N) by (A)
58721 124 0 1 0 0 unconditional jump
58722 124 625 2 0 2 0 625 OPT 14 select literal and division
58723 127 587 25 0 1 0 587 OPT 15 jump A != Z
58724 124 586 28 0 2 0 586 select literal and division
58723>58725 100 587 28 0 2 0 587 replace (B) by (N)
58726 114 587 21 0 0 0 587 PACK IN ADDRESS replace selected bits
58727 76 587 19 0 0 0 587 JUMP unconditional
58728 100 8191 0 0 0 Halt
58800 PROCR 588 588 SET UP ASLS
58629>58802 106 565 11 0 0 0 565 SET UP MT ROUTES select (N)
58803 101 1 1 1 0 add literal address
58804 103 704 5 0 0 0 704 copy (A) to N
58805 101 1 1 1 0 add literal address
58806 103 704 6 0 0 0 704 copy (A) to N
58807 101 1 1 1 0 add literal address
58808 102 704 7 0 0 0 704 transfer (A) to N
58809 106 567 6 0 0 0 567 SET UP ASLS select (N)
58810 124 704 5 0 3 0 704 modify address of next
58811 103 64 0 0 0 copy (A) to N
58812 124 704 6 0 3 0 704 modify address of next
58813 103 64 0 0 0 copy (A) to N
58814 124 704 7 0 3 0 704 modify address of next
58815 103 64 0 0 0 copy (A) to N
58816 124 565 3 0 3 0 565 modify address of next
58817 103 64 0 0 0 copy (A) to N
58818 124 565 4 0 3 0 565 modify address of next
58819 102 64 0 0 0 transfer (A) to N
58900 PROCR 589 589 CD:DETERMINE TYPE
58902 106 565 3 0 0 0 565 SET UP CD RT select (N)
58903 80 643 2 0 0 0 643 ENTER SUBROUTINE
58904 102 91 0 1 0 0 transfer (A) to N
58922>58905 126 644 2 0 0 0 644 >TEST ROUTE enter subroutine
58906 125 0 1 0 0 IDB set indicators
58907 126 651 2 0 0 0 651 >READ CD enter subroutine
58908 106 703 21 0 0 0 703 SWITCH SX1 select (N)
58909 71 589 13 0 0 0 589 >>>>>> 1 JUMP IF A != 0
58910 106 91 0 1 0 0 TEST %%%%% select (N)
58911 105 716 36 1 0 0 716 subtract (N) from (A)
58912 127 593 2 0 0 0 593 >YES jump A = Z
58909>58913 106 91 0 1 0 0 TEST >>>>> select (N)
58914 105 716 14 1 0 0 716 subtract (N) from (A)
58915 127 590 2 0 0 0 590 >YES jump A = Z
58916 80 642 2 0 0 0 642 >REMOVE NES&BES ENTER SUBROUTINE
58917 106 91 0 1 0 0 select (N)
58918 102 714 42 1 0 0 714 transfer (A) to N
58919 124 714 42 0 2 0 714 NOT CD select literal and division
59207>58920 126 688 2 0 0 0 688 >COPY COMMENT enter subroutine
59113>
59304>
59329>
Source image: P1030343.JPG
65106>58921 80 650 2 0 0 0 650 >SET ROUTE TO MANUAL ENTER SUBROUTINE
58922 76 589 5 0 0 0 589 > JUMP unconditional
59000 PROCR 590 590 CD:CHANGE INSTALLATION DETAILS(1)
58915>59002 102 703 21 0 0 0 703 SET SX1 AT 0 transfer (A) to N
59003 106 722 4 1 0 0 722 CLEAR select (N)
59004 128 710 2 0 0 0 710 bulk copy short numeric
59005 124 725 2 0 2 0 725 UNPACK select literal and division
59006 128 91 0 0 3 0 unpack variable field data
59007 126 705 2 1 2 0 705 SET MR2 AT 3/0 set modification register
59008 125 0 1 2 0 interrogate indicators
59016>59009 100 709 2 0 2 0 709 replace (B) by (N)
59010 115 710 2 0 2 0 710 TEST RT IN BINARY collate and add
59011 127 592 2 0 1 0 592 >NO:REJECT jump A != Z
59012 124 711 16 0 2 0 711 select literal and division
59013 112 710 2 0 2 0 710 CONVERT RT OCT>BIN convert
59014 102 564 2 0 2 0 564 transfer (A) to N
59015 125 1 0 2 0 STEP MR2 step on and test
59016 124 590 9 1 0 0 590 unconditional jump
59017 106 710 5 0 0 0 710 TEST NO OF DIVS REASONABLE select (N)
59018 127 592 2 0 0 0 592 >NO jump A = Z
59019 101 9 1 2 0 subtract literal address
59020 127 592 2 0 2 0 592 >NO jump A >= Z
59021 106 710 10 0 0 0 710 TEST SECOND STORE select (N)
59022 70 590 28 0 0 0 590 >NO JUMP IF A == 0
59023 101 5 1 2 0 TEST NO OF DIVS REASONABLE subtract literal address
59024 72 592 2 0 0 0 592 >NO JUMP IF A >= 0
59025 106 710 5 0 0 0 710 select (N)
59026 101 5 1 2 0 subtract literal address
59027 72 592 2 0 0 0 592 >NO JUMP IF A >= 0
59022>59028 106 710 5 0 0 0 710 CONVERT NO OF DIVS select (N)
59029 118 3 0 0 0 shift logical
59030 118 1 0 3 0 shift binary
59031 102 564 5 0 0 0 564 transfer (A) to N
59032 106 710 10 0 0 0 710 CONVERT NO OF 2ND STORE DIVS select (N)
59033 118 3 0 0 0 shift logical
59034 118 1 0 3 0 shift binary
59035 102 564 10 0 0 0 564 transfer (A) to N
59100 PROCR 591 591 CD:CHANGE INSTALLATION DETAILS(2)
59102 126 705 4 1 2 0 705 SET MR2 AT 4/0 set modification register
59108>59103 106 710 6 0 2 0 710 STORE THE REST select (N)
59104 127 591 6 0 0 0 591 jump A = Z
59105 101 1 1 3 0 select literal address
59104>59106 102 564 6 0 2 0 564 transfer (A) to N
59107 125 1 0 2 0 step on and test
59108 124 591 3 1 0 0 591 unconditional jump
59109 126 675 2 0 0 0 675 >REQ TW enter subroutine
59110 124 728 2 0 2 0 728 >>>>> select literal and division
59111 124 718 2 0 3 0 718 modify address of next
59112 128 2 1 2 0 edit fixed field formats
59113 124 589 21 1 0 0 589 > unconditional jump
59200 PROCR 592 592 CD:REJ
59027>
59024>
59020>
59018>
Source image: P1030344.JPG
59011>59202 126 675 2 0 0 0 675 >REQ TW enter subroutine
59203 106 709 6 0 2 0 709 SET UP T C M OR S select (N)
59204 102 713 8 0 0 0 713 transfer (A) to N
59205 124 713 6 0 2 0 713 CD REJ select literal and division
59206 103 703 21 0 0 0 703 SET SX1 AT 1 copy (A) to N
59207 76 589 20 0 0 0 589 > JUMP unconditional
59300 PROCR 593 593 CD:FIRST TWO BLOCKS
58912>59302 106 91 3 1 0 0 >TEST DATE REASONABLE select (N)
59303 126 689 2 0 0 0 689 >NO enter subroutine
59304 124 589 21 1 0 0 589 >READ CD unconditional jump
59305 126 651 2 0 0 0 651 enter subroutine
59306 106 91 4 1 0 0 select (N)
59307 118 4120 0 0 0 shift logical
59308 101 126 1 2 0 subtract literal address
59309 71 593 11 0 0 0 593 JUMP IF A != 0
59310 102 91 4 1 0 0 transfer (A) to N
59309>59311 106 91 1 1 0 0 TEST CORR PROGM select (N)
59312 70 593 23 0 0 0 593 >NO JUMP IF A == 0
59313 105 704 2 0 0 0 704 subtract (N) from (A)
59314 71 593 21 0 0 0 593 >NO JUMP IF A != 0
59315 106 91 3 1 0 0 TESTS CORR SERIAL select (N)
59316 105 704 3 0 0 0 704 subtract (N) from (A)
59317 71 593 21 0 0 0 593 >NO JUMP IF A != 0
59318 106 91 5 1 0 0 TEST CORR INTERIM select (N)
59319 105 704 4 0 0 0 704 subtract (N) from (A)
59320 127 594 2 0 0 0 594 >YES jump A = Z
59317>
59314>59321 106 91 5 1 0 0 TEST ZERO INTERIM select (N)
59322 70 593 30 0 0 0 593 >YES JUMP IF A == 0
59312>59323 80 675 2 0 0 0 675 >REQ TW ENTER SUBROUTINE
59324 124 715 10 0 2 0 715 PROG REJ select literal and division
59325 80 688 2 0 0 0 688 >COPY COMMENT ENTER SUBROUTINE
59326 124 726 10 0 2 0 726 select literal and division
59327 124 718 2 0 3 0 718 modify address of next
59328 128 6 1 2 0 EDIT REST edit fixed field formats
59329 76 589 21 0 0 0 589 > JUMP unconditional
59322>59330 101 1 1 3 0 select literal address
59331 102 703 6 0 0 0 703 SET S11 AT 1 transfer (A) to N
59332 106 723 6 1 0 0 723 select (N)
59333 128 704 2 1 0 0 704 bulk copy alpha to short
59400 PROCR 594 594 CD:THIRD BLOCK
59320>59402 126 651 2 0 0 0 651 >READ CD enter subroutine
59403 106 723 4 1 0 0 723 select (N)
59404 128 703 13 1 0 0 703 SET SM1 AT 0 OR 1 bulk copy alpha to short
59405 126 705 6 1 2 0 705 SET MR2 AT 5/0 set modification register
59410>59406 106 703 13 0 2 0 703 select (N)
59407 105 709 3 0 0 0 709 subtract (N) from (A)
59408 70 594 12 0 0 0 594 > JUMP IF A == 0
59409 125 1 0 2 0 step on and test
59410 76 594 6 0 0 0 594 > JUMP unconditional
59411 76 595 2 0 0 0 595 JUMP unconditional
59414>
59408>59412 103 703 13 0 2 0 703 copy (A) to N
59413 125 1 0 2 0 step on and test
59414 76 594 12 0 0 0 594 > JUMP unconditional
59500 PROCR 595 595 CD:LAST TWO BLOCKS
Source image: P1030345.JPG
59411>59502 80 651 2 0 0 0 651 >READ CD ENTER SUBROUTINE
59503 106 91 0 1 0 0 TEST'TOTAL' select (N)
59504 105 716 38 1 0 0 716 subtract (N) from (A)
59505 127 595 10 0 0 0 595 >YES jump A = Z
59506 106 91 1 1 0 0 select (N)
59507 102 703 2 0 0 0 703 SET SC1 & SC2 transfer (A) to N
59508 106 91 3 1 0 0 select (N)
59509 124 595 15 1 0 0 595 > unconditional jump
59505>59510 101 1 1 3 0 select literal address
59511 102 703 5 0 0 0 703 SET SC4 AT 1 transfer (A) to N
59512 106 91 3 1 0 0 select (N)
59513 102 703 2 0 0 0 703 SET SC1 & SC2 transfer (A) to N
59514 106 91 5 1 0 0 select (N)
59509>59515 103 703 3 0 0 0 703 copy (A) to N
59516 105 709 3 0 0 0 709 subtract (N) from (A)
59517 127 595 19 0 1 0 595 REMOVE BLOCK END jump A != Z
59518 102 703 3 0 0 0 703 transfer (A) to N
59517>59519 106 703 2 0 0 0 703 select (N)
59520 105 709 3 0 0 0 709 subtract (N) from (A)
59521 71 595 23 0 0 0 595 JUMP IF A != 0
59522 102 703 2 1 0 0 703 transfer (A) to N
59521>59523 80 651 2 0 0 0 651 >READ CD ENTER SUBROUTINE
59524 106 716 23 0 0 0 716 select (N)
59525 102 91 3 0 0 0 transfer (A) to N
59526 124 725 6 0 2 0 725 SET END INDICATOR select literal and division
59527 128 91 0 0 3 0 unpack variable field data
59528 80 650 2 0 0 0 650 >SET ROUTE TO MANUAL ENTER SUBROUTINE
59529 106 703 4 1 0 0 703 SWITCHES SC3 & SC4 select (N)
59530 127 596 2 0 1 0 596 >DONT UNLOAD 1 jump A != Z
59531 126 648 2 0 0 0 648 >UNLOAD TAPE START 0 enter subroutine
59600 PROCR 596 596 IC: OPEN FILE
59530>59602 106 703 6 0 0 0 703 SWITCH SI1 select (N)
59603 127 605 2 0 0 0 605 >DONT UNLOAD IC 0 jump A = Z
59604 106 704 5 0 0 0 704 SET UP RT NO 1 select (N)
59605 80 643 2 0 0 0 643 ENTER SUBROUTINE
59606 106 175 0 1 0 STORE 5 FIGURE DATE select (N)
59607 102 710 15 0 0 0 710 transfer (A) to N
59626>59608 126 652 2 0 0 0 652 >OPEN FILE enter subroutine
59609 106 91 7 1 0 0 SPOOL NO select (N)
59610 102 91 1003 0 0 0 transfer (A) to N
59611 126 655 2 0 0 0 655 >READ MT enter subroutine
59612 106 91 15 1 0 0 select (N)
59613 103 710 3 0 0 0 710 copy (A) to N
59614 118 4126 0 0 0 shift logical
59615 101 128 1 2 0 subtract literal address
59616 127 596 21 0 1 0 596 >NO jump A != Z
59617 106 91 6 1 0 0 select (N)
59618 118 4126 0 0 0 shift logical
59619 101 81 1 2 0 subtract literal address
59620 70 596 27 0 0 0 596 >YES JUMP IF A == 0
59616>59621 80 675 2 0 0 0 675 >REQ TW ENTER SUBROUTINE
59622 124 729 2 0 2 0 729 HDG select literal and division
59623 124 718 2 0 3 0 718 modify address of next
59624 128 2 1 2 0 EDIT COMMENT edit fixed field formats
59714>59625 126 649 2 0 0 0 649 >UNLOAD enter subroutine
59626 124 596 8 1 0 0 596 > unconditional jump
59620>59627 80 673 2 0 0 0 673 >LIPHIP ENTER SUBROUTINE
59700 PROCR 597 597 IC:SEARCH INDEX
Source image: P1030346.JPG
59705>59702 126 655 2 0 0 0 655 >READ MT enter subroutine
59703 106 91 6 1 0 0 select (N)
59704 105 716 40 1 0 0 716 subtract (N) from (A)
59705 127 597 2 0 1 0 597 >NO jump A != Z
59725>59706 126 655 2 0 0 0 655 >READ MT enter subroutine
59707 126 705 10 1 2 0 705 SET MR2 AT 48/0 set modification register
59724>59708 106 91 5 1 2 0 TEST select (N)
59709 105 708 2 0 0 0 708 subtract (N) from (A)
59710 127 597 15 0 1 0 597 >NO jump A != Z
65609>59711 126 675 2 0 0 0 675 >REQ TW enter subroutine
59712 124 715 14 0 2 0 715 TAPE REJ select literal and division
59713 126 688 2 0 0 0 688 >COPY COMMENT enter subroutine
59714 124 596 25 1 0 0 596 > unconditional jump
59710>59715 106 91 5 1 2 0 TEST REQPROGM select (N)
59716 105 704 2 0 0 0 704 subtract (N) from (A)
59717 127 597 23 0 1 0 597 >NO jump A != Z
59718 106 91 7 1 2 0 TEST REQ SERIAL select (N)
59719 105 704 3 0 0 0 704 subtract (N) from (A)
59720 127 597 23 0 1 0 597 >NO jump A != Z
59721 106 91 9 1 2 0 TEST PASS 3 select (N)
59722 127 598 2 0 1 0 598 >YES jump A != Z
59720>
59717>59723 125 8 0 2 0 STEP MR2 step on and test
59724 124 597 8 1 0 0 597 > unconditional jump
59725 124 597 6 1 0 0 597 >END OF BLOCK unconditional jump
59800 PROCR 598 598
59812>
59722>59802 126 655 2 0 0 0 655 >READ MT enter subroutine
59817>59803 106 91 5 1 0 0 TEST SENT 5 OR 55 select (N)
59804 105 708 2 0 0 0 708 subtract (N) from (A)
59805 127 598 10 0 1 0 598 >NO jump A != Z
59806 101 1 0 1 0 prepare for digit collation
59807 115 91 6 0 0 0 collate and add
59808 101 5 1 2 0 subtract literal address
59809 127 598 18 0 0 0 598 >YES jump A = Z
59805>59810 106 91 10 1 0 0 TEST'PASSI' select (N)
59811 105 716 42 1 0 0 716 subtract (N) from (A)
59812 71 598 2 0 0 0 598 >NO JUMP IF A != 0
59820>
59823>59813 80 653 2 0 0 0 653 >RUNONSTEPON ENTER SUBROUTINE
59814 80 654 2 0 0 0 654 >READ MT ENTER SUBROUTINE
59815 106 91 1 1 0 0 SET UP BLOCK NO select (N)
59816 102 566 2 0 0 0 566 transfer (A) to N
59817 76 598 3 0 0 0 598 > JUMP unconditional
59809>59818 106 91 9 1 0 0 TEST REQ PROGM select (N)
59819 105 704 2 0 0 0 704 subtract (N) from (A)
59820 127 598 13 0 1 0 598 >NO jump A != Z
59821 106 91 11 1 0 0 TEST REQ SERIAL select (N)
59822 105 704 3 0 0 0 704 subtract (N) from (A)
59823 127 598 13 0 1 0 598 >NO jump A != Z
59900 PROCR 599 599 IC:LOCATE CHAPTER DETAILS BLOCK
59908>
59911>59902 126 655 2 0 0 0 655 >READ MT enter subroutine
59903 106 91 42 1 0 0 TEST'ALLOC'BLOCK select (N)
59904 105 716 44 1 0 0 716 subtract (N) from (A)
59905 127 600 2 0 0 0 600 >YES jump A = Z
59906 106 91 5 1 0 0 TEST YE OLDE FASHIONED SENTINEL S1XE select (N)
59907 105 708 2 0 0 0 708 subtract (N) from (A)
Source image: P1030347.JPG
59908 127 599 2 0 1 0 599 >NAY jump A != Z
59909 106 91 7 1 0 0 select (N)
59910 101 6 1 2 0 subtract literal address
59911 127 599 2 0 0 0 599 >NAY jump A = Z
59912 126 655 2 0 0 0 655 >READ MT enter subroutine
60000 PROCR 600 600 IC:STORE CHAPTER DETAILS
59905>60002 126 705 4 1 2 0 705 SET MR2 AT 4/0 set modification register
60003 106 736 52 0 0 0 736 select (N)
60004 102 712 5 0 0 0 712 transfer (A) to N
60005 102 712 6 0 0 0 712 transfer (A) to N
60006 106 91 25 1 0 0 SET UP CHAP 1 SIZE select (N)
60007 104 712 3 0 0 0 712 add (N) to (A)
60008 102 712 8 0 0 0 712 transfer (A) to N
60009 100 709 16 0 2 0 709 replace (B) by (N)
60010 115 712 8 0 0 0 712 collate and add
60011 101 512 1 1 0 add literal address
60012 102 566 11 0 0 0 566 transfer (A) to N
60013 106 712 8 0 0 0 712 TEST CHAPT 1 IN DIV 1 select (N)
60014 105 736 52 0 0 0 736 subtract (N) from (A)
60015 73 601 2 0 0 0 601 >NO JUMP IF A < 0
60016 107 712 5 0 0 0 712 ADJUST PARAMETERS augment (N) by (A)
60017 102 712 6 0 0 0 712 transfer (A) to N
60018 106 566 12 0 0 0 566 select (N)
60019 102 566 11 0 0 0 566 transfer (A) to N
60100 PROCR 601 601 IC:LOCATE CHAPTER START
60105>
60108>
60413>
60015>60102 126 655 2 0 0 0 655 >READ MT enter subroutine
60103 106 91 7 1 0 0 TEST'CHAPT'BLOCK select (N)
60104 101 7 1 2 0 subtract literal address
60105 127 601 2 0 1 0 601 >NO jump A != Z
60106 106 91 12 1 0 0 select (N)
60107 105 716 46 1 0 0 716 subtract (N) from (A)
60108 127 601 2 0 1 0 601 >NO jump A != Z
60200 PROCR 602 602 IC: STACK INSTRUCTIONS(1)
60202 106 712 3 0 2 0 712 SET UP CHAPTER START select (N)
60203 102 712 8 0 0 0 712 transfer (A) to N
60411>60204 126 705 10 1 3 0 705 SET MR3 AT 48/0 set modification register
60205 126 655 2 0 0 0 655 >READ MT enter subroutine
60410>60206 106 712 8 0 0 0 712 select (N)
60207 101 160 1 2 0 TEST ADDRESS LESS THAN 160 subtract literal address
60208 127 604 2 0 3 0 604 >YES jump A < Z
60209 106 565 11 0 0 0 565 TEST select (N)
60210 101 128 1 2 0 CHANNEL 16? subtract literal address
60211 127 602 17 0 3 0 602 >NO jump A < Z
60212 106 712 8 0 0 0 712 select (N)
60213 101 192 1 2 0 ASL'S? subtract literal address
60214 127 602 17 0 3 0 602 >NO jump A < Z
60215 101 4 1 2 0 subtract literal address
60216 127 604 2 0 3 0 604 >YES jump A < Z
60214>
60211>60217 106 91 5 1 3 0 select (N)
60218 105 709 4 0 0 0 709 TEST END OF CHAPTER subtract (N) from (A)
60219 127 604 12 0 0 0 604 >YES jump A = Z
60220 104 709 5 0 0 0 709 TEST MINUS ZERO add (N) to (A)
60221 127 603 2 0 1 0 603 >NO jump A != Z
Source image: P1030348.JPG
60222 106 723 8 1 0 0 723 STACK MINUS ZERO select (N)
60223 124 712 8 0 3 0 712 modify address of next
60224 128 0 1 0 0 bulk copy alpha to short
60225 124 604 2 1 0 0 604 > unconditional jump
60300 PROCR 603 603 IC: STACK INSTRUCTIONS (2)
60221>60302 101 1 0 1 0 STORE Q1 OF PARAMETER prepare for digit collation
60303 125 0 1 2 0 interrogate indicators
60304 115 91 4 1 3 0 collate and add
60305 102 91 4 1 3 0 transfer (A) to N
60306 106 91 7 1 3 0 TEST INSTRUCTION NEGATIVE select (N)
60307 127 603 13 0 3 0 603 >YES jump A < Z
60308 124 566 5 0 3 0 566 ADD PARAMETER modify address of next
60309 124 6 0 1 0 modify address of next
60310 124 91 4 0 1 0 modify address of next
60311 104 712 2 0 0 0 712 add (N) to (A)
60312 124 603 17 1 0 0 603 > unconditional jump
60307>60313 124 566 5 0 3 0 566 SUBTRACT PARAMETER modify address of next
60314 124 6 0 1 0 modify address of next
60315 124 91 4 0 1 0 modify address of next
60316 105 712 2 0 0 0 712 subtract (N) from (A)
60312>60317 124 712 8 0 3 0 712 modify address of next
60318 102 0 0 0 0 STACK INSTRUCTION transfer (A) to N
60400 PROCR 604 604 IC: STACK INSTRUCTIONS (3)
60225>
60216>
60208>60402 123 1 0 0 0 STEP ADDRESS step on and test
60403 100 712 8 0 0 0 712 TEST MASTER TOO LARGE Halt
60404 76 604 9 0 0 0 604 >NO JUMP unconditional
60405 80 675 2 0 0 0 675 >REQ TW ENTER SUBROUTINE
60406 124 714 26 0 2 0 714 MTL select literal and division
60407 80 688 2 0 0 0 688 >COPY COMMENT ENTER SUBROUTINE
60408 76 699 6 0 0 0 699 >ABANDON JUMP unconditional
60404>60409 125 4 0 3 0 TEST END OF BLOCK(STEP MR3) step on and test
60410 124 602 6 1 0 0 602 >NO unconditional jump
60411 124 602 4 1 0 0 602 >YES unconditional jump
60219>60412 125 2 0 2 0 TEST ALL CHAPTERS LOADED(STEP MR2) step on and test
60413 124 601 2 1 0 0 601 >NO unconditional jump
60414 126 649 2 0 0 0 649 >UNLOAD enter subroutine
60415 106 710 15 0 0 0 710 RESTORE 5 FIGURE DATE select (N)
60416 102 175 0 1 0 transfer (A) to N
60417 100 709 16 0 2 0 709 SET UP CHAPT 2 SIZE replace (B) by (N)
60418 115 712 8 0 0 0 712 collate and add
60419 101 512 1 1 0 add literal address
60420 102 566 13 0 0 0 566 transfer (A) to N
60500 PROCR 605 605 COPY: OPEN FILE
59603>60502 124 730 16 0 2 0 730 STORE TAPE NOS FOR COMMENT select literal and division
60503 128 710 16 1 2 0 710 edit fixed field formats
60504 106 703 2 0 0 0 703 SWITCH SC1 select (N)
60505 127 606 2 0 0 0 606 >DON'T COPY 0 jump A = Z
60506 106 704 6 0 0 0 704 SET UP RT NO 1 select (N)
62123>60507 80 643 2 0 0 0 643 ENTER SUBROUTINE
60508 102 703 6 0 0 0 703 SET SI1 AT 0 transfer (A) to N
60548>60509 126 652 2 0 0 0 652 >OPEN FILE enter subroutine
60534>
60537>
60540>60510 106 91 7 1 0 0 select (N)
60511 70 605 41 0 0 0 605 >REJECT ZERO SPOOL JUMP IF A == 0
Source image: P1030349.JPG
60512 103 566 7 0 0 0 566 copy (A) to N
60513 105 703 2 0 0 0 703 TEST SPECIFIED TAPE subtract (N) from (A)
60514 70 605 51 0 0 0 605 >YES JUMP IF A == 0
60515 106 91 7 1 0 0 select (N)
60516 105 703 3 0 0 0 703 subtract (N) from (A)
60517 70 605 49 0 0 0 605 >YES JUMP IF A == 0
60518 106 703 2 0 0 0 703 select (N)
60519 104 709 18 0 0 0 709 add (N) to (A)
60520 127 605 24 0 1 0 605 jump A != Z
60521 106 91 7 1 0 0 select (N)
60522 102 703 2 0 0 0 703 transfer (A) to N
60523 76 605 29 0 0 0 605 JUMP unconditional
60520>60524 106 703 3 0 0 0 703 select (N)
60525 104 709 18 0 0 0 709 add (N) to (A)
60526 127 605 41 0 1 0 605 jump A != Z
60527 106 91 7 1 0 0 select (N)
60528 102 703 3 0 0 0 703 transfer (A) to N
60523>60529 106 710 17 1 0 0 710 select (N)
60530 105 709 18 0 0 0 709 subtract (N) from (A)
60531 127 605 35 0 1 0 605 jump A != Z
60532 106 91 6 1 0 0 select (N)
60533 102 710 16 1 0 0 710 transfer (A) to N
60534 76 605 10 0 0 0 605 JUMP unconditional
60531>60535 106 710 19 1 0 0 710 select (N)
60536 105 709 18 0 0 0 709 subtract (N) from (A)
60537 127 605 10 0 1 0 605 jump A != Z
60538 106 91 6 1 0 0 select (N)
60539 102 710 18 1 0 0 710 transfer (A) to N
60540 76 605 10 0 0 0 605 JUMP unconditional
60526>
60511>60541 80 675 2 0 0 0 675 >REQ TW ENTER SUBROUTINE
60542 124 715 32 0 2 0 715 WRONG TAPE select literal and division
60543 126 688 2 0 0 0 688 >COPY COMMENT enter subroutine
60544 124 730 2 0 2 0 730 select literal and division
60545 124 718 2 0 3 0 718 modify address of next
60546 128 6 1 2 0 EDIT REST edit fixed field formats
60547 126 649 2 0 0 0 649 >UNLOAD enter subroutine
60548 124 605 9 1 0 0 605 unconditional jump
60517>60549 106 703 2 0 0 0 703 select (N)
60550 102 703 3 0 0 0 703 transfer (A) to N
60514>60551 80 675 2 0 0 0 675 >REQ TW ENTER SUBROUTINE
60552 155 0 0 0 0 SELECT PROGRAM SERIAL TO A
60553 102 91 1000 1 0 0 transfer (A) to N
60554 124 733 2 0 2 0 733 LOP select literal and division
60555 124 718 2 0 3 0 718 modify address of next
60556 128 2 1 2 0 EDIT COMMENT edit fixed field formats
60557 80 700 2 0 0 0 700 >COUNT 500MS ENTER SUBROUTINE
60558 124 707 2 0 3 0 707 modify address of next
60559 119 0 1 1 0 REWIND rewind
60600 PROCR 606 606 MODS: READ&UNPACK
60505>60602 106 703 13 0 0 0 703 SWITCH SM1 select (N)
60603 127 619 2 0 0 0 619 >DON'T MOD 0 jump A = Z
60604 106 565 4 0 0 0 565 SET UP RTE 1 select (N)
60605 80 643 2 0 0 0 643 ENTER SUBROUTINE
60606 101 1 1 3 0 select literal address
60607 60 0 0 0 0 SET DECIMAL RADIX
60608 107 704 4 0 0 0 704 AUGMENT INTERIM augment (N) by (A)
60609 62 0 0 0 0 SET EXCESS CONSTANTS
60610 126 705 6 1 2 0 705 SET MR2 AT 5/0 set modification register
60814>
61021>
Source image: P1030350.JPG
61812>60611 125 0 1 2 0 interrogate indicators
60612 102 703 18 0 0 0 703 SET SM2 AT 0 transfer (A) to N
60613 126 644 2 0 0 0 644 >TEST ROUTE enter subroutine
60614 125 0 1 0 0 IDS set indicators
61011>
61121>
61218>60615 124 707 2 0 3 0 707 modify address of next
60616 119 0 0 1 0 READ input one block/reset timer
60617 106 722 4 1 0 0 722 select (N)
60618 128 710 2 0 0 0 710 bulk copy short numeric
60619 126 644 2 0 0 0 644 >TEST ROUTE enter subroutine
60620 124 610 20 1 0 0 610 >DB unconditional jump
60621 124 725 4 0 2 0 725 select literal and division
60622 128 91 0 0 3 0 UNPACK unpack variable field data
60623 106 710 8 1 0 0 710 TEST BLOCK TOO BIG select (N)
60624 100 710 10 1 2 0 710 replace (B) by (N)
60625 127 609 2 1 0 0 609 >NO jump AB = Z
60626 101 18 1 3 0 YES: MOD REJ G select literal address
60700 PROCR 607 607 MODS: REJECTION THEREOF(1)
60913>
61005>
61105>
61123>
61205>
61212>
61314>
61407>
61413>
61509>
61518>
61606>
61805>60702 102 714 36 0 0 0 714 transfer (A) to N
60703 126 675 2 0 0 0 675 >REQ TW enter subroutine
60704 124 714 34 0 2 0 714 MOD REJ select literal and division
60705 126 688 2 0 0 0 688 >COPY COMMENT enter subroutine
60706 126 705 8 1 3 0 705 SET MR3 AT 8/0 set modification register
60719>60707 101 1792 0 1 0 prepare for digit collation
60717>60708 115 91 0 1 3 0 collate and add
60709 115 716 2 1 0 0 716 TEST FOR BE collate and add
60710 127 608 4 0 0 0 608 >YES jump A = Z
60711 115 716 6 1 0 0 716 TEST FOR NE collate and add
60712 127 607 15 0 1 0 607 >NO jump A != Z
60713 106 716 8 1 0 0 716 REPLACE BY/ select (N)
60714 114 91 0 1 3 0 replace selected bits
60712>60715 125 0 1 2 0 TEST END OF WORD interrogate indicators
60716 118 4126 1 0 0 shift logical
60717 127 607 8 1 1 0 607 >NO jump AB != Z
60718 125 2 0 3 0 TEST END OF BLOCK step on and test
60719 124 607 7 1 0 0 607 >NO unconditional jump
60800 PROCR 608 608 MODS: REJECTION THEREOF(2)
60802 125 4098 0 3 0 step on and test
60803 124 608 6 1 0 0 608 > unconditional jump
60710>60804 106 716 10 1 0 0 716 REPLACE BY ? select (N)
60805 114 91 0 1 3 0 replace selected bits
60803>60806 106 713 10 1 0 0 713 SET UP LES select (N)
60807 102 91 2 1 3 0 transfer (A) to N
Source image: P1030351.JPG
60808 106 723 30 1 0 0 723 COPY MOD select (N)
60809 124 718 2 0 3 0 718 modify address of next
60810 128 8 1 1 0 bulk copy long numeric
60811 80 650 2 0 0 0 650 >SET ROUTE TO MANUAL ENTER SUBROUTINE
60812 106 703 18 0 0 0 703 SWITCH SM2 select (N)
60813 73 699 6 0 0 0 699 >ABANDON 2,3 JUMP IF A < 0
60814 76 606 11 0 0 0 606 > 0,1 JUMP unconditional
60900 PROCR 609 609 MODS: DETERMINE DIRECTIVE
60625>60902 106 710 7 0 0 0 710 select (N)
60903 127 612 2 0 0 0 612 >0 jump A = Z
60904 101 152 1 1 0 add literal address
60905 127 618 2 0 0 0 618 >-98 jump A = Z
60906 101 304 1 2 0 subtract literal address
60907 127 611 2 0 0 0 611 >98 jump A = Z
60908 101 1 1 2 0 subtract literal address
60909 127 611 2 0 0 0 611 >99 jump A = Z
60910 101 136 1 1 0 add literal address
60911 127 610 2 0 0 0 610 >11 jump A = Z
60912 101 5149 1 3 0 select literal address
60913 124 607 2 1 0 0 607 >MOD REJ D? unconditional jump
61000 PROCR 610 610 MODS: 11 DIRECTIVE
60911>61002 106 703 18 0 0 0 703 SWITCH SM2 select (N)
61003 127 610 6 0 0 0 610 > 0 jump A = Z
61004 101 257 1 3 0 1,2,3 select literal address
61005 124 607 2 1 0 0 607 >MOD REJ 11 unconditional jump
61003>61006 106 710 6 0 0 0 710 select (N)
61007 105 703 13 0 2 0 703 TEST SPECIFIED MOD ID subtract (N) from (A)
61008 127 610 12 0 1 0 610 >NO: WRONG jump A != Z
61009 101 1 1 3 0 select literal address
61010 102 703 18 0 0 0 703 SET SM2 AT 1 transfer (A) to N
61011 124 606 15 1 0 0 606 >NEXT BLOCK unconditional jump
61008>61012 126 675 2 0 0 0 675 >REQ TW enter subroutine
61013 124 715 36 0 2 0 715 WRONG MODS select literal and division
61014 126 688 2 0 0 0 688 >COPY COMMENT enter subroutine
61015 106 703 13 0 2 0 703 select (N)
61016 102 710 7 0 0 0 710 transfer (A) to N
61017 124 731 2 0 2 0 731 select literal and division
61018 124 718 2 0 3 0 718 modify address of next
61019 128 6 1 2 0 EDIT REST edit fixed field formats
60620>61020 80 650 2 0 0 0 650 >SET ROUTE TO MANUAL ENTER SUBROUTINE
61021 76 606 11 0 0 0 606 >NEXT BLOCK JUMP unconditional
61100 PROCR 611 611 MODS: 98&99 DIRECTIVES
60909>
60907>61102 106 703 18 0 0 0 703 SWITCH SM2 select (N)
61103 127 611 6 0 1 0 611 > 1,2,3 jump A != Z
61104 101 5136 1 3 0 0 select literal address
61105 124 607 2 1 0 0 607 >MOD REJ D- unconditional jump
61103>61106 106 710 6 0 0 0 710 TEST ADDRESS NEGATIVE select (N)
61107 127 611 22 0 3 0 611 >YES: MOD REJ AD jump A < Z
61108 100 566 4 0 3 0 566 set radix
61109 105 710 6 0 0 0 710 TEST ADDRESS IN DECIMAL subtract (N) from (A)
61110 100 566 5 0 3 0 566 set radix
61111 127 611 22 0 1 0 611 >NO: MOD REJ AD jump A != Z
61112 124 711 2 0 2 0 711 CONVERT ADDRESS TO BINARY select literal and division
61113 112 710 6 0 0 0 710 convert
61114 103 708 5 0 0 0 708 copy (A) to N
61115 103 708 7 0 0 0 708 copy (A) to N
Source image: P1030352.JPG
61116 105 566 9 0 0 0 566 TEST ADDRESS IN RANGE subtract (N) from (A)
61117 72 611 22 0 0 0 611 >NO:MOD REJ AD JUMP IF A >= 0
61118 106 710 7 0 0 0 710 select (N)
61119 101 154 1 2 0 subtract literal address
61120 102 703 18 0 0 0 703 SET SM2 AT 2 OR 3 transfer (A) to N
61121 76 606 15 0 0 0 606 > JUMP unconditional
61117>
61111>
61107>61122 101 4372 1 3 0 select literal address
61123 124 607 2 1 0 0 607 >NO: MOD REJ AD unconditional jump
61200 PROCR 612 612 MODS: CONSTANT
60903>61202 106 703 18 0 0 0 703 SWITCH SM2 select (N)
61203 127 612 6 0 3 0 612 jump A < Z
61204 101 48 1 3 0 select literal address
61205 124 607 2 1 0 0 607 >MOD REJ 0 0,1 unconditional jump
61203>61206 101 1 1 1 0 add literal address
61207 127 613 2 0 1 0 613 > 2 jump A != Z
61208 106 710 2 1 0 0 710 TEST IF CODED 3 select (N)
61209 100 710 4 1 2 0 710 AS CONSTANT replace (B) by (N)
61210 127 612 13 0 0 0 612 >YES jump A = Z
61211 101 19 1 3 0 select literal address
61212 124 607 2 1 0 0 607 >NO: MOD REJ C unconditional jump
61210>61213 106 723 10 1 0 0 723 select (N)
61214 124 708 7 0 3 0 708 STACK CONSTANT modify address of next
61215 128 0 0 0 0 bulk copy short numeric
61710>
61718>61216 123 1 0 0 0 STEP ADDRESS step on and test
61217 100 708 7 0 0 0 708 Halt
61218 124 606 15 1 0 0 606 >NEXT BLOCK unconditional jump
61300 PROCR 613 613 MODS: INSTRUCTION(1)
61207>61302 106 710 2 0 0 0 710 TEST ACTION NEGATIVE select (N)
61303 127 613 13 0 3 0 613 >YES: MOD REJ A jump A < Z
61304 100 566 4 0 3 0 566 set radix
61305 105 710 2 0 0 0 710 TEST ACTION IN DECIMAL subtract (N) from (A)
61306 100 566 5 0 3 0 566 set radix
61307 127 613 13 0 1 0 613 >NO MOD REJ A jump A != Z
61308 124 711 2 0 2 0 711 CONVERT ACTION TO BINARY select literal and division
61309 112 710 2 0 0 0 710 convert
61310 103 710 2 0 0 0 710 copy (A) to N
61311 101 32 1 2 0 TEST ACTION IN RANGE subtract literal address
61312 127 614 2 0 3 0 614 >YES jump A < Z
61307>
61303>61313 101 17 1 3 0 select literal address
61314 124 607 2 1 0 0 607 >NO MOD REJ A unconditional jump
61400 PROCR 614 614 MODS: INSTRUCTION(2)
61312>61402 106 710 3 0 0 0 710 TEST DISCRIMINANT IN RANGE select (N)
61403 127 614 8 0 0 0 614 >YES jump A = Z
61404 101 1 1 2 0 subtract literal address
61405 127 614 8 0 0 0 614 >YES jump A = Z
61406 101 20 1 3 0 select literal address
61407 124 607 2 1 0 0 607 >NO: MOD REJ D unconditional jump
61405>
61403>61408 106 710 4 0 0 0 710 TEST MIDIFIER IN RANGE select (N)
61409 127 614 12 0 3 0 614 >NO MOD REJ M jump A < Z
61410 101 4 1 2 0 subtract literal address
61411 127 615 2 0 3 0 615 >YES jump A < Z
61409>61412 101 36 1 3 0 select literal address
Source image: P1030511.JPG
61413 124 607 2 1 0 0 607 >NO: MOD REJ M unconditional jump
61500 PROCR 615 615 MODS: INSTRUCTION(3)
61411>61502 106 710 6 0 0 0 710 TEST ITEM NEGATIVE select (N)
61503 127 615 8 0 3 0 615 >YES: MOD REJ I jump A < Z
61504 60 0 0 0 0 SET DECIMAL RADIX
61505 105 710 6 0 0 0 710 TEST ADDRESS IN DECIMAL subtract (N) from (A)
61506 62 0 0 0 0 SET EXCESS CONSTANTS
61507 127 615 10 0 0 0 615 >YES jump A = Z
61503>61508 101 25 1 3 0 select literal address
61509 124 607 2 1 0 0 607 >NO: MOD REG I. unconditional jump
61507>61510 124 711 2 0 2 0 711 CONVERT TO BINARY select literal and division
61511 112 710 6 0 0 0 710 convert
61512 102 710 6 0 0 0 710 transfer (A) to N
61513 106 710 5 0 0 0 710 TEST REFERENCE ZERO select (N)
61514 127 616 2 0 0 0 616 >YES jump A = Z
61515 101 1 1 2 0 TEST REFERENCE ONE subtract literal address
61516 127 615 19 0 0 0 615 >YES jump A = Z
61517 101 41 1 3 0 select literal address
61518 124 607 2 1 0 0 607 >NO: MOD REG R unconditional jump
61516>61519 106 708 5 0 0 0 708 AUGMENT ITEM select (N)
61520 107 710 6 0 0 0 710 augment (N) by (A)
61600 PROCR 616 616 MODS: INSTRUCTION(4)
61514>61602 106 710 6 0 0 0 710 TEST ITEM IN RANGE select (N)
61603 105 566 9 0 0 0 566 subtract (N) from (A)
61604 127 616 7 0 3 0 616 >YES jump A < Z
61605 101 6441 1 3 0 select literal address
61606 124 607 2 1 0 0 607 >NO:REJ IR unconditional jump
61604>61607 106 710 6 0 0 0 710 TEST ITEM IN DIV 1 select (N)
61608 105 736 52 0 0 0 736 subtract (N) from (A)
61609 127 616 11 0 3 0 616 >NO jump A < Z
61610 102 710 6 0 0 0 710 transfer (A) to N
61609>61611 106 710 2 0 0 0 710 FORM INSTRUCTION select (N)
61612 118 1 0 3 0 shift binary
61613 104 710 3 0 0 0 710 add (N) to (A)
61614 118 2 0 3 0 shift binary
61615 104 710 4 0 0 0 710 add (N) to (A)
61616 118 1 0 3 0 shift binary
61617 118 3 0 0 0 shift logical
61618 104 710 6 0 0 0 710 add (N) to (A)
61619 102 710 14 0 0 0 710 transfer (A) to N
61700 PROCR 617 617 MODS: INSTRUCTION(5)
61702 106 710 2 0 0 0 710 select (N)
61703 101 16 1 2 0 TEST MINUS ZERO subtract literal address
61704 127 617 11 0 1 0 617 >NO jump A != Z
61705 106 710 14 0 0 0 710 select (N)
61706 127 617 12 0 1 0 617 >NO jump A != Z
61707 106 723 8 1 0 0 723 STACK MINUS ZERO select (N)
61708 124 708 7 0 3 0 708 modify address of next
61709 128 0 1 0 0 bulk copy alpha to short
61710 76 612 16 0 0 0 612 >NEXT BLOCK JUMP unconditional
61704>61711 73 617 15 0 0 0 617 >POSITIVE INSTRUCTION JUMP IF A < 0
61706>61712 125 0 1 2 0 interrogate indicators
61713 105 710 14 0 0 0 710 NEGATE INSTRUCTION subtract (N) from (A)
61714 102 710 14 0 0 0 710 transfer (A) to N
61711>61715 106 710 14 0 0 0 710 STACK INSTRUCTION select (N)
61716 124 708 7 0 3 0 708 modify address of next
61717 102 0 0 0 0 transfer (A) to N
Source image: P1030512.JPG
61718 124 612 16 1 0 0 612 >NEXT BLOCK unconditional jump
61800 PROCR 618 618 MODS: -98 DIRECTIVE
60905>61802 106 703 18 0 0 0 703 SWITCH SM2 select (N)
61803 127 618 6 0 1 0 618 1,2,3 jump A != Z
61804 101 4112 1 3 0 0 select literal address
61805 124 607 2 1 0 0 607 >MOD REJ-- unconditional jump
61803>61806 125 0 1 2 0 interrogate indicators
61807 102 703 18 0 0 0 703 SET SM2 AT 0 transfer (A) to N
61808 80 650 2 0 0 0 650 >SET ROUTE TO MANUAL ENTER SUBROUTINE
61809 106 703 14 0 2 0 703 TEST ALL MOD SETS READ select (N)
61810 127 618 13 0 0 0 618 >YES jump A = Z
61811 125 1 0 2 0 step on and test
61812 124 606 11 1 0 0 606 >NO unconditional jump
61810>61813 126 675 2 0 0 0 675 >REQ TW enter subroutine
61814 124 714 40 0 2 0 714 MODS select literal and division
61815 126 688 2 0 0 0 688 >COPY COMMENT enter subroutine
61816 124 731 12 0 2 0 731 select literal and division
61817 124 718 2 0 3 0 718 modify address of next
61818 128 4 1 2 0 EDIT REST edit fixed field formats
61819 102 703 13 0 0 0 703 SET SM1 AT 0 transfer (A) to N
61820 126 705 14 1 2 0 705 set modification register
61828>61821 124 718 2 0 3 0 718 MINIMISE modify address of next
61822 106 0 1 2 0 LENGTH OF select (N)
61823 71 619 2 0 0 0 619 COMMENT JUMP IF A != 0
61824 106 715 8 1 0 0 715 select (N)
61825 124 718 2 0 3 0 718 modify address of next
61826 102 0 1 2 0 transfer (A) to N
61827 125 4098 0 2 0 step on and test
61828 76 618 21 0 0 0 618 JUMP unconditional
61900 PROCR 619 619 COPY: PIPS
61823>
60603>61902 106 703 2 0 0 0 703 SWITCH SC1 select (N)
61903 70 621 15 0 0 0 621 >DON'T COPY 0 JUMP IF A == 0
61904 106 704 6 0 0 0 704 SET UP RT NO 1 select (N)
61905 80 643 2 0 0 0 643 ENTER SUBROUTINE
61906 126 705 2 1 3 0 705 SET MR3 AT 3/0 set modification register
66024>61907 106 722 8 1 0 0 722 CLEAR ANNEXE select (N)
61908 128 91 0 0 0 0 bulk copy short numeric
61909 106 564 9 0 0 0 564 SET UP MT CH select (N)
61910 70 619 12 0 0 0 619 JUMP IF A == 0
61911 101 128 1 3 0 select literal address
61910>61912 102 739 5 1 0 0 739 transfer (A) to N
61913 106 723 14 1 0 0 723 COPY PIPS & ISP select (N)
61914 128 91 0 1 1 0 bulk copy long numeric
61915 106 723 16 1 0 0 723 select (N)
61916 128 91 17 0 1 0 bulk copy short numeric
61917 106 723 18 1 0 0 723 select (N)
61918 128 91 35 0 1 0 bulk copy short numeric
61919 106 723 20 1 0 0 723 select (N)
61920 128 91 283 0 1 0 bulk copy short numeric
61921 106 723 22 1 0 0 723 select (N)
61922 128 91 256 1 1 0 bulk copy long numeric
61923 106 723 24 1 0 0 723 select (N)
61924 128 91 321 0 1 0 bulk copy short numeric
61925 106 716 22 1 0 0 716 BE WD select (N)
61926 103 91 1028 1 0 0 copy (A) to N
61927 103 91 420 1 0 0 copy (A) to N
61928 102 91 336 1 0 0 transfer (A) to N
Source image: P1030513.JPG
61929 126 644 2 0 0 0 644 >TEST ROUTE enter subroutine
61930 125 0 1 0 0 IDB set indicators
61931 126 659 2 0 0 0 659 >WRITE enter subroutine
61932 126 659 2 0 0 0 659 >WRITE enter subroutine
62000 PROCR 620 620 COPY: SIPS
62002 106 716 28 1 0 0 716 select (N)
62003 102 566 2 1 0 0 566 transfer (A) to N
62004 124 999 0 0 2 0 COPY SIPS TO ANNEXE select literal and division
62005 104 723 26 1 0 0 723 add (N) to (A)
62006 128 91 5 0 1 0 bulk copy short numeric
62007 106 737 2 1 0 0 737 BLOCK NO select (N)
62008 103 566 2 1 0 0 566 copy (A) to N
62009 102 91 0 1 0 0 transfer (A) to N
62010 102 91 2 1 0 0 transfer (A) to N
62011 126 566 10 1 2 0 566 SET MR2 FOR CHAPT 1 set modification register
62012 80 658 2 0 0 0 658 >DUMP STORE ENTER SUBROUTINE
62013 126 566 12 1 2 0 566 SET MR2 FOR CHAPT 2 set modification register
62014 80 658 2 0 0 0 658 >DUMP STORE ENTER SUBROUTINE
62015 126 566 14 1 2 0 566 SET MR2 FOR IPS set modification register
62016 80 658 2 0 0 0 658 >DUMP STORE ENTER SUBROUTINE
62017 80 659 2 0 0 0 659 >WRITE ENTER SUBROUTINE
62100 PROCR 621 621 COPY: SENTINELS
62102 125 0 1 2 0 interrogate indicators
62103 126 663 2 0 0 0 663 >OPEN OUTPUT FILE enter subroutine
62104 106 703 5 0 0 0 703 SWITCH SC4 select (N)
62105 71 622 2 0 0 0 622 >WHOLE TAPE 1 JUMP IF A != 0
62106 80 667 2 0 0 0 667 >CLOSE OUTPUT FILE 0 ENTER SUBROUTINE
66016>62107 106 703 3 0 0 0 703 SWITCH SC2 select (N)
62108 127 621 18 0 1 0 621 >ANOTHER TAPE 1 jump A != Z
62416>
62418>62109 126 675 2 0 0 0 675 >REQ TW 0 enter subroutine
62110 124 715 18 0 2 0 715 TAPES select literal and division
62111 126 688 2 0 0 0 688 >COPY COMMENT enter subroutine
62112 124 730 6 0 2 0 730 select literal and division
62113 124 718 2 0 3 0 718 modify address of next
62114 128 4 1 2 0 EDIT REST edit fixed field formats
61903>62115 106 565 13 0 0 0 565 TEST MASTER TO BE ENTERED select (N)
62116 70 626 2 0 0 0 626 >YES JUMP IF A == 0
62117 76 641 2 0 0 0 641 >NO JUMP unconditional
62410>
62108>62118 106 703 3 0 0 0 703 select (N)
62119 102 703 2 0 0 0 703 transfer (A) to N
62120 102 703 3 0 0 0 703 SET SC2 AT 0 transfer (A) to N
62121 106 704 7 0 0 0 704 SET UP RT NO select (N)
62122 103 704 6 0 0 0 704 copy (A) to N
62123 124 605 7 1 0 0 605 >NEXT TAPE unconditional jump
62200 PROCR 622 622 COPY:TOTAL TAPE(0)
62105>62202 106 565 11 0 0 0 565 SET UP RT NO select (N)
62203 80 643 2 0 0 0 643 ENTER SUBROUTINE
62204 80 652 2 0 0 0 652 >OPEN IP FILE ENTER SUBROUTINE
62205 106 91 7 1 0 0 SPOOL select (N)
62206 102 91 1003 0 0 0 transfer (A) to N
62207 80 655 2 0 0 0 655 >READ MT ENTER SUBROUTINE
62208 106 91 15 1 0 0 PROGM select (N)
62209 102 710 3 0 0 0 710 transfer (A) to N
62210 80 673 2 0 0 0 673 >LIPHIP ENTER SUBROUTINE
62211 106 704 6 0 0 0 704 SET UP RT NO select (N)
Source image: P1030514.JPG
62212 103 703 18 0 0 0 703 SET SM2' AT 1 copy (A) to N
62213 80 643 2 0 0 0 643 ENTER SUBROUTINE
62214 126 661 2 0 0 0 661 >WRITE MT enter subroutine
62215 106 566 7 0 0 0 566 SPOOL select (N)
62216 102 91 1003 0 0 0 transfer (A) to N
62217 106 91 17 1 0 0 AUGMENT ASL select (N)
62218 124 707 2 0 3 0 707 modify address of next
62219 107 64 0 0 0 TEST HIGH augment (N) by (A)
62220 71 622 23 0 0 0 622 >YES JUMP IF A != 0
62221 106 716 52 1 0 0 716 LOP select (N)
62222 76 622 24 0 0 0 622 JUMP unconditional
62220>62223 106 716 54 1 0 0 716 HOP select (N)
62222>62224 80 674 2 0 0 0 674 >HIPHOPLIPLOP ENTER SUBROUTINE
62300 PROCR 623 623 COPY: TOTAL TAPE(1)
62309>62302 106 565 11 0 0 0 565 SET UP RT NO select (N)
62303 80 643 2 0 0 0 643 ENTER SUBROUTINE
62304 126 655 2 0 0 0 655 >READ MT enter subroutine
62305 106 704 6 0 0 0 704 SET UP RT NO select (N)
62306 80 643 2 0 0 0 643 ENTER SUBROUTINE
62307 126 661 2 0 0 0 661 >WRITE MT enter subroutine
62308 106 703 6 0 0 0 703 SWITCH SI1 select (N)
62309 70 623 2 0 0 0 623 >MORE 0 JUMP IF A == 0
62310 126 669 2 0 0 0 669 >WRITE END BLOCK 1 enter subroutine
62400 PROCR 624 624 COPY: TOTAL TAPE(2)
66017>62402 106 703 3 0 0 0 703 SWITCH SC2 select (N)
62403 127 624 11 0 0 0 624 > 0 jump A = Z
62404 126 700 2 0 0 0 700 >COUNT 500MS 1 enter subroutine
62405 124 565 11 0 3 0 565 modify address of next
62406 119 0 1 1 0 REWIND IP rewind
62407 106 567 6 0 0 0 567 select (N)
62408 124 565 11 0 3 0 565 RESTORE ASL modify address of next
62409 102 64 0 0 0 transfer (A) to N
62410 124 621 18 1 0 0 621 > unconditional jump
62403>62411 106 703 4 0 0 0 703 SWITCH SC3 select (N)
62412 127 624 17 0 0 0 624 > 0 jump A = Z
62413 126 700 2 0 0 0 700 >COUNT 500MS 1 enter subroutine
62414 124 565 11 0 3 0 565 modify address of next
62415 119 0 1 1 0 REWIND IP rewind
62416 76 621 9 0 0 0 621 > JUMP unconditional
62412>62417 80 648 2 0 0 0 648 >UNLOAD IP ENTER SUBROUTINE
62418 76 621 9 0 0 0 621 > JUMP unconditional
62500 PROCR 625 625 DATE FROM INDICATORS
58709>62502 126 648 2 0 0 0 648 >UNLOAD TAPE START enter subroutine
58711>62503 106 702 10 0 0 0 702 select (N)
62504 103 702 9 0 0 0 702 copy (A) to N
62505 103 702 8 0 0 0 702 copy (A) to N
62506 102 702 7 0 0 0 702 transfer (A) to N
62519>62507 80 694 2 0 0 0 694 >ARRANGE TO TYPE SHORTLY ENTER SUBROUTINE
62511>
62514>62508 125 2047 1 2 0 TEST DATE STACCKED interrogate indicators
62509 71 625 15 0 0 0 625 >YES JUMP IF A != 0
62510 80 695 2 0 0 0 695 >TEST TIME TO TYPE ENTER SUBROUTINE
62511 76 625 8 0 0 0 625 >NO JUMP unconditional
62512 124 713 18 0 2 0 713 DATE PLEASE select literal and division
62513 80 688 2 0 0 0 688 >COPY COMMENT ENTER SUBROUTINE
62514 76 625 8 0 0 0 625 > JUMP unconditional
62509>62515 118 2 0 0 0 shift logical
Source image: P1030515.JPG
62516 104 708 4 0 0 0 708 add (N) to (A)
62517 125 2047 1 1 0 CLEAR I1-11 clear indicators
62518 80 689 2 0 0 0 689 >TEST DATE REASONABLE ENTER SUBROUTINE
62519 76 625 7 0 0 0 625 >NO JUMP unconditional
62520 125 127 1 0 0 SET I1-7 set indicators
62600 PROCR 626 626 ISU:COMMENT
62116>62602 106 722 16 1 0 0 722 COPY ALLOCATOR select (N)
62603 104 164 0 1 0 PARAMETER TABLE add (N) to (A)
62604 128 91 2 0 0 0 TO ANNEXE bulk copy short numeric
62605 101 16 0 1 0 prepare for digit collation
62606 115 704 3 0 0 0 704 collate and add
62607 118 4125 0 0 0 shift logical
62608 71 626 10 0 0 0 626 JUMP IF A != 0
62609 101 768 1 3 0 select literal address
62608>62610 118 1 0 0 0 shift logical
62611 102 714 4 0 0 0 714 transfer (A) to N
62612 106 714 2 1 0 0 714 ISSUE X MASTER select (N)
62613 124 91 20 0 3 0 modify address of next
62614 102 8190 1 1 0 transfer (A) to N
62615 124 714 4 0 2 0 714 select literal and division
62616 104 722 18 1 0 0 722 (16) add (N) to (A)
62617 124 91 20 0 3 0 modify address of next
62618 128 0 1 1 0 COPY COMMENT bulk copy long numeric
62619 124 726 24 0 2 0 726 select literal and division
62620 124 91 20 0 3 0 modify address of next
62621 128 14 1 2 0 EDIT REST edit fixed field formats
62700 PROCR 627 627 ISU:PREPARE REST OF STORE
62702 106 565 5 0 0 0 565 select (N)
62703 105 736 52 0 0 0 736 subtract (N) from (A)
62704 102 705 13 0 0 0 705 transfer (A) to N
62705 124 627 10 0 2 0 627 select literal and division
62706 76 680 18 0 0 0 680 >LOG JUMP unconditional
62707 126 705 12 1 2 0 705 set modification register
62708 124 639 2 0 2 0 639 select literal and division
62709 102 31 0 1 0 transfer (A) to N
62710 101 14 1 3 0 STACK TAG 14 select literal address
62713>62711 123 0 1 2 0 IN DIV 1 COMPT 8190 copy into tag
62712 125 2 0 2 0 ONWARDS step on and test
62713 76 627 11 0 0 0 627 JUMP unconditional
62714 106 565 10 0 0 0 565 SECOND STORE REQUIRED select (N)
62715 70 627 20 0 0 0 627 >NO JUMP IF A == 0
62716 106 91 33 0 0 0 IS IT IN MASTER select (N)
62717 71 627 20 0 0 0 627 >YES JUMP IF A != 0
62718 102 565 10 0 0 0 565 transfer (A) to N
62719 124 639 14 1 0 0 639 >WRONG STORE COMMENT unconditional jump
63913>
62717>
62715>62720 124 699 6 0 2 0 699 select literal and division
62721 102 31 0 1 0 transfer (A) to N
62722 124 627 27 0 2 0 627 select literal and division
62723 76 680 18 0 0 0 680 >LOG JUMP unconditional
62724 126 705 12 1 2 0 705 set modification register
62725 125 0 1 2 0 CLEAR DIV 1 COMPT 8190 interrogate indicators
62728>62726 102 0 1 2 0 ONWARDS transfer (A) to N
62727 125 2 0 2 0 step on and test
62728 76 627 26 0 0 0 627 JUMP unconditional
62800 PROCR 628 628 ISU:PREPARE SECOND STORE
Source image: P1030516.JPG
62802 106 565 10 0 0 0 565 TEST SEC0ND STORE select (N)
62803 70 629 2 0 0 0 629 >NO JUMP IF A == 0
62804 104 705 18 0 0 0 705 add (N) to (A)
62805 102 705 19 0 0 0 705 transfer (A) to N
62806 126 705 18 1 2 0 705 set modification register
62807 124 639 14 0 2 0 639 select literal and division
62808 102 31 0 1 0 transfer (A) to N
62809 101 14 1 3 0 select literal address
62812>62810 123 0 1 2 0 STACK TAG 14 copy into tag
62811 125 2 0 2 0 IN SECOND STORE step on and test
62812 76 628 10 0 0 0 628 JUMP unconditional
62813 124 699 6 0 2 0 699 select literal and division
62814 102 31 0 1 0 transfer (A) to N
62815 126 705 18 1 2 0 705 set modification register
62816 125 0 1 2 0 interrogate indicators
62819>62817 102 0 1 2 0 CLEAR SECOND STORE transfer (A) to N
62818 125 2 0 2 0 step on and test
62819 76 628 17 0 0 0 628 JUMP unconditional
62900 PROCR 629 629 ISU:SET UP FLOATING POINT
62803>62902 124 629 7 0 2 0 629 select literal and division
62903 76 680 18 0 0 0 680 >LOG JUMP unconditional
62904 106 722 4 1 0 0 722 select (N)
62905 124 566 5 0 3 0 566 modify address of next
62906 128 128 0 0 0 bulk copy short numeric
62907 106 716 25 0 0 0 716 select (N)
62908 102 135 0 1 0 transfer (A) to N
62909 106 709 15 0 0 0 709 select (N)
62910 102 137 0 1 0 transfer (A) to N
62911 106 565 12 0 0 0 565 TEST 326 select (N)
62912 71 630 2 0 0 0 630 >NO JUMP IF A != 0
62913 106 716 26 1 0 0 716 select (N)
62914 102 134 1 1 0 transfer (A) to N
63000 PROCR 630 630 ISU:CHANNEL 0-7 ASLS
62912>63002 106 722 14 1 0 0 722 select (N)
63003 104 162 0 1 0 COPY ASLS FROM CH 0-7 add (N) to (A)
63004 124 566 5 0 3 0 566 modify address of next
63005 128 64 0 0 0 bulk copy short numeric
63006 106 702 2 0 0 0 702 RESET TW ASL select (N)
63007 124 565 2 0 3 0 565 modify address of next
63008 102 64 0 0 0 transfer (A) to N
63100 PROCR 631 631 ISU:CHANNEL 16&17 ASLS
63102 106 565 11 0 0 0 565 select (N)
63103 101 128 1 2 0 TEST FAST CHANNEL subtract literal address
63104 72 631 7 0 0 0 631 >YES JUMP IF A >= 0
63105 125 0 1 2 0 interrogate indicators
63106 76 631 12 0 0 0 631 >NO JUMP unconditional
63104>63107 106 722 12 1 0 0 722 select (N)
63108 104 162 0 1 0 COPY ASLS FOR CH 16-17 add (N) to (A)
63109 124 566 5 0 3 0 566 modify address of next
63110 128 192 0 0 0 bulk copy short numeric
63111 101 64 1 2 0 subtract literal address
63106>63112 102 91 34 0 0 0 APT:FAST CHS transfer (A) to N
63113 106 709 19 0 0 0 709 SWITCH SX1 select (N)
63114 71 632 2 0 0 0 632 1 JUMP IF A != 0
63115 106 565 6 0 0 0 565 STORE CLOCK IND 0 select (N)
63116 102 91 27 0 0 0 IN APT transfer (A) to N
Source image: P1030517.JPG
63200 PROCR 632 632 ISU:PRINTER DETAILS
63114>63202 101 0 1 3 0 select literal address
63203 102 4 1 1 0 CLEAR MR2 transfer (A) to N
63204 101 1 0 1 0 prepare for digit collation
63213>63205 124 566 5 0 3 0 566 modify address of next
63206 115 64 0 2 0 collate and add
63207 101 4 1 2 0 TEST ROUTE TYPE 4 subtract literal address
63208 70 632 14 0 0 0 632 >YES JUMP IF A == 0
63209 101 5 1 2 0 TEST ROUTE TYPE 9 subtract literal address
63210 70 632 14 0 0 0 632 >YES JUMP IF A == 0
63211 125 1 0 2 0 STEP MR2 step on and test
63212 125 0 1 2 0 interrogate indicators
63213 76 632 5 0 0 0 632 > JUMP unconditional
63210>
63208>63214 124 566 5 0 3 0 566 modify address of next
63215 115 64 0 2 0 collate and add
63216 118 4 0 0 0 shift logical
63217 104 4 0 1 0 add (N) to (A)
63218 101 19 0 1 0 prepare for digit collation
63219 114 153 0 1 0 SET UP PR RT&TYPE IN(153) replace selected bits
63300 PROCR 633 633 ISU:ALLOCATION CHANNEL
63302 106 565 11 0 0 0 565 select (N)
63303 102 91 26 0 0 0 APT:ALLOC CHAPT transfer (A) to N
63304 101 255 1 3 0 SET PTS/STORE DUMP ASL AT'££' select literal address
63305 124 565 11 0 3 0 565 modify address of next
63306 102 71 0 0 0 transfer (A) to N
63400 PROCR 634 634 ISU:CD RTS
63402 100 709 17 0 2 0 709 replace (B) by (N)
63403 115 565 3 0 0 0 565 collate and add
63404 103 710 13 0 0 0 710 copy (A) to N
63405 103 188 0 1 0 8*CH copy (A) to N
63406 101 4 1 1 0 add literal address
63407 102 189 0 1 0 (8*CH)+4 transfer (A) to N
63408 106 565 3 0 0 0 565 STORE MIN CD RT select (N)
63409 102 186 0 1 0 transfer (A) to N
63410 101 1 0 1 0 prepare for digit collation
63411 124 710 13 0 3 0 710 modify address of next
63412 115 70 0 0 0 collate and add
63413 101 6 1 2 0 subtract literal address
63414 70 634 17 0 0 0 634 JUMP IF A == 0
63415 101 3 1 3 0 select literal address
63416 76 634 18 0 0 0 634 JUMP unconditional
63414>63417 101 6 1 3 0 select literal address
63416>63418 104 710 13 0 0 0 710 add (N) to (A)
63419 102 187 0 1 0 MAX RT transfer (A) to N
63500 PROCR 635 635 ISU: STORE
63502 106 91 32 0 0 0 select (N)
63503 103 6 0 1 0 FORM FIRST copy (A) to N
63504 101 20 1 1 0 STORE TABLE add literal address
63505 80 640 2 0 0 0 640 > ENTER SUBROUTINE
63506 106 565 10 0 0 0 565 TEST SECOND STORE select (N)
63507 71 636 2 0 0 0 636 >YES JUMP IF A != 0
63508 102 91 33 0 0 0 APT:SECOND STORE transfer (A) to N
63509 76 637 2 0 0 0 637 >NO JUMP unconditional
63600 PROCR 636 636 ISU:SECOND STORE
63507>63602 124 91 33 0 3 0 modify address of next
Source image: P1030518.JPG
63603 106 0 0 0 0 select (N)
63604 104 565 10 0 0 0 565 add (N) to (A)
63605 102 565 5 0 0 0 565 transfer (A) to N
63606 106 91 33 0 0 0 select (N)
63607 103 6 0 1 0 FORM SECOND copy (A) to N
63608 101 12 1 1 0 STORE TABLE add literal address
63609 80 640 2 0 0 0 640 > ENTER SUBROUTINE
63700 PROCR 637 637 ISU:FINISH TYPING
63509>63702 124 91 2 0 2 0 COPY ALLOCATOR select literal and division
63703 104 722 16 1 0 0 722 PARAMETER TABLE add (N) to (A)
63704 124 91 5 0 3 0 BACK TO WHERE modify address of next
63705 128 0 0 0 0 IT BELONGS bulk copy short numeric
63706 101 1 1 3 0 SET SL4=1 select literal address
63707 102 703 12 0 0 0 703 transfer (A) to N
63708 80 680 2 0 0 0 680 >LOG ENTER SUBROUTINE
63800 PROCR 638 638 ISU:ENTER MASTER
68109>63802 106 160 0 1 0 select (N)
63803 102 639 2 0 0 0 639 transfer (A) to N
63804 102 0 0 1 0 transfer (A) to N
63805 102 160 0 1 0 transfer (A) to N
63806 102 162 0 1 0 transfer (A) to N
63807 102 164 0 1 0 CLEAR WLS transfer (A) to N
63808 106 722 6 1 0 0 722 select (N)
63809 124 999 0 0 3 0 modify address of next
63810 128 4 0 0 0 CLEAR 4-63 bulk copy short numeric
63811 106 702 4 0 0 0 702 SET UP(9) select (N)
63812 102 9 0 1 0 transfer (A) to N
63813 106 704 3 0 0 0 704 STORE MASTER select (N)
63814 102 181 0 1 0 SERIAL NUMBER transfer (A) to N
63815 106 704 4 0 0 0 704 AND select (N)
63816 102 182 0 1 0 MOD NUMBER transfer (A) to N
63817 106 565 2 0 0 0 565 select (N)
63818 103 190 0 1 0 TW RT copy (A) to N
63819 125 4095 1 2 0 interrogate indicators
63820 101 127 1 2 0 subtract literal address
63821 125 4095 1 1 0 CLEAR I1-11 clear indicators
63900 PROCR 639 639 ISU: ADJUST STORE SIZE
63902 80 568 2 0 0 0 568 >SET KEY 14 ENTER SUBROUTINE
63903 101 8 0 1 0 prepare for digit collation
63904 106 4 0 1 0 select (N)
63905 114 705 13 0 0 0 705 replace selected bits
63906 104 736 52 0 0 0 736 add (N) to (A)
63907 114 153 0 1 0 replace selected bits
63908 114 565 5 0 0 0 565 replace selected bits
63917>63909 80 675 2 0 0 0 675 >REQ TW ENTER SUBROUTINE
63910 124 715 40 0 2 0 715 WRONG STORE select literal and division
63911 80 688 2 0 0 0 688 >COPY COMMENT ENTER SUBROUTINE
63912 102 565 10 0 0 0 565 transfer (A) to N
63913 76 627 20 0 0 0 627 JUMP unconditional
62719>63914 80 568 2 0 0 0 568 >SET KEY 15 ENTER SUBROUTINE
63915 101 4 0 1 0 CANCEL SECOND STORE prepare for digit collation
63916 114 153 0 1 0 replace selected bits
63917 76 639 9 0 0 0 639 JUMP unconditional
64000 PROCR 640 640 ISU:FORM STORE TABLE SR
64002 81 640 2 0 0 0 640 START OF SUBROUTINE
64003 102 7 0 1 0 transfer (A) to N
Source image: P1030519.JPG
64009>64004 124 999 0 0 3 0 modify address of next
64005 106 0 0 3 0 select (N)
64006 105 565 5 0 0 0 565 subtract (N) from (A)
64007 70 640 11 0 0 0 640 JUMP IF A == 0
64008 125 2 0 3 0 step on and test
64009 76 640 4 0 0 0 640 JUMP unconditional
64010 76 640 16 0 0 0 640 JUMP unconditional
64007>64011 106 708 2 1 0 0 708 select (N)
64015>64012 124 999 0 0 3 0 modify address of next
64013 103 0 1 3 0 copy (A) to N
64014 125 2 0 3 0 step on and test
64015 76 640 12 0 0 0 640 JUMP unconditional
64010>64016 82 640 2 0 0 0 640 END OF SUBROUTINE / LEAVE SUBROUTINE
64100 PROCR 641 641 DON'T ENTER MASTER
62117>64102 80 675 2 0 0 0 675 >REG TW ENTER SUBROUTINE
64103 124 726 24 0 2 0 726 END select literal and division
64104 124 718 2 0 3 0 718 modify address of next
64105 128 4 1 2 0 edit fixed field formats
64106 106 716 56 1 0 0 716 select (N)
64107 124 718 2 0 3 0 718 modify address of next
64108 102 2 1 0 0 transfer (A) to N
64109 125 0 1 2 0 CLEAR SOME SWITCHES interrogate indicators
64110 102 703 4 1 0 0 703 transfer (A) to N
64111 102 703 6 0 0 0 703 transfer (A) to N
64112 102 703 18 0 0 0 703 transfer (A) to N
64113 102 703 21 0 0 0 703 transfer (A) to N
64114 76 585 2 0 0 0 585 >ALARM 77 JUMP unconditional
64200 PROCR 642 642 REMOVE NES&BES SR
64202 81 642 2 0 0 0 642 START OF SUBROUTINE
64203 125 0 1 2 0 interrogate indicators
64204 101 1792 0 1 0 prepare for digit collation
64216>64205 115 91 0 1 0 0 collate and add
64206 115 716 2 1 0 0 716 TST FOR BE collate and add
64207 71 642 10 0 0 0 642 >NO JUMP IF A != 0
64208 106 716 10 1 0 0 716 REPLACE BABY? select (N)
64209 76 642 13 0 0 0 642 JUMP unconditional
64207>64210 115 716 6 1 0 0 716 TEST FOR NE collate and add
64211 71 642 14 0 0 0 642 >NO JUMP IF A != 0
64212 106 716 8 1 0 0 716 REPLACE BY, select (N)
64209>64213 114 91 0 1 0 0 replace selected bits
64211>64214 125 0 1 2 0 TEST END OF WORD interrogate indicators
64215 118 4126 1 0 0 shift logical
64216 75 642 5 0 0 0 642 >NO JUMP IF AB != 0
64217 80 675 2 0 0 0 675 >REG TW ENTER SUBROUTINE
64218 82 642 2 0 0 0 642 END OF SUBROUTINE / LEAVE SUBROUTINE
64300 PROCR 643 643 CONVER ROUTE NO BIN>OCT SR
64302 100 0 0 0 0 Halt
64303 103 707 2 0 0 0 707 STORE RT NO copy (A) to N
64304 118 4127 1 0 0 shift logical
64305 118 1 1 3 0 shift binary
64306 118 1 0 3 0 shift binary
64307 118 3 1 3 0 shift binary
64308 103 707 3 0 0 0 707 copy (A) to N
64309 101 256 1 2 0 HIGH DENSITY? subtract literal address
64310 127 643 13 0 3 0 643 >NO jump A < Z
64311 101 352 1 1 0 add literal address
64312 102 707 3 0 0 0 707 transfer (A) to N
Source image: P1030520.JPG
64310>64313 126 643 2 0 1 0 643 leave subroutine
64400 PROCR 644 644 TEST ROUTE SR
64402 100 0 0 0 0 Halt
64403 106 707 2 0 0 0 707 select (N)
64404 101 3 0 1 0 prepare for digit collation
64405 114 644 7 0 0 0 644 replace selected bits
64406 126 693 2 0 0 0 693 >ARRANGE TO TYPE enter subroutine
64503>64407 126 0 1 0 0 TEST ROUTE test route N1
64408 124 645 2 1 0 0 645 > C unconditional jump
64507>64409 126 681 2 0 0 0 681 >LOG E enter subroutine
64410 124 646 2 1 0 0 646 > D unconditional jump
64411 124 647 2 1 0 0 647 > W unconditional jump
64706>64412 124 644 2 0 3 0 644 A modify address of next
64413 124 1 1 0 0 > unconditional jump
64500 PROCR 645 645 ROUTE CLOSED
64408>64502 126 695 2 0 0 0 695 >TEST TIME TO TYPE enter subroutine
64503 124 644 7 1 0 0 644 >NO unconditional jump
64504 124 727 2 0 2 0 727 RC select literal and division
64505 124 718 2 0 3 0 718 modify address of next
64506 128 2 1 2 0 edit fixed field formats
64507 124 644 9 1 0 0 644 > unconditional jump
64600 PROCR 646 646 DOUBTFUL BLOCK
64410>64602 106 91 0 1 0 0 TEST PURE FBMW select (N)
64603 104 716 4 1 0 0 716 add (N) to (A)
64604 70 646 9 0 0 0 646 >YES JUMP IF A == 0
64605 80 642 2 0 0 0 642 >REMOVE NES&BES ENTER SUBROUTINE
64606 124 727 8 0 2 0 727 DB select literal and division
64607 124 718 2 0 3 0 718 modify address of next
64608 128 2 1 2 0 edit fixed field formats
64604>64609 126 644 2 0 1 0 644 > leave subroutine
64700 PROCR 647 647 WARNING OF END
64411>64702 80 675 2 0 0 0 675 >REQ TW ENTER SUBROUTINE
64703 124 727 18 0 2 0 727 WE select literal and division
64704 124 718 2 0 3 0 718 modify address of next
64705 128 2 1 2 0 edit fixed field formats
64706 124 644 12 1 0 0 644 > unconditional jump
64800 PROCR 648 648 UNLOAD TAPE START TAPE SR
64802 100 0 0 0 0 Halt
64806>64803 124 565 11 0 3 0 565 TEST ROUTE modify address of next
64804 126 0 1 0 0 test route N1
64805 124 648 12 1 0 0 648 C >DON'T UNLOAD unconditional jump
64806 124 648 3 1 0 0 648 E unconditional jump
64807 124 648 9 1 0 0 648 D unconditional jump
64808 124 648 9 1 0 0 648 W unconditional jump
64808>
64807>64809 126 700 2 0 0 0 700 A COUNT 500 MS enter subroutine
64810 124 565 11 0 3 0 565 UNLOAD modify address of next
64811 119 0 1 2 0 unload
64805>64812 126 648 2 0 1 0 648 leave subroutine
64900 PROCR 649 649 UNLOAD SR
64902 100 0 0 0 0 Halt
64903 126 700 2 0 0 0 700 >COUNT 500 MS enter subroutine
64904 124 707 2 0 3 0 707 modify address of next
64905 119 0 1 2 0 UNLOAD unload
Source image: P1030521.JPG
64906 126 649 2 0 1 0 649 leave subroutine
65000 PROCR 650 650 SET ROUTE TO MANUAL SR
65002 81 650 2 0 0 0 650 START OF SUBROUTINE
65003 124 707 2 0 3 0 707 modify address of next
65004 119 0 1 3 0 SET ROUTE TO MANUAL step on/set manual
65005 82 650 2 0 0 0 650 END OF SUBROUTINE / LEAVE SUBROUTINE
65100 PROCR 651 651 READ CD SR
65102 100 0 0 0 0 Halt
65103 124 565 3 0 3 0 565 modify address of next
65104 119 0 0 1 0 READ input one block/reset timer
65105 126 644 2 0 0 0 644 >TEST ROUTE enter subroutine
65106 124 589 21 1 0 0 589 >DB unconditional jump
65107 126 651 2 0 1 0 651 leave subroutine
65200 PROCR 652 652 OPEN FILE SR
65202 100 0 0 0 0 Halt
65203 126 644 2 0 0 0 644 >TEST ROUTE enter subroutine
65204 125 0 1 0 0 IDB set indicators
65205 126 653 2 0 0 0 653 >RUNONSTEPON enter subroutine
65206 101 5 1 3 0 select literal address
65207 102 566 2 0 0 0 566 SET BLOCK COUNTER=5 transfer (A) to N
65208 126 655 2 0 0 0 655 >READ MT enter subroutine
65209 126 652 2 0 1 0 652 leave subroutine
65300 PROCR 653 653 RUNONSTEPON SR
65302 100 0 0 0 0 Halt
65303 124 707 2 0 3 0 707 modify address of next
65304 119 0 0 3 0 RUN ON run forward
65305 126 644 2 0 0 0 644 >TEST ROUTE enter subroutine
65306 125 0 1 0 0 IDB set indicators
65307 126 672 2 0 0 0 672 >STEP ON enter subroutine
65308 126 653 2 0 1 0 653 leave subroutine
65400 PROCR 654 654 READ MT SANS AF SR
65402 81 654 2 0 0 0 654 START OF SUBROUTINE
65403 125 0 1 2 0 interrogate indicators
65404 102 706 10 0 0 0 706 SET MR AT 10/0 transfer (A) to N
65412>
65632>65405 124 707 2 0 3 0 707 modify address of next
65406 119 0 0 1 0 READ input one block/reset timer
65407 80 644 2 0 0 0 644 >TEST ROUTE ENTER SUBROUTINE
65408 76 654 11 0 0 0 654 >D/B JUMP unconditional
65409 124 566 5 1 1 0 566 MG0 set modification group
65410 82 654 2 0 0 0 654 > END OF SUBROUTINE / LEAVE SUBROUTINE
65408>65411 80 657 2 0 0 0 657 >TEST FOR FBM ENTER SUBROUTINE
65412 76 654 5 0 0 0 654 >YES JUMP unconditional
65413 123 1 0 0 0 step on and test
65414 100 706 10 0 0 0 706 Halt
65415 76 656 31 0 0 0 656 > JUMP unconditional
65416 76 699 6 0 0 0 699 >ABANDON JUMP unconditional
65500 PROCR 655 655 READ MT AVEC AF SR
65502 81 655 2 0 0 0 655 START OF SUBROUTINE
65503 125 0 1 2 0 interrogate indicators
65504 102 703 19 0 0 0 703 SET SR1 AT 0 transfer (A) to N
65505 102 706 12 0 0 0 706 SET MR AT 100/0 transfer (A) to N
65506 60 0 0 0 0 SET DECIMAL RADIX
65507 101 1 1 3 0 STEP BLOCK COUNTER select literal address
Source image: P1030522.JPG
65508 107 566 2 0 0 0 566 augment (N) by (A)
65509 62 0 0 0 0 SET EXCESS CONSTANTS
65520>
65603>
65624>65510 80 654 2 0 0 0 654 >READ ENTER SUBROUTINE
65511 60 0 0 0 0 DECIMAL SET DECIMAL RADIX
65512 106 91 1 1 0 0 TEST CORRECT BLOCK select (N)
65612>65513 105 566 2 0 0 0 566 subtract (N) from (A)
65514 62 0 0 0 0 BINARY SET EXCESS CONSTANTS
65515 71 655 17 0 0 0 655 >NO JUMP IF A != 0
65516 82 655 2 0 0 0 655 > END OF SUBROUTINE / LEAVE SUBROUTINE
65515>65517 60 0 0 0 0 DECIMAL SET DECIMAL RADIX
65518 101 1 1 1 0 TEST REWRITTEN BLOCKadd literal address
65519 62 0 0 0 0 BINARY SET EXCESS CONSTANTS
65520 70 655 10 0 0 0 655 JUMP IF A == 0
65600 PROCR 656 656 READ MT SR(AF)
65602 126 657 2 0 0 0 657 >TEST FOR FBW enter subroutine
65603 124 655 10 1 0 0 655 >YES unconditional jump
65604 106 91 1 1 0 0 select (N)
65605 105 717 13 1 0 0 717 TEST SENTINEL 2 OR 3 subtract (N) from (A)
65606 118 4126 0 0 0 shift logical
65607 71 656 13 0 0 0 656 >NO JUMP IF A != 0
65608 106 703 6 0 0 0 703 SWITCH SI1 select (N)
65609 71 597 11 0 0 0 597 >TAPE REJ 1 JUMP IF A != 0
65610 106 91 5 1 0 0 select (N)
65611 103 703 6 0 0 0 703 SET SI1 AT 1 copy (A) to N
65612 76 655 13 0 0 0 655 > JUMP unconditional
65607>65613 80 699 2 0 0 0 699 ENTER SUBROUTINE
65614 106 703 19 0 0 0 703 SWITCH SRI select (N)
65615 127 656 22 0 1 0 656 1 jump A != Z
65616 101 1 1 3 0 0 select literal address
65617 102 703 19 0 0 0 703 SET SRI AT 1 transfer (A) to N
65618 80 642 2 0 0 0 642 >REMOVE NES & BES ENTER SUBROUTINE
65619 124 729 10 0 2 0 729 SER select literal and division
65620 124 718 2 0 3 0 718 modify address of next
65621 128 2 1 2 0 edit fixed field formats
65615>65622 106 91 1 1 0 0 TEST EXP>ACT select (N)
65623 105 566 2 0 0 0 566 subtract (N) from (A)
65624 73 655 10 0 0 0 655 >YES JUMP IF A < 0
65625 80 700 2 0 0 0 700 >COUNT SOOMS ENTER SUBROUTINE
65626 80 671 2 0 0 0 671 >STEP BACK ENTER SUBROUTINE
65627 80 699 2 0 0 0 699 ENTER SUBROUTINE
65628 80 671 2 0 0 0 671 >STEP BACK ENTER SUBROUTINE
65629 80 699 2 0 0 0 699 ENTER SUBROUTINE
65630 80 671 2 0 0 0 671 >STEP BACK ENTER SUBROUTINE
65415>65631 80 670 2 0 0 0 670 >STEP BACK 3 ON 2 ENTER SUBROUTINE
65632 76 654 5 0 0 0 654 > JUMP unconditional
65700 PROCR 657 657 TEST FOR FBM SR
65702 100 0 0 0 0 Halt
65703 101 1792 0 1 0 prepare for digit collation
65710>65704 125 0 1 2 0 interrogate indicators
65705 115 91 0 1 0 0 TEST SQUARE collate and add
65706 115 716 4 1 0 0 716 collate and add
65707 127 657 13 0 0 0 657 >YES jump A = Z
65708 125 0 1 2 0 interrogate indicators
65709 118 4126 1 0 0 shift logical
65710 75 657 4 0 0 0 657 >NEXT CHA JUMP IF AB != 0
65711 124 657 2 0 3 0 657 modify address of next
Source image: P1030523.JPG
65712 124 1 1 0 0 >NO unconditional jump
65707>65713 126 657 2 0 1 0 657 >YES leave subroutine
65800 PROCR 658 658 DUMP STORE SR
65802 81 658 2 0 0 0 658 START OF SUBROUTINE
65810>65803 80 659 2 0 0 0 659 >WRITE ENTER SUBROUTINE
65804 106 566 2 1 0 0 566 BLOCK NO select (N)
65805 102 91 0 1 0 0 transfer (A) to N
65806 106 4 0 1 0 COPY STORE TO ANNEXE select (N)
65807 104 723 26 1 0 0 723 add (N) to (A)
65808 128 91 5 0 1 0 bulk copy short numeric
65809 125 512 0 2 0 TEST END step on and test
65810 76 658 3 0 0 0 658 >NO JUMP unconditional
65811 82 658 2 0 0 0 658 >YES END OF SUBROUTINE / LEAVE SUBROUTINE
65900 PROCR 659 659 WRITE STORE DUMP SR
65902 100 0 0 0 0 Halt
65903 124 707 2 0 3 0 707 WRITE modify address of next
65904 119 0 0 0 0 output
65905 80 569 2 0 0 0 569 >STEP BLOCK COUNTER ENTER SUBROUTINE
65906 126 644 2 0 0 0 644 >TEST ROUTE enter subroutine
65907 124 660 2 1 0 0 660 >DB unconditional jump
65908 126 659 2 0 1 0 659 leave subroutine
66000 PROCR 660 660 WRITE STORE DUMP SR(DB)
65907>66002 125 1 0 3 0 TEST THIRD ATTEMPT step on and test
66003 124 660 18 1 0 0 660 >NO unconditional jump
66004 106 710 17 1 0 0 710 select (N)
66005 105 566 7 0 0 0 566 REPLACE SPOOL NO subtract (N) from (A)
66006 127 660 10 0 1 0 660 BY ????? jump A != Z
66007 106 716 10 1 0 0 716 select (N)
66008 102 710 16 1 0 0 710 transfer (A) to N
66009 124 660 12 1 0 0 660 unconditional jump
66006>66010 106 716 10 1 0 0 716 select (N)
66011 102 710 18 1 0 0 710 transfer (A) to N
66009>66012 101 2 1 3 0 select literal address
66013 80 663 2 0 0 0 663 >OPEN FILE ENTER SUBROUTINE
66014 80 667 2 0 0 0 667 >CLOSE OP FILE ENTER SUBROUTINE
66015 106 703 5 0 0 0 703 SWITCH SC4 select (N)
66016 127 621 7 0 0 0 621 > 0 jump A = Z
66017 124 624 2 1 0 0 624 > 1 unconditional jump
66003>66018 126 700 2 0 0 0 700 >COUNT 500MS enter subroutine
66019 124 707 2 0 3 0 707 modify address of next
66020 119 0 1 1 0 REWIND rewind
66021 80 644 2 0 0 0 644 >TEST ROUTE ENTER SUBROUTINE
66022 125 0 1 0 0 IDB set indicators
66023 80 700 2 0 0 0 700 >COUNT 500MS ENTER SUBROUTINE
66024 76 619 7 0 0 0 619 > JUMP unconditional
66100 PROCR 661 661 WRITE MT SR
66102 100 0 0 0 0 Halt
66103 125 0 1 2 0 interrogate indicators
66104 102 706 10 0 0 0 706 SET MR AT 10/0 transfer (A) to N
66105 102 706 12 0 0 0 706 SET MR AT 100/0 transfer (A) to N
66219>66106 124 707 2 0 3 0 707 modify address of next
66107 119 0 0 0 0 WRITE output
66108 106 91 1 1 0 0 STORE BLOCK NO select (N)
66109 102 566 3 0 0 0 566 transfer (A) to N
66110 80 644 2 0 0 0 644 >TEST ROUTE ENTER SUBROUTINE
66111 76 662 2 0 0 0 662 >DB JUMP unconditional
Source image: P1030524.JPG
66112 82 661 2 0 0 0 661 > END OF SUBROUTINE / LEAVE SUBROUTINE
66200 PROCR 662 662 WRITE MT SR(DB)
66111>66202 123 1 0 0 0 step on and test
66203 100 706 10 0 0 0 706 Halt
66204 76 662 6 0 0 0 662 > JUMP unconditional
66205 76 699 6 0 0 0 699 >ABANDON JUMP unconditional
66228>
66204>66206 126 670 2 0 0 0 670 >STEP BACK 3 ON 2 enter subroutine
66230>66207 106 566 3 0 0 0 566 select (N)
66208 105 91 1 1 0 0 TEST PREVIOUS BLOCK subtract (N) from (A)
66209 101 1 1 2 0 subtract literal address
66210 127 662 20 0 1 0 662 >NO jump A != Z
66211 106 716 4 1 0 0 716 SET UP FBM select (N)
66212 102 91 0 1 0 0 transfer (A) to N
66213 124 707 2 0 3 0 707 modify address of next
66214 119 0 0 0 0 WRITE output
66215 126 644 2 0 0 0 644 >TEST ROUTE enter subroutine
66216 125 0 1 0 0 IDB set indicators
66217 106 566 3 0 0 0 566 RESTORE BLOCK NO select (N)
66218 102 91 1 1 0 0 transfer (A) to N
66219 76 661 6 0 0 0 661 > JUMP unconditional
66210>66220 80 699 2 0 0 0 699 ENTER SUBROUTINE
66221 72 662 29 0 0 0 662 >EXP>ACT JUMP IF A >= 0
66222 80 700 2 0 0 0 700 >COUNT 500MS ENTER SUBROUTINE
66223 80 671 2 0 0 0 671 >STEP BACK ENTER SUBROUTINE
66224 80 699 2 0 0 0 699 ENTER SUBROUTINE
66225 80 671 2 0 0 0 671 >STEP BACK ENTER SUBROUTINE
66226 80 699 2 0 0 0 699 ENTER SUBROUTINE
66227 80 671 2 0 0 0 671 >STEP BACK ENTER SUBROUTINE
66228 76 662 6 0 0 0 662 > JUMP unconditional
66221>66229 80 672 2 0 0 0 672 >STEP ON ENTER SUBROUTINE
66230 76 662 7 0 0 0 662 > JUMP unconditional
66300 PROCR 663 663 OPEN OUTPUT FILE SR(1)
66302 100 0 0 0 0 Halt
66303 102 703 21 0 0 0 703 SET SX1 AT 0 OR 1 transfer (A) to N
66304 101 1 1 3 0 BLOCK NO select literal address
66305 102 91 1 1 0 0 transfer (A) to N
66306 102 91 2 1 0 0 transfer (A) to N
66307 106 717 2 1 0 0 717 50001 select (N)
66308 102 91 4 1 0 0 transfer (A) to N
66309 106 566 7 0 0 0 566 SPOOL NO select (N)
66310 102 91 7 1 0 0 transfer (A) to N
66311 106 716 22 1 0 0 716 BE WD select (N)
66312 102 91 8 1 0 0 transfer (A) to N
66313 80 661 2 0 0 0 661 >WRITE (BLOCK 1) ENTER SUBROUTINE
66314 106 703 21 0 0 0 703 SWITCH SX1 select (N)
66315 71 665 2 0 0 0 665 1 JUMP IF A != 0
66400 PROCR 664 664 WRITE SPECIAL BLOCK
66402 106 716 4 1 0 0 716 FBM O select (N)
66403 102 91 1000 1 0 0 transfer (A) to N
66404 102 91 1002 1 0 0 transfer (A) to N
66405 106 723 32 1 0 0 723 select (N)
66406 128 91 1004 1 1 0 bulk copy long numeric
66407 124 726 18 0 2 0 726 select literal and division
66408 128 91 1014 1 2 0 edit fixed field formats
66409 106 717 4 1 0 0 717 select (N)
66410 102 91 1022 1 0 0 transfer (A) to N
Source image: P1030525.JPG
66411 155 0 0 0 0 SELECT PROGRAM SERIAL TO A
66412 102 91 1024 1 0 0 transfer (A) to N
66413 106 175 0 1 0 select (N)
66414 102 91 1027 1 0 0 transfer (A) to N
66415 106 702 6 0 0 0 702 select (N)
66416 124 707 2 0 3 0 707 SPECIAL ASL modify address of next
66417 102 64 0 0 0 transfer (A) to N
66418 126 661 2 0 0 0 661 >WRITE enter subroutine
66419 106 567 6 0 0 0 567 select (N)
66420 124 707 2 0 3 0 707 RESTORE ASL modify address of next
66421 102 64 0 0 0 transfer (A) to N
66500 PROCR 665 665 OPEN OUITPUT FIEL (SR(2)
66315>66502 80 666 2 0 0 0 666 >AUGMENT BLOCK NOS ENTER SUBROUTINE
66503 80 661 2 0 0 0 661 >WRITE(BLOCK 2) ENTER SUBROUTINE
66504 80 666 2 0 0 0 666 >AUGMENT BLOCK NOS ENTER SUBROUTINE
66505 80 661 2 0 0 0 661 >WRITE(BLOCK 3) ENTER SUBROUTINE
66506 80 666 2 0 0 0 666 >AUGMENT BLOCK NOS ENTER SUBROUTINE
66507 106 717 8 1 0 0 717 AM WD select (N)
66508 102 91 6 1 0 0 transfer (A) to N
66509 80 661 2 0 0 0 661 >WRITE(BLOCK 4) ENTER SUBROUTINE
66510 80 666 2 0 0 0 666 >AUGMENT BLOCK NOS ENTER SUBROUTINE
66511 80 661 2 0 0 0 661 >WRITE(BLOCK 5) ENTER SUBROUTINE
66512 80 666 2 0 0 0 666 >AUGMENT BLOCK NOS ENTER SUBROUTINE
66513 106 566 7 0 0 0 566 SPOOL NO select (N)
66514 102 91 7 1 0 0 transfer (A) to N
66515 126 661 2 0 0 0 661 >WRITE (BLOCK 6) enter subroutine
66516 126 663 2 0 1 0 663 leave subroutine
66600 PROCR 666 666 AUGMENT BLOCK NOS SR
66602 81 666 2 0 0 0 666 START OF SUBROUTINE
66603 101 1 1 3 0 select literal address
66604 107 91 0 0 0 0 augment (N) by (A)
66605 107 91 4 0 0 0 augment (N) by (A)
66606 82 666 2 0 0 0 666 > END OF SUBROUTINE / LEAVE SUBROUTINE
66700 PROCR 667 667 CLOSE OUTPUT FILE SR (1)
66702 100 0 0 0 0 Halt
66703 101 1 1 3 0 AUGMENT BLOCK NO select literal address
66704 107 91 0 0 0 0 augment (N) by (A)
66705 106 717 10 1 0 0 717 select (N)
66706 102 91 4 1 0 0 transfer (A) to N
66707 101 7453 1 3 0 FILE select literal address
66708 102 91 6 1 0 0 transfer (A) to N
66709 155 0 0 0 0 SERIAL SELECT PROGRAM SERIAL TO A
66710 102 91 8 1 0 0 transfer (A) to N
66711 101 1 1 3 0 REEL select literal address
66712 102 91 10 1 0 0 transfer (A) to N
66713 106 175 0 1 0 DATE select (N)
66714 102 91 13 1 0 0 transfer (A) to N
66715 106 717 4 1 0 0 717 PROGM select (N)
66716 102 91 14 1 0 0 transfer (A) to N
66717 102 91 16 1 0 0 transfer (A) to N
66718 106 716 22 1 0 0 716 BE WD select (N)
66719 102 91 18 1 0 0 transfer (A) to N
66720 126 661 2 0 0 0 661 >WRITE (BLOCK 7) enter subroutine
66800 PROCR 668 668 CLOSE OUTPUT FILE SR (2)
66802 101 1 1 3 0 AUGMENT BLOCK NO select literal address
66803 107 91 0 0 0 0 augment (N) by (A)
Source image: P1030526.JPG
66804 106 717 8 1 0 0 717 AM WD select (N)
66805 102 91 2 1 0 0 transfer (A) to N
66806 106 717 6 1 0 0 717 FINIS select (N)
66807 102 91 4 1 0 0 transfer (A) to N
66808 106 716 22 1 0 0 716 BE WD select (N)
66809 102 91 6 1 0 0 transfer (A) to N
66810 126 661 2 0 0 0 661 >WRITE(BLOCK 8) enter subroutine
66811 106 717 12 1 0 0 717 SENT 3 select (N)
66812 102 91 0 1 0 0 transfer (A) to N
66813 101 9 1 3 0 BLOCK NO select literal address
66814 102 91 4 1 0 0 transfer (A) to N
66815 126 661 2 0 0 0 661 >WRITE (BLOCK 9) enter subroutine
66816 126 669 2 0 0 0 669 >WRITE END BLOCK enter subroutine
66817 126 667 2 0 1 0 667 > leave subroutine
66900 PROCR 669 669 WRITE END BLOCK SR
66902 100 0 0 0 0 Halt
66903 106 717 14 1 0 0 717 (END) select (N)
66904 103 91 0 1 0 0 copy (A) to N
66905 102 91 2 1 0 0 transfer (A) to N
66909>66906 124 707 2 0 3 0 707 modify address of next
66907 119 0 0 0 0 WRITE output
66908 80 644 2 0 0 0 644 >TEST ROUTE ENTER SUBROUTINE
66909 76 669 6 0 0 0 669 >DB JUMP unconditional
66910 80 649 2 0 0 0 649 >UNLOAD ENTER SUBROUTINE
66911 82 669 2 0 0 0 669 > END OF SUBROUTINE / LEAVE SUBROUTINE
67000 PROCR 670 670 STEP BACK 3 ON 2 SR
67002 100 0 0 0 0 Halt
67003 126 700 2 0 0 0 700 >COUNT 500 MS enter subroutine
67004 126 671 2 0 0 0 671 >STEP BACK enter subroutine
67005 126 671 2 0 0 0 671 >STEP BACK enter subroutine
67006 126 671 2 0 0 0 671 >STEP BACK enter subroutine
67007 126 700 2 0 0 0 700 >COUNT 500 MS enter subroutine
67008 126 672 2 0 0 0 672 >STEP ON enter subroutine
67009 126 672 2 0 0 0 672 >STEP ON enter subroutine
67010 126 670 2 0 1 0 670 leave subroutine
67100 PROCR 671 671 STEP BACK SR
67102 100 0 0 0 0 Halt
67103 124 707 2 0 3 0 707 modify address of next
67104 119 0 1 0 0 STEP BACK step back
67105 126 644 2 0 0 0 644 >TEST ROUTE enter subroutine
67106 125 0 1 0 0 IDB set indicators
67107 126 671 2 0 1 0 671 leave subroutine
67200 PROCR 672 672 STEP ON SR
67202 100 0 0 0 0 Halt
67203 124 707 2 0 3 0 707 modify address of next
67204 119 0 1 3 0 STEP ON step on/set manual
67205 126 644 2 0 0 0 644 >TEST ROUTE enter subroutine
67206 125 0 1 0 0 IDB set indicators
67207 126 672 2 0 1 0 672 leave subroutine
67300 PROCR 673 673 HIPLIP SR
67302 81 673 2 0 0 0 673 START OF SUBROUTINE
67303 106 91 17 1 0 0 AUGMENT ASL select (N)
67304 124 707 2 0 3 0 707 modify address of next
67305 107 64 0 0 0 augment (N) by (A)
67306 106 703 18 0 0 0 703 SWITCH SM2' select (N)
Source image: P1030527.JPG
67307 71 673 16 0 0 0 673 >NO COMMENT 1 JUMP IF A != 0
67308 106 91 9 1 0 0 RUN select (N)
67309 102 91 1002 0 0 0 transfer (A) to N
67310 106 91 17 1 0 0 TEST HIGH select (N)
67311 71 673 14 0 0 0 673 >YES JUMP IF A != 0
67312 106 716 48 1 0 0 716 LIP select (N)
67313 76 673 15 0 0 0 673 JUMP unconditional
67311>67314 106 716 50 1 0 0 716 HIP select (N)
67313>67315 80 674 2 0 0 0 674 >HIPHOPLIPLOP 0 ENTER SUBROUTINE
67307>67316 82 673 2 0 0 0 673 > END OF SUBROUTINE / LEAVE SUBROUTINE
67400 PROCR 674 674 HIPHOPLIPLOP SR
67402 81 674 2 0 0 0 674 START OF SUBROUTINE
67403 102 91 1000 1 0 0 transfer (A) to N
67404 80 675 2 0 0 0 675 >REQ TW ENTER SUBROUTINE
67405 124 732 2 0 2 0 732 select literal and division
67406 124 718 2 0 3 0 718 modify address of next
67407 128 2 1 2 0 EDIT COMMENT edit fixed field formats
67408 82 674 2 0 0 0 674 > END OF SUBROUTINE / LEAVE SUBROUTINE
67500 PROCR 675 675 BLACK COMMENT SR
67502 100 0 0 0 0 Halt
67503 126 677 2 0 0 0 677 >REQ TW enter subroutine
67504 124 724 2 0 2 0 724 EDIT TIME select literal and division
67505 124 718 2 0 3 0 718 modify address of next
67506 128 0 1 2 0 edit fixed field formats
67507 126 675 2 0 1 0 675 leave subroutine
67600 PROCR 676 676 RED COMMENT SR
67602 100 0 0 0 0 Halt
67603 126 677 2 0 0 0 677 >REQ TW enter subroutine
67604 124 724 6 0 2 0 724 EDIT TIME select literal and division
67605 124 718 2 0 3 0 718 modify address of next
67606 128 0 1 2 0 edit fixed field formats
67607 126 676 2 0 1 0 676 leave subroutine
67700 PROCR 677 677 REQUEST TW SR(1)
67702 100 0 0 0 0 Halt
67703 106 703 11 0 0 0 703 SWITCH SL3 select (N)
67704 70 677 6 0 0 0 677 >UNSATURATED 0 JUMP IF A == 0
67705 80 680 2 0 0 0 680 >LOG 1 ENTER SUBROUTINE
67704>67706 106 703 7 0 0 0 703 TEST ANY REQS SET SWITCH SL1 select (N)
67707 127 678 2 0 1 0 678 >YES 1 jump A != Z
67708 124 719 4 0 2 0 719 0 select literal and division
67709 103 703 7 0 0 0 703 SET REQ(SL1=1) copy (A) to N
67710 103 718 2 0 0 0 718 copy (A) to N
67711 102 718 3 0 0 0 718 transfer (A) to N
67712 102 718 4 0 0 0 718 SET IND MR AT 10/0 transfer (A) to N
67809>
67907>67713 126 677 2 0 1 0 677 > leave subroutine
67800 PROCR 678 678 REQUEST TW SR(2)
67707>67802 106 703 8 0 0 0 703 TEST TWO REQS SET select (N)
67803 127 679 2 0 1 0 679 >YES jump A != Z
67804 106 703 7 0 0 0 703 select (N)
67805 101 20 1 1 0 SET REQ 1 add literal address
67811>67806 103 703 8 0 0 0 703 copy (A) to N
67807 103 718 2 0 0 0 718 copy (A) to N
67808 105 702 3 0 0 0 702 subtract (N) from (A)
67809 127 677 13 0 1 0 677 > jump A != Z
Source image: P1030528.JPG
67810 124 719 4 0 2 0 719 select literal and division
67811 124 678 6 1 0 0 678 > unconditional jump
67900 PROCR 679 679 REQUEST TW SR(3)
67803>67902 101 20 1 1 0 SET REQ 2 add literal address
67909>67903 103 703 9 0 0 0 703 copy (A) to N
67904 103 718 2 0 0 0 718 copy (A) to N
67905 103 703 11 0 0 0 703 SET SL3=1 copy (A) to N
67906 105 702 3 0 0 0 702 subtract (N) from (A)
67907 127 677 13 0 1 0 677 > jump A != Z
67908 124 719 4 0 2 0 719 select literal and division
67909 124 679 3 1 0 0 679 > unconditional jump
68000 PROCR 680 680 LOG:SPECIAL ENTRY
68002 81 680 2 0 0 0 680 START OF SUBROUTINE
68003 124 680 8 0 2 0 680 select literal and division
68004 76 680 18 0 0 0 680 >LOG JUMP unconditional
68005 124 680 16 0 2 0 680 select literal and division
68006 102 30 0 1 0 transfer (A) to N
68007 125 4096 1 0 0 set indicators
68014>68008 101 4000 1 3 0 select literal address
68011>68009 100 723 11 0 2 0 723 replace (B) by (N)
68010 111 723 11 0 0 0 723 multiply and subtract
68011 71 680 9 0 0 0 680 JUMP IF A != 0
68012 101 8191 1 2 0 subtract literal address
68015>68013 104 723 11 0 0 0 723 add (N) to (A)
68014 70 680 8 0 0 0 680 JUMP IF A == 0
68015 76 680 13 0 0 0 680 JUMP unconditional
68016 80 568 2 0 0 0 568 >SET KEY 15 ENTER SUBROUTINE
68017 106 680 2 0 0 0 680 select (N)
69618>
68004>
62903>
62723>
62706>68018 102 681 2 0 0 0 681 transfer (A) to N
68019 76 681 3 0 0 0 681 > JUMP unconditional
68100 PROCR 681 681 LOG:SEARCH QUEUE
68102 100 0 0 0 0 Halt
68019>68103 106 703 7 0 0 0 703 SWITCH SL1 select (N)
68104 127 683 2 0 1 0 683 >TYPING 1 jump A != Z
68314>68105 106 703 8 0 0 0 703 TEST REQ SET 0 select (N)
68106 127 682 2 0 1 0 682 >YES jump A != Z
68107 106 703 12 0 0 0 703 SWITCH SL4 select (N)
68108 73 696 2 0 0 0 696 >ABANDON 2 JUMP IF A < 0
68109 71 638 2 0 0 0 638 >ENTER MASTER 1 JUMP IF A != 0
68115>
68306>68110 125 0 1 2 0 0 interrogate indicators
68111 101 3 1 2 0 STEP LINK BY-3 subtract literal address
68112 107 681 2 0 0 0 681 augment (N) by (A)
68113 126 681 2 0 1 0 681 > leave subroutine
68305>68114 125 2048 1 0 0 SET I12 set indicators
68115 124 681 10 1 0 0 681 > unconditional jump
68200 PROCR 682 682 LOG:RESET REQUESTS
68106>68202 106 703 8 0 0 0 703 SET SL1=1 select (N)
68203 103 703 7 0 0 0 703 RESET REQUESTS copy (A) to N
68204 102 718 3 0 0 0 718 transfer (A) to N
68205 106 703 9 0 0 0 703 select (N)
68206 102 703 8 0 0 0 703 transfer (A) to N
Source image: P1030529.JPG
68207 102 703 9 0 0 0 703 transfer (A) to N
68208 102 718 4 0 0 0 718 SET IND MR AT 10/0 transfer (A) to N
68300 PROCR 683 683 LOG:TEST ROUTE
68104>68302 125 2048 1 1 0 CLEAR I12 clear indicators
68512>
68611>
68708>68303 124 565 2 0 3 0 565 modify address of next
68304 126 0 1 0 0 TEST ROUTE test route N1
68305 124 681 14 1 0 0 681 > C unconditional jump
68306 124 681 10 1 0 0 681 > E unconditional jump
68307 124 687 2 1 0 0 687 > D unconditional jump
68308 124 683 9 1 0 0 683 W unconditional jump
68308>68309 106 703 10 0 0 0 703 A SWITCH SL2 select (N)
68310 127 684 2 0 0 0 684 >NORMAL 0 jump A = Z
68311 125 0 1 2 0 END OF COMMENT 1 interrogate indicators
68312 103 703 7 0 0 0 703 SET SL1=0 copy (A) to N
68313 102 703 10 1 0 0 703 SET SL2=SL3=0 transfer (A) to N
68314 124 681 5 1 0 0 681 > unconditional jump
68400 PROCR 684 684 LOG:OUTPUT(PT OP AS)
68310>68402 106 703 20 0 0 0 703 SWITCH ST1 select (N)
68403 127 685 2 0 3 0 685 >GP 2 jump A < Z
68404 124 718 3 0 3 0 718 PT OP 1 modify address of next
68405 106 0 1 0 0 select (N)
68406 102 154 1 1 0 NEXT WORD IN 154' transfer (A) to N
68407 124 565 2 0 3 0 565 modify address of next
68408 119 0 0 0 0 TYPE output
68409 124 686 2 1 0 0 686 > unconditional jump
68500 PROCR 685 685 LOG:OUTPUT(GP OP AS)
68403>68502 100 718 6 1 2 0 718 SET B33-38 OF B replace (B) by (N)
68503 124 718 3 0 3 0 718 modify address of next
68504 106 0 1 0 0 select (N)
68505 124 718 4 0 3 0 718 modify address of next
68506 118 0 0 0 0 shift logical
68507 114 154 1 1 0 NEXT CHA IN 154':B33-38 replace selected bits
68508 124 565 2 0 3 0 565 modify address of next
68509 119 0 0 0 0 TYPE output
68510 123 2 0 0 0 step on and test
68511 100 718 4 0 0 0 718 TEST END OF WORD Halt
68512 124 683 3 1 0 0 683 >NO unconditional jump
68513 125 0 1 2 0 RESET IND MR interrogate indicators
68514 102 718 4 0 0 0 718 transfer (A) to N
68600 PROCR 686 686 LOG:END
68409>68602 101 15 0 1 0 TEST END OF COMMENT prepare for digit collation
68603 124 718 3 0 3 0 718 modify address of next
68604 115 0 0 0 0 collate and add
68605 105 713 10 0 0 0 713 subtract (N) from (A)
68606 127 686 9 0 1 0 686 >NO jump A != Z
68607 101 1 1 3 0 select literal address
68608 102 703 10 0 0 0 703 SET SL2 AT 1 transfer (A) to N
68606>68609 101 2 1 3 0 select literal address
68610 107 718 3 0 0 0 718 STEP WORD COUNTER augment (N) by (A)
68611 124 683 3 1 0 0 683 > unconditional jump
68700 PROCR 687 687 LOG: DOUBTFUL BLOCK
68307>68702 106 703 7 0 0 0 703 ARRANGE TO RE-TYPE select (N)
68703 101 2 1 2 0 PRECEDED BY 'LDB' subtract literal address
Source image: P1030530.JPG
68704 102 718 3 0 0 0 718 transfer (A) to N
68705 102 154 1 1 0 TYPE NOTHING transfer (A) to N
68706 124 565 2 0 3 0 565 modify address of next
68707 119 0 0 0 0 output
68708 124 683 3 1 0 0 683 > unconditional jump
68800 PROCR 688 688 COPY FIXED COMMENT
68802 100 0 0 0 0 Halt
68803 104 722 10 1 0 0 722 add (N) to (A)
68804 124 718 2 0 3 0 718 modify address of next
68805 128 2 1 1 0 bulk copy long numeric
68806 126 688 2 0 1 0 688 leave subroutine
68900 PROCR 689 689 DATE SR(1)
68902 100 0 0 0 0 Halt
68903 103 138 0 1 0 copy (A) to N
68904 102 175 0 1 0 STORE DATE transfer (A) to N
68905 100 566 4 0 3 0 566 set radix
68906 101 3 0 1 0 prepare for digit collation
68907 115 175 0 1 0 collate and add
68908 105 708 4 0 0 0 708 TEST THIS YEAR subtract (N) from (A)
68909 127 690 2 0 0 0 690 >YES jump A = Z
68910 101 1 1 2 0 TEST NEXT YEAR subtract literal address
68911 70 689 14 0 0 0 689 >YES JUMP IF A == 0
68912 101 256 1 1 0 add literal address
68913 71 692 2 0 0 0 692 >NO:REJECT JUMP IF A != 0
68911>68914 106 175 0 1 0 select (N)
68915 114 708 4 0 0 0 708 replace selected bits
68916 80 675 2 0 0 0 675 >REQ TW ENTER SUBROUTINE
68917 124 713 28 0 2 0 713 HNY select literal and division
68918 80 688 2 0 0 0 688 >COPY COMMENT ENTER SUBROUTINE
69000 PROCR 690 690 DATE SR(2)
68909>69002 101 4 0 1 0 CONVERT MONTH prepare for digit collation
69003 125 0 1 2 0 interrogate indicators
69004 115 175 0 1 0 collate and add
69005 101 12 0 1 0 prepare for digit collation
69006 114 138 0 1 0 replace selected bits
69007 100 566 5 0 3 0 566 set radix
69008 101 4 0 1 0 prepare for digit collation
69009 125 0 1 2 0 interrogate indicators
69010 115 175 0 1 0 collate and add
69011 118 4126 0 0 0 shift logical
69012 103 708 5 0 0 0 708 STORE MONTH & TEST IN RANGE copy (A) to N
69013 127 692 2 0 0 0 692 >NO:REJECT jump A = Z
69014 101 13 1 2 0 subtract literal address
69015 127 692 2 0 2 0 692 jump A >= Z
69100 PROCR 691 691 DATE SR(3)
69102 100 705 3 0 2 0 705 TEST LEAP YEAR replace (B) by (N)
69103 125 0 1 2 0 interrogate indicators
69104 115 175 0 1 0 collate and add
69105 127 691 8 0 0 0 691 >YES jump A = Z
69106 101 41 1 3 0 29 select literal address
69107 124 691 9 1 0 0 691 >NO unconditional jump
69105>69108 101 48 1 3 0 30 select literal address
69107>69109 102 708 7 0 0 0 708 ADJUST FEBRUARY transfer (A) to N
69110 101 24 0 1 0 prepare for digit collation
69111 115 175 0 1 0 TEST DAY IN RANGE collate and add
69112 70 692 2 0 0 0 692 >NO:REJECT JUMP IF A == 0
Source image: P1030531.JPG
69113 118 1 1 0 0 shift logical
69114 114 138 1 1 0 replace selected bits
69115 118 4124 0 0 0 shift logical
69116 100 566 4 0 3 0 566 set radix
69117 124 708 5 0 1 0 708 modify address of next
69118 105 708 5 0 0 0 708 subtract (N) from (A)
69119 127 692 2 0 2 0 692 >NO:REJECT jump A >= Z
69120 100 566 5 0 3 0 566 set radix
69121 101 8 0 1 0 prepare for digit collation
69122 125 0 1 2 0 interrogate indicators
69123 115 175 0 1 0 collate and add
69124 118 4125 0 0 0 shift logical
69125 101 10 1 2 0 subtract literal address
69126 72 692 2 0 0 0 692 >NO:REJECT JUMP IF A >= 0
69127 124 689 2 0 3 0 689 modify address of next
69128 124 1 1 0 0 > unconditional jump
69200 PROCR 692 692 REJECT ABSURD DATE
69126>
69119>
69112>
69015>
69013>
68913>69202 62 0 0 0 0 SET EXCESS CONSTANTS
69203 80 675 2 0 0 0 675 >REQ TW ENTER SUBROUTINE
69204 124 713 24 0 2 0 713 DATE REJ select literal and division
69205 126 688 2 0 0 0 688 >COPY COMMENT enter subroutine
69206 126 689 2 0 1 0 689 > leave subroutine
69300 PROCR 693 693 ARRANGE TO TYPE FIRST TIME SR
69302 100 0 0 0 0 Halt
69303 106 706 3 0 0 0 706 select (N)
69304 101 1 1 2 0 subtract literal address
69305 102 706 2 0 0 0 706 transfer (A) to N
69306 126 693 2 0 1 0 693 leave subroutine
69400 PROCR 694 694 ARRANGE TO TYPE SHORTLY SR
69402 81 694 2 0 0 0 694 START OF SUBROUTINE
69403 106 706 3 0 0 0 706 select (N)
69404 118 4127 0 0 0 shift logical
69405 102 706 2 0 0 0 706 transfer (A) to N
69406 106 706 3 0 0 0 706 select (N)
69407 105 706 2 0 0 0 706 subtract (N) from (A)
69408 102 706 2 0 0 0 706 transfer (A) to N
69409 82 694 2 0 0 0 694 END OF SUBROUTINE / LEAVE SUBROUTINE
69500 PROCR 695 695 TEST TIME TO TYPE SR(1)
69502 100 0 0 0 0 Halt
69503 123 1 0 0 0 step on and test
69504 100 706 2 0 0 0 706 Halt
69505 76 696 2 0 0 0 696 >NO JUMP unconditional
69506 125 0 1 2 0 interrogate indicators
69507 102 706 2 0 0 0 706 transfer (A) to N
69508 126 676 2 0 0 0 676 >REQ TW enter subroutine
69509 124 695 2 0 3 0 695 modify address of next
69510 124 1 1 0 0 >YES unconditional jump
69600 PROCR 696 696 TEST TIME TO TYPE SR(2)
69505>
68108>69602 124 696 8 0 2 0 696 select literal and division
Source image: P1030532.JPG
69603 102 30 0 1 0 transfer (A) to N
69604 124 696 4 1 1 0 696 set modification group
69605 100 709 10 1 1 0 709 replace registers
69606 126 696 7 0 3 0 696 leave master routine
69607 115 698 2 0 1 0 698 collate and add
69608 100 709 10 1 0 0 709 copy registers
69609 124 566 5 1 1 0 566 set modification group
69610 125 0 1 2 0 interrogate indicators
69611 101 1 1 2 0 subtract literal address
69612 107 706 2 0 0 0 706 augment (N) by (A)
69613 106 8 0 1 0 select (N)
69810>69614 102 696 7 0 0 0 696 transfer (A) to N
69615 80 568 2 0 0 0 568 >SET KEY 15 ENTER SUBROUTINE
69616 106 695 2 0 0 0 695 select (N)
69617 101 3 1 1 0 add literal address
69618 76 680 18 0 0 0 680 >LOG JUMP unconditional
69700 CONST 697 697 0
69800 PROCR 698 698 TEST TIME TO TYPE SR(3)
69819>
69831>69802 125 0 1 2 0 interrogate indicators
69815>
69824>69803 100 705 3 0 2 0 705 replace (B) by (N)
69804 115 696 7 0 0 0 696 collate and add
69805 102 698 20 0 0 0 698 transfer (A) to N
69806 125 4096 1 1 0 clear indicators
69807 124 566 5 1 1 0 566 set modification group
69808 124 698 20 0 1 0 698 modify address of next
69809 106 702 7 0 0 0 702 select (N)
69810 76 696 14 0 0 0 696 JUMP unconditional
69811 101 2000 1 3 0 select literal address
69814>69812 100 723 11 0 2 0 723 replace (B) by (N)
69813 111 723 11 0 0 0 723 multiply and subtract
69814 71 698 12 0 0 0 698 JUMP IF A != 0
69815 76 698 3 0 0 0 698 JUMP unconditional
69816 126 705 16 1 1 0 705 set modification register
69818>69817 125 1 0 1 0 step on and test
69818 76 698 17 0 0 0 698 JUMP unconditional
69819 76 698 2 0 0 0 698 JUMP unconditional
69820 100 0 0 0 0 Halt
69821 125 0 1 2 0 interrogate indicators
69822 101 4096 1 2 0 subtract literal address
69825>69823 104 723 11 0 0 0 723 add (N) to (A)
69824 70 698 3 0 0 0 698 JUMP IF A == 0
69825 76 698 23 0 0 0 698 JUMP unconditional
69826 101 500 1 3 0 select literal address
69830>69827 118 4119 1 0 0 shift logical
69828 113 711 2 0 0 0 711 divide uniform radix
69829 101 1 1 2 0 subtract literal address
69830 72 698 27 0 0 0 698 JUMP IF A >= 0
69831 76 698 2 0 0 0 698 JUMP unconditional
69900 PROCR 699 699 ABANDON
69902 81 699 2 0 0 0 699 START OF SUBROUTINE
69903 123 1 0 0 0 step on and test
69904 100 706 12 0 0 0 706 Halt
69905 82 699 2 0 0 0 699 END OF SUBROUTINE / LEAVE SUBROUTINE
66205>
65416>
60813>
Source image: P1030533.JPG
60408>69906 80 676 2 0 0 0 676 >REQ TW ENTER SUBROUTINE
69907 124 713 2 0 2 0 713 ABANDON select literal and division
69908 80 688 2 0 0 0 688 >COPY COMMENT ENTER SUBROUTINE
69909 106 567 8 0 0 0 567 select (N)
69910 102 703 12 0 0 0 703 SET SL4 AT 2 transfer (A) to N
69911 80 681 2 0 0 0 681 >LOG ENTER SUBROUTINE
70000 PROCR 700 700 COUNT 500MS SR
70002 100 0 0 0 0 Halt
70003 125 0 1 2 0 interrogate indicators
70004 102 706 4 0 0 0 706 transfer (A) to N
70005 123 1 0 0 0 step on and test
70006 100 706 4 0 0 0 706 Halt
70007 126 681 2 0 0 0 681 >LOG enter subroutine
70008 126 700 2 0 1 0 700 leave subroutine
70100 PROCR 701 701 INITIAL ENTRY
70102 102 565 2 0 0 0 565 STORE TW RT transfer (A) to N
70103 32 0 0 0 10 STORE TAPE ROUTE SHIFT (AB) BY QUARTETS
70104 5 565 11 0 0 0 565 TRANSFER
70105 80 571 2 0 0 0 571 >INITIAL SR ENTER SUBROUTINE
70106 125 0 1 2 0 interrogate indicators
70107 101 4 0 1 0 prepare for digit collation
70108 115 153 0 1 0 collate and add
70109 118 1 1 0 0 shift logical
70110 102 565 10 0 0 0 565 SECOND STORE SIZE transfer (A) to N
70111 115 153 0 1 0 collate and add
70112 102 565 5 0 0 0 565 FIRST STORE SIZE transfer (A) to N
70113 106 186 0 1 0 select (N)
70114 101 28 1 2 0 TEST P/T subtract literal address
70115 127 701 20 0 3 0 701 >YES jump A < Z
70116 106 186 0 1 0 CARDS select (N)
70117 103 565 3 0 0 0 565 STORE CD ROUTE copy (A) to N
70118 101 2 1 1 0 add literal address
70119 102 565 4 0 0 0 565 STORE MODS ROUTE transfer (A) to N
70115>70120 125 0 1 2 0 interrogate indicators
70121 101 3 0 1 0 prepare for digit collation
70122 115 175 0 1 0 collate and add
70123 102 708 4 0 0 0 708 STORE YEAR transfer (A) to N
70124 124 999 0 0 2 0 STORE ISP START select literal and division
70125 100 709 16 0 2 0 709 replace (B) by (N)
70126 114 566 14 0 0 0 566 replace selected bits
70127 103 709 19 0 0 0 709 STORE SX1 copy (A) to N
70128 102 703 21 0 0 0 703 SET SX1 AT 1 transfer (A) to N
70129 76 577 6 0 0 0 577 > JUMP unconditional
70200 PROCR 702 702 INSTRUCTION CONSTANTS
70202 114 154 0 0 0 TW ASL replace selected bits
70203 100 722 4 0 1 0 722 LAST TW REQ Invalid
70204 126 2 0 1 0 FOR(9) leave subroutine
70205 126 31 0 1 0 CHECK HARDWARE leave subroutine
70206 114 91 1000 0 1 0 SPECIAL ASL replace selected bits
70207 115 698 11 0 1 0 698 collate and add
70208 115 698 16 0 1 0 698 collate and add
70209 115 698 21 0 1 0 698 collate and add
70210 115 698 26 0 1 0 698 collate and add
70211 115 579 23 0 1 0 579 INTERRUPTION collate and add
70300 CONST 703 703 0 SWITCH SETTINGS
Source image: P1030534.JPG
70302 (D); SC1: WRITE NEW COPY
70303 0; SC2: WRITE NEW COPIES
70304 0; SC3: UNLOAD RT 0
70305 0; COPY WHOLE TAPE
70306 0; SI1: LOAD INTERCODE
70307 0; SL1: LOG REQ 1
70308 0; LOG REQ 2
70309 0; LOG REQ 3
70310 0; SL2: END OF COMMENT
70311 0; SL3: LOG SATURATION
70312 0; SL4: END & ABANDON
70313 0; SM1: MOD 1
70314 0; MOD 2
70315 0; MOD 3
70316 0; MOD 4
70317 0; MOD 5
70318 0; SM2: LAST DIRECTIVE
70319 0; SR1:'SER'COMMENT
70320 0; ST1:TYPEWRITER TYPE
70321 0; SX1: INITIAL ENTRY
70400 CONST 704 704 0 MASTER IDENTITY & MT ROUTES
70402 (D); PROGRAMME
70403 0; SERIAL
70404 0; INTERIM
70405 0; INTERCODE ROUTE
70406 0; FIRST COPY ROUTE
70407 0; SECOND COPY ROUTE
70500 CONST 705 705 1 MOD REGS
70502 (D)300000; 3/0
70504 400000; 4/0
70506 500000; 5/0
70508 800000; 8/0
70510 3000000; 48/0
70512 1££.;
70514 40000.; 4/14
70516 100000000; 4096/0
70518 6000;
70600 CONST 706 706 0 COUNTING
70602 (D)0; 3 MIN
70603 0; 3 MIN
70604 0; ½ SEC
70605 0; ½ SEC
70606 100; 3 MIN III
70607 400; 3 MIN 326
70608 400; ½SEC III
70609 1000; ½ SEC 326
70610 0;
70611 Ю; 10/0
70612 0;
70613 64; 100/0
70700 CONST 707 707 0 TEST ROUTE
70702 (D)0; ROUTE IN BINARY
70703 0; ROUTE IN OCTARY
70704 0; FIRST WORD
70705 0; OF BLOCK
Source image: P1030535.JPG
70800 CONST 708 708 0 BRIC-A-BRAC
70802 (D)£££££;
70803 £££££;
70804 (D)68; YEAR
70805 0; MONTH
70806 32; J
70807 0; F
70808 32; M
70809 31; A
70810 32; M
70811 31; J
70812 32; J
70813 32; A
70814 31; S
70815 32; O
70816 31; N
70817 32; D
70900 CONST 709 709 0 MORE THEREOF
70902 (D)£££88; OCT COL CONST
70903 .0000; BE
70904 £0000; CHAPTER END SIGN
70905 .1000; MINUS ZERO
70906 73; CD REJ T
70907 53; CD REJ C
70908 64; CD REJ M
70909 72; CD REJ S
70910 0; A
70911 0;
70912 0; B
70913 0;
70914 0; C
70915 8000; FL PT
70916 £.00; COL CONST
70917 38; COL CONST
70918 3.1.4;
70919 0; STORE FOR SX1
71000 CONST 710 710 1 WLS
71002 (D); CD(OCT)/TW(OCT)
71004 0; DIV/MODS(OCT)
71006 0; TIMER/CLOCK
71008 0; MT CH/LOUT
71010 0; /2ND STORE
71012 0; CD(BIN)/TW(BIN)
71014 0; /MODS(BIN)
71016 0; COPY TAPE 1
71018 0; COPY TAPE 2
71100 CONST 711 711 1 MISCELLANY
71102 (D)1; DEC>BIN
71104 Ю; CONVERSION TABLE
71106 64;
71108 3.8;
71110 2710;
71112 1; BIN>OCT
71114 20; CONVERSION TABLE
71116 1; OCT>BIN
71118 8; CONVERSION TABLE
Source image: P1030536.JPG
71200 PROCR 712 712 INTERCODE PARAMETERS
71202 100 0 0 0 0 Halt
71203 100 142 0 0 0 1 1 Halt
71204 100 142 0 0 0 2 1 Halt
71205 100 0 0 1 0 3 2 Invalid
71206 100 0 0 0 0 4 2 Halt
71207 100 0 0 0 0 Halt
71208 100 0 0 0 0 MR Halt
71209 100 999 0 0 1 0 MR Invalid
71300 CONST 713 713 1 COMMENTS (1)
71302 (A)ABAND;
71304 (A)ON (D)5.5.;
71306 (A)CD R;
71308 EJ ;
71310 (D)5.5.;
71312 (A)CLOCK;
71314 PLEA;
71316 (A)SE (D)5.5.;
71318 (A)DATE ;
71320 PLEAS;
71322 (A)E (D)5.5.;
71324 (A)DATE ;
71326 (A)REJ(D)5.5.;
71328 (A)HAPPY;
71330 NEW;
71332 YEA;
71334 (A)R (D)5.5.;
71336 (A)INTER;
71338 RUPT ;
71340 PLEAS;
71342 (A)E (D)5.5.;
71400 CONST 714 714 1 COMMENTS(2)
71402 (D)005.(A)ISS;
71404 (A)UE ;
71406 (A) GO E;
71408 VEN F;
71410 ASTER;
71412 MAST;
71414 ER RO;
71416 UTINE;
71418 LOCKO;
71420 UT PL;
71422 EASE ;
71424 (D)5.5.;
71426 (A)MASTE;
71428 R TOO;
71430 LARG;
71432 (A)E (D)5.5.;
71434 (A)MOD R;
71436 EJ ;
71438 ;
71440 MODS ;
71442 ;
71444 NOT ;
71446 (A)CD (D)5.5.;
71448 (A)OPT ;
71450 (D)5.5.;
71452 (A)O REJ;
Source image: P1030537.JPG
71454 (D)5.5.;
71500 CONST 715 715 1 COMMENTS (3)
71502 (A)OVERF;
71504 LOW P;
71506 LEASE;
71508 (D)5.5.;
71510 (A)PROG ;
71512 REJ ;
71514 (A)TAPE ;
71516 (A)REJ(D)5.5.;
71518 (A)TAPES;
71520 TIMER;
71522 PLEA;
71524 (A)SE (D)5.5.;
71526 (A)U A P;
71528 LEASE;
71530 (D)5.5.;
71532 (A)WRONG;
71534 TAPE;
71536 WRONG;
71538 MODS;
71540 WRONG;
71542 STOR;
71544 E SIZ;
71546 (A)E (D)5.5.;
71600 CONST 716 716 1 ODDMENTS
71602 (D)7.7.7.7.7.-;
71604 5£5£5£5£5£-;
71606 0101010101;
71608 7+7+7+7+7+;
71610 (A)?????;
71612 * 77;
71614 >>>>>;
71616 (D)5.5.5.5.5.;
71618 000000001.;
71620 1.00000000;
71622 7.0000007.;
71624 1000000000;
71626 +0+0+0+0+0;
71628 5£5£5£0041; ,
71630 (A)DBHDG;
71632 (A)SERC(D)7:;
71634 (A)WE /;
71636 %%%%%;
71638 TOTAL;
71640 INDEX;
71642 PASSI;
71644 ALLOC;
71646 CHAPT;
71648 LIP;
71650 HIP;
71652 LOP;
71654 HOP;
71656 END ;
71700 CONST 717 717 1 SENTINELS
71702 (A)5 1;
71704 09000;
Source image: P1030538.JPG
71706 FINIS;
71708 (D)6£6£6£6£6£;
71710 5.00000047;
71712 4£4£4£4£43;
71714 7Ю5565547‼;
71716 (A)TAPE ;
71718 START;
71720 MAST;
71722 ER RO;
71724 UTINE;
71800 CONST 718 718 0 LOG WLS
71802 (D)0; ANNEXE TO EDIT TO
71803 0; WORD TO TYPE FROM
71804 0; IND MR
71805 Ю; IND MR
71806 0; COL
71807 3£000; CONST
71900 CONST 719 719 1 TW TA 1
71902 (D)5.(A)LDB(D)5.;
71904 0;
71906 0;
71908 0;
71910 0;
71912 0;
71914 0;
71916 0;
71918 0;
71920 0;
72000 CONST 720 720 1 TW TA 2
72002 (D)5.(A)LDB(D)5.;
72004 0;
72006 0;
72008 0;
72010 0;
72012 0;
72014 0;
72016 0;
72018 0;
72020 0;
72100 CONST 721 721 1 TW TA 3
72102 (D)5.(A)LDB(D)5.;
72104 0;
72106 0;
72108 0;
72110 0;
72112 0;
72114 0;
72116 0;
72118 0;
72120 0;
72200 CONST 722 722 1 BULK CLEARS
72202 (D)2001400000; 20
72204 2000Ю00000; 10
72206 2003+00000; 60
72208 2040400000; 1028
Source image: P1030539.JPG
72210 Ю00000;
72212 3000040;
72214 4000000;
72216 2200000;
72218 (D)1000000;
72300 TABLE 723 723 1 BULK COPIES
72302 564 2 0 0 0 0 9 0 0 0 0 0 0 ///// INSTALLATION DETAILS
72304 91 1 0 0 0 0 10 0 0 0 0 0 0 /////MOD IDS
72306 91 1 0 0 0 0 6 0 0 0 0 0 0 /////MASTER IDS
72308 716 25 0 0 0 0 2 0 0 0 0 0 0 ///// MINUS ZERO
72310 710 6 0 0 0 0 1 0 0 0 0 0 0 ///// CONSTANT
72312 91 0 0 0 0 0 8 0 0 0 0 0 0 /////MOD BLOCK
72314 734 2 0 0 0 0 0 0 1 0 0 0 0 ///// PIPS(1)
72316 735 2 0 0 0 0 7 0 0 0 0 0 0 ///// PIPS(2)
72318 736 2 0 0 0 0 7 0 3 0 0 0 0 ///// PIPS(3)&(4)
72320 738 2 0 0 0 0 13 0 0 0 0 0 0 ///// SP
72322 739 2 0 0 0 0 8 0 0 0 0 0 0 ///// PIPS(5)
72324 740 2 0 0 0 0 5 0 0 0 0 0 0 ///// PIPS(6)
72326 0 0 0 0 0 0 0 2 0 0 0 0 0 ///// STORE DUMP
72328 704 2 0 0 0 0 3 0 0 0 0 0 0 ///// SOURCE BLOCK
72330 91 0 0 0 0 0 10 0 0 0 0 0 0 /////MOD REJ
72332 717 16 0 0 0 0 10 0 0 0 0 0 0 ///// SPECIAL BLOCK
72400 TABLE 724 724 1 EDIT TIME
72402 566 5 0 0 0 0 3 0 0 3 0 0 0
72404 716 32 0 0 2 0 1 4 1 0 0 0 1 /////TAB
72406 717 8 0 0 2 0 1 0 0 0 0 0 0 RED
72408 566 5 0 0 0 0 3 0 0 3 0 0 0
72410 716 32 0 0 2 0 1 4 0 0 0 0 0 /////TAB
72412 0 156 0 0 0 0 2 2 1 0 0 0 0 ///// WITH CLOCK
72414 566 5 0 0 0 0 3 0 0 3 0 0 0 ///// WITHOUT CLOCK
72500 TABLE 725 725 4 UNPACK CD
72502 710 2 0 0 2 0 0 0 0 0 0 0 0 >>>>
72504 710 2 0 0 0 1 0 0 0 0 0 0 1 MODS
72506 565 13 0 0 0 0 0 0 0 0 0 0 1 CD BLOCK FIVE
72600 TABLE 726 726 1 *77/PROG REJ
72602 704 2 0 0 0 0 5 0 3 0 0 0 0 PROGRAMME
72604 704 3 0 0 0 0 5 0 1 0 0 0 0 SERIAL
72606 704 4 0 0 0 0 2 3 1 2 0 0 0 INTERIM
72608 713 10 0 0 2 0 2 3 1 0 0 0 1 ///// LELE
72610 91 0 0 0 2 0 5 0 0 0 0 0 0 PROGRAM
72612 91 2 0 0 2 0 5 0 1 0 0 0 0 SERIAL
72614 91 4 0 0 2 0 5 0 1 0 0 0 0 INTERIM
72616 713 10 0 0 2 0 2 3 1 0 0 0 1 LELE
72618 704 2 0 0 0 0 5 0 5 0 0 0 0 PROGRAMME
72620 704 3 0 0 0 0 5 0 0 0 0 0 0 SERIAL
72622 704 4 0 0 0 0 5 0 0 4 0 0 1 INTERIM
72624 704 2 0 0 0 0 5 0 3 0 0 0 0 PROGRAMME
72626 704 3 0 0 0 0 5 0 1 0 0 0 0 SERIAL
72628 704 4 0 0 0 0 2 3 1 2 0 0 0 INTERIM
72630 713 10 0 0 2 0 1 3 0 0 0 0 0 LE
72632 713 10 0 0 2 0 2 3 0 0 0 0 1 LELE
72700 TABLE 727 727 1 RC/DB/WE
72702 716 32 0 0 2 0 2 2 0 0 0 0 0 RC
72704 707 3 0 0 0 0 3 2 1 1 0 0 0 RT
72706 713 10 0 0 2 0 2 3 2 0 0 0 1 LELE
Source image: P1030540.JPG
72708 716 30 0 0 2 0 2 0 0 0 0 0 0 DB
72710 707 3 0 0 0 0 3 2 1 1 0 0 0 RT
72712 716 32 0 0 2 0 1 4 1 0 0 0 0 TAB
72714 91 0 0 0 2 0 5 0 0 0 0 0 0 BLOCK
72716 713 10 0 0 2 0 2 3 0 0 0 0 1 LELE
72718 716 34 0 0 2 0 2 0 0 0 0 0 0 WE
72720 707 3 0 0 0 0 3 2 1 1 0 0 0 RT
72722 713 10 0 0 2 0 2 3 2 0 0 0 1 LELE
72800 TABLE 728 728 1 >>>>>
72802 716 14 0 0 2 0 5 0 0 0 0 0 0 >>>>>
72804 710 2 0 0 0 0 2 3 1 0 0 0 0 TW
72806 710 3 0 0 0 0 2 3 1 0 0 0 0 CD
72808 710 4 0 0 0 0 2 3 1 0 0 0 0 MODS
72810 710 5 0 0 0 0 1 4 1 0 0 0 0 DIVS
72812 564 6 0 0 0 0 1 4 1 0 0 0 0 CLOCK
72814 564 7 0 0 0 0 1 4 1 0 0 0 0 TIMER
72816 564 8 0 0 0 0 1 4 1 0 0 0 0 LOUT
72818 564 9 0 0 0 0 1 4 1 0 0 0 0 MT
72820 710 10 0 0 0 0 1 4 1 0 0 0 0 2ND STORE
72822 713 10 0 0 2 0 2 3 2 0 0 0 1 LELE
72900 TABLE 729 729 1 HDG/SER
72902 716 30 0 0 2 0 3 2 0 0 0 0 0 HDG
72904 710 3 0 0 0 0 5 0 2 0 0 0 0 PROGM
72906 91 6 0 0 2 0 2 3 1 0 0 0 0 FILE
72908 713 10 0 0 2 0 2 3 0 0 0 0 1 LELE
72910 716 32 0 0 2 0 3 0 0 0 0 0 0 SER
72912 707 3 0 0 0 0 3 2 0 1 0 0 0 RT
72914 716 32 0 0 2 0 1 4 0 0 0 0 0 TAB
72916 566 2 0 0 0 0 5 0 0 4 0 0 0 EXP BLOCK
72918 716 32 0 0 2 0 1 4 0 0 0 0 0 TAB
72920 91 0 0 0 2 0 5 0 0 0 0 0 0 ACT BLOCK
72922 713 10 0 0 2 0 2 3 0 0 0 0 1 LE LE
73000 TABLE 730 730 1 WRONG TAPE/TAPES
73002 566 7 0 0 0 0 5 0 3 4 0 0 0 TAPE NO
73004 713 10 0 0 2 0 2 3 0 0 0 0 1 LELE
73006 716 32 0 0 2 0 1 4 0 0 0 0 0 TAB
73008 710 16 0 0 2 0 5 0 0 0 0 0 0 TAPE NO
73010 716 32 0 0 2 0 1 4 0 0 0 0 0 TAB
73012 710 18 0 0 2 0 5 0 0 0 0 0 0 TAPE NO
73014 713 10 0 0 2 0 2 3 1 0 0 0 1 LELE
73016 703 2 0 0 0 0 5 0 0 5 0 0 0 TAPE NO
73018 703 3 0 0 0 0 5 0 0 5 0 0 1 TAPE NO
73100 TABLE 731 731 1 WRONG MODS/MODS
73102 716 32 0 0 2 0 1 4 0 0 0 0 0 TAB
73104 710 7 0 0 0 0 5 0 0 4 0 0 0 MOD EXPECTED
73106 716 32 0 0 2 0 1 4 0 0 0 0 0 TAB
73108 710 6 0 0 0 0 5 0 0 4 0 0 0 MOD FOUNT
73110 713 10 0 0 2 0 2 3 1 0 0 0 1 LELE
73112 703 13 0 0 0 0 5 0 1 5 0 0 0 MOD 1
73114 703 14 0 0 0 0 5 0 1 5 0 0 0 MOD 2
73116 703 15 0 0 0 0 5 0 1 5 0 0 0 MOD 3
73118 703 16 0 0 0 0 5 0 1 5 0 0 0 MOD 4
73120 703 17 0 0 0 0 5 0 1 5 0 0 0 MOD 5
73122 713 10 0 0 2 0 2 3 3 0 0 0 1 LELE
73200 TABLE 732 732 1 HIPHOPLIPLOP
Source image: P1030541.JPG
73202 91 1000 0 0 2 0 3 2 0 0 0 0 0
73204 707 3 0 0 0 0 3 2 0 1 0 0 0 RT
73206 716 32 0 0 2 0 1 4 0 0 0 0 0 TAB
73208 710 3 0 0 0 0 5 0 0 0 0 0 0 PTOGM
73210 716 32 0 0 2 0 1 4 0 0 0 0 0 TAB
73212 91 1002 0 0 0 0 5 0 0 0 0 0 0 RUN
73214 716 32 0 0 2 0 1 4 0 0 0 0 0 TAB
73216 91 1003 0 0 0 0 5 0 0 4 0 0 0 SPOOL
73218 716 32 0 0 2 0 1 4 0 0 0 0 0 TAB
73220 91 6 0 0 2 0 2 3 0 0 0 0 0 FILE
73222 716 34 0 0 2 0 1 4 0 0 0 0 0 /
73224 91 10 0 0 2 0 2 3 0 0 0 0 0 REEL
73226 713 10 0 0 2 0 2 3 3 0 0 0 1 LELE
73300 TABLE 733 733 1 LOP
73302 716 52 0 0 2 0 3 2 0 0 0 0 0 LOP
73304 707 3 0 0 0 0 3 2 0 1 0 0 0 RT
73306 716 32 0 0 2 0 1 4 0 0 0 0 0 TAB
73308 717 4 0 0 2 0 5 0 0 0 0 0 0 9000
73310 716 32 0 0 2 0 1 4 0 0 0 0 0 TAB
73312 91 1000 0 0 2 0 5 0 0 0 0 0 0 SERIAL
73314 716 32 0 0 2 0 1 4 0 0 0 0 0 TAB
73316 566 7 0 0 0 0 5 0 0 4 0 0 0 SPOOOL
73318 713 10 0 0 2 0 2 3 4 0 0 0 1 LELE
73400 PROCR 734 734 PRIMARY INPUT SEQUENCES(1)
73402 100 256 0 2 0 (½8 1 ) OR 24/1/0>16 replace (B) by (N)
73403 105 1152 1 0 0 subtract (N) from (A)
73404 100 256 0 2 0 (& 1 ) replace (B) by (N)
73405 102 0 0 0 0 transfer (A) to N
73406 100 256 0 2 0 (& 1 ) replace (B) by (N)
73407 102 0 0 0 0 transfer (A) to N
73408 100 256 0 2 0 (& 1 ) replace (B) by (N)
73409 102 0 0 0 0 transfer (A) to N
73410 100 256 0 2 0 (& 1 ) replace (B) by (N)
73411 102 0 0 0 0 transfer (A) to N
73412 100 256 0 2 0 (Q--1 ) replace (B) by (N)
73413 106 257 1 0 0 28/1/0>16 select (N)
73414 102 16 0 0 0 (Q-2 -) transfer (A) to N
73415 106 260 1 0 0 ( & &) select (N)
73416 103 0 0 0 0 (8-T ) copy (A) to N
73417 104 263 1 0 0 1 add (N) to (A)
73500 PROCR 735 735 PRIMARY INPUT SEQUENCES (2)
73502 106 28 0 0 0 (16) CONVERT select (N)
73503 102 327 0 0 0 (18) FROM transfer (A) to N
73504 102 2 1 0 0 (20) LOAD transfer (A) to N
73505 102 4 0 0 0 (22) STORE transfer (A) to N
73506 101 141 1 3 0 (24) (1) select literal address
73507 102 5 0 0 0 (26) transfer (A) to N
73508 124 320 1 0 0 (28) unconditional jump
73600 PROCR 736 736 PRIMARY INPUT SEQUENCES(3)
73602 106 65 0 0 0 (17) SET UP ASLS FOR select (N)
73603 103 64 0 0 0 (18) 0/0 copy (A) to N
73604 103 72 0 0 0 (19) 1/0 copy (A) to N
73605 103 192 0 0 0 (20) 16/0 copy (A) to N
73606 103 200 0 0 0 (21) 17/0 copy (A) to N
73607 124 129 0 1 0 (22) modify address of next
73608 126 0 1 0 0 (23) TEST ROUTE test route N1
Source image: P1030542.JPG
73609 124 34 1 0 0 (24)>CLOSED unconditional jump
73610 124 28 1 0 0 (24)>OPEN unconditional jump
73611 124 28 1 0 0 (26)>OPEN unconditional jump
73612 124 28 1 0 0 (27)>OPEN unconditional jump
73613 106 66 0 0 0 (28) TEST FIRST ROUTE select (N)
73614 127 42 0 2 0 (29)>YES TESTED OPEN jump A >= Z
73615 101 8 1 3 0 (30)AUGMENT ROUTE select literal address
73616 124 41 1 0 0 (31)BY 8 unconditional jump
73617 100 0 0 0 0 (32) Halt
73618 100 0 0 0 0 (33) Halt
73619 101 0 1 3 0 (34)ARRANGE TO TEST select literal address
73620 105 66 0 0 0 (35)NEXT CHANNEL subtract (N) from (A)
73621 103 66 0 0 0 (36) copy (A) to N
73622 107 23 0 0 0 (37) augment (N) by (A)
73623 127 22 0 3 0 (38) TEST BOTH CHANNELS jump A < Z
73624 100 259 0 0 0 (39)YES, HALT 1/0/3 CLOSED Halt
73625 124 22 1 0 0 (40)>RETEST unconditional jump
73626 107 129 0 0 0 (41) augment (N) by (A)
73627 124 129 0 1 0 (42)READ modify address of next
73628 119 0 0 1 0 (43) input one block/reset timer
73629 124 129 0 1 0 (44) TEST ROUTE modify address of next
73630 126 0 1 0 0 (45) test route N1
73631 100 259 0 0 0 (46)HALT 103 C Halt
73632 124 44 1 0 0 (47)> E unconditional jump
73633 100 261 0 0 0 (48)HALT 105 D Halt
73634 125 0 1 0 0 (49) W set indicators
73635 106 256 1 0 0 (50) TEST NEXT BLOCK select (N)
73636 105 68 1 0 0 (51) CORRECT subtract (N) from (A)
73637 127 58 0 1 0 (52)>NO jump A != Z
73638 106 62 1 0 0 (53)UNPACK BLOCK select (N)
73639 124 67 0 1 0 (54) modify address of next
73640 128 999 0 1 0 0 (55) bulk copy alpha to short
73641 124 67 0 1 0 (56) modify address of next
73642 124 574 2 1 0 0 574 (57)>SIPS unconditional jump
73643 106 256 1 0 0 (58) TEST NEXT BLOCK select (N)
73644 105 70 1 0 0 (59) SAME AS THIS ONE subtract (N) from (A)
73645 127 42 0 0 0 (60)>YES jump A = Z
73646 100 270 0 0 0 (61)NO HALT 1/0/. Halt
73647 100 261 0 0 0 (62)BULK COPY Halt
73648 100 1024 0 0 0 (63)TABLE Halt
73649 100 0 0 0 0 (64) Halt
73650 115 256 0 0 0 (65)ASL collate and add
73651 100 8 0 0 0 (66)TEST ROUTE COUNTER Halt
73652 100 0 0 1 0 (67)DIV ONE Invalid
73700 CONST 737 737 1 PRIMARY INPUT SEQUENCES(4)
73702 (D)5£5£5£0042; (68)SECOND BLOCK
73704 (A)H8 1 ; (70)FIRST BLOCK
73800 PROCR 738 738 INDEPENDENT STORE PRINT
73802 125 4096 1 1 0 (141)SET NON-INT clear indicators
73803 101 8158 1 3 0 (142)SET UP ASL select literal address
73804 102 64 0 0 0 (143) transfer (A) to N
73805 119 0 0 1 0 (144)READ input one block/reset timer
73806 126 0 1 0 0 (145)TEST ROUTE test route N1
73807 100 769 0 0 0 (146)RC HALT 3/0/1 Halt
73808 124 145 1 0 0 (147)EN unconditional jump
73809 100 8159 0 0 0 (148)DB HALT 1/£/:/ Halt
73810 100 32 0 0 0 (149) Halt
73811 106 148 1 0 0 (150)UNPACK FIRST BLOCK select (N)
Source image: P1030543.JPG
73812 128 8191 1 0 0 (151) bulk copy alpha to short
73813 124 8191 1 0 0 (152)>FIRST INSTRUCTION unconditional jump
73814 100 0 0 0 0 (153)PR RT TYPE/STORE SIZE/PR RT Halt
73900 CONST 739 739 1 PRIMARY INPUT SEQUENCES(5)
73902 (A)'8 1 ; (256)28/1/0>16
73904 ; (258)>(129)FIRST MT ROUTE
73906 8 &; (260)BULK COPY TABLE
73908 1; (262) ''
74000 PROCR 740 740 PRIMARY INPUT SEQUENCES(6)
74002 106 34 0 1 0 (320) CONVERT select (N)
74003 102 17 0 2 0 (322) FROM transfer (A) to N
74004 125 2 0 1 0 (324) LOAD step on and test
74005 125 1 0 2 0 (326) STORE) step on and test
74006 124 17 1 0 0 (328)> (2) unconditional jump
74007 END A ?????
PROGRAMME 08004 SERIAL 0 CHAPS 3 FILES 5 TRAN. AREAS 5 PTS INCLUDED
F.PT. NO MOD. GP. YES PRIORITY 3 ENTRY= CH2/1878
SIZE OF CHAPS 3286 8104 512 0 0 0 0
FILE ID. RTE. TYPE START LOCN. ALT.ROUTES BLOCK SIZE CHAPT
D1 14 7356 NO 394 2
B1 15 7750 NO 154 2
A1 7 7904 NO 154 2
A2 8 204 NO 154 3
A6 7 358 NO 154 3
TRAN. AREAS START LOCN. CHAPT SIZE
10 6796 2 394
5 2824 1 154
7 7190 2 154
8 2978 1 154
9 3132 1 154
SECTION.START
1=2918 2= 74 3=2978 4=3026 5=2824 6=3126 7=7190 8=2978 9=3132 10=6796 11=3192 12=3308
13=3212 14=2896 15=3284 16=3244 17=4026 18= 84 19=4576 20=2596 21=5236 22=4126 23=6728 24=7344
25=2584 26=3384 27=6776 28=2964 29=3010 40=5628 41=5680 42=5576 44=6680 52=4538 53=3054 54=3098
55=3258 61=2476 66=2448 67=2472 70=3098 72=3160 77=3054 91=2934 92=6690 93=3428 94=5476 97=3878
SWITCHES
106= CH2/8058 107= CH2/8059 122= CH2/8060 127= CH2/8061 133= CH2/8062 140= CH2/8063 118= CH2/8064 184= CH2/8065
222= CH2/8066 173= CH2/8067 240= CH2/8068 254= CH2/8069 263= CH2/8070 267= CH2/8071 278= CH2/8072 345= CH2/8073
361= CH2/8074 374= CH2/8075 100= CH2/8076 495= CH2/8077 403= CH2/8078 407= CH2/8079 212= CH2/8080 645= CH2/8081
411= CH2/8082
ITEM+ CTRS
5= CH2/8083 42= CH2/8084 41= CH2/8085
MR'S 4-20
11= CH2/8086 12= CH2/8088 6= CH2/8090 5= CH2/8092 13= CH2/8094 4= CH2/8096 7= CH2/8098 15= CH2/8100
8= CH2/8102
CHAPT 1
PROCEDURE 0
0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 0 0 0 0 3
4 0 0 0 0 4 0 0 0 0 5 0 0 0 0 6 0 0 0 0 7
8 0 0 0 0 8 0 0 0 0 9 0 0 0 0 10 0 0 0 0 11
12 0 0 0 0 12 0 0 0 0 13 0 0 0 0 14 0 0 0 0 15
16 0 0 0 0 16 0 0 0 0 17 0 0 0 0 18 0 0 0 0 19
20 0 0 0 0 20 0 0 0 0 21 0 0 0 0 22 0 0 0 0 23
24 0 0 0 0 24 0 0 0 0 25 0 0 0 0 0 25 1 1 4096 0
28 24 0 3 0 2 23 0 2 0 1792 0 0 0 0 0 0 0 0 0 0
32 26 0 1 26 2
PROCEDURE 100
33 0 1 0 54 2 0 0 3 0 2 1 1 3 5 0
36 0 0 2 70 2 25 1 1 4096 0 24 0 3 0 2 23 0 2 0 1024
40 0 1 1 54 2 24 0 3 3 2 24 1 0 2996 0 0 1 0 54 2
44 0 0 3 0 2 1 1 3 2 0 0 0 2 70 2 25 1 1 4096 0
48 24 0 3 0 2 23 0 2 0 1024 0 1 1 54 2 24 0 3 3 2
52 24 1 0 1878 0 0 0 0 0 0
SECTION 1011
54 0 0 0 0
56 0 0 0 0 0 0 0 0
60 0 0 0 0 0 0 0 0
64 0 0 0 0 0 0 0 0
68 0 0 0 0
SECTION 1012
70 2 0 0 0
72 0 0 0 0
SECTION 1013
PROCEDURE 1002
CHAPT 2
PROCEDURE 0
0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 0 0 0 0 3
4 0 0 0 0 4 0 0 0 0 5 0 0 0 0 6 0 0 0 0 7
8 0 0 0 0 8 0 0 0 0 9 0 0 0 0 10 0 0 0 0 11
12 0 0 0 0 12 0 0 0 0 13 0 0 0 0 14 0 0 0 0 15
16 0 0 0 0 16 0 0 0 0 17 0 0 0 0 18 0 0 0 0 19
20 0 0 0 0 20 0 0 0 0 21 0 0 0 0 22 0 0 0 0 23
24 0 0 0 0 24 0 0 0 0 25 0 0 0 0 0 25 1 1 4096 0
28 24 0 3 0 4 23 0 2 0 1792 0 0 0 0 0 0 0 0 0 0
32 26 0 1 26 4
PROCEDURE 101
33 0 1 0 2862 4 0 0 3 0 4 1 1 3 3 0
36 0 0 2 2958 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 1024
40 0 1 1 2862 4
PROCEDURE 102
41 1 1 3 1 0 2 1 0 1472 4 6 0 0 6785 4
44 27 0 1 222 4 6 0 0 6784 4 2 0 0 1461 4 0 0 3 0 4
48 1 1 3 19 0 26 0 0 987 4 0 1 0 2862 4 0 0 3 0 4
52 0 1 2 2876 4 6 1 0 2878 4 4 0 0 9 4 25 1 1 4096 0
56 24 0 3 0 4 23 0 2 0 256 0 0 3 2866 4 1 1 3 1 0
60 2 0 0 8062 4 0 0 3 2959 4 6 1 0 2880 4 28 0 0 5680 4
64 26 0 0 2562 4 6 1 0 5635 4 2 1 0 1584 4 6 1 0 5633 4
68 2 1 0 1582 4
PROCEDURE 103
69 0 0 3 2960 4 1 1 3 1 0 2 0 0 8063 4
72 2 1 0 1430 4 6 1 0 2882 4 28 0 0 1478 4 0 0 3 2960 4
76 1 1 3 15 0 4 0 0 1464 4 18 0 1 5 0 4 0 0 8 4
80 0 1 2 1466 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 160 0
84 26 0 0 962 4 6 0 0 1476 4 1 1 2 15 0 27 0 1 91 4
88 6 0 0 1477 4 2 0 0 1468 4 26 0 0 962 4 6 0 0 1476 4
92 1 1 2 1 0 27 0 1 2061 4 1 0 1 12 0 15 0 0 1584 4
96 27 0 0 99 4 5 0 0 2961 4 27 0 1 2618 4 6 0 0 1584 4
100 0 0 3 2959 4 1 1 1 1 0 2 0 0 1470 4 0 0 3 2960 4
104 6 0 0 1477 4 18 0 1 2 0 14 0 0 1470 4 26 0 0 962 4
PROCEDURE 104
108 6 0 0 1476 4 1 1 2 2 0 27 0 1 152 4 6 1 0 2884 4
112 28 0 0 5680 4 6 0 0 1464 4 27 0 1 148 4 24 0 2 1670 4
116 24 1 2 15 4 28 0 3 0 0 0 1 0 2862 4 0 0 3 0 4
120 1 1 1 2 0 0 0 3 2866 4 3 0 0 8083 4 6 1 0 1534 4
124 2 1 0 8086 4 6 1 0 1534 4 2 1 0 8088 4 1 0 1 3 0
128 25 1 2 0 0 24 0 1 8086 4 15 0 0 5681 4 27 0 0 146 4
132 1 1 2 1 0 18 1 0 4127 0 2 0 0 8088 4 18 1 0 1 0
136 2 0 0 1445 4 0 0 2 1446 4 6 0 0 1446 4 24 0 1 1445 4
140 18 1 3 0 0 24 0 1 8088 4 14 0 0 1478 4 23 0 0 1 0
144 0 0 0 8086 3 24 1 0 125 4 26 0 0 962 4 24 1 0 108 4
148 24 0 2 1680 4 24 1 2 15 4 28 0 2 0 0 24 1 0 123 4
152 1 1 3 1 0 2 0 0 8064 4
PROCEDURE 105
154 24 0 2 1610 4 28 1 2 5578 4
156 26 0 0 994 4 26 0 0 1170 4 24 0 2 1632 4 28 1 2 5578 4
160 26 0 0 994 4 0 0 3 2960 4 6 1 0 2886 4 2 1 0 8086 4
164 6 1 0 2888 4 2 1 0 8088 4 24 0 1 8086 4 6 0 0 1478 4
168 18 0 3 3 0 18 1 0 4127 0 2 0 0 1445 4 18 1 3 1 0
172 27 0 0 175 4 6 0 0 2962 4 24 1 0 191 4 6 0 0 2963 4
176 24 1 0 191 4 6 0 0 1445 4 18 1 1 4126 0 18 1 3 3 0
180 2 0 0 1445 4 18 1 1 1 0 18 1 3 1 0 2 0 0 1576 4
184 1 1 3 238 0 2 0 0 1444 4 24 0 1 1576 4 1 0 1 0 0
188 6 0 0 2964 4 14 0 0 1444 4 6 0 0 1444 4 24 0 1 8088 4
192 2 1 0 5577 4 23 0 0 4098 0 0 0 0 8088 3 24 1 0 177 4
196 6 1 0 1530 4 2 1 0 5586 4 26 0 0 994 4 23 0 0 1 0
200 0 0 0 8086 3 24 1 0 164 4 0 0 3 2959 4 26 0 0 1170 4
204 24 0 2 1642 4 28 1 2 5578 4 26 0 0 994 4 24 1 2 15 4
208 24 0 2 0 0 18 1 1 4123 0 1 1 3 10 0 18 1 1 5 0
212 28 1 1 6680 4 24 0 2 5578 4 18 1 1 4123 0 1 1 3 46 0
216 18 1 1 5 0 24 1 2 15 4 28 1 1 0 0 24 0 2 244 4
220 2 0 0 1049 4 24 1 0 2056 4 6 1 0 2890 4 0 1 2 2808 4
224 4 0 0 7 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 160 0
228 6 0 0 2965 4 24 1 2 13 4 2 1 0 5 0 6 0 0 2966 4
232 24 1 2 13 4 2 1 0 6 0 6 0 0 2967 4 24 1 2 13 4
236 2 1 0 9 0 6 1 0 1530 4 24 1 2 13 4 2 1 0 10 0
240 1 1 3 8 0 0 0 2 12 4 26 0 0 987 4 24 1 0 50 4
PROCEDURE 106
244 26 0 0 945 4 6 1 0 5680 4 5 1 0 1572 4 27 0 1 244 4
248 2 0 0 1460 4 26 0 0 945 4 26 0 0 945 4 6 1 0 5680 4
252 5 1 0 1554 4 27 0 1 250 4 1 1 3 20 0 2 0 0 8058 4
256 24 1 0 258 4
PROCEDURE 107
257 26 0 0 945 4 6 1 0 5680 4 5 1 0 1554 4
260 27 0 0 279 4 6 0 0 1468 4 27 0 0 266 4 5 1 0 5681 4
264 27 0 1 266 4 23 0 3 0 0 6 1 0 5684 4 5 1 0 1556 4
268 27 0 0 283 4 6 1 0 5684 4 5 1 0 1558 4 27 0 0 282 4
272 6 1 0 5684 4 5 1 0 1560 4 27 0 0 281 4 6 1 0 5684 4
276 5 1 0 1570 4 27 0 0 790 4 24 1 0 311 4 2 0 0 8086 4
280 1 1 3 1 0 1 1 1 1 0 1 1 1 1 0 1 1 1 1 0
284 2 0 0 8059 4 6 0 0 1449 4 27 0 0 299 4 1 1 3 0 0
288 2 0 0 1449 4 24 0 1 8058 4 26 0 1 290 4 0 0 0 299 3
292 0 0 0 293 3 6 1 0 1520 4 2 1 0 5578 4 6 1 0 1530 4
296 2 1 0 5580 4 2 1 0 1430 4 26 0 0 1049 4 26 0 0 945 4
300 6 1 0 5638 4 5 1 0 1562 4 27 0 1 304 4 26 0 0 945 4
304 1 1 3 0 0 2 0 0 1450 4 1 1 3 2 0 2 0 0 8058 4
308 1 1 3 1 0 2 0 0 8064 4 24 1 0 258 4
PROCEDURE 108
311 6 1 0 5680 4
312 2 1 0 1520 4 6 0 0 1450 4 27 0 0 327 4 24 0 2 5680 4
316 18 1 1 4123 0 1 1 3 42 0 18 1 1 5 0 24 0 1 8090 4
320 28 1 1 6052 4 23 0 0 42 0 0 0 0 8090 3 24 1 0 327 4
324 1 1 3 0 0 2 0 0 1450 4 2 0 0 8090 4
PROCEDURE 109
327 6 1 0 5706 4
328 18 1 1 4120 0 0 0 3 2960 4 1 1 2 91 0 0 0 3 2959 4
332 27 0 1 355 4 24 0 2 5706 4 18 1 1 4123 0 1 1 3 16 0
336 18 1 1 5 0 28 1 1 5724 4 26 0 0 1179 4 6 0 0 1449 4
340 27 0 1 344 4 26 0 0 358 4 27 0 0 355 4 24 1 0 454 4
344 26 0 0 1230 4 24 1 0 257 4
PROCEDURE 110
346 1 1 3 0 0 2 0 0 1449 4
348 24 0 1 8058 4 26 0 1 349 4 0 0 0 257 3 0 0 0 352 3
352 6 1 0 5680 4 2 1 0 1430 4 24 1 0 257 4
PROCEDURE 111
355 1 1 3 1 0
356 2 0 0 8064 4 24 1 0 257 4
PROCEDURE 112
358 0 0 0 0 0 1 1 3 2 0
360 3 0 0 1451 4 3 0 0 1452 4 6 1 0 1534 4 2 1 0 8092 4
364 6 1 0 2892 4 2 1 0 8094 4 6 1 0 1534 4 2 1 0 8096 4
368 2 1 0 1512 4 6 1 0 2894 4 2 1 0 8088 4 24 0 1 8092 4
372 6 1 0 6002 4 24 0 1 8096 4 3 1 0 5986 4 27 0 0 405 4
376 6 1 0 1512 4 24 0 1 8092 4 0 1 2 6002 4 18 1 1 2 0
380 27 0 0 394 4 23 0 0 1 0 0 0 0 8094 3 24 1 0 385 4
384 24 1 0 406 4 23 0 0 2 0 0 0 0 8088 3 24 1 0 379 4
388 23 0 0 2 0 0 0 0 8096 3 24 1 0 391 4 23 0 0 2 0
392 0 0 0 8092 3 24 1 0 368 4 1 1 3 0 0 24 0 1 8096 4
396 2 1 0 5988 4 6 0 0 1452 4 27 0 1 405 4 1 1 3 2 0
400 7 0 0 1451 4 2 0 0 1452 4 23 0 0 2 0 0 0 0 8092 3
404 24 1 0 364 4 26 0 1 358 4
PROCEDURE 113
406 0 1 0 1512 4 1 1 3 0 0
408 24 0 1 8096 4 2 1 0 5988 4 6 1 0 2892 4 2 1 0 8094 4
412 6 0 0 1452 4 27 0 0 450 4 6 1 0 1513 4 1 1 2 4079 0
416 27 0 0 418 4 27 0 2 617 4 6 1 0 1513 4 18 1 1 4127 0
420 27 0 0 795 4 2 0 0 1512 4 18 1 1 1 0 27 0 0 795 4
424 2 0 0 1455 4 6 0 0 1512 4 1 1 2 1 0 18 1 0 4127 0
428 2 0 0 1453 4 18 1 0 1 0 2 0 0 1454 4 0 0 2 1446 4
432 24 0 1 1454 4 18 1 3 0 0 24 0 1 1453 4 15 0 0 1478 4
436 0 0 3 2959 4 27 0 1 444 4 6 0 0 1455 4 1 1 2 8 0
440 27 0 0 795 4 27 0 3 448 4 3 0 0 1455 4 24 1 0 450 4
444 6 0 0 1455 4 1 1 2 8 0 27 0 0 795 4 27 0 3 450 4
448 1 1 3 0 0 2 0 0 1452 4 1 1 3 0 0 2 1 0 1512 4
452 0 1 1 1512 4 24 1 0 385 4
PROCEDURE 114
454 24 0 1 1455 4 24 1 0 455 4
456 24 1 0 464 4 24 1 0 462 4 24 1 0 480 4 24 1 0 550 4
460 24 1 0 795 4 24 1 0 480 4
PROCEDURE 115
462 1 1 3 1 0 3 0 0 1449 4
464 1 1 1 1 0 2 0 0 1455 4 1 1 3 1 0 2 0 0 8064 4
468 24 0 1 8058 4 26 0 1 469 4 0 0 0 257 3 0 0 0 472 3
472 6 1 0 5680 4 2 1 0 5578 4 6 1 0 1568 4 2 1 0 5580 4
476 6 1 0 1530 4 2 1 0 5582 4 26 0 0 1058 4 24 1 0 257 4
PROCEDURE 116
480 6 0 0 1450 4 27 0 0 493 4 6 0 0 1449 4 27 0 1 257 4
484 6 1 0 6003 4 18 0 1 4126 0 1 1 2 4080 0 27 0 3 493 4
488 27 0 1 257 4 6 1 0 6005 4 18 0 1 4126 0 1 1 2 4080 0
492 27 0 2 257 4 24 0 1 8059 4 26 0 1 494 4 0 0 0 500 3
496 0 0 0 500 3 0 0 0 500 3 0 0 0 795 3 0 0 0 795 3
500 6 1 0 2896 4 2 1 0 8086 4 1 1 3 1 0 2 0 0 1465 4
504 24 0 1 8086 4 24 0 2 6006 4 18 1 1 4123 0 1 1 3 26 0
508 18 1 1 5 0 28 1 1 5724 4 26 0 0 1179 4 26 0 0 1230 4
512 24 1 0 514 4 24 1 0 518 4 23 0 0 42 0 0 0 0 8086 3
516 24 1 0 504 4 24 1 0 807 4 1 1 3 0 0 2 0 0 1465 4
520 6 0 0 1455 4 1 1 2 6 0 27 0 1 539 4 24 0 1 8059 4
524 26 0 1 524 4 0 0 0 528 3 0 0 0 539 3 0 0 0 532 3
528 24 0 1 8086 4 6 1 0 5984 4 2 1 0 5684 4 24 1 0 545 4
532 24 0 1 8086 4 6 1 0 5982 4 2 1 0 5682 4 24 0 1 8086 4
536 6 1 0 5986 4 2 1 0 5686 4 24 1 0 545 4 24 0 1 8086 4
540 24 0 2 5982 4 18 1 1 4123 0 1 1 3 40 0 18 1 1 5 0
544 28 1 1 5682 4 24 0 1 8059 4 26 0 1 546 4 0 0 0 581 3
548 0 0 0 608 3 0 0 0 610 3
PROCEDURE 117
550 24 0 1 1451 4 6 1 0 5712 4
552 24 0 1 8059 4 26 0 1 553 4 0 0 0 559 3 0 0 0 561 3
556 0 0 0 567 3 0 0 0 569 3 0 0 0 355 3 2 1 0 5686 4
560 24 1 0 581 4 2 1 0 5686 4 6 1 0 1518 4 2 1 0 5688 4
564 6 1 0 2898 4 28 1 1 5690 4 24 1 0 608 4 2 1 0 5686 4
568 24 1 0 610 4
PROCEDURE 118
569 26 0 0 1175 4 24 0 2 1720 4 28 1 3 5582 4
572 3 0 0 8084 4 24 0 2 5706 4 18 1 1 4123 0 1 1 3 16 0
576 18 1 1 5 0 28 1 1 5604 4 26 0 0 1141 4 26 0 0 1041 4
580 24 1 0 257 4
PROCEDURE 119
581 26 0 0 1175 4 6 1 0 5688 4 18 1 1 4122 0
584 2 1 0 5688 4 18 1 1 6 0 2 1 0 5694 4 24 0 2 1722 4
588 28 1 3 5582 4 3 0 0 8084 4 6 1 0 5690 4 2 1 0 5594 4
592 6 1 0 5692 4 2 1 0 5596 4 6 1 0 1518 4 3 1 0 5598 4
596 2 1 0 5608 4 24 0 2 5706 4 18 1 1 4123 0 1 1 3 8 0
600 18 1 1 5 0 28 1 1 5600 4 24 0 2 5714 4 18 1 1 4123 0
604 1 1 3 8 0 18 1 1 5 0 28 1 1 5610 4 24 1 0 578 4
PROCEDURE 120
608 26 0 0 1155 4 24 1 0 257 4
PROCEDURE 121
610 26 0 0 1175 4 24 0 2 1720 4
612 28 1 3 5582 4 3 0 0 8084 4 24 0 2 1726 4 28 1 2 5592 4
616 24 1 0 573 4
PROCEDURE 122
617 2 0 0 8060 4 24 0 1 8060 4 26 0 1 619 4
620 0 0 0 630 3 0 0 0 464 3 0 0 0 462 3 0 0 0 642 3
624 0 0 0 550 3 0 0 0 795 3 0 0 0 659 3 0 0 0 795 3
628 0 0 0 679 3 0 0 0 790 3
PROCEDURE 123
630 24 0 2 5680 4 18 1 1 4123 0
632 1 1 3 42 0 18 1 1 5 0 28 1 1 6052 4 6 1 0 2900 4
636 28 0 0 6094 4 6 1 0 2902 4 2 1 0 8090 4 1 1 3 1 0
640 2 0 0 1450 4 24 1 0 449 4
PROCEDURE 124
642 24 0 1 8059 4 26 0 1 643 4
644 0 0 0 649 3 0 0 0 654 3 0 0 0 656 3 0 0 0 795 3
648 0 0 0 795 3 6 1 0 2904 4 2 1 0 5682 4 6 1 0 2906 4
652 28 1 1 5684 4 24 1 0 581 4 1 1 3 0 0 24 1 0 561 4
656 6 1 0 2898 4 28 1 1 5682 4 24 1 0 610 4
PROCEDURE 125
659 24 0 1 8059 4
660 26 0 1 660 4 0 0 0 666 3 0 0 0 795 3 0 0 0 795 3
664 0 0 0 795 3 0 0 0 795 3 1 1 3 292 0 2 1 0 5683 4
668 1 1 3 4096 0 2 1 0 5689 4 6 1 0 5681 4 1 1 1 1 0
672 18 1 1 4126 0 2 1 0 5685 4 18 1 1 2 0 2 1 0 5687 4
676 2 1 0 5690 4 2 1 0 5692 4 24 1 0 581 4
PROCEDURE 126
679 1 1 3 2 0
680 2 0 0 8063 4 6 0 0 1476 4 1 1 2 3 0 27 0 1 790 4
684 24 0 2 6680 4 18 1 1 4123 0 1 1 3 10 0 18 1 1 5 0
688 24 1 2 15 4 28 1 1 0 0 6 1 0 2908 4 28 1 1 5780 4
692 6 1 0 1534 4 2 1 0 8086 4 6 1 0 2910 4 28 1 1 5730 4
696 6 0 0 1464 4 27 0 0 702 4 24 0 2 1702 4 24 1 2 15 4
700 28 0 2 0 0 24 1 0 710 4 24 0 2 1674 4 24 1 2 15 4
704 28 0 3 0 0 0 1 0 2862 4 0 0 3 0 4 1 1 1 2 0
708 0 0 3 2866 4 3 0 0 8083 4 24 0 2 5731 4 18 1 1 4123 0
712 1 1 3 8 0 18 1 1 5 0 24 0 1 8086 4 28 0 0 5780 4
716 23 0 0 8 0 0 0 0 8086 3 24 1 0 719 4 26 0 0 962 4
720 6 0 0 1476 4 1 1 2 3 0 27 0 0 694 4
PROCEDURE 127
723 6 1 0 1534 4
724 2 1 0 8086 4 0 0 3 2960 4 6 1 0 5684 4 5 1 0 1558 4
728 27 0 0 732 4 1 1 3 2 0 2 0 0 8061 4 24 1 0 735 4
732 26 0 0 945 4 1 1 3 1 0 2 0 0 8064 4 6 1 0 5684 4
736 5 1 0 1570 4 27 0 0 790 4 24 0 1 8086 4 6 0 0 5780 4
740 27 0 0 747 4 1 1 2 16 0 27 0 0 748 4 27 0 3 745 4
744 1 1 1 4064 0 1 1 1 16 0 24 1 0 749 4 6 0 0 2968 4
748 1 1 1 255 0 2 0 0 1514 4 6 1 0 5686 4 18 0 1 4124 0
752 5 1 0 1522 4 27 0 1 757 4 6 1 0 1522 4 2 1 0 5686 4
756 24 1 0 773 4 6 1 0 5687 4 18 0 1 5 0 4 1 0 5689 4
760 1 0 1 0 0 2 1 0 1512 4 27 1 1 766 4 6 1 0 1512 4
764 18 1 1 4127 0 24 1 0 761 4 2 1 0 5686 4 6 1 0 1512 4
768 5 1 0 1514 4 27 0 1 773 4 1 1 3 1 0 2 0 0 8064 4
772 24 1 0 786 4 6 1 0 1514 4 2 1 0 5689 4 6 1 0 1518 4
776 2 1 0 5690 4 24 0 1 8061 4 26 0 1 778 4 0 0 0 781 3
780 0 0 0 782 3 6 1 0 1522 4 2 1 0 5684 4 26 0 0 1155 4
784 1 1 3 2 0 2 0 0 8064 4 26 0 0 945 4 23 0 0 1 0
788 0 0 0 8086 3 24 1 0 725 4
PROCEDURE 128
790 6 1 0 2774 4 2 1 0 5578 4
792 6 1 0 1530 4 2 1 0 5580 4 26 0 0 1049 4
PROCEDURE 129
795 1 1 3 1 0
796 2 0 0 8064 4 6 1 0 5680 4 2 1 0 1596 4 0 1 0 2862 4
800 0 0 3 0 4 24 0 2 1586 4 25 1 1 4096 0 24 0 3 0 4
804 23 0 2 0 1280 0 1 1 2862 4 24 1 0 817 4
PROCEDURE 130
807 6 1 0 5680 4
808 2 1 0 1606 4 2 0 0 1465 4 0 1 0 2862 4 0 0 3 0 4
812 24 0 2 1600 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 1280
816 0 1 1 2862 4
PROCEDURE 131
817 1 1 3 19 0 0 0 2 2969 4 25 1 1 4096 0
820 24 0 3 0 4 26 0 2 0 512 0 0 0 2639 3 0 0 0 2068 3
824 0 0 0 826 3 0 0 0 257 3 6 0 0 609 4 3 0 0 807 4
828 2 0 0 797 4 24 1 0 257 4
PROCEDURE 132
830 0 0 0 0 0 0 1 0 2862 4
832 0 0 3 0 4 0 0 2 16 4 6 1 0 2912 4 4 0 0 9 4
836 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 2862 4
840 26 0 1 830 4
PROCEDURE 133
841 0 0 0 0 0 24 0 1 8062 4 26 0 1 843 4
844 0 0 0 856 3 0 0 0 846 3 6 1 0 1432 4 27 0 1 867 4
848 26 0 0 830 4 24 1 2 17 4 24 0 2 0 0 18 1 1 4123 0
852 1 1 3 52 0 18 1 1 5 0 28 1 1 5628 4 26 0 1 841 4
856 26 0 0 830 4 24 1 2 17 4 6 1 0 12 0 5 1 0 1556 4
860 27 0 1 849 4 1 1 3 2 0 2 0 0 8062 4 24 1 2 17 4
864 6 1 0 5 0 18 0 1 5 0 2 1 0 8098 4 6 1 0 2914 4
868 28 0 0 5680 4 6 1 0 2916 4 28 0 0 5628 4 0 1 0 2862 4
872 0 0 3 0 4 24 1 2 17 4 24 0 2 0 0 4 0 0 8098 4
876 2 0 0 2868 4 0 1 1 2862 4 24 0 3 2868 4 24 0 2 6 0
880 18 1 1 4123 0 0 1 0 2862 4 0 0 3 0 4 24 1 2 17 4
884 24 0 2 0 0 4 0 0 8098 4 2 0 0 2868 4 0 1 1 2862 4
888 24 0 3 2868 4 6 1 0 7 0 18 1 1 5 0 28 1 1 5680 4
892 0 1 0 2862 4 0 0 3 0 4 24 1 2 17 4 24 0 2 0 0
896 4 0 0 8098 4 2 0 0 2868 4 0 1 1 2862 4 24 0 3 2868 4
900 6 1 0 12 0 5 1 0 1558 4 27 0 3 912 4 6 1 0 5684 4
904 2 1 0 5634 4 6 1 0 5686 4 2 1 0 5638 4 6 1 0 5688 4
908 2 1 0 5644 4 6 1 0 5695 4 2 0 0 1440 4 24 1 0 925 4
912 24 0 1 8059 4 26 0 1 913 4 0 0 0 917 3 0 0 0 920 3
916 0 0 0 923 3 24 0 2 1766 4 28 0 2 5684 4 24 1 0 925 4
920 24 0 2 1838 4 28 0 2 5684 4 24 1 0 925 4 24 0 2 1802 4
924 28 0 2 5684 4 0 1 0 2862 4 0 0 3 0 4 24 1 2 17 4
928 24 0 2 0 0 4 0 0 8098 4 2 0 0 2868 4 0 1 1 2862 4
932 24 0 3 2868 4 6 1 0 7 0 2 0 0 1434 4 24 0 1 1434 4
936 23 0 0 0 0 0 0 0 8098 3 24 1 0 944 4 26 0 0 830 4
940 24 1 2 17 4 6 1 0 5 0 18 0 1 5 0 2 1 0 8098 4
944 26 0 1 841 4
PROCEDURE 134
945 0 0 0 0 0 26 0 0 841 4 24 0 2 5634 4
948 18 1 1 4123 0 1 1 3 42 0 18 1 1 5 0 28 1 1 5680 4
952 6 1 0 5632 4 18 0 1 4120 0 1 1 2 91 0 27 0 1 961 4
956 24 0 2 5632 4 18 1 1 4123 0 1 1 3 10 0 18 1 1 5 0
960 28 1 1 5680 4 26 0 1 945 4
PROCEDURE 135
962 0 0 0 0 0 0 0 3 2960 4
964 0 0 2 14 4 1 1 3 5 0 4 0 0 1464 4 18 0 1 5 0
968 4 0 0 8 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 160 0
972 6 0 0 1464 4 27 0 1 983 4 24 0 2 1666 4 24 1 2 15 4
976 28 0 3 0 0 0 1 0 2862 4 0 0 3 0 4 1 1 1 2 0
980 0 0 3 2866 4 3 0 0 8083 4 26 0 1 962 4 24 0 2 1676 4
984 24 1 2 15 4 28 0 2 0 0 26 0 1 962 4
PROCEDURE 136
987 0 0 0 0 0
988 18 0 1 5 0 4 0 0 7 4 25 1 1 4096 0 24 0 3 0 4
992 23 0 2 160 0 26 0 1 987 4
PROCEDURE 137
994 0 0 0 0 0 0 1 0 1524 4
996 0 0 3 1534 4 6 0 0 6785 4 27 0 0 1007 4 24 0 2 5576 4
1000 18 1 1 4123 0 1 1 3 50 0 18 1 1 5 0 24 1 2 13 4
1004 28 1 1 4 0 1 1 3 8 0 24 1 0 1019 4 1 1 3 0 0
1008 2 1 0 5576 4 6 0 0 6784 4 1 1 2 9 0 27 0 1 1025 4
1012 24 0 2 5576 4 18 1 1 4123 0 1 1 3 50 0 18 1 1 5 0
1016 24 1 2 13 4 28 1 1 0 0 1 1 3 9 0 0 0 2 12 4
1020 26 0 0 987 4 0 1 1 1524 4 6 1 0 2918 4 28 1 1 5628 4
1024 26 0 1 994 4 6 0 0 2970 4 2 0 0 5577 4 24 0 2 5576 4
1028 24 1 2 13 4 29 0 1 0 0 1 1 3 4 0 24 1 0 1019 4
1032 0 1 0 2862 4 0 0 3 0 4 0 0 2 12 4 6 1 0 2912 4
1036 4 0 0 9 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
1040 0 1 1 2862 4
PROCEDURE 138
1041 0 0 0 0 0 6 0 0 1352 4 2 0 0 1331 4
1044 6 1 0 1504 4 2 1 0 5622 4 26 0 0 1259 4 26 0 0 1058 4
1048 26 0 1 1041 4
PROCEDURE 139
1049 0 0 0 0 0 24 0 2 5578 4 18 1 1 4123 0
1052 1 1 3 46 0 18 1 1 5 0 24 1 2 15 4 28 1 1 0 0
1056 26 0 0 994 4 24 1 0 2684 4
PROCEDURE 140
1058 0 0 0 0 0 24 0 1 8063 4
1060 26 0 1 1060 4 0 0 0 1063 3 0 0 0 1087 3 6 1 0 5580 4
1064 18 0 1 4120 0 1 1 2 84 0 27 0 0 1094 4 1 1 2 42 0
1068 27 0 0 1090 4 6 1 0 1431 4 27 0 0 1085 4 6 1 0 5578 4
1072 2 1 0 1436 4 6 1 0 5580 4 2 1 0 1438 4 6 1 0 1430 4
1076 2 1 0 5578 4 6 1 0 1530 4 2 1 0 5580 4 26 0 0 1049 4
1080 6 1 0 1436 4 2 1 0 5578 4 6 1 0 1438 4 2 1 0 5580 4
1084 2 1 0 1430 4 26 0 0 1049 4 26 0 1 1058 4 6 1 0 1430 4
1088 27 0 1 1071 4 24 1 0 1085 4 6 1 0 5578 4 2 1 0 1430 4
1092 0 0 3 2960 4 26 0 1 1058 4 6 1 0 1431 4 0 0 3 2959 4
1096 27 0 1 1111 4 6 1 0 1443 4 5 1 0 5579 4 1 1 1 1 0
1100 27 0 0 1090 4 1 1 1 1 0 27 0 1 1132 4 24 0 1 8059 4
1104 26 0 1 1104 4 0 0 0 1132 3 0 0 0 1108 3 0 0 0 1090 3
1108 6 0 0 1440 4 27 0 0 1132 4 24 1 0 1090 4 5 1 0 5579 4
1112 1 1 1 1 0 27 0 0 1123 4 1 1 1 1 0 27 0 1 1137 4
1116 24 0 1 8059 4 26 0 1 1117 4 0 0 0 1137 3 0 0 0 1121 3
1120 0 0 0 1123 3 6 0 0 1440 4 27 0 0 1137 4 6 0 0 1455 4
1124 1 1 2 2 0 27 0 1 1090 4 2 1 0 1430 4 0 0 3 2960 4
1128 26 0 1 1058 4 6 1 0 5578 4 2 1 0 1430 4 26 0 1 1058 4
1132 6 1 0 5578 4 2 1 0 1442 4 0 0 3 2960 4 26 0 0 1049 4
1136 26 0 1 1058 4 6 1 0 5578 4 2 1 0 1442 4 0 0 3 2960 4
1140 24 1 0 1071 4
PROCEDURE 141
1141 0 0 0 0 0 24 0 1 8064 4 26 0 1 1143 4
1144 0 0 0 1146 3 0 0 0 1153 3 6 1 0 5680 4 2 1 0 5578 4
1148 1 1 3 2 0 2 0 0 8064 4 6 1 0 1566 4 2 1 0 5580 4
1152 26 0 1 1141 4 6 1 0 1518 4 24 1 0 1151 4
PROCEDURE 142
1155 0 0 0 0 0
1156 24 0 2 5684 4 18 1 1 4123 0 1 1 3 38 0 18 1 1 5 0
1160 28 1 1 5582 4 2 1 0 5578 4 26 0 0 1141 4 6 1 0 1504 4
1164 2 1 0 5622 4 6 0 0 1350 4 2 0 0 1331 4 26 0 0 1259 4
1168 26 0 0 1058 4 26 0 1 1155 4
PROCEDURE 143
1170 0 0 0 0 0 6 1 0 1530 4
1172 2 1 0 5578 4 26 0 0 994 4 26 0 1 1170 4
PROCEDURE 144
1175 0 0 0 0 0
1176 6 1 0 2918 4 28 1 1 5576 4 26 0 1 1175 4
PROCEDURE 145
1179 0 0 0 0 0
1180 0 0 3 2960 4 6 1 0 2886 4 2 1 0 8094 4 1 0 1 768 0
1184 24 0 1 8094 4 15 1 0 5724 4 27 0 0 1212 4 2 1 0 1508 4
1188 15 1 0 1564 4 5 1 0 1508 4 27 0 1 1195 4 6 1 0 1510 4
1192 24 0 1 8094 4 14 1 0 5724 4 24 1 0 1202 4 1 1 3 0 0
1196 15 1 0 1574 4 5 1 0 1508 4 27 0 2 1202 4 6 0 0 1465 4
1200 27 0 0 355 4 24 1 0 514 4 1 1 3 0 0 18 1 1 4126 0
1204 27 1 1 1184 4 23 0 0 2 0 0 0 0 8094 3 24 1 0 1183 4
1208 6 1 0 1504 4 24 0 1 8094 4 2 1 0 5724 4 24 1 0 1222 4
1212 6 1 0 1510 4 24 0 1 8094 4 14 1 0 5724 4 1 1 3 0 0
1216 18 1 1 4126 0 6 1 0 1504 4 24 0 1 8094 4 14 1 0 5724 4
1220 24 0 1 8094 4 2 1 0 5726 4 24 0 2 1672 4 28 0 3 5724 4
1224 0 1 0 2862 4 0 0 3 0 4 1 1 1 2 0 0 0 3 2866 4
1228 3 0 0 8085 4 26 0 1 1179 4
PROCEDURE 146
1230 0 0 0 0 0 6 1 0 1534 4
1232 2 1 0 8088 4 1 1 3 0 0 2 0 0 1458 4 24 0 1 8088 4
1236 6 1 0 6002 4 27 0 0 1243 4 5 1 0 5986 4 27 0 0 1244 4
1240 23 0 0 2 0 0 0 0 8088 3 24 1 0 1233 4 26 0 1 1230 4
1244 6 0 0 8088 4 4 0 0 1458 4 2 0 0 8100 4 24 0 1 1458 4
1248 6 1 0 5986 4 27 0 0 1257 4 24 0 1 8100 4 5 1 0 6002 4
1252 27 0 1 1240 4 0 0 3 2960 4 1 1 3 2 0 7 0 0 1458 4
1256 24 1 0 1244 4 24 0 3 1230 4 24 1 0 1 0
PROCEDURE 147
1259 0 0 0 0 0
1260 0 0 3 2960 4 6 1 0 1426 4 3 1 0 1414 4 3 1 0 1416 4
1264 2 1 0 1418 4 24 0 2 5578 4 3 1 0 1420 4 3 1 0 1422 4
1268 2 1 0 1424 4 6 0 0 1378 4 2 0 0 1291 4 0 1 2 1414 4
1272 24 0 3 1420 4 15 1 0 0 0 27 0 0 1308 4 2 1 0 1428 4
1276 24 0 3 1420 4 14 1 0 0 0 6 1 0 1429 4 27 0 0 1308 4
1280 6 1 0 1428 4 18 1 1 4126 0 27 0 1 1281 4 18 1 1 2 0
1284 3 1 0 1428 4 1 1 2 61 0 27 0 0 1355 4 1 1 2 64 0
1288 27 0 0 1355 4 1 1 2 1 0 27 0 0 1381 4 6 1 0 1418 4
1292 2 1 0 1416 4 6 1 0 1424 4 2 1 0 1422 4 6 0 0 1375 4
1296 2 0 0 1291 4 6 0 0 1380 4 2 0 0 1279 4 26 0 0 1395 4
1300 6 1 0 1418 4 18 1 1 4126 0 3 1 0 1418 4 27 0 1 1308 4
1304 6 1 0 1426 4 2 1 0 1418 4 23 0 0 2 0 0 0 0 1424 3
1308 6 1 0 1416 4 18 1 1 4126 0 3 1 0 1416 4 27 0 1 1316 4
1312 6 1 0 1426 4 2 1 0 1416 4 23 0 0 2 0 0 0 0 1422 3
1316 6 1 0 1414 4 18 1 1 4126 0 3 1 0 1414 4 27 0 1 1324 4
1320 6 1 0 1426 4 2 1 0 1414 4 23 0 0 2 0 0 0 0 1420 3
1324 1 1 3 0 0 24 1 0 1271 4 6 1 0 1416 4 2 1 0 1418 4
1328 6 1 0 1422 4 2 1 0 1424 4 24 1 0 1299 4 6 1 0 1418 4
1332 2 1 0 1416 4 6 1 0 1424 4 2 1 0 1422 4 6 0 0 1352 4
1336 2 0 0 1291 4 24 1 0 1299 4 6 0 0 1351 4 2 0 0 1331 4
1340 6 1 0 1418 4 24 1 0 1332 4 6 0 0 1352 4 2 0 0 1331 4
1344 6 1 0 1416 4 2 1 0 1418 4 6 1 0 1422 4 2 1 0 1424 4
1348 24 1 0 1335 4 24 1 0 1326 4 24 1 0 1338 4 24 1 0 1342 4
1352 6 1 0 1418 4 24 1 0 1407 4 24 1 0 1386 4
PROCEDURE 148
1355 6 1 0 1418 4
1356 2 1 0 1416 4 6 0 0 1379 4 2 0 0 1279 4 6 1 0 1424 4
1360 2 1 0 1422 4 6 0 0 1378 4 2 0 0 1291 4 24 1 0 1299 4
1364 6 0 0 1377 4 2 0 0 1355 4 6 1 0 1418 4 24 1 0 1356 4
1368 6 0 0 1378 4 2 0 0 1355 4 6 1 0 1416 4 2 1 0 1418 4
1372 6 1 0 1422 4 2 1 0 1424 4 24 1 0 1361 4 24 1 0 1326 4
1376 24 1 0 1404 4 24 1 0 1408 4 6 1 0 1418 4 27 0 0 1308 4
1380 24 1 0 1280 4 6 1 0 1418 4 2 1 0 1416 4 6 1 0 1424 4
1384 2 1 0 1422 4 26 0 0 1395 4 18 1 1 4118 0 24 0 3 1422 4
1388 14 1 0 0 0 18 1 1 4126 0 27 1 1 1387 4 6 1 0 1530 4
1392 24 0 3 1422 4 2 1 0 2 0 26 0 1 1259 4
PROCEDURE 149
1395 0 0 0 0 0
1396 0 1 2 1428 4 1 1 3 255 0 5 1 0 1416 4 27 0 0 1403 4
1400 4 1 0 1416 4 18 1 1 2 0 24 1 0 1398 4 6 1 0 1416 4
1404 24 0 3 1422 4 14 1 0 0 0 26 0 1 1395 4 6 1 0 1418 4
1408 2 1 0 1416 4 6 1 0 1424 4 2 1 0 1422 4 26 0 0 1395 4
1412 24 1 0 1354 4 0 0 0 0 0
SECTION 150
1414 0 0 0 0
1416 0 0 0 0 0 0 0 0
1420 0 0 0 0 0 0 0 0
1424 0 0 0 0 0 0 ££000 0
1428 0 0 0 0 0 0 0 0
1432 0 0 0 0 0 0 0 0
1436 0 0 0 0 0 0 0 0
1440 0 0 0 0 0 0 0 0
SECTION 151
SECTION 152
1444 0 0 0 0 1 0 10000 0
1448 1 0 0 0 0 0 1 0
1452 1 0 0 0 0 0 1 0
1456 £££££ 0 1£ 0 0 0 2 0
1460 0 0 0 0 0 0 0 0
1464 0 0 0 0 8004 0 5241 0
1468 0 0 0 0
SECTION 153
1470 0 0 0 0
1472 0 0 0 0 0 0 0 0
1476 0 0 0 0 0 0 0 0
1480 0 0 0 0 0 0 0 0
1484 0 0 0 0 0 0 0 0
1488 0 0 0 0 0 0 0 0
1492 0 0 0 0 0 0 0 0
1496 0 0 0 0 0 0 0 0
1500 0 0 0 0 0 0 0 0
1504 .7.7. 0 7.7.7 0 1 0 0 0
1508 0 0 0 0 :7:7: 0 7:7:7 0
1512 0 0 0 0 0 0 0 0
1516 0 0 0 0 0 0 7:000 0
1520 0 0 0 0 Ю547‼ 0 7 0
1524 0 0 0 0 0 0 0 0
1528 0 0 0 0 7. 0 7.000 0
SECTION 154
1532 27259 0 67517 0 0 0 0 0
1536 56554 0 51645 0 57372 0 64556 0
1540 60067 0 736 0 47453 0 69665 0
1544 6954 0 55000 0 66400 0 56696 0
1548 57369 0 53666 0 7666 0 66630 0
1552 3030 0 30303 0 16772 0 53585 0
1556 65369 0 67696 0 57273 0 53666 0
1560 26355 0 73515 0 35572 0 65667 0
1564 ‼5‼5‼ 0 5‼5‼5 0 0 0 697:0 0
1568 0 0 54000 0 40000 0 55655 0
1572 65764 0 67696 0 £4£4£ 0 4£4£4 0
1576 30 0 0 0 30 0 0 0
1580 3030 0 30493 0
SECTION 155
1582 0 0 0 0
1584 0 0 0 0 3044 0 30483 0
1588 55459 0 596 0 36669 0 53517 0
1592 96665 0 766 0 0 0 57000 0
1596 0 0 0 0 5.5. 0 0 0
1600 3044 0 30483 0 60054 0 656 0
1604 47800 0 74646 0 0 0 0 0
1608 5.5. 0 0 0
SECTION 156
1610 0 1536 3 5 3 0 0 0 5 0
1612 0 1538 3 5 3 0 0 0 5 0 0 1540 3 5 3 0 0 0 5 0
1616 0 1542 3 5 3 0 0 0 5 0 0 1544 3 2 3 0 0 0 2 0
1620 0 1582 3 21 0 0 0 1 5 0 0 1470 3 16405 0 4 0 1 5 0
1624 0 1546 3 21 3 0 0 1 5 0 0 1582 3 21 0 0 0 1 5 0
1628 0 1584 3 16405 0 4 0 1 5 0 0 1530 3 53 3 0 0 3 5 1
1632 0 1548 3 5 3 0 0 0 5 0 0 1550 3 5 3 0 0 0 5 0
1636 0 1544 3 770 3 0 3 0 2 0 0 1530 3 53 3 0 0 3 5 1
SECTION 157
1640 0 1534 3 5 3 0 0 0 5 0 0 1536 3 5 3 0 0 0 5 0
1644 0 1510 3 257 3 0 1 0 1 0 0 1582 3 3 0 0 0 0 3 0
1648 0 1510 3 257 3 0 1 0 1 0 0 1582 3 770 0 0 3 0 2 0
1652 0 1510 3 257 3 0 1 0 1 0 0 1582 3 5 0 0 0 0 5 0
1656 0 1510 3 258 3 0 1 0 2 0 0 1459 3 1025 0 0 4 0 1 0
1660 0 1510 3 257 3 0 1 0 1 0 0 1470 3 3 0 0 0 0 3 0
1664 0 1530 3 5 3 0 0 0 5 1
SECTION 158
1666 0 1476 3 1476 0 0 5 12 4 0
1668 0 1477 3 1477 0 0 5 12 5 1 0 5680 3 5680 8 1 6 3 0 1
1672 0 6000 3 6000 11 1 7 7 0 1 0 5730 3 5730 8 1 6 6 2 1
SECTION 159
1676 0 1476 3 5 0 0 0 0 5 0 0 1477 3 5 0 0 0 0 5 1
1680 0 5680 3 5 0 0 0 0 5 0 0 5681 3 5 0 0 0 0 5 0
1684 0 5682 3 5 0 0 0 0 5 0 0 5683 3 5 0 0 0 0 5 0
1688 0 5684 3 5 0 0 0 0 5 0 0 5685 3 5 0 0 0 0 5 0
1692 0 5686 3 5 0 0 0 0 5 0 0 5687 3 5 0 0 0 0 5 0
1696 0 5688 3 5 0 0 0 0 5 0 0 5689 3 5 0 0 0 0 5 0
1700 0 5690 3 5 0 0 0 0 5 1 0 5730 3 5 0 0 0 0 5 0
1704 0 5731 3 5 0 0 0 0 5 0 0 5732 3 5 0 0 0 0 5 0
1708 0 5733 3 5 0 0 0 0 5 0 0 5734 3 5 0 0 0 0 5 0
1712 0 5735 3 5 0 0 0 0 5 0 0 5736 3 5 0 0 0 0 5 0
1716 0 5737 3 5 0 0 0 0 5 0 0 5738 3 5 0 0 0 0 5 1
SECTION 160
1720 0 5682 3 5688 3 1 6 3 8 1 0 5682 3 5688 3 1 6 3 8 0
1724 0 5694 3 5694 3 1 6 3 14 1
SECTION 161
1726 0 5690 3 2 3 0 0 0 2 0
1728 0 1510 3 1 3 0 0 0 1 0 0 5690 3 515 3 0 2 0 3 0
1732 0 1510 3 1 3 0 0 0 1 0 0 5692 3 2 3 0 0 0 2 0
1736 0 1510 3 1 3 0 0 0 1 0 0 5692 3 515 3 0 2 0 3 0
1740 0 1510 3 1 3 0 0 0 1 0 0 5694 3 2 3 0 0 0 2 0
1744 0 1510 3 1 3 0 0 0 1 0 0 5694 3 515 3 0 2 0 3 0
1748 0 1510 3 1 3 0 0 0 1 0 0 5696 3 1 3 0 0 0 1 0
1752 0 1510 3 1 3 0 0 0 1 0 0 5696 3 258 3 0 1 0 2 0
1756 0 1510 3 1 3 0 0 0 1 0 0 5696 3 770 3 0 3 0 2 0
1760 0 1510 3 17 3 0 0 1 1 1
SECTION 162
1762 0 1512 3 20485 0 5 0 0 5 0
1764 0 1518 3 5 0 0 0 0 5 1
SECTION 163
1766 0 5634 3 5 3 0 0 0 5 0
1768 0 5636 3 5 3 0 0 0 5 0 0 5638 3 5 3 0 0 0 5 0
1772 0 5640 3 5 3 0 0 0 5 0 0 5642 3 5 3 0 0 0 5 0
1776 0 5644 3 5 3 0 0 0 5 0 0 5646 3 5 3 0 0 0 5 0
1780 0 5648 3 5 3 0 0 0 5 0 0 5650 3 5 3 0 0 0 5 0
1784 0 5676 3 5 3 0 0 0 5 0 0 5660 3 5 3 0 0 0 5 0
1788 0 5662 3 5 3 0 0 0 5 0 0 5664 3 5 3 0 0 0 5 0
1792 0 5666 3 5 3 0 0 0 5 0 0 5668 3 5 3 0 0 0 5 0
1796 0 5670 3 5 3 0 0 0 5 0 0 5672 3 5 3 0 0 0 5 0
1800 0 5674 3 5 3 0 0 0 5 1
SECTION 164
1802 0 5634 3 5 3 0 0 0 5 0
1804 0 5636 3 5 3 0 0 0 5 0 0 5638 3 5 3 0 0 0 5 0
1808 0 5640 3 5 3 0 0 0 5 0 0 5642 3 5 3 0 0 0 5 0
1812 0 5644 3 5 3 0 0 0 5 0 0 5646 3 5 3 0 0 0 5 0
1816 0 5648 3 5 3 0 0 0 5 0 0 5650 3 5 3 0 0 0 5 0
1820 0 5676 3 5 3 0 0 0 5 0 0 5660 3 5 3 0 0 0 5 0
1824 0 5662 3 5 3 0 0 0 5 0 0 5664 3 5 3 0 0 0 5 0
1828 0 5666 3 5 3 0 0 0 5 0 0 5668 3 5 3 0 0 0 5 0
1832 0 5670 3 5 3 0 0 0 5 0 0 5672 3 5 3 0 0 0 5 0
1836 0 5674 3 5 3 0 0 0 5 1
SECTION 165
1838 0 5634 3 5 3 0 0 0 5 0
1840 0 5636 3 5 3 0 0 0 5 0 0 5640 3 5 3 0 0 0 5 0
1844 0 5642 3 5 3 0 0 0 5 0 0 5644 3 5 3 0 0 0 5 0
1848 0 5646 3 5 3 0 0 0 5 0 0 5648 3 5 3 0 0 0 5 0
1852 0 5650 3 5 3 0 0 0 5 0 0 5652 3 5 3 0 0 0 5 0
1856 0 5654 3 5 3 0 0 0 5 0 0 5656 3 5 3 0 0 0 5 0
1860 0 5676 3 5 3 0 0 0 5 0 0 5660 3 5 3 0 0 0 5 0
1864 0 5662 3 5 3 0 0 0 5 0 0 5664 3 5 3 0 0 0 5 0
1868 0 5666 3 5 3 0 0 0 5 0 0 5668 3 5 3 0 0 0 5 0
1872 0 5670 3 5 3 0 0 0 5 0 0 5672 3 5 3 0 0 0 5 0
1876 0 5674 3 5 3 0 0 0 5 1
PROCEDURE 166
1878 0 0 3 2960 4 25 1 1 4096 0
1880 23 0 2 1881 4 0 0 0 0 0 2 1 0 2760 4 2 1 0 6776 4
1884 2 1 0 6778 4 2 1 0 6780 4 2 1 0 6782 4 2 0 0 6787 4
1888 2 0 0 6789 4 18 1 0 10 0 5 1 0 1580 4 24 0 3 1 4
1892 27 0 0 33 0 6 1 0 2920 4 28 0 0 7344 4 6 1 0 2922 4
1896 28 0 0 6690 4 23 0 3 1894 4 18 0 1 4 0 1 0 1 16 0
1900 14 0 0 2358 4 14 0 0 2359 4 14 0 0 2360 4 25 0 1 0 0
1904 24 1 0 1953 4 24 0 3 5 4 6 0 0 34 0 18 0 1 4124 0
1908 2 1 0 6784 4 24 0 3 5 4 6 0 0 36 0 18 0 1 4124 0
1912 1 1 2 5 0 2 0 0 1464 4 1 1 3 1 0 2 0 0 6786 4
1916 6 1 0 2761 4 27 0 0 1965 4 1 1 3 7 0 26 0 0 1966 4
1920 27 0 0 1927 4 1 1 3 8 0 26 0 0 1966 4 27 0 0 1927 4
1924 1 1 3 11 0 26 0 0 1966 4 27 0 1 1986 4 1 1 3 1 0
1928 2 0 0 6785 4 24 0 3 0 4 6 0 0 4 22 1 1 2 64 0
1932 3 0 0 7 4 18 0 3 1 0 18 1 1 4127 0 2 0 0 2452 4
1936 18 1 3 3 0 2 0 0 2429 4 6 0 0 2452 4 26 0 0 2697 4
1940 2 0 0 2760 4 0 0 3 2960 4 6 0 0 6785 4 27 0 0 1997 4
1944 24 0 3 5 4 24 0 3 32 0 24 0 3 16 0 1 1 3 0 0
1948 4 0 0 7 4 2 0 0 2691 4 24 0 3 2691 4 2 0 0 0 0
1952 24 1 0 1997 4 24 0 3 0 4 6 0 0 2 22 27 0 0 1959 4
1956 6 0 0 6785 4 27 0 1 1965 4 24 1 0 1918 4 6 0 0 6785 4
1960 27 0 0 1965 4 6 0 0 6784 4 26 0 0 1966 4 27 0 1 1986 4
1964 24 1 0 1928 4 26 0 3 2358 4
PROCEDURE 167
1966 0 0 0 0 0 2 0 0 2653 4
1968 26 1 2 2924 4 6 0 0 2653 4 24 0 3 0 4 5 0 2 0 0
1972 27 0 0 1985 4 25 0 2 1 0 24 1 0 1969 4 6 0 0 9 4
1976 1 1 2 24 0 27 0 3 1985 4 26 1 2 2926 4 24 0 3 0 4
1980 6 0 2 0 0 5 0 0 2653 4 27 0 0 1985 4 25 0 2 1 0
1984 24 1 0 1979 4 26 0 1 1966 4
PROCEDURE 168
1986 26 0 3 2359 4 1 1 3 16 0
1988 0 0 2 2971 4 25 1 1 4096 0 24 0 3 0 4 26 0 2 0 512
1992 0 0 0 2639 3 0 0 0 1995 3 0 0 0 2043 3 6 1 0 2760 4
1996 24 1 0 1878 4 24 0 3 5 4 6 0 0 34 0 18 1 1 4124 0
2000 2 0 0 2691 4 18 1 1 2 0 1 1 3 0 0 18 1 1 2 0
2004 2 0 0 2697 4 24 0 3 5 4 24 0 3 32 0 24 0 3 12 0
2008 1 1 3 0 0 0 0 2 2697 4 15 0 0 2806 4 2 0 0 1966 4
PROCEDURE 169
2012 24 0 3 5 4 24 0 3 32 0 6 0 0 32 0 7 0 0 2032 4
2016 7 0 0 2039 4 24 0 3 1966 4 6 0 0 0 0 5 0 0 2697 4
2020 27 0 1 2023 4 24 0 3 1966 4 2 1 0 0 0 24 0 3 2697 4
2024 6 0 0 64 0 24 0 3 7 4 2 0 0 64 0 6 0 0 2691 4
2028 24 0 3 2697 4 2 0 0 64 0 6 0 0 2653 4 18 0 1 2 0
2032 1 1 1 128 0 18 0 1 2 0 4 0 0 7 4 24 0 3 5 4
2036 2 0 0 34 0 6 0 0 7 4 18 0 1 2 0 1 1 1 128 0
2040 24 0 3 5 4 2 0 0 35 0 26 0 3 2360 4 24 0 2 2820 4
2044 28 1 2 2978 4 0 1 0 2862 4 0 0 3 0 4 24 0 2 2978 4
2048 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 1280 0 1 1 2862 4
2052 0 0 3 2960 4 6 1 0 2928 4 28 1 1 2978 4 24 1 0 41 4
PROCEDURE 170
2056 24 1 2 15 4 6 1 0 0 0 3 1 0 2762 4 5 1 0 2770 4
2060 27 0 0 2074 4 1 1 3 3 0 0 0 2 2958 4 25 1 1 4096 0
2064 24 0 3 0 4 26 0 2 0 512 0 0 0 2639 3 0 0 0 2068 3
2068 6 0 0 6785 4 4 1 0 2930 4 3 1 0 2862 4 26 1 1 2862 4
2072 24 0 3 1 4 24 1 0 43 0 26 0 0 2703 4 0 1 0 2862 4
2076 0 0 3 0 4 0 1 2 2932 4 6 1 0 2890 4 4 0 0 11 4
2080 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 0 3 2866 4
2084 6 1 0 2918 4 24 1 2 21 4 28 1 1 4 0 3 1 0 2862 4
2088 26 1 3 2862 4 26 0 0 2472 4 24 1 2 17 4 6 1 0 14 0
2092 5 1 0 1530 4 27 0 1 2100 4 24 1 2 17 4 2 1 0 12 0
2096 24 1 2 17 4 2 1 0 14 0 24 1 2 17 4 2 1 0 16 0
2100 24 1 2 17 4 6 1 0 17 0 3 0 0 6777 4 3 1 0 1432 4
2104 27 0 1 2107 4 1 1 3 2 0 2 0 0 8062 4 24 1 2 17 4
2108 6 1 0 15 0 2 0 0 6778 4 24 1 2 17 4 6 1 0 13 0
2112 3 0 0 6776 4 27 0 0 2061 4
PROCEDURE 171
2114 26 1 1 2934 4 26 0 0 830 4
2116 24 1 2 17 4 24 0 2 5 0 18 1 1 4123 0 1 1 3 46 0
2120 18 1 1 5 0 24 0 0 23 4 28 1 0 2978 4 25 0 1 23 0
2124 24 1 0 2115 4 6 0 0 3023 4 26 0 0 2697 4 18 0 1 2 0
2128 2 0 0 4047 4 0 0 3 2960 4 6 0 0 3023 4 18 0 1 5 0
2132 1 1 1 100 0 3 1 0 2862 4 26 1 1 2862 4 1 1 3 100 0
2136 3 0 1 3026 4 1 1 1 1 0 25 0 1 1 0 24 1 0 2136 4
2140 6 0 0 3023 4 2 0 0 5521 4 24 0 2 2810 4 24 0 3 1 4
2144 28 1 2 84 0 0 1 0 2862 4 0 0 3 0 4 24 0 3 1 4
2148 24 0 2 84 0 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 1280
2152 0 1 1 2862 4
PROCEDURE 172
2153 26 0 0 2423 4 27 0 0 2157 4 26 0 0 2472 4
2156 24 1 0 2153 4 6 0 0 2972 4 3 0 0 4036 4 2 0 0 4040 4
2160 24 1 0 2166 4
PROCEDURE 173
2161 26 0 0 2680 4 27 0 0 2342 4 26 0 0 2494 4
2164 26 0 0 2429 4 27 0 1 2310 4 0 0 3 2959 4 6 0 0 4036 4
2168 5 1 0 3029 4 27 0 3 2174 4 27 0 1 2338 4 6 0 0 4038 4
2172 1 1 2 3 0 27 0 1 2338 4 6 0 0 4047 4 5 1 0 3029 4
2176 27 0 2 2181 4 1 1 3 1 0 2 1 0 4042 4 26 0 0 2507 4
2180 24 1 0 2177 4 27 0 0 2177 4 6 1 0 3029 4 18 0 1 4126 0
2184 26 0 0 2691 4 2 0 0 2697 4 24 0 1 2697 4 6 0 0 3026 4
2188 27 0 0 2338 4 24 0 1 8065 4 26 0 1 2190 4 0 0 0 2288 3
2192 0 0 0 2195 3 0 0 0 2338 3 0 0 0 2338 3
PROCEDURE 174
2195 26 0 0 2452 4
2196 2 0 0 4026 4 1 0 1 3 0 15 1 0 3029 4 1 1 2 1 0
2200 27 0 0 2205 4 1 1 3 0 0 0 0 2 4026 4 15 1 0 3029 4
2204 27 0 1 2338 4 6 1 0 3029 4 3 0 0 4040 4 18 0 1 8 0
2208 27 0 0 2212 4 6 0 0 4029 4 1 1 2 900 0 27 0 0 2338 4
2212 26 0 0 2472 4 26 0 0 2680 4 27 0 0 2218 4 26 0 0 2494 4
2216 26 0 0 2429 4 27 0 1 2249 4
PROCEDURE 175
2218 6 0 0 4040 4 3 0 0 4036 4
2220 18 0 1 8 0 27 0 1 2224 4 6 0 0 4040 4 24 1 0 2259 4
2224 18 0 1 4120 0 1 1 2 1 0 27 0 0 2242 4 1 1 3 0 0
2228 5 0 0 4026 4 1 1 2 1 0 2 0 0 4041 4 6 0 0 4040 4
2232 18 1 1 4126 0 2 0 0 4045 4 6 0 0 4040 4 5 0 0 4041 4
2236 2 0 0 4040 4 6 0 0 4040 4 18 1 1 4126 0 5 0 0 4045 4
2240 27 0 1 2242 4 26 0 0 2653 4 24 1 2 15 4 6 1 0 0 0
2244 18 0 1 4124 0 18 0 1 4 0 5 1 0 2774 4 27 0 0 2342 4
2248 24 1 0 2166 4
PROCEDURE 176
2249 26 0 0 2452 4 2 0 0 4026 4 0 0 2 4026 4
2252 15 1 0 3029 4 27 0 1 2338 4 6 0 0 4040 4 5 1 0 3029 4
2256 27 0 2 2338 4 6 1 0 3029 4 3 0 0 4036 4 18 1 1 4126 0
2260 2 0 0 4041 4 6 0 0 4040 4 18 1 1 4126 0 3 0 0 4045 4
2264 5 0 0 4041 4 27 0 1 2338 4 18 1 1 2 0 27 0 0 2338 4
2268 6 0 0 4040 4 18 0 1 8 0 18 0 1 4120 0 1 1 2 1 0
2272 27 0 0 2338 4 6 0 0 4040 4 5 1 0 3029 4 5 0 0 4026 4
2276 1 1 2 1 0 2 0 0 4041 4 6 0 0 4040 4 5 0 0 4041 4
2280 2 0 0 4040 4 6 0 0 4040 4 18 0 1 4126 0 5 0 0 4045 4
2284 27 0 1 2286 4 26 0 0 2653 4 26 0 0 2472 4 24 1 0 2161 4
PROCEDURE 177
PROCEDURE 178
2288 1 0 1 3 0 1 1 3 0 0 15 1 0 3029 4 27 0 0 2338 4
2292 26 0 0 2452 4 2 0 0 4026 4 1 0 1 3 0 15 1 0 3029 4
2296 1 1 2 1 0 27 0 0 2338 4 1 1 3 0 0 0 0 2 4026 4
2300 15 1 0 3029 4 27 0 1 2338 4 6 1 0 3029 4 3 0 0 4040 4
2304 3 0 0 4036 4 18 1 1 4126 0 2 0 0 4045 4 26 0 0 2472 4
2308 26 0 0 2423 4 27 0 0 2166 4
PROCEDURE 179
2310 24 0 1 8065 4 26 0 1 2311 4
2312 0 0 0 2316 3 0 0 0 2338 3 0 0 0 2338 3 0 0 0 2338 3
2316 0 0 3 2959 4 6 0 0 4026 4 1 1 1 1 0 7 0 0 4036 4
2320 6 0 0 4036 4 18 1 1 4126 0 5 0 0 4045 4 27 0 1 2334 4
2324 6 1 0 3032 4 5 1 0 2764 4 27 0 0 2338 4 6 1 0 3032 4
2328 5 1 0 2766 4 27 0 0 2338 4 6 1 0 3032 4 5 1 0 2768 4
2332 27 0 0 2338 4 24 1 0 2286 4 6 0 0 2973 4 5 0 0 4026 4
2336 7 0 0 4036 4 24 1 0 2338 4
PROCEDURE 180
2338 1 1 3 1 0 2 1 0 4042 4
2340 26 0 0 2507 4 24 1 0 2166 4
PROCEDURE 181
2342 0 0 3 2960 4 1 1 3 25 0
2344 4 0 0 1464 4 18 0 1 5 0 4 0 0 8 4 25 1 1 4096 0
2348 24 0 3 0 4 23 0 2 160 0 24 0 2 2978 4 18 1 1 4123 0
2352 1 1 3 45 0 18 1 1 5 0 28 0 0 5476 4 24 1 0 2361 4
PROCEDURE 182
2356 24 0 1 8065 4 26 0 1 2357 4 0 0 0 2052 3 0 0 0 1987 3
2360 0 0 0 2043 3 26 1 1 2936 4 26 1 2 2938 4 1 1 3 0 0
2364 1 0 1 15 0 15 0 2 3127 4 18 0 3 10 0 15 0 2 3126 4
2368 2 0 1 4126 4 25 0 1 1 0 24 1 0 2371 4 25 0 2 2 0
2372 24 1 0 2365 4 24 1 0 2377 4 0 0 3 2960 4 1 1 3 1 0
2376 7 0 0 5521 4 26 0 0 2472 4 0 0 3 2960 4 0 1 0 2862 4
2380 0 0 3 0 4 6 1 0 2940 4 4 0 0 11 4 25 1 1 4096 0
2384 24 0 3 0 4 23 0 2 0 256 0 1 1 2862 4 24 0 2 4126 4
2388 18 1 1 4123 0 1 1 3 1110 0 18 1 1 5 0 24 0 3 1 4
2392 28 0 0 84 0 24 0 2 5236 4 18 1 1 4123 0 1 1 3 240 0
2396 18 1 1 5 0 24 0 3 1 4 28 0 0 2584 0 24 0 2 5476 4
2400 18 1 1 4123 0 1 1 3 46 0 18 1 1 5 0 24 0 3 1 4
2404 28 0 0 1194 0 26 1 1 2942 4 26 0 0 1170 4 25 0 1 1 0
2408 24 1 0 2406 4 3 1 0 2862 4 26 1 1 2862 4 0 1 0 2862 4
2412 0 0 3 0 4 6 0 0 1469 4 4 1 0 2894 4 18 1 1 4118 0
2416 6 1 0 2944 4 4 0 0 9 4 25 1 1 4096 0 24 0 3 0 4
2420 23 0 2 0 256 0 1 1 2862 4 24 1 0 33 4
PROCEDURE 183
2423 0 0 0 0 0
2424 26 0 0 2680 4 27 0 0 2342 4 26 0 0 2494 4 26 0 0 2429 4
2428 26 0 1 2423 4
PROCEDURE 184
2429 0 0 0 0 0 0 0 3 2959 4 0 1 2 3030 4
2432 1 1 3 0 0 18 1 1 2 0 1 1 2 105 0 27 0 0 2445 4
2436 1 1 1 21 0 27 0 0 2444 4 1 1 2 25 0 27 0 0 2443 4
2440 1 1 1 34 0 27 0 1 2451 4 1 1 3 1 0 1 1 1 1 0
2444 1 1 1 1 0 1 1 1 1 0 2 0 0 2452 4 6 0 0 8065 4
2448 2 0 0 4038 4 6 0 0 2452 4 2 0 0 8065 4 26 0 1 2429 4
PROCEDURE 185
2452 0 0 0 0 0 6 1 0 3029 4 18 0 1 4126 0 26 0 0 2691 4
2456 1 1 2 100 0 1 0 1 0 0 18 1 1 4119 0 13 0 0 2974 4
2460 2 0 0 2760 4 18 1 1 9 0 2 0 0 2761 4 0 0 2 2720 4
2464 24 0 1 2761 4 18 1 3 0 0 24 0 1 2760 4 15 0 0 2978 4
2468 27 0 0 2470 4 1 1 3 1 0 0 0 3 2959 4 26 0 1 2452 4
PROCEDURE 186
2472 0 0 0 0 0 26 0 0 2512 4 6 1 0 1530 4 24 1 2 21 4
2476 2 1 0 52 0 6 1 0 4042 4 24 1 2 21 4 2 1 0 50 0
2480 0 1 0 2862 4 0 0 3 0 4 0 0 2 20 4 6 1 0 2946 4
2484 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
2488 0 1 1 2862 4 6 1 0 2918 4 24 1 2 21 4 28 1 1 4 0
2492 2 1 0 4042 4 26 0 1 2472 4
PROCEDURE 187
2494 0 0 0 0 0 1 1 3 0 0
2496 2 1 0 3030 4 2 1 0 3042 4 24 0 2 2836 4 24 1 2 15 4
2500 28 0 3 0 0 0 1 0 2862 4 0 0 3 0 4 1 1 1 2 0
2504 0 0 3 2866 4 3 0 0 8083 4 26 0 1 2494 4
PROCEDURE 188
2507 0 0 0 0 0
2508 26 0 0 2472 4 26 0 0 2423 4 27 0 1 2508 4 26 0 1 2507 4
PROCEDURE 189
2512 0 0 0 0 0 26 1 1 2948 4 26 1 2 2950 4 0 1 0 2862 4
2516 0 0 3 0 4 24 1 2 15 4 24 0 2 0 0 24 0 3 0 4
2520 4 0 0 2 22 2 0 0 2868 4 0 1 1 2862 4 24 0 3 2868 4
2524 0 1 2 0 0 1 1 3 0 0 18 1 1 2 0 1 1 2 126 0
2528 27 0 0 2537 4 25 0 2 4098 0 24 1 0 2525 4 24 1 2 15 4
2532 6 1 1 0 0 24 1 2 21 4 2 1 1 4 0 25 0 1 2 0
2536 24 1 0 2514 4 24 0 3 0 4 6 0 0 4 22 2 0 0 2562 4
2540 1 0 1 3 0 1 1 3 94 0 24 0 1 2562 4 18 1 1 0 0
2544 24 1 2 15 4 3 1 1 0 0 24 1 2 21 4 2 1 1 4 0
2548 0 1 0 4048 4 0 0 3 2960 4 24 0 3 0 4 6 0 0 2 22
2552 1 1 1 4 0 18 0 1 3 0 24 1 2 21 4 2 1 0 49 0
2556 1 0 1 3 0 15 0 0 2562 4 24 1 2 21 4 14 1 0 49 0
2560 0 0 3 4052 4 26 0 1 2512 4
PROCEDURE 190
2562 0 0 0 0 0 26 0 0 830 4
2564 0 0 3 2960 4 24 1 2 17 4 6 1 0 4 0 5 1 0 2778 4
2568 27 0 0 2618 4 24 1 2 17 4 6 1 0 9 0 5 0 0 2975 4
2572 27 0 1 2563 4 24 1 2 17 4 6 1 0 10 0 5 1 0 2772 4
2576 27 0 0 2607 4 24 1 2 17 4 6 1 0 6 0 5 1 0 2776 4
2580 27 0 1 2563 4 26 0 0 830 4 26 1 1 2952 4 24 1 2 17 4
2584 6 1 1 5 0 5 0 0 2738 4 27 0 1 2590 4 6 0 0 2802 4
2588 27 0 0 2563 4 24 1 0 2618 4 4 0 0 2738 4 5 0 0 2967 4
2592 27 0 1 2604 4 24 1 2 17 4 6 1 1 9 0 27 0 0 2600 4
2596 24 1 2 17 4 6 1 1 11 0 2 0 0 8081 4 24 1 0 2604 4
2600 2 0 0 2802 4 24 1 2 17 4 6 1 1 11 0 2 0 0 1469 4
2604 25 0 1 8 0 24 1 0 2583 4 24 1 0 2581 4 0 0 3 2959 4
2608 24 1 2 17 4 6 1 0 5 0 5 0 0 2967 4 27 0 1 2563 4
2612 6 0 0 2967 4 2 1 0 5633 4 24 1 2 17 4 6 1 0 7 0
2616 2 1 0 5635 4 26 0 1 2562 4 0 1 0 2862 4 0 0 3 0 4
2620 6 1 0 2954 4 4 0 0 9 4 25 1 1 4096 0 24 0 3 0 4
2624 23 0 2 0 256 0 1 1 2862 4 1 1 3 1 0 2 0 0 2802 4
2628 2 0 0 8081 4 1 1 3 2 0 0 0 2 2971 4 25 1 1 4096 0
2632 24 0 3 0 4 26 0 2 0 512 0 0 0 2639 3 0 0 0 2637 3
2636 0 0 0 2068 3 26 0 0 2642 4 24 1 0 2563 4 25 1 1 4096 0
2640 24 0 3 0 4 26 0 2 0 768
PROCEDURE 191
2642 0 0 0 0 0 0 1 0 2862 4
2644 0 0 3 0 4 0 1 2 2876 4 6 1 0 2878 4 4 0 0 9 4
2648 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 0 3 2866 4
2652 26 0 1 2642 4
PROCEDURE 192
2653 0 0 0 0 0 6 0 0 4029 4 1 1 2 900 0
2656 27 0 2 2679 4 1 1 3 0 0 1 0 1 3 0 15 0 0 4040 4
2660 2 0 0 2562 4 6 0 0 4040 4 18 0 1 4126 0 26 0 0 2691 4
2664 2 0 0 2680 4 24 0 1 2680 4 6 0 0 3026 4 26 0 0 2697 4
2668 18 0 1 2 0 4 0 0 2562 4 24 0 1 4029 4 2 0 0 4576 4
2672 6 0 0 4041 4 24 0 1 4029 4 2 0 0 4577 4 0 0 3 2960 4
2676 1 1 3 2 0 7 0 0 4029 4 0 0 3 2959 4 26 0 1 2653 4
PROCEDURE 193
2680 0 0 0 0 0 0 1 0 4048 4 0 0 3 2960 4 26 0 1 1049 4
2684 0 1 1 4048 4 24 1 2 15 4 6 1 0 0 0 18 0 1 4124 0
2688 18 0 1 4 0 5 1 0 2774 4 26 0 1 2680 4
PROCEDURE 194
2691 0 0 0 0 0
2692 2 1 0 2760 4 0 0 3 2960 4 24 0 2 2740 4 12 1 0 2760 4
2696 26 0 1 2691 4
PROCEDURE 195
2697 0 0 0 0 0 2 1 0 2760 4 0 0 3 2959 4
2700 24 0 2 2720 4 12 1 0 2760 4 26 0 1 2697 4
PROCEDURE 196
2703 0 0 0 0 0
2704 24 0 2 2844 4 24 1 2 15 4 28 0 3 0 0 0 1 0 2862 4
2708 0 0 3 0 4 1 1 1 2 0 0 0 3 2866 4 3 0 0 8083 4
2712 6 0 0 3028 4 18 0 1 2 0 4 0 0 3029 4 3 0 0 3028 4
2716 2 0 0 4054 4 6 0 0 3030 4 2 0 0 4055 4 26 0 1 2703 4
SECTION 197
2720 1 0 0 0 16 0 0 0
2724 256 0 0 0 4096 0 0 0
2728 65536 0 0 0 48576 0 10 0
2732 77216 0 167 0 35456 0 2684 0
2736 67296 0 42949 0 £££££ 0 £££££ 0
2740 1 0 0 0 Ю 0 0 0
2744 64 0 0 0 3.8 0 0 0
2748 2710 0 0 0 186Ю0 0 0 0
2752 £4240 0 0 0 89680 0 9 0
2756 5.100 0 5£ 0 Ю+Ю00 0 3‼9 0
2760 0 0 0 0 65764 0 67696 0
2764 65369 0 67696 0 26355 0 73515 0
2768 57273 0 53666 0 56554 0 51645 0
2772 27259 0 67517 0 40000 0 55655 0
2776 45577 0 59655 0 55972 0 56596 0
2780 5.5. 0 0 0 3££ 0 0 0
2784 £6£6£ 0 6£6£6 0 45577 0 59655 0
2788 £4£4£ 0 4£4£4 0 42 0 0 0
2792 15965 0 53585 0 56554 0 56595 0
2796 3044 0 30483 0 36653 0 51636 0
2800 55400 0 51735 0 36951 0 55777 0
2804 47355 0 69667 0 £8 0 0 0
2808 8000 0 5149 0
SECTION 198
2810 0 2796 3 5 3 0 0 0 5 0
2812 0 2770 3 37 3 0 0 2 5 0 0 3028 3 37 0 0 0 2 5 0
2816 0 3030 3 16405 0 4 0 1 5 0 0 2780 3 818 3 0 3 3 2 1
2820 0 2796 3 5 3 0 0 0 5 0 0 2798 3 21 3 0 0 1 5 0
2824 0 2800 3 5 3 0 0 0 5 0 0 2802 3 5 3 0 0 0 5 0
2828 0 2804 3 21 3 0 0 1 5 0 0 2760 3 4898 0 1 3 2 2 0
2832 0 2429 3 1025 0 0 4 0 1 0 0 2780 3 786 3 0 3 1 2 1
SECTION 199
2836 0 3028 3 5 3 0 0 0 5 0 0 3032 3 5 3 0 0 0 5 0
2840 0 3034 3 3 2 0 0 0 3 0 0 3042 3 1 0 0 0 0 1 1
2844 0 3032 3 5 3 0 0 0 5 0 0 3028 3 3 0 0 0 0 3 0
2848 0 3029 3 2 0 0 0 0 2 0 0 3030 3 5 0 0 0 0 5 1
2852 0 3028 3 5 3 0 0 0 5 0 0 3030 3 5 3 0 0 0 5 0
2856 0 3032 3 5 3 0 0 0 5 0 0 3034 3 3 2 0 0 0 3 0
2860 0 3042 3 1 0 0 0 0 1 1
SECTION 1014
2862 0 0 0 0
2864 0 0 0 0 0 0 0 0
2868 0 0 0 0 0 0 0 0
2872 0 0 0 0 0 0 0 0
2876 8004 0 5141 0 0 0 11 0
2880 0 0 203.8 0 0 0 20006 0
2884 0 0 20023 0 0 0 10 0
2888 8 0 0 0 0 0 12 0
2892 0 0 3 0 0 0 Ю 0
2896 48 0 1+2 0 0 0 20010 0
2900 0 0 20150 0 2Ю 0 17Ю 0
2904 13030 0 4 0 0 0 2000Ю 0
2908 0 0 20096 0 0 0 20016 0
2912 0 0 7 0 0 0 20034 0
2916 0 0 20036 0 0 0 20032 0
2920 0 0 2000+ 0 0 0 20026 0
2924 40 0 80 0 +0 0 £0 0
2928 0 0 20936 0 0 0 9 0
2932 8004 0 5146 0 0 0 2. 0
2936 0 0 1+2 0 0 0 384 0
2940 0 0 21 0 0 0 14 0
2944 0 0 24 0 0 0 8 0
2948 0 0 38 0 10008 0 £££. 0
2952 0 0 30 0 0 0 1‼ 0
2956 0 0 0 0
SECTION 1015
2958 2 0 66666 0
2960 0 0 9900 0 10000 0 .0000 0
2964 11111 0 8000 0 30 0 9001 0
2968 ££00 0 4 0 80000 0 3 0
2972 9999 0 1- 0 14 0 £££££ 0
2976 0 0 0 0
SECTION 1016
PROCEDURE 1003
CHAPT 3 EXTRA CHAPTER
202 0 0 0 0
CHAPT 4
PROCEDURE 0
0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 0 0 0 0 3
4 0 0 0 0 4 0 0 0 0 5 0 0 0 0 6 0 0 0 0 7
8 0 0 0 0 8 0 0 0 0 9 0 0 0 0 10 0 0 0 0 11
12 0 0 0 0 12 0 0 0 0 13 0 0 0 0 14 0 0 0 0 15
16 0 0 0 0 16 0 0 0 0 17 0 0 0 0 18 0 0 0 0 19
20 0 0 0 0 20 0 0 0 0 21 0 0 0 0 22 0 0 0 0 23
24 0 0 0 0 24 0 0 0 0 25 0 0 0 0 0 25 1 1 4096 0
28 24 0 3 0 4 23 0 2 0 1792 0 0 0 0 0 0 0 0 0 0
32 26 0 1 26 4
PROCEDURE 200
33 0 1 0 2806 4 0 0 3 0 4 1 1 3 4 0
36 0 0 2 2902 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 1024
40 0 1 1 2806 4 0 0 3 2903 4 1 0 1 512 0 18 1 3 3 0
44 1 1 3 0 0 14 1 0 2452 4 14 1 0 2458 4 6 0 0 2803 4
48 3 0 0 6774 4 2 0 0 2800 4 6 1 0 2820 4 28 1 1 2918 4
52 6 1 0 2822 4 28 1 1 3160 4 1 1 3 1 0 2 0 0 8076 4
56 2 0 0 6782 4 2 0 0 8078 4 2 0 0 8079 4 2 0 0 6780 4
60 1 1 3 5 0 2 0 0 8069 4
PROCEDURE 201
62 0 1 0 2806 4 0 0 3 0 4
64 0 1 2 2824 4 6 1 0 2826 4 4 0 0 11 4 25 1 1 4096 0
68 24 0 3 0 4 23 0 2 0 256 0 0 3 2810 4 6 1 0 2828 4
72 28 1 1 3308 4 6 0 0 2904 4 2 0 0 3311 4 26 0 0 2087 4
76 24 0 2 382 4 26 0 0 2799 4 0 0 3 2905 4 1 1 3 0 0
80 2 1 0 2934 4 2 1 0 2936 4 24 0 2 392 4 26 0 0 2799 4
84 1 1 3 0 0 0 0 2 2934 4 15 0 0 2512 4 2 0 0 6774 4
88 6 1 0 2938 4 5 1 0 2830 4 27 0 1 93 4 1 1 3 2 0
92 24 1 0 94 4 1 1 3 0 0 2 0 0 6788 4 6 0 0 2906 4
96 15 0 0 2574 4 2 0 0 8076 4 6 0 0 2935 4 2 0 0 627 4
100 6 0 0 2922 4 18 0 1 2 0 4 0 0 2924 4 2 0 0 3308 4
104 0 1 2 2926 4 26 0 0 2622 4 6 1 0 3397 4 2 0 0 3309 4
108 1 1 3 1 0 3 0 0 6720 4 2 0 0 3316 4
PROCEDURE 202
111 26 0 0 2087 4
112 6 1 0 2820 4 28 0 0 2918 4 26 0 0 2076 4 24 1 2 17 4
116 6 1 0 6 0 5 1 0 450 4 27 0 1 114 4 24 0 2 338 4
120 24 1 2 17 4 28 0 2 4 0 24 1 2 17 4 24 0 2 20 0
124 18 1 1 4123 0 1 1 3 30 0 18 1 1 5 0 28 1 1 2934 4
128 0 0 3 2905 4 1 1 3 1 0 1 0 1 3 0 15 1 0 2927 4
132 14 1 0 2927 4
PROCEDURE 203
133 6 1 0 2820 4 24 1 2 19 4 28 0 0 4 0
136 0 1 0 2806 4 0 0 3 0 4 0 1 2 2832 4 6 1 0 2834 4
140 4 0 0 10 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
144 0 0 3 2810 4 18 1 1 10 0 2 0 0 8080 4 26 0 0 2056 4
148 26 0 0 2056 4 24 0 2 2552 4 18 1 1 4123 0 1 1 3 10 0
152 18 1 1 5 0 24 1 2 19 4 28 1 1 4 0 26 0 0 2056 4
156 6 0 0 2922 4 18 0 1 2 0 4 0 0 2924 4 3 0 0 3340 4
160 24 1 2 19 4 3 1 0 5 0 24 1 2 19 4 3 1 0 13 0
164 6 1 0 2927 4 2 0 0 3309 4 6 0 0 627 4 27 0 0 171 4
168 18 0 1 2 0 1 0 1 28 0 14 0 0 3309 4 24 0 2 336 4
172 28 1 2 2926 4 6 1 0 2926 4 24 1 2 19 4 3 1 0 6 0
176 24 1 2 19 4 2 1 0 14 0 1 1 3 2 0 24 1 2 19 4
180 2 1 0 11 0 1 1 3 3 0 24 1 2 19 4 3 1 0 19 0
184 1 1 3 2 0 4 0 0 6788 4 24 1 2 19 4 2 1 0 17 0
188 6 1 0 2553 4 24 1 2 19 4 2 1 0 21 0 26 0 0 2056 4
192 6 0 0 3340 4 24 1 2 19 4 2 1 0 5 0 6 1 0 2926 4
196 24 1 2 19 4 2 1 0 6 0 6 0 0 2907 4 24 1 2 19 4
200 2 1 0 9 0 6 1 0 458 4 24 1 2 19 4 2 1 0 10 0
204 6 0 0 2908 4 24 1 2 19 4 3 1 0 12 0 24 1 2 19 4
208 2 1 0 17 0 26 0 0 2056 4 24 0 3 1 4 6 0 0 1239 0
212 2 0 0 2545 4 24 0 3 1 4 24 0 2 1194 0 18 1 1 4123 0
216 1 1 3 23 0 18 1 1 5 0 24 1 2 19 4 28 0 1 5 0
220 26 0 0 2056 4 24 0 3 1 4 24 0 2 1217 0 18 1 1 4123 0
224 1 1 3 23 0 18 1 1 5 0 24 1 2 19 4 28 0 1 5 0
228 26 0 0 2056 4 24 0 2 338 4 24 1 2 19 4 28 1 2 4 0
232 24 0 2 2934 4 18 1 1 4123 0 1 1 3 30 0 18 1 1 5 0
236 24 1 2 19 4 28 1 1 20 0 26 0 0 2056 4 6 0 0 2507 4
240 2 0 0 6699 4 0 0 3 2905 4
PROCEDURE 204
242 26 0 0 2076 4 1 1 3 0 0
244 24 1 2 17 4 2 1 0 46 0 24 1 2 17 4 2 1 0 48 0
248 2 0 0 3341 4 26 0 0 303 4 26 0 0 2076 4 24 1 2 17 4
252 24 0 2 9 0 18 1 1 4123 0 1 1 3 30 0 18 1 1 5 0
256 28 1 0 3321 4 2 0 0 3341 4 6 0 0 3321 4 26 0 0 944 4
260 2 0 0 3321 4 24 0 2 3322 4 18 1 1 4123 0 1 1 3 14 0
264 18 1 1 5 0 24 1 2 17 4 28 0 1 11 0 24 1 2 17 4
268 24 0 2 4 0 18 1 1 4123 0 1 1 3 34 0 18 1 1 5 0
272 24 1 2 19 4 28 1 1 4 0 26 0 0 2076 4
PROCEDURE 205
275 6 1 0 2836 4
276 24 0 3 1 4 2 1 0 2582 0 24 0 3 1 4 2 1 0 2580 0
280 1 1 3 1 0 2 0 0 8071 4 6 0 0 3321 4 26 0 0 938 4
284 2 0 0 446 4 6 0 0 2909 4 2 0 0 3311 4 1 1 3 153 0
288 2 0 0 6693 4 6 1 0 2838 4 2 1 0 8096 4 0 0 3 2903 4
292 26 1 3 3320 4 1 1 1 1 0 3 0 3 6700 4 25 0 3 1 0
296 24 1 0 293 4 0 0 3 2905 4 1 1 3 4097 0 2 0 0 3317 4
PROCEDURE 206
300 26 0 0 314 4 26 0 0 321 4 24 1 0 472 4
PROCEDURE 207
303 0 0 0 0 0
304 0 1 0 2806 4 0 0 3 0 4 0 0 2 16 4 6 1 0 2840 4
308 4 0 0 10 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
312 0 1 1 2806 4 26 0 1 303 4
PROCEDURE 208
314 0 0 0 0 0 26 0 0 2116 4
316 27 0 0 320 4 1 1 3 1 0 2 0 0 3353 4 1 1 3 1 0
320 26 0 1 314 4
PROCEDURE 209
321 0 0 0 0 0 6 0 0 6777 4 27 0 0 328 4
324 24 1 2 17 4 6 1 0 12 0 26 0 0 1965 4 26 0 1 321 4
328 24 1 2 17 4 6 1 0 10 0 24 1 0 326 4 0 0 0 0 0
SECTION 210
332 0 2918 3 20485 0 5 0 0 5 0 0 2920 3 5 3 0 0 0 5 1
336 0 3309 3 16389 0 4 0 0 5 1 0 2918 3 20485 0 5 0 0 5 0
340 0 2920 3 5 3 0 0 0 5 0 0 2922 3 20485 0 5 0 0 5 0
344 0 2924 3 16389 0 4 0 0 5 0 0 2926 3 5 3 0 0 0 5 0
348 0 2928 3 40970 2 10 0 0 10 0 0 2928 3 20485 0 5 0 0 5 1
PROCEDURE 211
352 0 0 0 0 0 2 0 0 3312 4 26 1 3 3310 4 6 1 0 2530 4
356 4 0 0 3312 4 4 0 0 3311 4 2 1 3 2956 4 1 1 2 2 0
360 7 0 0 3310 4 1 1 3 0 0 26 0 1 352 4
PROCEDURE 212
363 0 0 0 0 0
364 6 0 0 3427 4 26 0 0 944 4 18 1 3 3 0 18 1 1 4127 0
368 2 1 0 2614 4 26 1 1 2614 4 27 1 0 376 4 24 0 3 1 4
372 6 0 1 34 0 18 0 3 2 0 18 0 1 4125 0 24 1 0 379 4
376 0 0 2 2542 4 24 0 3 1 4 15 0 1 34 0 26 0 0 938 4
380 26 0 1 363 4 0 0 0 0 0
SECTION 213
382 0 2920 3 5 3 0 0 0 5 0
384 0 2922 3 3 2 0 0 0 3 0 0 2924 3 2 2 0 0 0 2 0
388 0 2926 3 5 3 0 0 0 5 0 0 2934 3 5 11 0 0 0 5 1
392 0 2920 3 5 3 0 0 0 5 0 0 2922 3 3 2 0 0 0 3 0
396 0 2924 3 2 2 0 0 0 2 0 0 2926 3 2 3 0 0 0 2 0
400 0 2938 3 3 3 0 0 0 3 0 0 2934 3 1 0 0 0 0 1 0
404 0 2935 3 3 0 0 0 0 3 0 0 2936 3 1 3 0 0 0 1 1
SECTION 214
408 0 2920 3 5 3 0 0 0 5 0 0 2922 3 2 0 0 0 0 2 0
412 0 2923 3 3 0 0 0 0 3 0 0 2924 3 3 0 0 0 0 3 0
416 0 2925 3 3 0 0 0 0 3 0 0 2926 3 3 0 0 0 0 3 0
420 0 2927 3 3 0 0 0 0 3 0 0 2928 3 3 0 0 0 0 3 0
424 0 2929 3 3 0 0 0 0 3 0 0 2930 3 3 0 0 0 0 3 0
428 0 2931 3 3 0 0 0 0 3 0 0 2932 3 3 0 0 0 0 3 0
432 0 2933 3 3 0 0 0 0 3 0 0 2934 3 3 0 0 0 0 3 0
436 0 2935 3 3 0 0 0 0 3 0 0 2936 3 3 0 0 0 0 3 1
SECTION 215
440 99 0 1 0 4096 0 0 0
444 1 0 0 0 0 0 0 0
448 £1£1£ 0 1£1£1 0 65764 0 67696 0
452 36978 0 55657 0 56554 0 51645 0
456 16772 0 53585 0 27259 0 67517 0
460 66955 0 72736 0
SECTION 216
462 0 0 0 0
464 0 0 0 0 0 0 0 0
468 0 0 0 0 0 0 0 0
PROCEDURE 217
472 24 0 3 1 4 24 0 2 84 0 18 1 1 4123 0 1 1 3 1110 0
476 18 1 1 5 0 28 0 0 3428 4 24 0 3 1 4 24 0 2 2584 0
480 18 1 1 4123 0 1 1 3 240 0 18 1 1 5 0 28 0 0 4538 4
484 1 1 3 2 0 2 0 0 8066 4 1 1 3 1 0 2 0 0 6781 4
488 6 0 0 6720 4 3 1 0 3316 4 27 0 0 490 4 0 1 0 2806 4
492 0 0 3 0 4 24 1 2 17 4 24 0 2 6 0 3 0 0 8102 4
496 24 1 2 17 4 4 1 0 5 0 2 0 0 8103 4 0 1 1 2806 4
500 24 1 0 1077 4
PROCEDURE 218
501 0 0 0 0 0 6 0 0 3346 4 27 0 0 591 4
504 27 0 2 591 4 6 0 0 3369 4 27 0 0 508 4 26 0 0 2158 4
508 6 0 0 3362 4 1 1 2 85 0 27 0 0 513 4 1 1 3 0 0
512 2 1 0 3368 4 2 0 0 3317 4 2 0 0 3351 4 6 0 0 6781 4
516 1 1 2 4 0 27 0 0 559 4 6 0 0 6693 4 1 1 1 1 0
520 3 0 0 6693 4 3 0 0 3308 4 2 0 0 3312 4
PROCEDURE 219
523 6 1 0 2927 4
524 18 0 1 4126 0 3 0 0 2932 4 5 0 0 6693 4 27 0 0 530 4
528 6 1 0 2562 4 2 1 0 2962 4 24 0 2 2324 4 28 1 2 2926 4
532 6 0 0 2932 4 5 0 0 3312 4 27 0 0 536 4 26 0 0 562 4
536 6 0 0 6693 4 1 1 2 256 0 27 0 1 542 4 6 0 0 3308 4
540 2 0 0 3322 4 24 1 0 552 4 24 0 1 8096 4 6 0 0 3322 4
544 5 0 0 3308 4 27 0 1 559 4 6 0 0 6693 4 1 1 2 1 0
548 26 0 0 944 4 18 0 1 2 0 24 0 1 8096 4 7 0 0 6699 4
552 0 0 3 2903 4 1 1 3 1 0 7 0 0 6690 4 0 0 3 2905 4
556 23 0 0 1 0 0 0 0 8096 3 24 1 0 559 4 1 1 3 1 0
560 2 0 0 8066 4 24 1 0 591 4
PROCEDURE 220
562 0 0 0 0 0 6 0 0 6693 4
564 26 0 0 944 4 1 0 1 0 0 18 1 1 4119 0 13 0 0 2910 4
568 2 0 0 2614 4 18 1 1 9 0 2 0 0 2615 4 0 0 2 2594 4
572 24 0 1 2615 4 18 1 3 0 0 6 0 0 2592 4 24 0 1 2614 4
576 14 0 0 6723 4 0 0 3 2905 4 26 0 1 562 4
PROCEDURE 221
579 0 0 0 0 0
580 6 1 0 2960 4 5 1 0 2548 4 27 0 0 589 4 6 1 0 2960 4
584 5 1 0 2842 4 27 0 0 589 4 6 1 0 2960 4 5 1 0 2546 4
588 27 0 1 590 4 2 1 0 2960 4 26 0 1 579 4
PROCEDURE 222
591 26 0 0 579 4
592 6 0 0 3341 4 27 0 0 598 4 6 0 0 6720 4 27 0 0 598 4
596 26 0 0 562 4 1 1 3 0 0 24 0 1 8066 4 26 0 1 599 4
600 0 0 0 686 3 0 0 0 781 3 0 0 0 1653 3 0 0 0 1254 3
604 24 0 1 8067 4 26 0 1 605 4 0 0 0 950 3 0 0 0 608 3
608 26 0 0 619 4 26 0 0 2154 4 24 1 0 950 4
PROCEDURE 223
611 0 0 0 0 0
612 1 1 3 84 0 26 0 0 635 4 26 0 1 611 4
PROCEDURE 224
615 0 0 0 0 0
616 1 1 3 100 0 26 0 0 635 4 26 0 1 615 4
PROCEDURE 225
619 0 0 0 0 0
620 1 1 3 105 0 26 0 0 635 4 26 0 1 619 4
PROCEDURE 226
623 0 0 0 0 0
624 1 1 3 89 0 26 0 0 635 4 26 0 1 623 4
PROCEDURE 227
627 0 0 0 0 0
628 1 1 3 99 0 26 0 0 635 4 26 0 1 627 4
PROCEDURE 228
631 0 0 0 0 0
632 1 1 3 115 0 26 0 0 635 4 26 0 1 631 4
PROCEDURE 229
635 0 0 0 0 0
636 18 1 1 4118 0 6 1 0 2962 4 18 0 1 4126 0 5 1 0 2844 4
640 27 0 0 649 4 1 1 3 0 0 18 1 1 10 0 24 1 2 3423 4
644 18 0 1 0 0 7 1 0 2962 4 1 1 3 2 0 4 0 0 3423 4
648 2 0 0 3423 4 26 0 1 635 4
PROCEDURE 230
650 0 0 0 0 0 26 1 1 2846 4
652 1 1 3 0 0 2 0 0 3354 4 1 0 1 28 0 15 0 0 3366 4
656 2 0 0 3338 4 15 0 1 3878 4 27 0 0 671 4 5 0 0 3338 4
660 27 0 3 668 4 27 0 1 671 4 6 0 1 3878 4 5 0 0 3366 4
664 27 0 0 666 4 27 0 2 680 4 6 0 1 3879 4 7 0 0 3354 4
668 1 1 3 0 0 25 0 1 2 0 24 1 0 657 4 1 0 1 3 0
672 6 0 0 3354 4 15 0 0 3366 4 3 0 0 3366 4 1 1 2 256 0
676 27 0 3 679 4 6 1 0 2564 4 2 1 0 2962 4 26 0 1 650 4
680 4 0 1 3879 4 27 0 0 683 4 27 0 2 671 4 6 1 0 2566 4
684 2 1 0 2962 4 24 1 0 671 4
PROCEDURE 231
686 6 1 0 2924 4 5 1 0 2528 4
688 27 0 1 691 4 2 1 0 3398 4 24 1 0 950 4 6 1 0 2924 4
692 5 1 0 2524 4 27 0 1 710 4 6 1 0 2848 4 2 1 0 3398 4
696 0 1 2 2934 4 26 0 0 2622 4 6 1 0 3397 4 27 0 3 704 4
700 3 0 0 3367 4 27 0 0 704 4 1 1 2 5 0 27 0 3 707 4
704 1 1 3 5 0 2 0 0 8072 4 24 1 0 1813 4
PROCEDURE 232
707 6 0 0 3367 4
708 2 0 0 8072 4 24 1 0 950 4 6 1 0 2924 4 5 1 0 2526 4
712 27 0 1 732 4 6 1 0 2850 4 28 0 0 5536 4 0 0 2 2513 4
716 15 1 0 2935 4 18 0 1 4124 0 3 0 0 3398 4 27 0 1 721 4
720 1 1 3 48 0 18 0 1 3 0 1 0 1 24 0 14 0 0 2935 4
724 24 1 0 727 4 1 1 3 1 0 3 0 0 3398 4 1 1 3 1 0
728 2 0 0 8070 4 1 1 3 4 0 2 0 0 8066 4 24 1 0 950 4
732 24 1 0 733 4
PROCEDURE 233
733 6 0 0 3399 4 27 0 1 737 4 1 1 3 2 0
736 24 1 0 738 4 1 1 3 3 0 2 0 0 8066 4 5 0 0 3346 4
740 27 0 3 950 4 1 1 3 2 0 2 0 0 3317 4 24 1 0 592 4
PROCEDURE 234
744 0 0 0 0 0 0 1 2 2926 4 26 0 0 2622 4 6 1 0 3397 4
748 3 0 0 3312 4 1 1 2 256 0 27 0 3 767 4 1 1 2 2201 0
752 27 0 2 767 4 6 1 0 2928 4 2 0 0 2116 4 26 0 0 768 4
756 6 1 0 3397 4 5 0 0 3312 4 27 0 1 762 4 6 1 0 2928 4
760 5 0 0 2116 4 27 0 0 763 4 26 0 0 562 4 6 1 0 3397 4
764 2 0 0 3312 4 24 0 2 2324 4 28 1 2 2926 4 26 0 1 744 4
PROCEDURE 235
768 0 0 0 0 0 6 1 0 3397 4 3 0 0 3426 4 3 0 0 3427 4
772 18 0 1 2 0 4 0 0 2928 4 2 0 0 3366 4 6 1 0 2928 4
776 27 0 3 780 4 26 0 0 650 4 6 0 0 3366 4 2 0 0 2928 4
780 26 0 1 768 4
PROCEDURE 236
781 26 0 0 744 4 6 0 0 3312 4 1 1 2 256 0
784 27 0 3 789 4 1 1 2 2201 0 27 0 2 789 4 6 0 0 3426 4
788 2 0 0 2940 4 6 0 0 3369 4 27 0 0 792 4 26 0 0 2158 4
792 0 1 2 2924 4 26 0 0 2622 4 6 1 0 3397 4 27 0 3 812 4
796 1 1 2 256 0 27 0 3 812 4 1 1 2 48 0 27 0 2 812 4
800 6 1 0 3397 4 26 0 0 944 4 3 0 0 3362 4 18 0 1 3 0
804 1 0 0 2504 4 18 1 1 10 0 3 0 0 3363 4 24 1 2 3363 4
808 0 0 2 0 0 1 1 3 0 0 15 0 0 2514 4 27 0 1 816 4
PROCEDURE 237
812 6 1 0 2852 4 2 1 0 2962 4 26 0 0 2154 4 24 1 0 950 4
816 18 0 1 4126 0 1 1 3 0 0 15 0 0 2515 4 18 0 1 4127 0
820 2 0 0 8068 4 15 0 0 2517 4 2 0 0 3369 4 15 0 0 2518 4
824 2 0 0 3368 4 2 0 0 3367 4
PROCEDURE 238
826 0 0 3 2905 4 6 0 0 2928 4
828 5 0 0 2911 4 27 0 2 832 4 6 0 0 2929 4 27 0 0 833 4
832 26 0 0 623 4 6 1 0 2930 4 27 0 0 838 4 1 1 2 1 0
836 27 0 0 838 4 26 0 0 611 4 6 1 0 2932 4 27 0 0 849 4
840 1 1 2 4 0 27 0 3 849 4 26 0 0 615 4 24 1 0 849 4
PROCEDURE 239
844 0 0 0 0 0 6 1 0 2930 4 27 0 0 848 4 26 0 0 611 4
848 26 0 1 844 4
PROCEDURE 240
849 24 0 1 8068 4 26 0 1 850 4 0 0 0 852 3
PROCEDURE 241
852 6 0 0 3312 4 27 0 3 868 4 27 0 1 863 4 6 0 0 2932 4
856 27 0 1 870 4 6 1 0 2928 4 27 0 3 868 4 27 0 1 870 4
860 6 0 0 3362 4 27 0 0 868 4 24 1 0 870 4 27 0 0 872 4
864 1 1 2 256 0 27 0 3 868 4 1 1 2 2304 0 27 0 3 870 4
868 26 0 0 2154 4 26 0 0 619 4 24 1 0 872 4 26 0 0 1674 4
PROCEDURE 242
872 6 1 0 2936 4 27 0 0 876 4
PROCEDURE 243
874 26 0 0 2154 4 26 0 0 627 4
PROCEDURE 244
876 0 0 3 2903 4
PROCEDURE 245
877 6 0 0 3362 4 1 1 2 127 0 27 0 0 898 4
880 1 1 1 3 0 27 0 1 950 4 6 0 0 2930 4 1 1 2 1 0
884 27 0 1 950 4 6 0 0 2932 4 27 0 1 950 4 24 1 0 898 4
888 0 0 3 2905 4 6 1 0 2934 4 27 0 1 892 4 26 0 0 627 4
892 6 1 0 2926 4 27 0 1 898 4 6 0 0 2928 4 27 0 0 950 4
896 26 0 0 623 4 24 1 0 950 4
PROCEDURE 246
898 6 0 0 3312 4 1 1 2 2457 0
900 27 0 2 950 4 6 0 0 6693 4 18 0 1 2 0 4 0 0 3317 4
904 3 0 0 3426 4 5 1 0 2927 4 5 0 0 2928 4 27 0 3 950 4
908 6 1 0 2927 4 27 0 0 950 4 4 0 0 2928 4 27 0 3 950 4
912 2 0 0 3427 4 6 1 0 3426 4 0 0 3 2903 4 24 1 2 6699 4
916 1 1 0 0 0 18 1 1 10 0 3 1 0 2806 4 26 1 1 2806 4
920 5 0 0 6699 4 18 0 1 5 0 4 0 0 6699 4 2 1 0 3396 4
924 6 0 0 6699 4 5 0 0 2508 4 27 0 0 950 4 6 0 0 2906 4
928 7 0 0 6699 4 6 1 0 3396 4 24 1 2 6699 4 28 1 1 0 0
932 25 0 1 4098 0 24 1 0 934 4 6 1 0 3426 4 24 0 3 0 4
936 2 1 1 0 0 24 1 0 950 4
PROCEDURE 247
938 0 0 0 0 0 2 1 0 2614 4
940 0 0 3 2905 4 24 0 2 2574 4 12 1 0 2614 4 26 0 1 938 4
PROCEDURE 248
944 0 0 0 0 0 2 1 0 2614 4 0 0 3 2903 4 24 0 2 2594 4
948 12 1 0 2614 4 26 0 1 944 4
PROCEDURE 249
950 6 0 0 3393 4 27 0 0 953 4
952 26 0 0 2154 4 0 0 3 2905 4 6 0 0 6693 4 18 0 1 2 0
956 2 0 0 3396 4 6 0 0 8066 4 6 0 0 3317 4 1 1 2 256 0
960 27 0 3 972 4 6 0 0 8066 4 1 1 2 2 0 27 0 0 968 4
964 1 0 1 63 0 6 1 0 2854 4 14 1 0 2962 4 24 1 0 969 4
968 26 0 0 2154 4 1 1 3 153 0 5 0 0 3398 4 24 1 0 973 4
972 6 0 0 3317 4 7 0 0 3396 4 24 0 2 2328 4 28 1 2 2920 4
PROCEDURE 250
976 1 1 3 0 0 24 0 1 8066 4 26 0 1 978 4 0 0 0 984 3
980 0 0 0 1004 3 0 0 0 993 3 0 0 0 998 3 0 0 0 984 3
984 6 0 0 3317 4 27 0 1 991 4 6 0 0 2544 4 1 1 2 3 0
988 27 0 1 991 4 1 1 3 1 0 2 1 0 3016 4 1 1 3 0 0
992 24 1 0 1004 4
PROCEDURE 251
993 6 0 0 3317 4 1 1 2 1 0 27 0 0 1004 4
996 1 1 3 2 0 24 1 0 1005 4 6 0 0 3317 4 27 0 1 1003 4
1000 1 1 3 1 0 7 0 0 3317 4 24 1 0 986 4 6 0 0 3398 4
1004 1 1 1 1 0 7 0 0 3317 4 6 0 0 3341 4 27 0 0 1011 4
1008 6 0 0 3309 4 18 0 1 2 0 2 1 0 2918 4 2 1 0 6724 4
PROCEDURE 252
1012 0 0 3 2903 4 6 0 0 2521 4 27 0 0 1017 4 26 0 0 2001 4
1016 24 1 0 1018 4 26 0 0 2056 4 6 0 0 3346 4 27 0 1 1043 4
1020 6 0 0 6781 4 1 1 2 4 0 27 0 0 1035 4 24 0 1 6781 4
1024 6 0 0 2314 4 28 1 2 3012 4 6 1 0 2570 4 24 0 1 6781 4
1028 24 0 1 2310 4 28 1 1 3010 4 6 1 0 2962 4 24 0 1 6781 4
1032 24 0 1 2310 4 2 1 0 3008 4 24 1 0 1064 4 24 0 2 2929 4
1036 18 1 1 4123 0 1 1 3 16 0 18 1 1 5 0 28 0 1 3021 4
1040 24 0 2 2500 4 28 1 2 3016 4 24 1 0 1064 4 24 0 2 2348 4
1044 28 1 2 3012 4 1 1 3 0 0 2 0 0 2544 4 6 0 0 6781 4
1048 1 1 2 1 0 27 0 1 1056 4 6 0 0 3346 4 27 0 3 1056 4
1052 6 1 0 2926 4 2 1 0 3022 4 2 1 0 3018 4 24 1 0 1058 4
1056 6 1 0 2962 4 2 1 0 3022 4 24 0 2 2934 4 18 1 1 4123 0
1060 1 1 3 28 0 18 1 1 5 0 28 1 1 3024 4 24 1 0 1066 4
1064 6 0 0 6781 4 2 0 0 2544 4 1 1 3 1 0 2 0 0 2521 4
1068 0 0 3 2905 4 1 1 3 0 0 2 0 0 3423 4 6 0 0 6775 4
1072 1 0 1 15 0 14 1 0 3012 4 1 1 3 0 0 2 0 0 6775 4
1076 26 0 1 501 4
PROCEDURE 253
1077 26 0 0 2116 4 27 0 0 1100 4 6 0 0 3353 4
1080 27 0 1 1092 4 6 0 0 6777 4 27 0 0 1086 4 24 0 3 8102 4
1084 6 1 0 5 0 24 1 0 1088 4 24 1 2 17 4 6 1 0 7 0
1088 24 1 2 21 4 5 1 0 5 0 27 0 0 1100 4 27 0 2 1106 4
1092 26 0 0 2175 4 1 1 3 0 0 2 0 0 3341 4 26 0 0 2227 4
1096 26 0 0 1873 4 26 0 0 501 4 26 0 0 2204 4 24 1 0 1079 4
PROCEDURE 254
1100 24 0 1 8069 4 26 0 1 1101 4 0 0 0 1122 3 0 0 0 1159 3
1104 0 0 0 1106 3 0 0 0 1106 3
PROCEDURE 255
1106 6 1 0 2922 4 24 0 1 2544 4
1108 24 0 1 2318 4 2 1 0 3010 4 0 1 2 2920 4 26 0 0 1237 4
1112 1 1 3 7517 0 3 0 0 6782 4 1 0 1 15 0 24 0 1 2544 4
1116 24 0 1 2318 4 14 1 0 3010 4 26 0 0 2087 4 26 0 0 2116 4
1120 27 0 0 1118 4 24 1 0 1079 4
PROCEDURE 256
1122 24 1 2 21 4 6 1 0 51 0
1124 27 0 1 1157 4 6 0 0 6781 4 2 0 0 2158 4 26 0 0 2227 4
1128 6 0 0 3346 4 2 0 0 627 4 26 0 0 2108 4 6 0 0 3346 4
1132 5 0 0 627 4 27 0 1 1152 4 1 1 3 1 0 2 0 0 3341 4
1136 26 0 0 1816 4 26 0 0 2175 4 6 0 0 3346 4 27 0 2 1148 4
1140 6 0 0 6777 4 27 0 0 1145 4 24 0 3 8102 4 6 1 0 14 0
1144 24 1 0 1147 4 24 1 2 17 4 6 1 0 16 0 2 1 0 2926 4
1148 26 0 0 2204 4 26 0 0 501 4 26 0 0 2087 4 24 1 0 1077 4
1152 6 0 0 3346 4 4 0 0 627 4 27 0 2 1134 4 6 0 0 2158 4
1156 2 0 0 6781 4 1 1 3 105 0 24 1 0 1200 4
PROCEDURE 257
1159 26 0 0 2175 4
1160 24 1 2 21 4 6 1 0 4 0 2 1 0 2918 4 24 1 2 21 4
1164 6 1 0 51 0 27 0 1 1199 4 26 0 0 2087 4 26 0 0 2116 4
1168 27 0 1 1212 4 24 1 2 21 4 6 1 0 51 0 27 0 1 1199 4
1172 6 0 0 6777 4 27 0 0 1177 4 24 0 3 8102 4 6 1 0 5 0
1176 24 1 0 1179 4 24 1 2 17 4 6 1 0 7 0 18 0 1 8 0
1180 27 0 0 1182 4 26 0 0 562 4 26 0 0 2204 4 26 0 0 2175 4
1184 6 0 0 6777 4 27 0 0 1189 4 24 0 3 8102 4 6 1 0 5 0
1188 24 1 0 1191 4 24 1 2 17 4 6 1 0 7 0 5 1 0 2921 4
1192 27 0 1 1198 4 26 0 0 2204 4 26 0 0 2087 4 26 0 0 2116 4
1196 27 0 1 1079 4 24 1 0 1199 4 27 0 3 1182 4 1 1 3 84 0
1200 18 0 1 8 0 24 0 1 2544 4 24 0 1 2318 4 2 1 0 3010 4
1204 6 0 0 6777 4 27 0 0 1209 4 24 0 3 8102 4 0 1 2 4 0
1208 24 1 0 1111 4 24 1 2 17 4 0 1 2 6 0 24 1 0 1111 4
1212 6 0 0 6777 4 27 0 0 1217 4 24 0 3 8102 4 6 1 0 5 0
1216 24 1 0 1219 4 24 1 2 17 4 6 1 0 7 0 18 0 1 8 0
1220 27 0 0 1222 4 26 0 0 562 4 26 0 0 2204 4 6 0 0 6777 4
1224 27 0 0 1228 4 24 0 3 8102 4 6 1 0 5 0 24 1 0 1230 4
1228 24 1 2 17 4 6 1 0 7 0 5 1 0 2919 4 27 0 0 1222 4
1232 24 1 0 1077 4
PROCEDURE 258
1233 0 0 0 0 0 6 0 0 1233 4 2 0 0 1873 4
1236 24 1 0 1876 4
PROCEDURE 259
1237 0 0 0 0 0 24 0 1 2544 4 24 0 1 2310 4
1240 6 0 0 3025 4 5 0 0 2549 4 27 0 0 1249 4 1 1 3 0 0
1244 18 1 1 10 0 24 0 1 2544 4 24 0 1 2310 4 2 1 0 3024 4
1248 26 0 1 1237 4 18 1 1 10 0 24 0 1 2544 4 24 0 1 2310 4
1252 2 1 0 3022 4 26 0 1 1237 4
PROCEDURE 260
1254 2 0 0 3377 4 2 1 0 3374 4
1256 2 0 0 3378 4 2 0 0 8077 4 26 1 2 3374 4 26 1 3 2856 4
1260 26 1 1 2834 4 6 1 0 2858 4 28 0 0 5476 4 0 0 3 2903 4
1264 0 1 2 2924 4 6 0 0 3341 4 2 0 0 3378 4 24 1 0 1270 4
1268 26 0 0 2154 4
PROCEDURE 261
1269 26 0 0 1633 4 18 1 1 2 0 3 1 0 3396 4
1272 1 1 2 125 0 27 0 0 1279 4 1 1 2 1 0 27 0 0 1436 4
1276 6 0 0 3378 4 27 0 1 1269 4 24 1 0 1284 4 6 0 0 3378 4
1280 27 0 0 1436 4 2 0 0 3378 4 2 0 0 3378 4 24 1 0 1269 4
1284 6 0 0 3396 4 2 0 2 5476 4
PROCEDURE 262
1286 24 0 3 0 4 6 0 0 4 22
1288 25 0 2 1 0 24 1 0 1290 4 27 0 1 1310 4 6 0 0 3396 4
1292 1 1 2 122 0 27 0 0 1312 4 1 1 3 5 0 2 0 0 8070 4
1296 2 0 0 5536 4 6 0 0 5537 4 27 0 0 1307 4 6 0 0 5538 4
1300 2 0 0 8071 4 6 0 0 5538 4 1 1 2 5 0 27 0 1 1310 4
1304 1 1 3 1 0 2 0 0 8077 4 24 1 0 1310 4 1 1 3 1 0
1308 2 0 0 8070 4 26 0 0 1314 4 6 0 0 3396 4 24 1 0 1322 4
1312 26 0 0 1314 4 24 1 0 1333 4
PROCEDURE 263
1314 0 0 0 0 0 2 1 0 5536 4
1316 2 1 0 5538 4 2 1 0 5540 4 2 1 0 5542 4 2 1 0 5544 4
1320 2 1 0 5546 4 26 0 1 1314 4 24 0 1 8070 4 26 0 1 1323 4
1324 0 0 0 1268 3 0 0 0 1355 3 0 0 0 1419 3 0 0 0 1329 3
1328 0 0 0 1336 3 1 1 2 124 0 27 0 0 1307 4 1 1 1 2 0
1332 27 0 1 1380 4 1 1 3 2 0 2 0 0 8070 4 24 1 0 1269 4
1336 1 1 2 124 0 27 0 1 1352 4 1 1 3 2 0 7 0 0 5536 4
1340 24 0 0 5536 4 6 0 0 5538 4 27 0 0 1307 4 2 0 0 8071 4
1344 6 0 0 8071 4 1 1 2 5 0 27 0 1 1269 4 24 0 3 0 4
1348 6 0 0 4 22 1 1 1 1 0 2 0 0 8077 4 24 1 0 1269 4
1352 1 1 1 2 0 27 0 1 1380 4 24 1 0 1268 4 1 1 2 81 0
1356 27 0 0 1375 4 1 1 2 1 0 27 0 0 1373 4 1 1 2 1 0
1360 27 0 0 1367 4 1 1 2 1 0 27 0 0 1374 4 1 1 2 19 0
1364 27 0 0 1372 4 1 1 2 2 0 27 0 1 1307 4 24 0 3 0 4
1368 6 0 0 4 22 1 1 1 2 0 2 0 0 8077 4 1 1 3 1 0
1372 1 1 1 1 0 1 1 1 1 0 1 1 1 1 0 1 1 1 1 0
1376 2 0 0 8071 4 1 1 3 3 0 2 0 0 8070 4 24 1 0 1269 4
PROCEDURE 264
1380 24 0 1 8071 4 26 0 1 1381 4 0 0 0 1269 3 0 0 0 1387 3
1384 0 0 0 1396 3 0 0 0 1400 3 0 0 0 1405 3 6 0 0 3396 4
1388 18 0 1 4127 0 1 1 2 2 0 27 0 0 1393 4 1 1 2 3 0
1392 27 0 3 1269 4 1 1 3 91 0 2 1 0 2962 4 24 1 0 1269 4
1396 6 1 0 3397 4 1 1 2 10 0 27 0 2 1393 4 24 1 0 1387 4
1400 6 1 0 3397 4 27 0 0 1387 4 1 1 2 1 0 27 0 0 1387 4
1404 24 1 0 1393 4 6 0 0 3396 4 1 1 2 77 0 27 0 1 1412 4
1408 6 0 0 3374 4 2 0 0 3375 4 2 0 0 3374 4 24 1 0 1387 4
1412 6 0 0 3374 4 18 0 1 1 0 4 1 0 3397 4 2 0 0 3374 4
1416 1 1 3 5 0 2 0 0 8070 4 24 1 0 1396 4 1 1 2 123 0
1420 27 0 0 1428 4 6 0 2 5474 4 1 1 2 82 0 27 0 0 1396 4
1424 6 0 2 5473 4 1 1 2 82 0 27 0 0 1396 4 24 1 0 1307 4
1428 6 0 0 8071 4 24 0 0 5537 4 2 0 0 5538 4 1 1 3 2 0
1432 7 0 0 5537 4 1 1 3 4 0 2 0 0 8070 4 24 1 0 1269 4
PROCEDURE 265
1436 1 1 3 125 0 2 0 2 5476 4 6 0 0 8070 4 1 1 2 4 0
1440 27 0 2 1442 4 26 0 0 2154 4 6 0 0 5536 4 27 0 0 1448 4
1444 1 1 1 2 0 5 0 0 5537 4 27 0 0 1448 4 26 0 0 2154 4
1448 6 0 0 5537 4 1 1 2 12 0 27 0 3 1452 4 26 0 0 2154 4
1452 24 0 3 0 4 6 0 0 4 22 2 0 0 3378 4 3 1 0 2806 4
1456 26 1 2 2806 4 3 1 0 2806 4 26 1 3 2806 4 6 0 0 8077 4
1460 27 0 0 1483 4 3 1 0 2806 4 26 1 1 2806 4 6 0 0 3375 4
1464 1 1 2 256 0 27 0 3 1483 4 1 1 2 2201 0 27 0 2 1483 4
1468 6 0 0 3375 4 0 0 3 2903 4 18 1 1 4126 0 2 0 1 5475 4
1472 18 1 1 1 0 27 0 1 1475 4 1 1 3 48 0 2 0 1 5476 4
1476 18 1 1 1 0 27 0 1 1479 4 1 1 3 48 0 2 0 1 5477 4
1480 6 1 0 2860 4 28 0 0 2924 4 24 1 0 1525 4 6 0 0 3341 4
1484 27 0 0 1542 4 6 1 0 2860 4 28 0 0 2924 4 24 0 1 6786 4
1488 26 0 1 1488 4 0 0 0 1525 3 0 0 0 1491 3 6 0 0 5537 4
1492 1 1 2 4 0 27 0 2 1513 4 6 0 0 8071 4 1 1 2 1 0
1496 27 0 1 1513 4 6 0 0 5476 4 1 1 2 122 0 27 0 0 1501 4
1500 6 0 0 2912 4 1 1 1 3 0 0 0 2 2913 4 10 0 0 3398 4
1504 4 1 0 2862 4 3 0 0 3378 4 3 1 0 2806 4 26 1 1 2806 4
1508 1 1 3 125 0 2 0 1 5476 4 25 0 1 1 0 24 1 0 1509 4
1512 24 1 0 1525 4 26 1 1 2864 4 6 0 1 5476 4 27 0 1 1518 4
1516 25 0 1 4097 0 24 1 0 1514 4 1 1 3 125 0 2 0 1 5477 4
1520 2 0 0 5505 4 24 0 3 0 4 6 0 0 2 22 1 1 1 1 0
1524 2 0 0 3378 4 6 0 2 5476 4
PROCEDURE 266
1526 18 0 1 2 0 4 0 2 5477 4
1528 18 0 1 2 0 4 0 2 5478 4 18 0 1 2 0 4 0 2 5479 4
1532 18 0 1 2 0 4 0 2 5480 4 2 1 3 2924 4 25 0 3 2 0
1536 25 0 2 5 0 24 0 3 0 4 6 0 0 4 22 1 1 2 1 0
1540 5 0 0 3378 4 27 0 3 1525 4 6 1 0 2960 4 5 1 0 2548 4
1544 27 0 1 1547 4 26 0 0 1314 4 24 1 0 950 4 6 0 0 5537 4
1548 1 1 2 4 0 27 0 2 950 4 26 1 1 2866 4 6 0 1 5476 4
1552 1 1 2 122 0 27 0 1 1561 4 6 0 1 5477 4 25 0 1 1 0
1556 24 1 0 1557 4 1 1 2 123 0 27 0 1 1554 4 25 0 1 1 0
1560 24 1 0 1561 4
PROCEDURE 267
1561 24 0 1 8071 4 26 0 1 1562 4 0 0 0 1579 3
1564 0 0 0 1588 3 0 0 0 1602 3 0 0 0 1625 3 0 0 0 1568 3
1568 6 0 0 3375 4 1 1 2 4096 0 27 0 2 1573 4 1 1 1 3943 0
1572 27 0 2 1575 4 26 0 0 619 4 24 1 0 950 4 6 0 0 3374 4
1576 1 1 2 153 0 27 0 2 896 4 24 1 0 950 4
PROCEDURE 268
1579 6 0 0 3398 4
1580 27 0 0 1582 4 1 1 3 3 0 1 1 1 2 0 24 0 3 0 4
1584 4 0 0 2 22 5 0 0 3378 4 27 0 2 950 4 24 1 0 1630 4
PROCEDURE 269
1588 6 0 0 3398 4 27 0 0 1591 4 1 1 3 5 0 1 1 1 5 0
1592 2 0 0 3375 4 24 0 0 3378 4 6 0 0 5475 4 1 1 2 16 0
1596 27 0 0 1599 4 6 0 0 3375 4 24 1 0 1583 4 6 0 0 3375 4
1600 1 1 1 1 0 24 1 0 1583 4
PROCEDURE 270
1602 26 1 2 2868 4 6 0 1 5476 4
1604 1 1 2 125 0 27 0 0 1619 4 1 1 1 109 0 27 0 0 1619 4
1608 1 1 1 16 0 2 1 0 3318 4 6 1 0 3374 4 18 0 1 1 0
1612 4 1 0 3319 4 2 1 0 3374 4 25 0 1 1 0 24 1 0 1616 4
1616 25 0 2 1 0 24 1 0 1603 4 24 1 0 1630 4
PROCEDURE 271
1619 6 0 0 3398 4
1620 27 0 1 950 4 6 1 0 3374 4 5 1 0 2870 4 27 0 2 1630 4
1624 24 1 0 950 4
PROCEDURE 272
1625 6 0 0 3398 4 27 0 0 1628 4 1 1 3 20 0
1628 1 1 1 20 0 24 1 0 1592 4
PROCEDURE 273
1630 1 1 3 91 0 2 1 0 2962 4
1632 24 1 0 950 4
PROCEDURE 274
1633 0 0 0 0 0 1 1 3 0 0 25 0 3 1 0
1636 24 1 0 1646 4 25 0 1 2 0 24 1 0 1643 4 26 0 0 2154 4
1640 1 1 3 125 0 18 1 1 4126 0 26 0 1 1633 4 26 1 3 2856 4
1644 24 0 0 23 4 0 1 2 2924 4 26 0 1 1633 4
PROCEDURE 275
1647 0 0 0 0 0
1648 2 1 0 3397 4 6 0 0 1647 4 3 0 0 1633 4 2 0 0 744 4
1652 24 1 0 747 4
PROCEDURE 276
1653 2 0 0 3311 4 26 1 2 2840 4 6 0 2 2940 4
1656 2 0 0 2928 4 6 1 2 2938 4 26 0 0 1647 4 6 0 0 2928 4
1660 2 0 2 2940 4 6 0 0 3312 4 2 0 2 2938 4 26 0 0 1674 4
1664 6 0 0 2937 4 27 0 0 1671 4 1 1 3 1 0 18 1 1 4118 0
1668 15 0 0 2928 4 27 0 0 1671 4 26 0 0 623 4 25 0 2 4 0
1672 24 1 0 1655 4 24 1 0 1689 4
PROCEDURE 277
1674 0 0 0 0 0 1 1 3 1 0
1676 2 0 0 8067 4 6 0 0 3312 4 27 0 0 1688 4 1 1 2 256 0
1680 27 0 2 1686 4 26 0 0 619 4 26 0 0 2154 4 1 1 3 2 0
1684 2 0 0 8067 4 24 1 0 1688 4 1 1 2 2304 0 27 0 2 1681 4
1688 26 0 1 1674 4
PROCEDURE 278
1689 6 0 0 2937 4 27 0 3 1802 4 1 1 2 3 0
1692 27 0 2 1802 4 6 0 0 2938 4 27 0 0 1808 4 24 0 1 8072 4
1696 26 0 1 1696 4 0 0 0 1702 3 0 0 0 1765 3 0 0 0 1710 3
1700 0 0 0 1765 3 0 0 0 950 3
PROCEDURE 279
1702 6 0 0 2930 4 4 0 0 2932 4
1704 7 0 0 3313 4 6 0 0 2934 4 1 1 2 2 0 27 0 1 1710 4
1708 1 1 3 1 0 7 0 0 3313 4 6 0 0 2942 4 0 0 2 2944 4
1712 27 1 1 1806 4 6 0 0 2929 4 27 0 1 1800 4 6 0 0 2937 4
1716 1 1 2 1 0 27 0 0 1719 4 6 0 0 2914 4 1 1 1 16 0
1720 5 0 0 2930 4 5 0 0 2931 4 27 0 3 1798 4 4 0 0 2930 4
1724 4 0 0 2931 4 5 0 0 2933 4 27 0 3 1792 4
PROCEDURE 280
1727 6 0 0 2932 4
1728 1 1 2 22 0 27 0 2 1794 4 6 0 0 2930 4 27 0 0 1798 4
1732 6 0 0 2937 4 1 1 2 2 0 27 0 1 1737 4 6 0 0 2933 4
1736 27 0 1 1792 4 6 0 0 2935 4 27 0 1 1742 4 5 0 0 3371 4
1740 27 0 0 1749 4 24 1 0 1763 4 1 1 2 1 0 27 0 1 1788 4
1744 6 0 0 3371 4 1 1 2 2 0 27 0 0 1748 4 1 1 1 3 0
1748 2 0 0 3371 4 6 0 0 2936 4 3 0 0 3314 4 27 0 0 950 4
1752 1 1 2 1 0 27 0 1 1786 4 6 0 0 3313 4 4 0 0 3313 4
1756 18 0 1 9 0 27 0 0 1760 4 6 1 0 2872 4 2 1 0 2962 4
1760 2 0 0 3313 4 5 0 0 3371 4 27 0 0 950 4 7 0 0 3371 4
1764 24 1 0 1788 4
PROCEDURE 281
1765 6 0 0 2929 4 27 0 0 1771 4 1 1 2 1 0
1768 27 0 1 1800 4 6 0 0 2936 4 27 0 0 1786 4 6 0 0 2930 4
1772 27 0 1 1798 4 6 0 0 2931 4 27 0 1 1796 4 6 0 0 2932 4
1776 27 0 1 1794 4 6 0 0 2933 4 27 0 1 1792 4 6 0 0 2934 4
1780 27 0 0 1783 4 1 1 2 2 0 27 0 1 1790 4 6 0 0 2935 4
1784 27 0 1 1788 4 24 1 0 950 4
PROCEDURE 282
1786 1 1 3 1 0 2 0 0 3311 4
1788 1 1 3 1 0 7 0 0 3311 4 1 1 3 1 0 7 0 0 3311 4
1792 1 1 3 1 0 7 0 0 3311 4 1 1 3 1 0 7 0 0 3311 4
1796 1 1 3 1 0 7 0 0 3311 4 1 1 3 1 0 7 0 0 3311 4
1800 1 1 3 1 0 7 0 0 3311 4 1 1 3 1 0 7 0 0 3311 4
1804 1 1 3 1 0 7 0 0 3311 4 1 1 3 2 0 7 0 0 3311 4
1808 1 1 3 1 0 4 0 0 3311 4 2 0 0 3396 4 24 0 2 2328 4
1812 28 1 2 2962 4 6 1 0 2874 4 7 1 0 2962 4 24 1 0 950 4
PROCEDURE 283
1816 0 0 0 0 0 6 1 0 2820 4 28 1 1 2918 4 6 0 0 3346 4
1820 27 0 0 1945 4 24 0 1 6786 4 26 0 1 1822 4 0 0 0 1825 3
1824 0 0 0 1847 3 6 0 0 6720 4 27 0 0 1829 4 24 0 2 2432 4
1828 24 1 0 1830 4 24 0 2 2434 4 26 0 0 2799 4 6 0 0 6781 4
1832 1 1 2 2 0 27 0 1 1844 4 6 0 0 3346 4 27 0 3 1844 4
1836 1 1 3 0 0 2 1 0 2926 4 6 0 0 6720 4 27 0 0 1842 4
1840 24 0 2 2440 4 24 1 0 1843 4 24 0 2 2442 4 26 0 0 2799 4
1844 1 1 3 0 0 2 1 0 2962 4 26 0 1 1816 4 24 0 2 2434 4
1848 24 1 2 21 4 28 0 2 8 0 24 1 2 21 4 24 0 2 18 0
1852 18 1 1 4123 0 1 1 3 16 0 18 1 1 5 0 28 1 1 2936 4
1856 6 1 0 2926 4 18 0 1 4 0 2 1 0 2926 4 6 0 0 3346 4
1860 27 0 3 1844 4 6 0 0 6781 4 1 1 2 1 0 27 0 1 1844 4
1864 6 1 0 2936 4 2 1 0 2926 4 24 1 2 21 4 24 0 2 20 0
1868 18 1 1 4123 0 1 1 3 16 0 18 1 1 5 0 28 1 1 2936 4
1872 26 0 1 1816 4
PROCEDURE 284
1873 0 0 0 0 0 6 1 0 2850 4 28 1 1 2924 4
1876 6 0 0 6777 4 27 0 1 2237 4 6 0 0 3346 4 27 0 0 1899 4
1880 24 0 2 2334 4 24 1 2 17 4 28 0 2 4 0 6 0 0 3394 4
1884 27 0 0 1892 4 6 0 0 6781 4 1 1 2 1 0 27 0 0 1944 4
1888 24 1 2 17 4 6 1 0 20 0 2 1 0 2934 4 24 1 0 1944 4
1892 24 1 2 17 4 24 0 2 20 0 18 1 1 4123 0 1 1 3 30 0
1896 18 1 1 5 0 28 1 1 2934 4 24 1 0 1943 4 24 0 1 6781 4
1900 26 0 1 1900 4 0 0 0 1918 3 0 0 0 1922 3 0 0 0 1926 3
1904 0 0 0 1905 3 24 1 2 17 4 24 0 2 9 0 18 1 1 4123 0
1908 1 1 3 36 0 18 1 1 5 0 28 1 0 2927 4 24 1 2 17 4
1912 24 0 2 44 0 18 1 1 4123 0 1 1 3 6 0 18 1 1 5 0
1916 28 1 1 2958 4 26 0 1 1873 4 24 0 2 2358 4 24 1 2 17 4
1920 28 0 2 4 0 24 1 0 1935 4 24 0 2 2378 4 24 1 2 17 4
1924 28 0 2 4 0 24 1 0 1935 4 24 1 2 17 4 24 0 2 12 0
1928 18 1 1 4123 0 1 1 3 18 0 18 1 1 5 0 28 1 1 2924 4
1932 24 1 2 17 4 6 1 0 5 0 2 1 0 2918 4 6 0 0 3394 4
1936 27 0 1 1944 4 24 1 2 17 4 24 0 2 32 0 18 1 1 4123 0
1940 1 1 3 18 0 18 1 1 5 0 28 1 1 2946 4 2 1 0 2962 4
1944 26 0 1 1873 4
PROCEDURE 285
1945 24 0 1 6781 4 26 0 1 1946 4 0 0 0 1951 3
1948 0 0 0 1956 3 0 0 0 1959 3 0 0 0 1844 3
PROCEDURE 286
1951 24 0 2 2446 4
1952 26 0 0 2799 4 1 1 3 0 0 2 1 0 2938 4 24 1 0 1844 4
1956 24 0 2 2464 4 26 0 0 2799 4 24 1 0 1844 4 24 0 2 2494 4
1960 26 0 0 2799 4 24 0 2 2414 4 24 1 2 21 4 28 0 2 4 0
1964 24 1 0 1844 4
PROCEDURE 287
1965 0 0 0 0 0 5 1 0 2526 4 27 0 3 1998 4
1968 27 0 0 1991 4 4 1 0 2526 4 5 1 0 2534 4 27 0 1 1977 4
1972 6 0 0 6781 4 1 1 2 3 0 27 0 0 1998 4 1 1 3 16 0
1976 24 1 0 1996 4 4 1 0 2534 4 5 1 0 2528 4 27 0 0 1993 4
1980 27 0 3 1998 4 4 1 0 2528 4 5 1 0 2524 4 27 0 0 1992 4
1984 27 0 3 1998 4 4 1 0 2524 4 5 1 0 2550 4 27 0 1 1998 4
1988 6 0 0 3341 4 27 0 1 1998 4 1 1 3 1 0 1 1 1 1 0
1992 1 1 1 1 0 1 1 1 1 0 2 0 0 6781 4 1 1 2 16 0
1996 2 0 0 3346 4 26 0 1 1965 4 1 1 3 0 0 2 0 0 3346 4
2000 26 0 1 1965 4
PROCEDURE 288
2001 0 0 0 0 0 6 0 0 3418 4 27 0 0 2010 4
2004 6 0 0 3419 4 27 0 0 2009 4 24 0 1 2544 4 24 0 1 2318 4
2008 2 1 0 3010 4 2 0 0 3418 4 26 1 1 2876 4 6 1 1 3008 4
2012 27 0 1 2015 4 25 0 1 4098 0 24 1 0 2011 4 24 0 3 0 4
2016 6 0 0 2 22 3 1 0 3011 4 1 1 3 144 0 5 0 0 2522 4
2020 5 1 0 3011 4 27 0 2 2034 4 6 0 0 2522 4 24 1 2 19 4
2024 3 1 0 5 0 26 1 1 2522 4 6 1 0 2532 4 24 1 2 19 4
2028 2 1 1 6 0 26 0 0 2065 4 6 1 0 2820 4 24 1 2 19 4
2032 28 1 1 4 0 2 0 0 2522 4 1 1 3 6 0 2 0 0 3310 4
2036 26 1 1 2522 4 24 0 2 3010 4 18 1 1 4123 0 6 1 0 3011 4
2040 18 1 1 5 0 0 1 0 2806 4 0 0 3 0 4 24 1 2 19 4
2044 24 0 2 0 0 24 0 3 0 4 4 0 0 2 22 2 0 0 2812 4
2048 0 1 1 2806 4 24 0 3 2812 4 28 1 1 6 0 6 1 0 3011 4
2052 7 0 0 2522 4 6 1 0 2878 4 28 1 1 3010 4 26 0 1 2001 4
PROCEDURE 289
2056 0 0 0 0 0 6 1 0 2532 4 24 1 2 19 4 2 1 0 50 0
2060 26 0 0 2065 4 6 1 0 2820 4 24 1 2 19 4 28 1 1 4 0
2064 26 0 1 2056 4
PROCEDURE 290
2065 0 0 0 0 0 0 1 0 2806 4 0 0 3 0 4
2068 0 0 2 18 4 6 1 0 2840 4 4 0 0 10 4 25 1 1 4096 0
2072 24 0 3 0 4 23 0 2 0 256 0 1 1 2806 4 26 0 1 2065 4
PROCEDURE 291
2076 0 0 0 0 0 0 1 0 2806 4 0 0 3 0 4 0 0 2 16 4
2080 6 1 0 2880 4 4 0 0 9 4 25 1 1 4096 0 24 0 3 0 4
2084 23 0 2 0 256 0 1 1 2806 4 26 0 1 2076 4
PROCEDURE 292
2087 0 0 0 0 0
2088 26 0 0 2193 4 24 1 2 21 4 6 1 0 4 0 5 1 0 2568 4
2092 27 0 0 2107 4 24 1 2 21 4 0 1 2 49 0 1 1 3 0 0
2096 18 1 1 7 0 2 1 0 2614 4 26 1 1 2614 4 18 1 1 3 0
2100 2 0 0 2001 4 1 0 1 3 0 1 1 3 126 0 24 0 1 2001 4
2104 18 1 1 0 0 24 1 2 21 4 14 1 1 0 0 26 0 1 2087 4
PROCEDURE 293
2108 0 0 0 0 0 6 1 0 2882 4 28 1 1 2918 4 24 0 2 2432 4
2112 26 0 0 2799 4 6 1 0 2924 4 26 0 0 1965 4 26 0 1 2108 4
PROCEDURE 294
2116 0 0 0 0 0 24 1 2 21 4 6 1 0 4 0 18 0 1 4124 0
2120 18 0 1 4 0 5 1 0 2536 4 27 0 0 2127 4 24 1 2 21 4
2124 6 1 0 4 0 5 1 0 2568 4 27 0 1 2129 4 6 1 0 2884 4
2128 24 1 0 2150 4 1 1 3 0 0 2 1 0 2922 4 24 0 2 2440 4
2132 26 0 0 2799 4 0 1 2 2922 4 1 1 3 0 0 18 1 1 2 0
2136 1 1 2 105 0 27 0 0 2147 4 1 1 1 21 0 27 0 0 2146 4
2140 1 1 2 25 0 27 0 0 2145 4 1 1 1 34 0 27 0 1 2152 4
2144 1 1 3 1 0 1 1 1 1 0 1 1 1 1 0 1 1 1 1 0
2148 2 0 0 8069 4 1 1 3 1 0 3 1 0 3352 4 26 0 1 2116 4
2152 1 1 3 0 0 24 1 0 2150 4
PROCEDURE 295
2154 0 0 0 0 0 6 1 0 2548 4
2156 2 1 0 2960 4 26 0 1 2154 4
PROCEDURE 296
2158 0 0 0 0 0 6 1 0 2548 4
2160 24 0 1 2544 4 24 0 1 2310 4 2 1 0 3024 4 26 0 1 2158 4
PROCEDURE 297
2164 0 0 0 0 0 1 1 3 15 0 26 0 1 2164 4
PROCEDURE 298
2167 0 0 0 0 0
2168 24 1 2 21 4 24 0 2 18 0 18 1 1 4123 0 1 1 3 16 0
2172 18 1 1 5 0 28 1 1 2946 4 26 0 1 2167 4
PROCEDURE 299
2175 0 0 0 0 0
2176 6 0 0 6777 4 27 0 0 2181 4 24 0 3 8102 4 6 1 0 6 0
2180 24 1 0 2183 4 24 1 2 17 4 6 1 0 10 0 5 1 0 2536 4
2184 27 0 0 2631 4 26 0 1 2175 4
PROCEDURE 300
2186 0 0 0 0 0 1 1 3 0 0
2188 27 1 0 2192 4 18 1 1 2 0 27 0 0 2189 4 18 1 1 8 0
2192 26 0 1 2186 4
PROCEDURE 301
2193 0 0 0 0 0 0 1 0 2806 4 0 0 3 0 4
2196 0 0 2 20 4 6 1 0 2880 4 4 0 0 11 4 25 1 1 4096 0
2200 24 0 3 0 4 23 0 2 0 256 0 1 1 2806 4 26 0 1 2193 4
PROCEDURE 302
2204 0 0 0 0 0 6 0 0 6777 4 27 0 0 2225 4 24 0 3 8102 4
2208 6 1 0 1 0 2 0 0 2076 4 24 0 1 2076 4 23 0 0 0 0
2212 0 0 0 8102 3 24 1 0 2224 4 26 0 0 2076 4 0 1 0 2806 4
2216 0 0 3 0 4 24 1 2 17 4 24 0 2 6 0 3 0 0 8102 4
2220 24 1 2 17 4 4 1 0 5 0 2 0 0 8103 4 0 1 1 2806 4
2224 26 0 1 2204 4 26 0 0 2076 4 26 0 1 2204 4
PROCEDURE 303
2227 0 0 0 0 0
2228 6 0 0 6777 4 27 0 0 2234 4 24 0 3 8102 4 6 1 0 6 0
2232 26 0 0 1965 4 26 0 1 2227 4 24 1 2 17 4 6 1 0 10 0
2236 24 1 0 2232 4
PROCEDURE 304
2237 0 0 3 2903 4 6 1 0 2820 4 28 1 1 2964 4
2240 6 0 0 3346 4 27 0 0 2272 4 24 0 3 8102 4 6 1 0 1 0
2244 18 0 1 5 0 4 0 0 8102 4 28 1 1 2964 4 24 0 2 2348 4
2248 28 0 2 2966 4 6 0 0 6781 4 1 1 2 1 0 27 0 1 2256 4
2252 6 0 0 3346 4 27 0 3 2256 4 6 1 0 2976 4 2 1 0 2926 4
2256 6 0 0 3394 4 27 0 0 2266 4 6 0 0 6781 4 1 1 2 1 0
2260 27 0 1 2263 4 6 0 0 3346 4 27 0 3 2288 4 6 1 0 2978 4
2264 2 1 0 2934 4 24 1 0 2288 4 24 0 2 2978 4 18 1 1 4123 0
2268 1 1 3 26 0 18 1 1 5 0 28 1 1 2934 4 24 1 0 2288 4
2272 6 0 0 6781 4 1 1 2 4 0 27 0 0 2302 4 24 0 3 8102 4
2276 6 1 0 1 0 3 0 0 2614 4 24 0 1 6781 4 5 0 0 2310 4
2280 27 0 2 2290 4 6 0 0 2614 4 18 0 1 5 0 4 0 0 8102 4
2284 28 1 1 2964 4 24 0 1 6781 4 6 0 0 2314 4 28 0 2 2966 4
2288 0 0 3 2905 4 26 0 1 1873 4 2 0 0 2615 4 6 0 0 3394 4
2292 27 0 1 2299 4 6 0 0 2615 4 18 0 1 5 0 4 0 0 8102 4
2296 24 0 1 6781 4 4 0 0 2310 4 28 1 1 2946 4 24 0 1 6781 4
2300 6 0 0 2310 4 24 1 0 2282 4 24 0 3 8102 4 6 1 0 1 0
2304 1 1 2 6 0 18 0 1 5 0 4 0 0 8102 4 1 1 1 7 0
2308 28 1 0 2927 4 24 1 0 2288 4
SECTION 305
2310 18 0 18 0
2312 18 0 1+ 0 1+ 0 936 3
2316 94Ю 3 968 3 + 0 16 0
2320 16 0 1Ю 0 2Ю 0 0 0
SECTION 306
2324 0 3312 3 8707 0 2 2 0 3 0 0 6698 3 8194 0 2 0 0 2 1
2328 0 3396 3 20485 0 5 0 0 5 1 0 3396 3 5 3 0 0 0 5 0
2332 0 3396 3 5 3 0 0 0 5 1
SECTION 307
2334 0 2918 3 20485 0 5 0 0 5 0
2336 0 2920 3 5 3 0 0 0 5 0 0 6725 3 20485 0 5 0 0 5 0
2340 0 2924 3 5 3 0 0 0 5 0 0 6724 3 40970 2 10 0 0 10 0
2344 0 2926 3 5 3 0 0 0 5 0 0 2932 3 16389 0 4 0 0 5 1
2348 0 2918 3 20485 0 5 0 0 5 0 0 2920 3 5 3 0 0 0 5 0
2352 0 2924 3 5 3 0 0 0 5 0 0 2926 3 5 3 0 0 0 5 0
2356 0 2932 3 20485 0 5 0 0 5 1
SECTION 308
2358 0 2918 3 20485 0 5 0 0 5 0
2360 0 2920 3 5 3 0 0 0 5 0 0 2924 3 5 3 0 0 0 5 0
2364 0 2926 3 5 3 0 0 0 5 0 0 2928 3 21765 14 5 5 0 5 0
2368 0 2930 3 8962 0 2 3 0 2 0 0 2932 3 12803 0 3 2 0 3 0
2372 0 2934 3 40970 14 10 0 0 10 0 0 2938 3 5 3 0 0 0 5 0
2376 0 2940 3 20485 0 5 0 0 5 1
SECTION 309
2378 0 2918 3 20485 0 5 0 0 5 0
2380 0 2920 3 5 3 0 0 0 5 0 0 2938 3 20485 0 5 0 0 5 0
2384 0 2940 3 20485 0 5 0 0 5 0 0 2942 3 20485 0 5 0 0 5 0
2388 0 2944 3 20485 0 5 0 0 5 0 0 2937 3 8962 0 2 3 0 2 0
2392 0 2929 3 12803 0 3 2 0 3 0 0 2930 3 8962 0 2 3 0 2 0
2396 0 2931 3 12803 0 3 2 0 3 0 0 2932 3 8962 0 2 3 0 2 0
2400 0 2933 3 12803 0 3 2 0 3 0 0 2934 3 5121 0 1 4 0 1 0
2404 0 2935 3 8962 0 2 3 0 2 0 0 2936 3 8962 0 2 3 0 2 1
SECTION 310
2408 0 2918 3 20485 0 5 0 0 5 0 0 2920 3 5 3 0 0 0 5 0
2412 0 6724 3 20485 0 5 0 0 5 0 0 2924 3 5 3 0 0 0 5 0
2416 0 2926 3 5 3 0 0 0 5 0 0 2928 3 5 3 0 0 0 5 0
2420 0 2930 3 5 3 0 0 0 5 0 0 2932 3 5 3 0 0 0 5 0
2424 0 2934 3 5 3 0 0 0 5 0 0 2936 3 5 3 0 0 0 5 0
2428 0 2938 3 5 3 0 0 0 5 0 0 2940 3 5 3 0 0 0 5 1
SECTION 311
2432 0 2920 3 5 3 0 0 0 5 0 0 2924 3 5 3 0 0 0 5 0
2436 0 2926 3 3 3 0 0 0 3 0 0 2934 3 5 11 0 0 0 5 1
2440 0 2920 3 5 3 0 0 0 5 0 0 2924 3 5 3 0 0 0 5 0
2444 0 2934 3 5 3 0 0 0 5 1
SECTION 312
2446 0 2920 3 6 3 0 0 0 6 0
2448 0 2924 3 3 3 0 0 0 3 0 0 2926 3 3 3 0 0 0 3 0
2452 0 2928 3 5 14 0 0 0 5 0 0 2930 3 1 0 0 0 0 1 0
2456 0 2932 3 2 0 0 0 0 2 0 0 2934 3 10 14 0 0 0 10 0
2460 0 2946 3 5 3 0 0 0 5 0 0 2954 3 5 3 0 0 0 5 1
SECTION 313
2464 0 2920 3 6 3 0 0 0 6 0 0 2938 3 3 0 0 0 0 3 0
2468 0 2940 3 5 0 0 0 0 5 0 0 2942 3 3 0 0 0 0 3 0
2472 0 2944 3 5 0 0 0 0 5 0 0 2937 3 1 0 0 0 0 1 0
2476 0 2929 3 1 0 0 0 0 1 0 0 2930 3 2 0 0 0 0 2 0
2480 0 2931 3 2 0 0 0 0 2 0 0 2932 3 2 0 0 0 0 2 0
2484 0 2933 3 2 0 0 0 0 2 0 0 2934 3 1 0 0 0 0 1 0
2488 0 2935 3 1 0 0 0 0 1 0 0 2936 3 1 0 0 0 0 1 0
2492 0 2946 3 5 3 0 0 0 5 1
SECTION 314
2494 0 2920 3 6 3 0 0 0 6 0
2496 0 2924 3 5 3 0 0 0 5 0 0 2946 3 5 3 0 0 0 5 1
SECTION 315
2500 0 2927 3 16389 0 4 0 0 5 0 0 2928 3 16389 12 4 0 0 5 1
SECTION 316
2504 83‼91 0 ‼11 0 ££000 0 Ю14 1
2508 54 1 :64 3 ‼50 3 0 0
SECTION 317
2512 2 0 10000 0 £££ 0 70 0
2516 7 0 8 0 80 0 £00 0
2520 4 0 0 0 0 0 0 0
SECTION 318
2524 26355 0 73515 0 57273 0 53666 0
2528 65369 0 67696 0 0 0 5‼000 0
2532 7. 0 7.000 0 35572 0 65667 0
2536 40000 0 55655 0 46772 0 54746 0
2540 35572 0 56596 0 3££ 0 ££+00 0
2544 0 0 0 0 55573 0 72585 0
2548 :5:5: 0 5:5:5 0 37455 0 75516 0
2552 £6£6£ 0 6£6£6 0 45577 0 59655 0
2556 £4£4£ 0 4£4£4 0 42 0 0 0
2560 15965 0 53585 0 :5:69 0 5:5:5 0
2564 :5:59 0 5:5:5 0 :5:5‼ 0 5:5:5 0
2568 16454 0 73695 0 ‼82 3 10 0
2572 55972 0 56596 0
SECTION 319
2574 1 0 0 0
2576 16 0 0 0 256 0 0 0
2580 4096 0 0 0 65536 0 0 0
2584 48576 0 10 0 77216 0 167 0
2588 35456 0 2684 0 67296 0 42949 0
2592 £££££ 0 £££££ 0 1 0 0 0
2596 Ю 0 0 0 64 0 0 0
2600 3.8 0 0 0 2710 0 0 0
2604 186Ю0 0 0 0 £4240 0 0 0
2608 89680 0 9 0 5.100 0 5£ 0
2612 Ю+Ю00 0 3‼9 0 0 0 0 0
2616 3£ 0 0 0 16773 0 53585 0
2620 56554 0 67695 0
PROCEDURE 320
2622 0 0 0 0 0 1 1 3 0 0
2624 2 1 0 3396 4 4 1 0 3396 4 18 1 1 2 0 2 1 0 3396 4
2628 27 1 1 2625 4 6 1 0 3396 4 26 0 1 2622 4
PROCEDURE 321
2631 0 0 3 2905 4
2632 1 1 3 1 0 7 0 0 6693 4 0 0 3 2903 4 6 0 0 2544 4
2636 1 1 2 3 0 27 0 1 2640 4 1 1 3 1 0 2 0 0 3016 4
2640 26 0 0 2001 4 6 0 0 6693 4 18 0 1 2 0 2 0 0 3396 4
2644 24 0 2 2328 4 28 1 2 3014 4 24 1 2 21 4 6 1 0 4 0
2648 18 0 1 4124 0 18 0 1 4 0 5 1 0 2536 4 27 0 0 2657 4
2652 6 1 0 2842 4 3 0 0 6782 4 2 1 0 3022 4 26 0 0 2193 4
2656 24 1 0 2646 4 6 1 0 2572 4 24 1 2 21 4 2 1 0 4 0
2660 6 1 0 2536 4 2 1 0 3016 4 26 0 0 2001 4 26 0 0 2795 4
2664 26 1 1 2886 4 26 1 2 2888 4 24 0 3 0 4 6 0 0 2 22
2668 26 0 0 938 4 0 0 3 2903 4 18 1 1 4127 0 24 0 3 0 4
2672 2 0 0 6 22 18 1 1 1 0 2 0 0 938 4 1 1 3 1 0
2676 24 0 1 938 4 18 0 3 0 0 3 0 0 938 4 18 1 3 2 0
2680 18 1 1 4120 0 15 0 3 3380 4 27 0 0 2702 4 24 0 3 0 4
2684 6 0 0 6 22 1 0 1 0 0 18 1 3 3 0 18 1 1 4127 0
2688 24 0 3 0 4 2 0 0 6 22 27 1 1 2693 4 0 0 2 938 4
2692 24 1 0 2695 4 0 0 2 938 4 18 1 3 10 0 15 0 3 3408 4
2696 27 0 1 2702 4 24 0 3 0 4 6 0 0 2 22 2 0 2 6724 4
2700 25 0 2 1 0 24 1 0 2702 4 25 0 1 1 0 24 1 0 2666 4
PROCEDURE 322
2704 6 0 0 2915 4 3 0 0 6775 4 24 0 0 6690 4 7 0 0 6699 4
2708 26 1 3 3320 4 6 0 3 6700 4 18 0 1 9 0 18 0 1 4119 0
2712 5 0 0 6719 4 27 0 3 2715 4 7 0 0 6719 4 25 0 3 1 0
2716 24 1 0 2709 4 1 1 3 1 0 7 0 0 6719 4 6 0 0 6699 4
2720 2 0 0 6698 4 6 0 0 6719 4 2 0 0 6699 4
PROCEDURE 323
2723 26 0 0 2056 4
2724 26 0 0 2056 4 6 1 0 2552 4 24 1 2 19 4 2 1 0 4 0
2728 1 1 3 6 0 24 1 2 19 4 2 0 0 10 0 26 0 0 2056 4
2732 6 1 0 2554 4 24 1 2 19 4 2 1 0 4 0 26 0 0 2056 4
2736 26 1 1 2890 4 26 1 2 2892 4 6 0 1 3428 4 24 1 2 19 4
2740 2 1 2 5 0 25 0 2 2 0 24 1 0 2748 4 6 1 0 2532 4
2744 24 1 2 19 4 2 1 0 52 0 26 0 0 2065 4 26 1 2 2892 4
2748 25 0 1 1 0 24 1 0 2738 4 26 0 0 2065 4 26 0 0 2056 4
2752 26 0 0 2056 4 24 1 2 21 4 6 1 0 4 0 5 1 0 2572 4
2756 27 0 0 2767 4 24 1 2 21 4 24 0 2 4 0 18 1 1 4123 0
2760 1 1 3 50 0 18 1 1 5 0 24 1 2 19 4 28 1 1 4 0
2764 26 0 0 2056 4 26 0 0 2193 4 24 1 0 2753 4 0 1 0 2806 4
2768 0 0 3 0 4 6 1 0 2894 4 4 0 0 10 4 25 1 1 4096 0
2772 24 0 3 0 4 23 0 2 0 256 0 1 1 2806 4 0 1 0 2806 4
2776 0 0 3 0 4 6 1 0 2896 4 4 0 0 11 4 25 1 1 4096 0
2780 24 0 3 0 4 23 0 2 0 256 0 1 1 2806 4 6 1 0 3320 4
2784 2 1 0 5476 4 2 0 0 6779 4 0 1 0 2806 4 0 0 3 0 4
2788 6 1 0 2898 4 4 0 0 9 4 25 1 1 4096 0 24 0 3 0 4
2792 23 0 2 0 256 0 1 1 2806 4 24 1 0 33 4
PROCEDURE 324
2795 0 0 0 0 0
2796 6 0 0 2795 4 2 0 0 2001 4 24 1 0 2022 4
PROCEDURE 325
2799 0 0 0 0 0
2800 24 1 2 0 4 28 0 3 4 0 26 0 1 2799 4 24 1 2 21 4
2804 6 0 0 0 0 28 0 2 4 0
SECTION 1017
2806 0 0 0 0
2808 0 0 0 0 0 0 0 0
2812 0 0 0 0 0 0 0 0
2816 0 0 0 0 0 0 0 0
2820 0 0 2002. 0 0 0 202.2 0
2824 8004 0 5146 0 0 0 11 0
2828 0 0 20078 0 0 0 73000 0
2832 8004 0 5142 0 0 0 12 0
2836 £££££ 0 £££££ 0 0 0 . 0
2840 0 0 8 0 £5£5£ 0 5£5£5 0
2844 :5:5: 0 5:5 0 0 0 384 0
2848 1 0 1 0 0 0 20028 0
2852 0 0 51000 0 25569 0 7 0
2856 0 0 5 0 0 0 2003+ 0
2860 0 0 20012 0 2 0 1. 0
2864 1+ 0 0 0 0 0 0 0
2868 0 0 ‼ 0 48576 0 10 0
2872 27464 0 7 0 30000 0 7 0
2876 2+ 0 2 0 0 0 2002+ 0
2880 0 0 7 0 0 0 20008 0
2884 0 0 1 0 1 0 64 0
2888 0 0 +8 0 0 0 456 0
2892 0 0 30 0 0 0 21 0
2896 0 0 22 0 0 0 1‼ 0
2900 0 0 0 0
SECTION 1018
2902 2 0 0 0
2904 6700 0 66666 0 2- 0 £££££ 0
2908 30 0 7200 0 14 0 8192 0
2912 3- 0 3 0 5- 0 £££00 0
2916 9999 0 1- 0
SECTION 1019
PROCEDURE 1004
CHAPT 5
PROCEDURE 0
0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 0 0 0 0 3
4 0 0 0 0 4 0 0 0 0 5 0 0 0 0 6 0 0 0 0 7
8 0 0 0 0 8 0 0 0 0 9 0 0 0 0 10 0 0 0 0 11
12 0 0 0 0 12 0 0 0 0 13 0 0 0 0 14 0 0 0 0 15
16 0 0 0 0 16 0 0 0 0 17 0 0 0 0 18 0 0 0 0 19
20 0 0 0 0 20 0 0 0 0 21 0 0 0 0 22 0 0 0 0 23
24 0 0 0 0 24 0 0 0 0 25 0 0 0 0 0 25 1 1 4096 0
28 24 0 3 0 4 23 0 2 0 1792 0 0 0 0 0 0 0 0 0 0
32 26 0 1 26 4
PROCEDURE 326
33 0 1 0 2372 4 0 0 3 0 4 1 1 3 5 0
36 0 0 2 2440 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 1024
40 0 1 1 2372 4 6 1 0 16 4 2 1 0 30 4 6 1 0 2386 4
44 24 1 2 15 4 28 0 0 0 0 24 0 2 358 4 24 1 2 15 4
48 28 1 2 2 0
PROCEDURE 327
49 6 1 0 2388 4 28 0 0 3163 4 1 1 3 1 0
52 2 0 0 2480 4 1 1 3 8 0 2 0 0 2479 4 26 1 3 5476 4
56 1 1 3 1 0 18 1 1 4118 0 15 0 3 3163 4 7 0 3 3163 4
60 25 0 3 1 0 24 1 0 56 4 1 1 3 2 0 7 0 0 6698 4
64 4 0 0 2254 4 5 0 0 6698 4 3 0 0 402 4 27 0 0 72 4
68 18 0 1 5 0 4 0 0 6698 4 24 1 2 2169 4 28 1 1 0 0
72 6 0 0 2169 4 4 0 0 402 4 2 0 0 6698 4
PROCEDURE 328
75 0 1 0 2372 4
76 0 0 3 0 4 0 1 2 2390 4 6 1 0 2392 4 4 0 0 10 4
80 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 0 3 2376 4
84 6 0 0 6785 4 27 0 1 94 4 6 0 0 6784 4 1 1 1 10 0
88 18 0 1 5 0 4 0 0 7 4 25 1 1 4096 0 24 0 3 0 4
92 23 0 2 160 0 0 0 3 2441 4 6 1 0 2394 4 28 0 0 2476 4
96 6 1 0 2396 4 28 0 0 5476 4 6 1 0 2398 4 28 0 0 2448 4
100 1 1 3 1 0 7 0 0 6690 4 1 1 3 998 0 4 0 0 6690 4
104 3 0 0 2481 4 1 1 1 1 0 3 0 0 2482 4 1 1 1 1 0
108 2 0 0 2483 4 6 1 0 2400 4 4 0 0 6785 4 3 1 0 2372 4
112 26 1 1 2372 4
PROCEDURE 329
113 26 0 0 2031 4 24 1 2 19 4 6 1 0 6 0
116 5 1 0 390 4 27 0 0 143 4 24 1 2 19 4 6 1 0 4 0
120 5 1 0 2402 4 27 0 1 113 4 1 1 3 4 0 0 0 2 2442 4
124 25 1 1 4096 0 24 0 3 0 4 26 0 2 0 512 0 0 0 122 3
128 0 0 0 130 3 0 0 0 140 3 0 1 0 2372 4 0 0 3 0 4
132 6 1 0 2404 4 4 0 0 10 4 25 1 1 4096 0 24 0 3 0 4
136 23 0 2 0 256 0 1 1 2372 4 24 0 3 1 4 24 1 0 43 0
140 25 1 1 4096 0 24 0 3 0 4 26 0 2 0 768 24 0 2 250 4
144 24 1 2 19 4 28 0 2 4 0 24 0 2 250 4 24 1 2 19 4
148 28 1 2 2 0 6 1 0 2452 4 18 0 1 2 0 4 1 0 2455 4
152 2 0 0 2588 4 6 1 0 2456 4 2 1 0 3160 4 6 0 0 6785 4
156 27 0 0 157 4 26 0 0 236 4 0 1 0 2372 4 0 0 3 0 4
160 0 1 2 2406 4 6 1 0 2408 4 4 0 0 11 4 25 1 1 4096 0
164 24 0 3 0 4 23 0 2 0 256 0 0 3 2376 4 24 0 2 260 4
168 24 1 2 21 4 28 1 2 4 0 26 0 0 1630 4 6 0 0 2128 4
172 24 1 2 21 4 2 1 0 5 0 6 1 0 2156 4 24 1 2 21 4
176 2 1 0 6 0 26 0 0 1630 4 24 0 2 268 4 24 1 2 21 4
180 28 1 2 4 0 24 1 2 21 4 2 1 0 16 0 26 0 0 1630 4
184 26 0 0 2031 4 24 0 2 250 4 24 1 2 19 4 28 0 2 4 0
188 6 1 0 2452 4 26 0 0 2019 4 2 0 0 3162 4 24 0 2 250 4
192 24 1 2 19 4 28 1 2 2 0 26 0 0 236 4 24 0 2 276 4
196 24 1 2 21 4 28 1 2 4 0 26 0 0 1630 4
PROCEDURE 330
199 0 0 2 2443 4
200 10 0 0 6697 4 1 1 1 204 0 2 0 0 2576 4 1 1 3 0 0
204 18 0 3 3 0 18 0 1 4127 0 4 0 0 6719 4 4 0 0 6719 4
208 3 0 0 2516 4 2 0 0 2515 4 1 1 3 0 0 3 1 0 2372 4
212 26 1 2 2372 4 26 1 1 2410 4 26 0 0 2031 4
PROCEDURE 331
215 24 0 3 0 4
216 6 0 0 2 22 27 0 0 222 4 6 1 0 2156 4 24 1 2 21 4
220 2 1 1 4 0 26 0 0 1630 4 24 0 2 324 4 24 1 2 19 4
224 28 0 2 4 0 6 1 0 2396 4 28 1 1 3098 4 26 0 0 1570 4
228 24 0 2 324 4 24 1 2 19 4 28 1 2 2 0 26 0 0 236 4
232 26 0 0 2031 4
PROCEDURE 332
233 26 0 0 1929 4 26 0 0 1929 4 24 1 0 408 4
PROCEDURE 333
236 0 0 0 0 0 24 1 2 19 4 24 0 2 0 0 18 1 1 4123 0
240 1 1 3 52 0 18 1 1 5 0 24 1 2 17 4 28 1 1 0 0
244 1 0 1 15 0 24 1 2 17 4 14 0 0 2 0 26 0 0 1520 4
248 26 0 1 236 4 0 0 0 0 0
SECTION 334
250 0 2448 3 5 3 0 0 0 5 0
252 0 2450 3 181 3 0 0 11 5 0 0 2452 3 9493 2 2 5 1 5 0
256 0 2454 3 37 3 0 0 2 5 0 0 2456 3 21 3 0 0 1 5 1
260 0 398 3 5 3 0 0 0 5 0 0 396 3 5 3 0 0 0 5 0
264 0 2128 3 5 0 0 0 0 5 0 0 401 3 833 0 0 3 4 1 0
268 0 2452 3 1795 2 0 7 0 3 0 0 2454 3 770 3 0 3 0 2 0
272 0 2456 3 5 3 0 0 0 5 0 0 2156 3 5 3 0 0 0 5 1
276 0 6695 3 16389 0 4 0 0 5 0 0 6694 3 16389 0 4 0 0 5 0
280 0 2454 3 5 3 0 0 0 5 0 0 6690 3 16389 0 4 0 0 5 0
284 0 6719 3 16389 0 4 0 0 5 0 0 2156 3 5 3 0 0 0 5 1
288 0 2458 3 5 3 0 0 0 5 0 0 2448 3 85 3 0 0 5 5 0
292 0 2450 3 17733 2 4 5 4 5 0 0 2452 3 17717 2 4 5 3 5 0
296 0 2454 3 17669 2 4 5 0 5 0 0 2456 3 17717 2 4 5 3 5 1
300 0 2448 3 5 3 0 0 0 5 0 0 2450 3 245 3 0 0 15 5 0
304 0 2452 3 17685 2 4 5 1 5 0 0 2454 3 17701 2 4 5 2 5 0
308 0 2456 3 17701 2 4 5 2 5 0 0 2458 3 17669 2 4 5 0 5 1
312 0 2450 3 5 3 0 0 0 5 0 0 2452 3 17669 2 4 5 0 5 0
316 0 2454 3 17669 2 4 5 0 5 0 0 2456 3 17669 2 4 5 0 5 0
320 0 2476 3 16389 0 4 0 0 5 0 0 2458 3 17669 2 4 5 0 5 1
SECTION 335
324 0 2448 3 5 3 0 0 0 5 0 0 2450 3 21 3 0 0 1 5 0
328 0 2452 3 16389 0 4 0 0 5 0 0 2454 3 16405 0 4 0 1 5 0
332 0 2455 3 20501 0 5 0 1 5 0 0 2456 3 20501 0 5 0 1 5 0
336 0 2457 3 20501 0 5 0 1 5 0 0 2458 3 20501 0 5 0 1 5 0
340 0 2459 3 20501 0 5 0 1 5 0 0 2460 3 20501 0 5 0 1 5 0
344 0 2461 3 20501 0 5 0 1 5 0 0 2462 3 20501 0 5 0 1 5 0
348 0 2463 3 20501 0 5 0 1 5 0 0 2464 3 20501 0 5 0 1 5 0
352 0 2465 3 20501 0 5 0 1 5 0 0 2466 3 20501 0 5 0 1 5 0
356 0 2467 3 20501 0 5 0 1 5 1 0 396 3 101 3 0 0 6 5 0
360 0 6719 3 1089 0 0 4 4 1 0 0 6700 3 5201 0 1 4 5 1 0
364 0 6701 3 5201 0 1 4 5 1 0 0 6702 3 5201 0 1 4 5 1 0
368 0 6703 3 5201 0 1 4 5 1 0 0 6704 3 5201 0 1 4 5 1 0
372 0 6705 3 5201 0 1 4 5 1 0 0 6706 3 5201 0 1 4 5 1 0
376 0 6707 3 5201 0 1 4 5 1 0 0 6708 3 5201 0 1 4 5 1 0
380 0 6709 3 5201 0 1 4 5 1 0 0 6710 3 5201 0 1 4 5 1 0
384 0 6711 3 5201 0 1 4 5 1 0 0 6712 3 5201 0 1 4 5 1 0
388 0 6713 3 5201 0 1 4 5 1 1
SECTION 336
390 65764 0 67696 0
392 36978 0 55657 0 16772 0 53585 0
396 45577 0 59655 0 £6£6£ 0 6£6£6 0
400 8000 0 5149 0
PROCEDURE 337
402 6 0 0 2476 4 6 0 0 2477 4
PROCEDURE 338
404 0 0 0 0 0 6 0 0 404 4 2 0 0 1485 4 24 1 0 1494 4
PROCEDURE 339
408 26 0 0 404 4 26 0 0 612 4 1 1 3 0 0 2 0 0 2279 4
412 6 0 0 2515 4 1 1 1 1 0 3 0 0 2517 4 1 1 1 4 0
416 2 0 0 2515 4 6 0 0 6698 4 18 0 1 5 0 4 0 0 2169 4
420 3 1 0 2372 4 26 1 1 2372 4 6 0 0 2168 4 2 0 0 2594 4
424 6 1 0 2158 4 2 1 0 2520 4 1 1 3 1 0 2 0 0 2587 4
428 1 1 3 65 0 2 1 0 2502 4 2 1 0 2504 4 26 0 0 1655 4
432 1 1 3 1 0 2 1 0 2518 4 2 0 0 2585 4 2 0 0 2472 4
PROCEDURE 340
436 6 0 0 2515 4 18 0 1 5 0 2 1 0 2476 4 26 1 3 2476 4
440 24 0 3 0 4 6 1 0 6 22 2 0 0 2474 4 26 0 0 1686 4
444 25 0 3 1 0 24 1 0 440 4 1 1 3 3 0 7 0 0 2481 4
448 7 0 0 2482 4 7 0 0 2483 4 1 1 3 0 0 1 0 1 1 0
452 24 0 0 2587 4 15 0 0 6699 4 3 0 0 2527 4 4 0 0 2527 4
456 2 0 0 2479 4 6 0 0 2481 4 18 0 1 2 0 4 0 0 2479 4
460 2 0 0 2480 4 6 1 0 2412 4 2 1 0 2488 4 2 1 0 2490 4
464 6 1 0 2170 4 2 1 0 2492 4 2 1 0 2486 4 26 0 0 1686 4
468 26 0 0 994 4 1 1 3 1792 0 2 0 0 2473 4 6 0 0 2240 4
472 26 0 0 568 4 26 0 0 1686 4 26 0 0 1686 4 6 0 0 2293 4
476 26 0 0 1458 4
PROCEDURE 341
477 0 0 3 2441 4 24 0 3 8088 4 6 1 0 6 0
480 5 1 0 2066 4 27 0 1 485 4 1 1 3 1 0 2 0 0 2518 4
484 24 1 0 501 4 26 0 0 532 4 24 0 3 8088 4 6 1 0 15 0
488 18 0 1 4124 0 2 0 0 2523 4 24 0 3 8088 4 6 1 0 6 0
492 5 1 0 2062 4 27 0 1 497 4
PROCEDURE 342
494 1 1 3 2 0 2 0 0 2518 4
496 24 1 0 500 4 1 1 3 2 0 2 0 0 2518 4
PROCEDURE 343
499 1 1 3 1 0
500 1 1 1 1 0 1 1 1 1 0 3 1 0 2503 4 2 0 0 8073 4
504 24 1 2 17 4 6 1 0 13 0
PROCEDURE 344
506 26 0 0 2019 4 3 1 0 2505 4
508 3 0 0 2486 4 5 0 0 3162 4 27 0 1 513 4 6 0 0 2519 4
512 2 0 0 6781 4 6 0 0 2519 4 2 0 0 2487 4 26 0 0 542 4
516 26 0 0 1655 4 1 1 3 128 0 2 0 0 2522 4 26 0 0 1929 4
520 26 0 0 1511 4 26 0 0 572 4 24 1 0 584 4
PROCEDURE 345
523 24 0 1 8073 4
524 26 0 1 524 4 0 0 0 778 3 0 0 0 1323 3 0 0 0 999 3
528 0 0 0 584 3 0 0 0 584 3 0 0 0 584 3 0 0 0 583 3
PROCEDURE 346
532 0 0 0 0 0 1 1 3 0 0 0 0 2 2160 4 15 0 0 2519 4
536 27 0 0 541 4 2 0 0 2518 4 2 1 0 2472 4 2 1 0 2474 4
540 26 0 0 1686 4 26 0 1 532 4
PROCEDURE 347
542 0 0 0 0 0 1 0 1 0 0
544 6 0 0 2486 4 18 1 1 4119 0 13 0 0 2444 4 2 0 0 557 4
548 18 1 1 9 0 2 0 0 577 4 0 0 2 2130 4 24 0 1 577 4
552 18 1 3 0 0 24 0 1 557 4 15 0 0 6723 4 2 0 0 6775 4
556 26 0 1 542 4
PROCEDURE 348
557 0 0 0 0 0 2 0 0 2475 4 6 0 0 2479 4
560 2 0 0 2474 4 26 0 0 1686 4 26 0 1 557 4
PROCEDURE 349
563 0 0 0 0 0
564 2 0 0 2476 4 2 0 0 2477 4 26 0 0 2007 4 26 0 1 563 4
PROCEDURE 350
568 0 0 0 0 0 2 0 0 2475 4 26 0 0 1686 4 26 0 1 568 4
PROCEDURE 351
572 0 0 0 0 0 6 1 0 2414 4 24 1 2 17 4 28 1 1 2 0
576 26 0 1 572 4
PROCEDURE 352
577 0 0 0 0 0 2 0 0 2475 4 6 0 0 2480 4
580 2 0 0 2474 4 26 0 0 1686 4 26 0 1 577 4 26 0 0 577 4
PROCEDURE 353
584 26 0 0 1485 4 24 0 3 8088 4 6 1 0 6 0 5 1 0 2064 4
588 27 0 3 523 4 26 0 0 612 4 24 0 3 8088 4 6 1 0 6 0
592 5 1 0 2064 4 27 0 0 657 4 4 1 0 2064 4 5 1 0 2062 4
596 27 0 0 657 4 4 1 0 2062 4 5 1 0 2066 4 27 0 0 657 4
600 4 1 0 2066 4 5 1 0 2070 4 27 0 1 606 4 1 1 3 1 0
604 2 0 0 2524 4 24 1 0 669 4 4 1 0 2070 4 5 1 0 2068 4
608 27 0 1 523 4 26 0 0 1511 4 26 0 0 572 4 24 1 0 584 4
PROCEDURE 354
612 0 0 0 0 0 26 0 0 572 4 6 1 0 3056 4 24 1 2 17 4
616 2 1 0 2 0 6 1 0 3058 4 24 1 2 17 4 2 1 0 6 0
620 6 1 0 3060 4 24 1 2 17 4 2 1 0 10 0 6 1 0 3062 4
624 18 0 1 4124 0 24 1 2 17 4 2 1 0 12 0 6 1 0 3064 4
628 24 1 2 17 4 2 1 0 16 0 6 1 0 3060 4 5 1 0 2068 4
632 27 0 1 637 4 6 1 0 3066 4 24 1 2 17 4 2 1 0 16 0
636 24 1 0 640 4 6 1 0 3066 4 24 1 2 17 4 2 1 0 48 0
640 6 1 0 3060 4 5 1 0 2066 4 27 0 0 647 4 6 1 0 3068 4
644 24 1 2 17 4 2 1 0 20 0 24 1 0 650 4 6 1 0 3068 4
648 24 1 2 17 4 2 1 0 20 0 24 0 2 3070 4 18 1 1 4123 0
652 1 1 3 26 0 18 1 1 5 0 24 1 2 17 4 28 1 1 22 0
656 26 0 1 612 4
PROCEDURE 355
657 24 1 2 17 4 6 1 0 13 0 2 0 0 2511 4
660 24 0 0 2587 4 6 0 0 6699 4 18 0 1 4126 0 26 0 0 2025 4
664 5 0 0 2511 4 27 0 2 477 4 1 1 1 1 0 27 0 1 477 4
668 0 0 3 2441 4 26 0 0 532 4 26 0 0 673 4 26 0 0 684 4
672 24 1 0 706 4
PROCEDURE 356
673 0 0 0 0 0 26 1 2 2416 4 6 0 2 2489 4
676 18 0 3 2 0 18 1 1 4127 0 1 0 2 4 0 18 0 3 2 0
680 2 0 2 2489 4 25 0 2 2 0 24 1 0 675 4 26 0 1 673 4
PROCEDURE 357
684 0 0 0 0 0 6 1 0 2416 4 2 1 0 2476 4 2 0 0 2488 4
688 2 0 0 2478 4 26 1 3 2478 4 6 0 3 2161 4 2 1 0 2502 4
692 6 0 3 2481 4 2 1 0 2505 4 26 0 0 1655 4 6 0 3 2164 4
696 2 0 0 2518 4 24 0 0 2476 4 6 1 0 2488 4 2 1 0 2506 4
700 1 1 3 1 0 7 0 0 2478 4 23 0 0 2 0 0 0 0 2476 3
704 24 1 0 689 4 26 0 1 684 4
PROCEDURE 358
706 1 1 3 1 0 2 1 0 2503 4
708 1 1 3 1001 0 4 0 0 2587 4 2 1 0 2505 4 26 0 0 1655 4
712 6 0 0 2519 4 24 0 1 2587 4 2 0 0 3177 4 6 1 0 2082 4
716 2 1 0 2502 4 2 1 0 2504 4 26 0 0 1670 4 1 1 3 1 0
720 4 0 0 2587 4 3 0 0 2587 4 6 0 0 2524 4 27 0 0 428 4
724 24 1 0 726 4
PROCEDURE 359
725 24 1 0 732 4 26 0 0 1717 4 6 0 0 2186 4
728 2 1 0 2450 4 6 0 0 725 4 2 0 0 1855 4 24 1 0 1760 4
732 1 1 3 1 0 2 0 0 6775 4 26 0 0 1929 4 26 0 0 1520 4
736 6 0 0 3162 4 2 0 0 2511 4 26 0 0 1428 4 2 0 0 6698 4
740 6 0 0 6781 4 2 0 0 6696 4 6 1 0 2088 4 24 1 2 21 4
744 2 1 0 4 0 6 1 0 2156 4 24 1 2 21 4 2 1 0 6 0
748 26 0 0 1630 4 26 0 0 2031 4 24 1 2 19 4 6 1 0 4 0
752 5 1 0 2418 4 27 0 0 763 4 24 1 2 19 4 24 0 2 4 0
756 18 1 1 4123 0 1 1 3 50 0 18 1 1 5 0 24 1 2 21 4
760 28 1 1 4 0 26 0 0 1630 4 24 1 0 749 4 24 0 2 3098 4
764 18 1 1 4123 0 1 1 3 100 0 18 1 1 5 0 24 1 2 21 4
768 28 1 1 0 0 0 1 0 2372 4 0 0 3 0 4 6 1 0 2420 4
772 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
776 0 1 1 2372 4 24 1 0 33 4
PROCEDURE 360
778 1 1 3 1 0 2 0 0 2575 4
780 26 0 0 1731 4 6 1 0 2450 4 2 1 0 2472 4 2 0 0 2478 4
784 2 0 0 2501 4 6 0 0 2586 4 27 0 0 584 4 27 0 3 584 4
788 1 1 2 17 0 27 0 2 584 4 6 0 0 2586 4 2 0 0 8074 4
792 6 0 0 2526 4 2 0 0 8082 4
PROCEDURE 361
794 1 1 3 0 0 24 0 1 8074 4
796 26 0 1 796 4 0 0 0 583 3 0 0 0 583 3 0 0 0 583 3
800 0 0 0 583 3 0 0 0 583 3 0 0 0 583 3 0 0 0 583 3
804 0 0 0 583 3 0 0 0 583 3 0 0 0 583 3 0 0 0 919 3
808 0 0 0 918 3 0 0 0 917 3 0 0 0 916 3 0 0 0 583 3
812 0 0 0 583 3
PROCEDURE 362
813 0 0 0 0 0 6 1 0 2454 4 27 0 0 897 4
816 1 1 2 999 0 27 0 2 897 4 6 1 0 2456 4 27 0 1 824 4
820 6 0 0 2486 4 5 0 0 2454 4 27 0 2 887 4 24 1 0 839 4
824 24 0 3 0 4 6 1 0 2 22 18 0 1 5 0 4 0 0 2169 4
828 3 1 0 2372 4 26 1 2 2372 4 25 0 2 0 0 24 1 0 833 4
832 24 1 0 839 4 6 0 0 2450 4 24 0 3 0 4 5 0 2 1 0
836 27 0 0 888 4 25 0 2 2 0 24 1 0 833 4 6 1 0 2454 4
840 26 0 0 2025 4 18 0 1 2 0 2 0 0 2494 4 6 1 0 2456 4
844 26 0 0 2025 4 1 1 1 2 0 7 0 0 2494 4 0 0 3 2441 4
848 6 0 0 2593 4 3 1 0 2372 4 26 1 2 2372 4 27 0 0 866 4
852 1 1 2 300 0 27 0 3 855 4 26 0 1 813 4 6 0 2 2593 4
856 5 0 0 2494 4 27 0 3 866 4
PROCEDURE 363
858 6 0 2 2593 4 2 0 2 2596 4
860 6 0 2 2594 4 2 0 2 2597 4 6 0 2 2595 4 2 0 2 2598 4
864 25 0 2 4099 0 24 1 0 855 4 6 0 0 2494 4 2 0 2 2596 4
868 6 1 0 2450 4 2 0 2 2597 4 6 1 0 2456 4 3 0 2 2598 4
872 27 0 0 885 4 1 1 3 1 0 2 0 0 2473 4 6 0 0 2297 4
876 18 0 1 4 0 4 0 0 2594 4 2 0 2 2598 4 1 1 3 10 0
880 5 0 0 2297 4 3 0 0 2297 4 27 0 1 885 4 1 1 2 1 0
884 7 0 0 2594 4 1 1 3 3 0 7 0 0 2593 4 26 0 1 813 4
PROCEDURE 364
888 24 1 2 24 4 0 0 2 0 0 18 1 3 30 0 2 1 0 2454 4
892 18 1 3 10 0 2 1 0 2456 4 24 0 3 0 4 6 0 0 4 22
896 26 0 0 898 4 26 0 1 813 4
PROCEDURE 365
898 0 0 0 0 0 2 0 0 2590 4
900 24 0 3 0 4 6 1 0 2 22 2 1 0 2494 4 6 0 0 2495 4
904 5 0 0 2590 4 27 0 0 915 4 18 0 1 5 0 4 0 0 2590 4
908 1 1 1 2 0 24 0 3 2590 4 28 1 1 0 0 1 1 2 2 0
912 7 0 0 2494 4 7 0 0 2495 4 26 1 1 2494 4 26 0 1 898 4
PROCEDURE 366
916 1 1 3 10 0 1 1 1 10 0 1 1 1 10 0 1 1 2 1 0
920 4 0 0 2526 4 3 0 0 2476 4 1 1 2 23 0 27 0 0 974 4
924 1 1 2 9 0 27 0 2 583 4 6 0 0 2454 4 27 0 0 934 4
928 3 0 0 2511 4 26 0 0 1428 4 18 0 3 1 0 24 1 0 934 4
932 6 0 0 2527 4 4 0 0 2527 4 2 0 0 2510 4 6 0 0 2458 4
936 1 1 2 2 0 27 0 1 941 4 1 1 3 1 0 3 0 0 2458 4
940 7 1 0 2456 4 6 0 0 2476 4 3 0 0 813 4 18 0 3 1 0
944 0 0 2 2110 4 15 0 0 2458 4 18 0 3 2 0 0 0 2 2172 4
948 15 0 0 2460 4 18 0 3 1 0 18 0 1 3 0 3 0 0 2476 4
952 18 0 1 4123 0 27 0 0 961 4 6 0 0 2476 4 27 0 1 958 4
956 1 1 3 2 0 2 0 0 2473 4 1 1 3 0 0 5 0 0 2476 4
960 2 0 0 2476 4 2 1 0 2458 4 2 1 0 2460 4 6 0 0 2476 4
964 5 0 0 2226 4 27 0 0 969 4 6 0 0 813 4 1 1 2 27 0
968 27 0 1 970 4
PROCEDURE 367
969 26 0 0 813 4 26 0 0 1942 4 26 0 0 1958 4
972 26 0 0 1686 4 24 1 0 584 4
PROCEDURE 368
974 6 0 0 2460 4 0 0 2 2458 4
976 27 1 1 926 4 2 0 0 2510 4 6 0 0 2241 4 2 0 0 2476 4
980 26 0 0 1958 4 26 0 0 1686 4 26 0 0 1725 4 6 0 0 2454 4
984 27 0 0 991 4 2 0 0 2511 4 26 0 0 1428 4 3 0 0 2510 4
988 4 0 0 2510 4 27 0 0 991 4 1 1 2 1 0 2 0 0 2510 4
992 2 0 0 2476 4 24 1 0 970 4
PROCEDURE 369
994 0 0 0 0 0 6 0 0 2253 4
996 26 0 0 568 4 26 0 0 1472 4 26 0 1 994 4
PROCEDURE 370
999 6 1 0 2388 4
1000 28 0 0 2531 4 26 0 0 1137 4 26 0 0 1174 4 1 1 3 0 0
PROCEDURE 371
1004 26 0 0 1174 4 1 1 3 1 0 2 0 0 2506 4 2 1 0 2574 4
1008 26 1 2 2536 4 6 0 0 2500 4 1 1 2 81 0 27 0 0 1028 4
1012 1 1 2 1 0 27 0 0 1025 4 1 1 2 1 0 27 0 1 1018 4
1016 1 1 3 16 0 24 1 0 1023 4 1 1 2 1 0 27 0 0 1026 4
1020 1 1 2 19 0 27 0 0 1027 4 1 1 3 15 0 2 0 2 2531 4
PROCEDURE 372
1024 1 1 3 1 0 1 1 1 1 0 1 1 1 1 0 1 1 1 1 0
1028 1 1 1 1 0 3 0 2 2538 4 2 0 0 8075 4 26 0 0 1174 4
1032 1 1 2 123 0 27 0 0 1039 4 6 1 0 2574 4 18 0 1 2 0
1036 4 0 0 2500 4 2 1 0 2574 4 24 1 0 1031 4
PROCEDURE 373
1039 18 1 1 10 0
1040 2 1 0 2572 4 6 1 0 2575 4 26 0 0 2019 4 27 0 3 1045 4
1044 7 0 2 2531 4 0 1 2 2572 4 1 1 3 0 0
PROCEDURE 374
1047 26 0 0 1174 4
1048 1 1 2 122 0 27 0 0 1061 4 1 1 2 2 0 27 0 0 1076 4
1052 1 1 2 1 0 27 0 0 1083 4 24 0 1 8075 4 26 0 1 1055 4
1056 0 0 0 1199 3 0 0 0 1209 3 0 0 0 1227 3 0 0 0 1251 3
1060 0 0 0 1283 3 1 1 3 1 0 2 0 0 2537 4 26 0 0 1065 4
1064 24 1 0 1003 4
PROCEDURE 375
1065 0 0 0 0 0 6 1 0 2502 4 24 0 0 2536 4
1068 24 0 0 2531 4 18 0 3 0 0 4 1 0 2504 4 2 1 0 2502 4
1072 2 1 0 2504 4 1 1 3 1 0 7 0 0 2536 4 26 0 1 1065 4
PROCEDURE 376
1076 26 0 0 1174 4 26 0 0 1065 4 26 1 2 2536 4 6 0 2 2538 4
1080 2 0 0 8075 4 6 0 0 2500 4 24 1 0 1048 4
PROCEDURE 377
1083 26 0 0 1065 4
1084 6 0 0 2508 4 27 0 0 1094 4 6 0 0 2523 4 27 0 0 1092 4
1088 1 1 3 0 0 5 1 0 2502 4 2 1 0 2502 4 24 1 0 1094 4
1092 5 0 0 2502 4 2 0 0 2502 4 24 0 3 8088 4 6 1 0 7 0
1096 2 0 0 2507 4 26 0 0 1520 4 26 0 0 1115 4 6 0 0 2507 4
1100 27 0 1 584 4 26 0 0 1485 4 26 0 0 1137 4 1 1 3 0 0
1104 26 0 0 1174 4 1 1 2 122 0 27 0 0 1111 4 6 0 0 2537 4
1108 27 0 1 1078 4 6 0 0 2500 4 24 1 0 1048 4 2 0 0 2531 4
1112 2 1 0 2532 4 2 1 0 2534 4 24 1 0 1004 4
PROCEDURE 378
1115 0 0 0 0 0
1116 6 0 0 2503 4 2 0 0 2475 4 6 0 0 2502 4 24 0 0 2544 4
1120 2 0 0 2473 4 6 0 0 2523 4 27 0 1 1129 4 6 0 0 2507 4
1124 27 0 1 1129 4 1 1 3 2 0 5 0 0 2544 4 3 0 0 2544 4
1128 27 0 1 1136 4 6 1 0 2502 4 27 0 2 1135 4 6 0 0 2503 4
1132 27 0 1 1135 4 1 1 3 128 0 7 0 0 2474 4 26 0 0 1686 4
1136 26 0 1 1115 4
PROCEDURE 379
1137 0 0 0 0 0 6 1 0 2422 4 28 0 0 2502 4
1140 6 1 0 3056 4 24 1 2 17 4 2 1 0 2 0 6 1 0 3058 4
1144 24 1 2 17 4 2 1 0 6 0 24 0 2 3062 4 18 1 1 4123 0
1148 1 1 3 18 0 18 1 1 5 0 24 1 2 17 4 28 1 1 12 0
1152 6 1 0 3080 4 24 1 2 17 4 2 1 0 48 0 24 0 2 3082 4
1156 18 1 1 4123 0 1 1 3 16 0 18 1 1 5 0 24 1 2 17 4
1160 28 1 1 32 0 6 0 0 2544 4 27 0 1 1164 4 2 0 0 2472 4
1164 24 1 2 17 4 6 1 0 46 0 5 1 0 2086 4 27 0 0 1094 4
1168 26 1 3 2424 4 0 1 2 3062 4 1 1 3 2 0 2 0 0 2514 4
1172 2 0 0 2536 4 26 0 1 1137 4
PROCEDURE 380
1174 0 0 0 0 0 18 1 1 2 0
1176 2 1 0 2500 4 25 0 3 2 0 24 1 0 1184 4 24 0 0 2514 4
1180 0 1 2 3062 4 1 1 3 2 0 7 0 0 2514 4 26 1 3 2424 4
1184 6 1 0 2500 4 26 0 1 1174 4
PROCEDURE 381
1186 0 0 0 0 0 1 1 2 122 0
1188 27 0 0 1192 4 1 1 2 2 0 27 0 0 1192 4 1 1 2 1 0
1192 26 0 1 1186 4
PROCEDURE 382
1193 0 0 0 0 0 6 1 0 2504 4 18 0 1 1 0
1196 4 1 0 2501 4 2 1 0 2504 4 26 0 1 1193 4
PROCEDURE 383
1199 6 0 0 2506 4
1200 27 0 0 1204 4 1 1 3 8 0 24 0 0 2536 4 7 0 0 2531 4
1204 6 1 0 2504 4 18 0 1 2 0 4 0 0 2500 4 2 1 0 2504 4
1208 24 1 0 1047 4
PROCEDURE 384
1209 6 0 0 2500 4 1 1 2 16 0 27 0 0 1222 4
1212 6 0 0 2506 4 27 0 0 1217 4 1 1 3 1 0 24 0 0 2536 4
1216 7 0 0 2531 4 6 1 0 2504 4 4 1 0 2504 4 4 1 0 2501 4
1220 2 1 0 2504 4 24 1 0 1046 4 6 0 0 2536 4 27 0 1 1046 4
1224 1 1 3 1 0 2 0 0 2508 4 24 1 0 1046 4
PROCEDURE 385
1227 6 0 0 2500 4
1228 1 1 2 16 0 27 0 1 1244 4 6 0 0 2536 4 27 0 1 1235 4
1232 1 1 3 1 0 2 0 0 2508 4 24 1 0 1047 4 1 1 3 1 0
1236 24 0 0 2536 4 24 0 0 2531 4 18 0 3 0 0 0 0 3 2445 4
1240 5 1 0 2504 4 2 1 0 2504 4 0 0 3 2441 4 24 1 0 1047 4
PROCEDURE 386
1244 6 0 0 2506 4 27 0 0 1249 4 1 1 3 4 0 24 0 0 2536 4
1248 7 0 0 2531 4 26 0 0 1193 4 24 1 0 1047 4
PROCEDURE 387
1251 6 0 0 2500 4
1252 1 1 2 16 0 27 0 1 1257 4 1 1 3 1 0 2 0 0 2509 4
1256 24 1 0 1258 4 26 0 0 1193 4 26 0 0 1174 4 26 0 0 1186 4
1260 27 0 1 1251 4 18 1 1 10 0 2 1 0 2510 4 6 1 0 2504 4
1264 26 0 0 2019 4 2 1 0 2504 4 0 1 2 2510 4 6 0 0 2509 4
1268 27 0 0 1281 4 6 0 0 2536 4 27 0 0 1278 4 1 1 3 1 0
1272 24 0 0 2536 4 24 0 0 2531 4 18 0 3 0 0 5 1 0 2504 4
1276 2 1 0 2504 4 24 1 0 1280 4
PROCEDURE 388
1278 1 1 3 1 0 2 0 0 2508 4
1280 2 0 0 2509 4 6 0 0 2500 4 24 1 0 1048 4
PROCEDURE 389
1283 6 0 0 2500 4
1284 1 1 2 77 0 27 0 0 1292 4 1 1 1 77 0 26 0 0 1186 4
1288 27 0 0 1314 4 26 0 0 1193 4 26 0 0 1174 4 24 1 0 1283 4
PROCEDURE 390
1292 18 1 1 10 0 2 1 0 2574 4 6 1 0 2504 4 26 0 0 2019 4
1296 2 0 0 2511 4 26 1 2 2544 4 26 0 0 1428 4 3 0 2 2472 4
1300 27 0 0 1303 4 1 1 2 1 0 7 0 2 2472 4 6 0 0 2511 4
1304 18 0 1 2 0 7 0 2 2472 4 1 1 3 0 0 2 1 0 2504 4
1308 0 1 2 2574 4 26 0 0 1174 4 26 0 0 1186 4 27 0 0 1316 4
1312 26 0 0 1193 4 24 1 0 1309 4 26 1 2 2544 4 2 0 2 2472 4
1316 18 1 1 10 0 2 1 0 2510 4 6 1 0 2504 4 26 0 0 2019 4
1320 2 1 0 2504 4 0 1 2 2510 4 24 1 0 1281 4
PROCEDURE 391
1323 24 0 2 2326 4
1324 28 0 2 3056 4 24 0 2 2326 4 24 1 2 17 4 28 1 2 2 0
1328 6 1 0 3076 4 24 1 2 17 4 2 1 0 48 0 24 0 2 3078 4
1332 18 1 1 4123 0 1 1 3 16 0 18 1 1 5 0 24 1 2 17 4
1336 28 1 1 32 0 26 0 0 1520 4
PROCEDURE 392
1338 26 1 2 2426 4 6 0 2 2451 4
1340 26 0 0 2019 4 2 0 2 2451 4 25 0 2 1 0 24 1 0 1339 4
1344 26 1 2 2428 4 6 0 2 2464 4 1 1 2 100 0 27 0 3 1352 4
1348 1 1 2 899 0 27 0 2 1352 4 6 0 0 2446 4 7 0 2 2465 4
1352 25 0 2 2 0 24 1 0 1345 4 1 1 3 0 0 0 0 2 2523 4
1356 15 0 0 2160 4 27 0 1 1364 4 6 0 0 2467 4 27 0 1 1363 4
1360 6 0 0 2465 4 27 0 1 1363 4 6 0 0 2188 4 2 0 0 2474 4
1364 6 0 0 2464 4 2 0 0 2511 4 26 0 0 1428 4
PROCEDURE 393
1367 3 0 0 2472 4
1368 27 0 0 1371 4 1 1 2 1 0 7 0 0 2472 4 6 0 0 2511 4
1372 18 0 1 2 0 7 0 0 2472 4 6 0 0 2451 4 27 0 0 1380 4
1376 1 1 2 1 0 27 0 0 1379 4 6 0 0 2229 4 4 0 0 2193 4
1380 2 0 0 2475 4 6 0 0 2461 4 27 0 0 1388 4 1 1 2 2 0
1384 27 0 0 1386 4 6 0 0 2231 4 4 0 0 2189 4 7 0 0 2475 4
PROCEDURE 394
1388 6 0 0 2452 4 27 0 0 1392 4 6 0 0 2231 4 7 0 0 2475 4
1392 6 0 0 2460 4 18 0 1 1 0 4 0 0 2458 4 18 0 1 1 0
1396 4 0 0 2459 4 18 0 1 1 0 4 0 0 2453 4 7 0 0 2475 4
1400 6 0 0 2463 4 27 0 0 1409 4 1 1 3 0 0 5 0 0 2475 4
1404 27 0 0 1407 4 2 0 0 2475 4 24 1 0 1409 4
PROCEDURE 395
1407 1 1 3 128 0
1408 7 0 0 2472 4 6 0 0 2465 4 2 0 0 2473 4 6 0 0 2462 4
1412 27 0 0 1421 4 7 0 0 2585 4 6 0 0 2585 4 1 1 2 2 0
1416 27 0 1 1421 4 1 1 2 1 0 2 0 0 2585 4 6 0 0 2229 4
1420 7 0 0 2473 4 6 0 0 2463 4 26 0 0 1686 4 24 1 0 584 4
1424 2 0 0 2585 4 2 0 0 2585 4 26 0 0 1686 4 24 1 0 584 4
PROCEDURE 396
1428 0 0 0 0 0 6 0 0 2511 4 27 0 0 1444 4 1 1 2 100 0
1432 27 0 2 1445 4 1 0 1 1 0 1 1 3 0 0 24 0 0 2511 4
1436 15 0 0 3098 4 2 0 0 2494 4 0 0 2 2231 4 24 0 0 2511 4
1440 15 0 0 3098 4 1 0 1 1 0 24 0 0 2494 4 15 0 0 6699 4
1444 26 0 1 1428 4
PROCEDURE 397
1445 1 1 2 899 0 27 0 3 1451 4 27 0 1 1453 4
1448 2 0 0 2511 4 6 0 0 2527 4 26 0 1 1428 4 1 1 1 999 0
1452 18 0 1 2 0 1 0 0 6700 4 18 1 1 10 0 5 0 0 2182 4
1456 2 0 0 2494 4 24 1 0 1441 4
PROCEDURE 398
1458 0 0 0 0 0 27 0 3 1463 4
1460 4 0 0 2519 4 5 0 0 2487 4 24 1 0 1465 4 5 0 0 2519 4
1464 4 0 0 2487 4 2 0 0 2475 4 6 0 0 2486 4 18 0 1 2 0
1468 4 0 0 2479 4 2 0 0 2474 4 26 0 0 1686 4 26 0 1 1458 4
PROCEDURE 399
1472 0 0 0 0 0 27 0 0 1478 4 2 0 0 2475 4 1 1 3 1 0
1476 5 0 0 2475 4 5 0 0 2475 4 4 0 0 2280 4 26 0 0 557 4
1480 26 0 1 1472 4
PROCEDURE 400
1481 0 0 0 0 0 1 1 3 0 0 26 0 0 1472 4
1484 26 0 1 1481 4
PROCEDURE 401
1485 0 0 0 0 0 24 0 3 8088 4 6 1 0 1 0
1488 2 0 0 2019 4 24 0 1 2019 4 23 0 0 0 0 0 0 0 8088 3
1492 24 1 0 1494 4 26 0 0 2031 4 1 1 3 0 0 1 0 1 15 0
1496 24 0 3 8088 4 15 1 0 2 0 2 0 0 2279 4 24 0 3 8088 4
1500 14 1 0 2 0 6 1 0 2430 4 28 1 1 3054 4 24 0 3 8088 4
1504 24 0 2 0 0 18 1 1 4123 0 24 0 3 8088 4 6 1 0 1 0
1508 18 1 1 5 0 28 1 1 3054 4 26 0 1 1485 4
PROCEDURE 402
1511 0 0 0 0 0
1512 24 1 2 19 4 6 1 0 4 0 24 1 2 19 4 2 1 0 2 0
1516 24 1 2 19 4 2 1 0 4 0 26 0 0 1520 4 26 0 1 1511 4
PROCEDURE 403
1520 0 0 0 0 0 6 1 0 2156 4 24 1 2 17 4 2 1 0 50 0
1524 24 1 2 17 4 6 1 0 46 0 26 0 0 1641 4 27 0 0 1544 4
1528 24 1 2 17 4 6 1 0 48 0 27 0 0 1546 4 26 0 0 1641 4
1532 27 0 0 1544 4 24 1 2 17 4 6 1 0 32 0 5 1 0 2432 4
1536 27 0 1 1541 4 1 0 1 63 0 24 1 2 17 4 14 1 0 48 0
1540 24 1 0 1546 4 6 0 0 8079 4 1 1 1 1 0 2 0 0 8079 4
1544 1 1 3 1 0 2 0 0 2279 4 6 1 0 6774 4 27 0 1 1553 4
1548 6 0 0 2279 4 27 0 0 1559 4 6 0 0 2298 4 27 0 1 1553 4
1552 26 0 0 1570 4 6 0 0 2522 4 24 1 2 17 4 2 1 0 1 0
1556 26 0 0 1587 4 1 1 3 1 0 3 0 0 2522 4 2 0 0 2298 4
1560 26 0 1 1520 4
PROCEDURE 404
1561 0 0 0 0 0 24 0 1 2154 4 2 0 0 7344 4
1564 23 0 0 1 0 0 0 0 2154 3 26 0 1 1561 4 6 0 0 1566 4
1568 2 0 0 1562 4 26 0 1 1561 4
PROCEDURE 405
1570 0 0 0 0 0 6 1 0 16 4
1572 2 1 0 2150 4 6 0 0 8 4 2 0 0 16 4 5 0 0 8 4
1576 1 1 2 64 0 2 0 0 17 4 24 1 2 17 4 2 1 0 0 0
1580 6 1 0 2156 4 24 1 2 17 4 2 1 0 2 0 26 0 0 1587 4
1584 6 1 0 2150 4 2 1 0 16 4 26 0 1 1570 4
PROCEDURE 406
1587 0 0 0 0 0
1588 6 0 0 6785 4 27 0 0 1599 4 24 1 2 17 4 24 0 2 0 0
1592 18 1 1 4123 0 1 1 3 54 0 18 1 1 5 0 24 1 2 13 4
1596 28 1 1 4 0 26 0 0 2051 4 26 0 1 1587 4 6 0 0 6784 4
1600 1 1 2 9 0 27 0 0 1621 4 6 0 0 2231 4 24 1 2 17 4
1604 2 0 0 1 0 6 1 0 2434 4 24 1 2 13 4 28 1 1 0 0
1608 24 1 2 17 4 24 0 2 0 0 24 1 2 13 4 29 0 1 0 0
1612 1 1 3 4 0 18 0 1 5 0 4 0 0 7 4 0 0 2 12 4
1616 25 1 1 4096 0 24 0 3 0 4 23 0 2 160 0 0 0 3 2441 4
1620 26 0 1 1587 4 24 1 2 17 4 24 0 2 0 0 18 1 1 4123 0
1624 1 1 3 54 0 18 1 1 5 0 24 1 2 13 4 28 1 1 0 0
1628 1 1 3 9 0 24 1 0 1613 4
PROCEDURE 407
1630 0 0 0 0 0 0 1 0 2372 4
1632 0 0 3 0 4 0 0 2 20 4 6 1 0 2400 4 4 0 0 11 4
1636 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 2372 4
1640 26 0 1 1630 4
PROCEDURE 408
1641 0 0 0 0 0 18 0 1 4126 0 18 0 1 2 0
1644 1 1 1 93 0 5 1 0 2086 4 27 0 1 1654 4 6 0 0 8078 4
1648 1 1 1 1 0 2 0 0 8078 4 24 1 2 17 4 6 1 0 7 0
1652 26 0 0 1561 4 1 1 3 0 0 26 0 1 1641 4
PROCEDURE 409
1655 0 0 0 0 0
1656 26 1 2 2520 4 6 1 0 2502 4 4 1 0 2076 4 24 1 2 21 4
1660 2 1 2 4 0 6 1 0 2504 4 24 1 2 21 4 2 1 2 6 0
1664 6 0 0 2519 4 24 1 2 21 4 2 1 2 9 0 24 1 2 21 4
1668 2 1 2 10 0 24 1 0 1704 4
PROCEDURE 410
1670 0 0 0 0 0 26 1 2 2520 4
1672 6 1 0 2502 4 24 1 2 21 4 2 1 2 4 0 6 1 0 2504 4
1676 24 1 2 21 4 2 1 2 6 0 6 0 0 2474 4 24 1 2 21 4
1680 2 1 2 9 0 6 0 0 2475 4 24 1 2 21 4 2 1 2 11 0
1684 6 0 0 1670 4 24 1 0 1703 4
PROCEDURE 411
1686 0 0 0 0 0 6 0 0 2518 4
1688 7 0 0 2519 4 26 1 2 2520 4 6 0 0 2472 4 24 1 2 21 4
1692 2 1 2 5 0 6 0 0 2473 4 24 1 2 21 4 2 1 2 7 0
1696 6 0 0 2474 4 24 1 2 21 4 2 1 2 9 0 6 0 0 2475 4
1700 24 1 2 21 4 2 1 2 11 0 6 0 0 1686 4 2 0 0 1655 4
PROCEDURE 412
1704 25 0 2 8 0 24 1 0 1711 4 6 1 0 2156 4 24 1 2 21 4
1708 2 1 2 4 0 26 0 0 1630 4 26 1 2 2436 4 24 0 3 0 4
1712 6 1 0 4 22 2 1 0 2520 4 2 0 0 2473 4 2 1 0 2474 4
1716 26 0 1 1655 4
PROCEDURE 413
1717 0 0 0 0 0 6 0 0 2520 4 27 0 0 1724 4
1720 26 1 2 2520 4 6 0 0 1717 4 2 0 0 1655 4 24 1 0 1706 4
1724 26 0 1 1717 4
PROCEDURE 414
1725 0 0 0 0 0 26 0 0 1485 4 1 1 3 1 0
1728 2 0 0 2575 4 26 0 0 1731 4 26 0 1 1725 4
PROCEDURE 415
1731 0 0 0 0 0
1732 6 0 0 2575 4 27 0 1 1740 4 26 0 0 1989 4 26 0 0 1485 4
1736 24 0 3 8088 4 6 1 0 6 0 5 1 0 2084 4 27 0 1 585 4
1740 24 0 2 2308 4 28 0 2 3056 4 24 0 2 2308 4 24 1 2 17 4
1744 28 1 2 2 0 6 1 0 3074 4 24 1 2 17 4 2 1 0 28 0
1748 6 1 0 3076 4 24 1 2 17 4 2 1 0 48 0 24 0 2 3078 4
1752 18 1 1 4123 0 1 1 3 16 0 18 1 1 5 0 24 1 2 17 4
1756 28 1 1 32 0 6 1 0 2452 4 5 1 0 2084 4 27 0 0 1855 4
1760 1 1 3 0 0 2 1 0 2496 4 25 0 1 0 0 24 1 0 1765 4
1764 24 1 0 1807 4 24 0 3 0 4 6 0 1 1 0 5 1 0 2450 4
1768 27 0 0 1800 4 27 0 2 1807 4 6 1 0 2086 4 2 1 0 2496 4
1772 26 0 0 1775 4 26 0 0 1916 4 24 1 0 1760 4
PROCEDURE 416
1775 0 0 0 0 0
1776 24 0 3 0 4 6 0 1 0 0 3 0 0 2476 4 24 0 3 0 4
1780 2 0 1 1 0 6 1 0 2496 4 27 0 1 1791 4 1 0 1 3 0
1784 15 0 0 2450 4 1 1 2 2 0 27 0 1 1791 4 24 0 3 0 4
1788 6 0 0 2 22 26 0 0 898 4 24 1 0 1797 4 6 0 0 2486 4
1792 18 0 3 10 0 4 0 0 2519 4 5 0 0 2487 4 24 0 3 0 4
1796 2 0 1 0 0 25 0 1 2 0 24 1 0 1799 4 26 0 1 1775 4
PROCEDURE 417
1800 26 0 0 1775 4 24 0 3 0 4 6 0 1 1 0 5 0 0 2450 4
1804 27 0 1 1847 4 26 0 0 1916 4 24 1 0 1800 4
PROCEDURE 418
1807 6 0 0 2593 4
1808 27 0 0 1855 4 6 0 0 2596 4 27 0 0 1855 4 5 1 0 2450 4
1812 27 0 0 1816 4 27 0 2 1855 4 6 1 0 2086 4 2 1 0 2496 4
1816 6 0 0 2598 4 18 0 1 6 0 18 0 1 4127 0 27 0 0 1823 4
1820 24 0 3 0 4 5 1 0 2 22 27 0 2 1823 4 6 0 0 2597 4
1824 2 0 0 2476 4 6 0 0 2598 4 27 0 0 1836 4 18 0 1 4124 0
1828 2 0 0 1775 4 6 0 0 2519 4 5 0 0 2487 4 0 0 2 2178 4
1832 24 0 1 1775 4 18 1 3 0 0 24 0 3 2598 4 14 0 0 0 0
1836 6 0 0 2593 4 1 1 2 3 0 3 0 0 2593 4 27 0 1 1842 4
1840 2 0 0 2596 4 24 1 0 1845 4 24 0 2 2599 4 4 1 0 2592 4
1844 28 0 0 2596 4 6 1 0 2496 4 27 0 1 1773 4 6 0 0 2596 4
1848 5 0 0 2450 4 27 0 1 1852 4 26 0 0 1916 4 24 1 0 1816 4
1852 24 0 2 2366 4 24 1 2 17 4 28 1 2 2 0
PROCEDURE 419
1855 1 1 3 0 0
1856 0 1 2 2454 4 26 0 0 1980 4 2 1 0 2454 4 2 0 0 2464 4
1860 1 0 1 1 0 15 1 0 2456 4 1 1 2 12 0 27 0 1 1871 4
1864 1 1 3 1 0 2 0 0 2464 4 6 1 0 2456 4 18 0 1 4127 0
1868 27 0 2 1870 4 1 1 1 1 0 2 1 0 2456 4
PROCEDURE 420
1871 6 1 0 3092 4
1872 5 1 0 2086 4 3 1 0 2574 4 27 0 0 1875 4 26 0 0 1520 4
1876 6 1 0 2455 4 1 1 2 256 0 27 0 3 1885 4 1 1 2 2201 0
1880 27 0 2 1885 4 0 0 3 2445 4 6 0 0 2446 4 7 1 0 2456 4
1884 0 0 3 2441 4 6 1 0 2452 4 5 1 0 2084 4 27 0 0 1901 4
1888 0 1 2 2452 4 26 0 0 1980 4 2 1 0 2452 4 6 1 0 2453 4
1892 18 1 1 4127 0 2 0 0 2586 4 18 1 1 1 0 1 1 1 1 0
1896 2 0 0 2526 4
PROCEDURE 421
1897 6 0 0 2586 4 26 0 0 2019 4 1 1 1 1 0
1900 2 0 0 2586 4 6 1 0 2574 4 27 0 1 1905 4 2 0 0 2586 4
1904 24 1 0 584 4 24 0 2 2130 4 12 1 0 2456 4 2 1 0 2456 4
1908 24 0 2 2130 4 12 1 0 2460 4 2 1 0 2460 4 24 0 2 2130 4
1912 12 1 0 2455 4 2 1 0 2454 4 2 0 0 2575 4 26 0 1 1731 4
PROCEDURE 422
1916 0 0 0 0 0 6 1 0 2496 4 27 0 1 1921 4 6 1 0 6774 4
1920 27 0 0 1928 4 24 0 2 2360 4 24 1 2 15 4 28 1 2 2 0
1924 6 1 0 2496 4 24 1 2 15 4 2 1 0 46 0 26 0 0 1929 4
1928 26 0 1 1916 4
PROCEDURE 423
1929 0 0 0 0 0 6 1 0 2156 4 24 1 2 15 4
1932 2 1 0 50 0 6 1 0 14 4 2 1 0 16 4 26 0 0 1520 4
1936 6 1 0 30 4 2 1 0 16 4 6 1 0 2414 4 24 1 2 15 4
1940 28 1 1 2 0 26 0 1 1929 4
PROCEDURE 424
1942 0 0 0 0 0 1 1 3 0 0
1944 5 1 0 2456 4 27 0 0 1957 4 27 0 3 1957 4 2 1 0 2456 4
1948 1 1 3 128 0 7 0 0 2510 4 6 1 0 2458 4 1 1 2 2 0
1952 27 0 1 1957 4 1 1 2 1 0 7 1 0 2456 4 1 1 3 1 0
1956 2 1 0 2458 4 26 0 1 1942 4
PROCEDURE 425
1958 0 0 0 0 0 6 0 0 2476 4
1960 2 0 0 2475 4 6 1 0 2454 4 18 0 1 2 0 4 0 0 2510 4
1964 2 0 0 2474 4 6 1 0 2458 4 27 0 0 1972 4 1 1 2 2 0
1968 27 0 1 1971 4 1 1 3 1 0 7 1 0 2456 4 6 0 0 2209 4
1972 24 0 1 2460 4 4 0 0 2205 4 4 0 0 2456 4 1 0 1 15 0
1976 15 0 0 2475 4 14 0 0 2475 4 1 1 3 0 0 26 0 1 1958 4
PROCEDURE 426
1980 0 0 0 0 0 1 1 3 0 0 2 1 0 2494 4 6 1 0 2494 4
1984 18 1 1 2 0 2 1 0 2494 4 27 1 1 1983 4 6 1 0 2494 4
1988 26 0 1 1980 4
PROCEDURE 427
1989 0 0 0 0 0 24 0 2 2454 4 18 1 1 4123 0
1992 1 1 3 8 0 18 1 1 5 0 28 1 1 2502 4 6 0 0 2464 4
1996 2 0 0 2465 4 26 0 1 1989 4
PROCEDURE 428
1998 0 0 0 0 0 24 0 2 2502 4
2000 18 1 1 4123 0 1 1 3 8 0 18 1 1 5 0 28 1 1 2454 4
2004 6 0 0 2465 4 2 0 0 2464 4 26 0 1 1998 4
PROCEDURE 429
2007 0 0 0 0 0
2008 6 1 0 2460 4 2 0 0 2478 4 26 0 0 1401 4 6 0 0 2478 4
2012 2 1 0 2460 4 6 1 0 2456 4 27 0 2 2016 4 26 0 0 1942 4
2016 26 0 0 1958 4 26 0 0 1686 4 26 0 1 2007 4
PROCEDURE 430
2019 0 0 0 0 0
2020 2 1 0 2150 4 0 0 3 2441 4 24 0 2 2130 4 12 1 0 2150 4
2024 26 0 1 2019 4
PROCEDURE 431
2025 0 0 0 0 0 2 1 0 2150 4 0 0 3 2445 4
2028 24 0 2 2110 4 12 1 0 2150 4 26 0 1 2025 4
PROCEDURE 432
2031 0 0 0 0 0
2032 0 1 0 2372 4 0 0 3 0 4 0 0 2 18 4 6 1 0 2438 4
2036 4 0 0 10 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
2040 0 1 1 2372 4 0 1 0 2372 4 0 0 3 0 4 24 1 2 19 4
2044 24 0 2 6 0 3 0 0 8088 4 24 1 2 19 4 4 1 0 5 0
2048 2 0 0 8089 4 0 1 1 2372 4 26 0 1 2031 4
PROCEDURE 433
2051 0 0 0 0 0
2052 6 1 0 2400 4 0 0 2 12 4 25 1 1 4096 0 4 0 0 7 4
2056 24 0 3 0 4 23 0 2 160 0 26 0 1 2051 4 0 0 0 0 0
SECTION 434
2060 37455 0 75516 0 26355 0 73515 0
2064 57273 0 53666 0 65369 0 67696 0
2068 35572 0 65667 0 40000 0 55655 0
2072 46772 0 54746 0 35572 0 56596 0
2076 75500 0 73786 0 56554 0 56595 0
2080 0 0 6Ю000 0 7554. 0 73786 0
2084 0 0 53000 0 :5:5: 0 5:5:5 0
2088 7554£ 0 73786 0 1 0 0 0
2092 2 0 0 0 4 0 0 0
2096 8 0 0 0 10 0 0 0
2100 20 0 0 0 40 0 0 0
2104 80 0 0 0 100 0 0 0
2108 200 0 0 0
SECTION 435
2110 1 0 0 0
2112 16 0 0 0 256 0 0 0
2116 4096 0 0 0 65536 0 0 0
2120 48576 0 10 0 77216 0 167 0
2124 35456 0 2684 0 67296 0 42949 0
2128 £££££ 0 £££££ 0 1 0 0 0
2132 Ю 0 0 0 64 0 0 0
2136 3.8 0 0 0 2710 0 0 0
2140 186Ю0 0 0 0 £4240 0 0 0
2144 89680 0 9 0 5.100 0 5£ 0
2148 Ю+Ю00 0 3‼9 0 0 0 0 0
2152 0 0 0 0 0 0 + 0
SECTION 436
2156 7. 0 7.000 0 0 0 90 0
2160 1 0 45 0 45 0 44 0
2164 4 0 4 0 2 0 0 0
2168 Ю17 1 54 1 ‼4 0 ‼4 0
2172 3 0 7£££0 0 1£££ 0 66666 0
2176 66.64 0 66666 0 3££ 0 1000 0
2180 3£ 0 0 0
SECTION 437
2182 1Ю2‼ 3 8006 0
2184 +8006 0 7 0 £££££ 0 £££££ 0
2188 60000 0 40000 0 50000 0 30000 0
2192 70000 0 20000 0 90000 0 Ю0000 0
2196 ‼0000 0 :0000 0 20001- 0 8+000- 0
2200 80000- 0 Ю000 0 1.000 0 1Ю000 0
2204 1+000 0 0 0 2000 0 4000 0
2208 6000 0 8000 0 28000 0 38000 0
2212 22000- 0 26000- 0 2Ю000- 0 2.000- 0
2216 12000 0 £0000 0 .0000 0 14000 0
2220 ‼0000- 0 ‼2000- 0 ‼4000- 0 ‼6000- 0
2224 ‼8000- 0 ‼Ю000- 0 88000- 0 Ю0000- 0
2228 Ю2000- 0 10000 0 2Ю00Ю- 0 80000 0
2232 88000 0 1.001 0 48000 0 2Ю005- 0
2236 Ю8000- 0 68000 0 +0000 0 90000- 0
2240 74000- 0 70000- 0 2‼016- 0 Ю4000- 0
2244 2‼017- 0 +0000- 0 84000- 0 :2000- 0
2248 +4000- 0 +6000- 0 ++000- 0 +.000- 0
2252 2‼01‼- 0 9‼000- 0 Ю14 1 1 0
2256 £0000- 0 £8000- 0 .8000- 0 .0008- 0
2260 .0000- 0 £0008- 0 40000- 0 48000- 0
2264 58000- 0 40008- 0 50000- 0 60000- 0
2268 .0004- 0 £8004- 0 68000- 0 407+ 0
2272 400 0 6808Ю 0 500 0 409+ 0
2276 200 0 300 0 Ю6000- 0 0 0
SECTION 438
2280 86000- 0 82000- 0 28006 0 38006 0
2284 ‼8002- 0 1Ю002 0 22005- 0 6004 0
2288 20001 0 88001- 0 ‼4002- 0 88007- 0
2292 Ю5££‼- 0 Ю1££Ю- 0 20006 0 86006- 0
2296 74002- 0 0 0 0 0 8+006- 0
2300 1Ю00Ю 0 30002 0 1Ю014 0 4002 0
2304 88005- 0 :6000- 0 8000- 0 0 0
SECTION 439
SECTION 440
2308 0 2448 3 5 3 0 0 0 5 0 0 2450 3 1365 2 0 5 5 5 0
2312 0 2452 3 69 3 0 0 4 5 0 0 2454 3 53 3 0 0 3 5 0
2316 0 2456 3 17669 6 4 5 0 5 0 0 2458 3 6162 2 1 8 1 2 0
2320 0 2460 3 9987 2 2 7 0 3 0 0 2462 3 36954 6 9 0 5 10 0
2324 0 2152 3 5 3 0 0 0 5 1
SECTION 441
2326 0 2448 3 5 3 0 0 0 5 0
2328 0 2450 3 85 0 0 0 5 5 0 0 2464 3 16405 0 4 0 1 5 0
2332 0 2465 3 16405 0 4 0 1 5 0 0 2466 3 16405 0 4 0 1 5 0
2336 0 2467 3 16405 0 4 0 1 5 0 0 2451 3 4882 0 1 3 1 2 0
2340 0 2452 3 8707 0 2 2 0 3 0 0 2453 3 4898 0 1 3 2 2 0
2344 0 2458 3 8723 0 2 2 1 3 0 0 2459 3 4898 0 1 3 2 2 0
2348 0 2460 3 8723 0 2 2 1 3 0 0 2461 3 1057 0 0 4 2 1 0
2352 0 2462 3 4882 0 1 3 1 2 0 0 2463 3 4882 0 1 3 1 2 1
SECTION 442
2356 0 2475 3 16405 12 4 0 1 5 0 0 2474 3 12548 0 3 1 0 4 1
SECTION 443
2360 0 2496 3 515 3 0 2 0 3 0 0 2476 3 21 0 0 0 1 5 0
2364 0 2080 3 1 3 0 0 0 1 1 0 2448 3 3 3 0 0 0 3 0
2368 0 2476 3 21 0 0 0 1 5 0 0 2080 3 1 3 0 0 0 1 1
SECTION 444
SECTION 1020
2372 0 0 0 0 0 0 0 0
2376 0 0 0 0 0 0 0 0
2380 0 0 0 0 0 0 0 0
2384 0 0 0 0 0 0 20032 0
2388 0 0 2000. 0 8004 0 5142 0
2392 0 0 11 0 0 0 20078 0
2396 0 0 20064 0 0 0 20022 0
2400 0 0 8 0 50000 0 56596 0
2404 0 0 22 0 8004 0 5146 0
2408 0 0 12 0 0 0 30 0
2412 . 0 . 0 0 0 20030 0
2416 0 0 6 0 55972 0 56596 0
2420 0 0 21 0 0 0 20008 0
2424 0 0 Ю 0 0 0 14 0
2428 0 0 4 0 0 0 2002+ 0
2432 17171 0 71717 0 0 0 20180 0
2436 0 0 90 0 0 0 7 0
SECTION 1021
2440 2 0 0 0 3 0 10 0
2444 14 0 66666 0 2- 0 7200 0
SECTION 1022
PROCEDURE 1005
CHAPT 6
PROCEDURE 0
0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 0 0 0 0 3
4 0 0 0 0 4 0 0 0 0 5 0 0 0 0 6 0 0 0 0 7
8 0 0 0 0 8 0 0 0 0 9 0 0 0 0 10 0 0 0 0 11
12 0 0 0 0 12 0 0 0 0 13 0 0 0 0 14 0 0 0 0 15
16 0 0 0 0 16 0 0 0 0 17 0 0 0 0 18 0 0 0 0 19
20 0 0 0 0 20 0 0 0 0 21 0 0 0 0 22 0 0 0 0 23
24 0 0 0 0 24 0 0 0 0 25 0 0 0 0 0 25 1 1 4096 0
28 24 0 3 0 4 23 0 2 0 1792 0 0 0 0 0 0 0 0 0 0
32 26 0 1 26 4
PROCEDURE 445
33 0 1 0 3044 4 0 0 3 0 4 1 1 3 6 0
36 0 0 2 3148 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 1024
40 0 1 1 3044 4 24 1 2 21 4 24 0 2 0 0 18 1 1 4123 0
44 1 1 3 100 0 18 1 1 5 0 28 1 1 3284 4 0 1 0 3044 4
48 0 0 3 0 4 0 1 2 3058 4 6 1 0 3060 4 4 0 0 11 4
52 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 0 3 3048 4
56 6 1 0 3062 4 28 0 0 3244 4 6 1 0 3064 4 24 1 2 15 4
60 28 0 0 0 0 1 1 3 0 0 2 0 0 5476 4 24 0 2 3163 4
64 18 1 1 4123 0 1 1 3 14 0 18 1 1 5 0 28 0 0 3249 4
68 6 1 0 3066 4 28 0 0 3163 4 26 1 3 3068 4 6 0 0 6690 4
72 18 0 1 5 0 1 1 1 1 0 3 1 0 3044 4 26 1 1 3044 4
76 1 1 3 0 0 1 0 1 1 0 15 0 1 6699 4 2 0 0 3246 4
80 24 0 3 0 4 6 0 0 2 22 2 0 0 3245 4 1 1 3 16 0
84 18 1 1 4118 0 15 0 1 6699 4 18 1 1 4126 0 27 1 1 90 4
88 24 0 1 3246 4 6 0 0 3248 4 4 0 3 3178 4 2 0 0 3247 4
92 2 0 0 3248 4
PROCEDURE 446
93 26 0 0 185 4 6 0 0 3247 4 4 0 0 3248 4
96 24 0 1 3246 4 5 0 0 3162 4 27 0 3 101 4 24 0 1 3246 4
100 7 0 0 3162 4 25 0 3 1 0 24 1 0 103 4 25 0 1 1 0
104 24 1 0 76 4 26 1 1 6718 4 26 1 2 3068 4 1 1 3 16 0
108 18 1 1 4118 0 15 0 1 6700 4 27 0 0 115 4 6 0 1 3163 4
112 2 0 2 3178 4 6 0 1 3249 4 7 0 1 3163 4 25 0 2 1 0
116 24 1 0 117 4 25 0 1 1 0 24 1 0 107 4 6 0 0 2576 4
120 2 0 0 3247 4 2 0 0 3245 4 6 0 0 6719 4 2 0 0 3246 4
124 2 0 0 3248 4 26 0 0 185 4 6 0 0 3247 4 4 0 0 3248 4
128 2 0 1 3162 4 1 1 3 220 0 5 0 0 3163 4 27 0 3 133 4
132 7 0 0 3163 4 6 1 0 3062 4 28 0 0 3244 4 6 0 0 6719 4
136 1 1 2 7 0 27 0 3 139 4 1 1 3 0 0 1 1 1 7 0
140 2 0 0 6719 4 26 0 0 456 4 26 0 0 456 4 26 0 0 456 4
144 24 1 2 21 4 6 1 0 5 0 2 0 0 3246 4 24 1 2 21 4
148 6 1 0 7 0 2 0 0 3247 4 6 1 0 3066 4 28 0 0 3212 4
152 0 1 0 3044 4 0 0 3 0 4 0 1 2 3070 4 6 1 0 3072 4
156 4 0 0 10 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
160 0 1 1 3044 4 0 1 0 3044 4 0 0 3 0 4 0 0 2 3149 4
164 6 1 0 3074 4 4 0 0 10 4 25 1 1 4096 0 24 0 3 0 4
168 23 0 2 0 256 0 1 1 3044 4 6 1 0 644 4 24 1 2 19 4
172 2 1 0 4 0 6 1 0 680 4 24 1 2 19 4 2 1 0 6 0
176 6 1 0 645 4 24 1 2 19 4 2 1 0 9 0 1 1 3 3 0
180 24 1 2 19 4 2 1 0 10 0 26 0 0 548 4 26 0 0 187 4
184 24 1 0 213 4
PROCEDURE 447
185 0 0 0 0 0 26 0 1 185 4
PROCEDURE 448
187 0 0 0 0 0
188 6 0 0 3246 4 24 1 2 19 4 3 1 0 5 0 24 1 2 19 4
192 2 1 0 13 0 6 0 0 3247 4 24 1 2 19 4 3 1 0 7 0
196 24 1 2 19 4 2 1 0 15 0 1 1 3 2 0 24 1 2 19 4
200 2 1 0 11 0 1 1 3 3 0 24 1 2 19 4 3 1 0 19 0
204 1 1 3 2 0 4 0 0 6788 4 24 1 2 19 4 2 1 0 17 0
208 6 1 0 645 4 24 1 2 19 4 2 1 0 21 0 26 0 0 548 4
212 26 0 1 187 4
PROCEDURE 449
213 6 1 0 3064 4 24 1 2 15 4 28 1 1 0 0
216 26 1 1 3076 4 26 0 0 491 4 25 0 1 1 0 24 1 0 217 4
220 2 0 0 548 4 2 0 0 491 4 1 1 3 128 0 2 0 0 745 4
224 24 0 2 848 4 24 1 2 15 4 28 1 2 0 0 26 0 0 491 4
228 26 0 0 491 4 6 1 0 645 4 24 1 2 19 4 2 1 0 5 0
232 1 1 3 85 0 24 1 2 19 4 2 1 0 7 0 6 0 0 3246 4
236 24 1 2 19 4 2 1 0 9 0 6 0 0 3247 4 24 1 2 19 4
240 2 1 0 11 0 6 1 0 654 4 24 1 2 19 4 2 1 0 12 0
244 26 0 0 548 4 26 0 0 456 4 24 1 2 21 4 24 0 2 4 0
248 18 1 1 4123 0 1 1 3 10 0 18 1 1 5 0 28 1 1 3192 4
252 2 1 0 3205 4 2 1 0 3203 4 2 1 0 3207 4
PROCEDURE 450
255 24 0 2 3192 4
256 18 1 1 4123 0 1 1 3 16 0 18 1 1 5 0 24 1 2 19 4
260 28 1 1 4 0 2 0 0 6718 4 6 0 0 6696 4 24 1 2 19 4
264 2 1 0 21 0 6 0 0 6698 4 24 1 2 19 4 2 1 0 23 0
268 26 1 2 6718 4 26 1 1 3078 4 6 0 2 3163 4 27 0 1 274 4
272 6 1 0 676 4 3 0 2 3163 4 24 1 2 19 4 2 1 1 25 0
276 1 1 3 32 0 18 1 1 4118 0 15 0 2 6700 4 27 0 0 285 4
280 1 1 3 0 0 24 1 2 19 4 5 1 1 25 0 24 1 2 19 4
284 2 1 1 25 0 25 0 1 2 0 24 1 0 287 4 25 0 2 1 0
288 24 1 0 270 4 6 0 0 3246 4 24 1 2 19 4 2 1 0 39 0
292 6 0 0 3247 4 24 1 2 19 4 2 1 0 41 0 6 1 0 3080 4
296 24 1 2 19 4 2 1 0 42 0 26 0 0 548 4
PROCEDURE 451
299 26 1 1 848 4
300 26 1 2 850 4 24 0 3 0 4 6 1 0 2 22 2 1 0 848 4
304 24 0 3 0 4 6 1 0 4 22 2 1 0 850 4 26 1 2 3082 4
308 6 1 2 3193 4 27 0 0 312 4 6 1 0 588 4 24 1 0 313 4
312 6 1 0 590 4 2 1 2 3212 4 25 0 2 2 0 24 1 0 308 4
316 6 0 0 6696 4 26 0 0 565 4 2 0 0 6696 4 0 0 3 3150 4
320 24 0 2 822 4 24 1 2 15 4 28 1 2 2 0 26 0 0 491 4
324 26 0 0 491 4 6 1 0 3201 4 2 1 0 3214 4
PROCEDURE 452
327 6 1 0 3203 4
328 2 0 0 3252 4 6 1 0 3201 4 2 0 0 3253 4 6 1 0 3066 4
332 28 0 0 3212 4 6 1 0 6718 4 5 1 0 3084 4 3 1 0 3044 4
336 26 1 2 3044 4 6 0 2 3163 4 26 0 0 565 4 2 0 2 3212 4
340 0 0 3 3150 4 6 0 2 3163 4 5 0 0 3151 4 27 0 3 346 4
344 1 1 3 1 0 3 0 0 3222 4 25 0 2 1 0 24 1 0 337 4
348 1 1 3 1286 0 3 0 0 696 4 2 0 2 3212 4 6 0 0 3222 4
352 27 0 0 362 4 6 0 0 8078 4 1 1 1 1 0 2 0 0 8078 4
356 6 1 0 3086 4 26 1 2 3076 4 24 1 2 15 4 3 1 2 40 0
360 25 0 2 2 0 24 1 0 358 4 24 0 2 794 4 24 1 2 15 4
364 28 1 2 2 0 26 0 0 491 4 26 0 0 491 4 24 0 2 772 4
368 24 1 2 15 4 28 1 2 2 0 26 0 0 491 4 6 1 0 3088 4
372 28 0 0 3212 4
PROCEDURE 453
373 24 0 2 890 4 24 1 2 15 4 28 1 2 2 0
376 26 0 0 491 4
PROCEDURE 454
377 6 1 0 646 4 24 1 2 15 4 2 1 0 2 0
380 6 1 0 648 4 24 1 2 15 4 2 1 0 4 0 6 1 0 668 4
384 24 1 2 15 4 2 1 0 6 0 26 0 0 491 4 26 0 0 491 4
388 24 1 0 406 4
PROCEDURE 455
389 24 0 2 924 4 24 1 2 15 4 28 1 2 2 0
392 26 0 0 491 4 26 0 0 491 4 6 1 0 3090 4 2 1 0 8088 4
396 6 1 0 3092 4 2 1 0 8092 4 3 1 0 3044 4 26 1 1 3044 4
400 24 1 0 990 4
PROCEDURE 456
401 24 0 2 928 4 24 1 2 15 4 28 1 2 2 0
404 26 0 0 491 4 24 1 0 389 4
PROCEDURE 457
406 24 0 2 932 4 24 1 2 15 4
408 28 1 2 2 0 26 0 0 491 4 26 0 0 491 4 24 1 0 401 4
PROCEDURE 458
412 0 0 0 0 0 6 0 0 586 4 26 0 0 565 4 2 0 0 586 4
416 6 0 0 587 4 26 0 0 565 4 2 0 0 587 4 6 0 0 588 4
420 26 0 0 565 4 2 0 0 588 4 0 0 3 3150 4 24 0 2 936 4
424 0 1 0 3044 4 0 0 3 0 4 24 1 2 15 4 24 0 2 0 0
428 24 0 3 0 4 4 0 0 2 22 2 0 0 3050 4 0 1 1 3044 4
432 24 0 3 3050 4 28 1 2 2 0 25 0 1 6 0 24 1 0 438 4
436 26 0 0 491 4 26 1 1 3094 4 26 0 1 412 4
PROCEDURE 459
439 0 0 0 0 0
440 0 1 0 3044 4 0 0 3 0 4 0 0 2 18 4 6 1 0 3096 4
444 4 0 0 10 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
448 0 1 1 3044 4 26 0 1 439 4
PROCEDURE 460
450 0 0 0 0 0 25 0 2 8 0
452 24 1 0 455 4 26 0 0 456 4 26 1 2 3098 4 26 0 1 450 4
PROCEDURE 461
456 0 0 0 0 0 0 1 0 3044 4 0 0 3 0 4 0 0 2 20 4
460 6 1 0 3096 4 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4
464 23 0 2 0 256 0 1 1 3044 4 26 0 1 456 4
PROCEDURE 462
467 0 0 0 0 0
468 24 1 2 19 4 24 0 2 4 0 18 1 1 4123 0 1 1 3 50 0
472 18 1 1 5 0 24 1 2 21 4 28 1 1 4 0 6 1 0 640 4
476 24 1 2 21 4 2 1 0 52 0 0 1 0 3044 4 0 0 3 0 4
480 0 0 2 20 4 6 1 0 3100 4 4 0 0 11 4 25 1 1 4096 0
484 24 0 3 0 4 23 0 2 0 256 0 1 1 3044 4 6 1 0 3102 4
488 24 1 2 21 4 28 0 0 0 0 26 0 1 467 4
PROCEDURE 463
491 0 0 0 0 0
492 0 0 3 3150 4 6 1 0 640 4 24 1 2 15 4 2 1 0 50 0
496 6 0 0 745 4 24 1 2 15 4 2 1 0 0 0 1 1 3 1 0
500 2 0 0 745 4 6 0 0 6785 4 27 0 0 512 4 24 1 2 15 4
504 24 0 2 0 0 18 1 1 4123 0 1 1 3 54 0 18 1 1 5 0
508 24 1 2 13 4 28 1 1 4 0 26 0 0 577 4 24 1 0 543 4
512 6 0 0 6784 4 1 1 2 9 0 27 0 0 534 4 6 0 0 3152 4
516 24 1 2 15 4 2 0 0 1 0 6 1 0 3104 4 24 1 2 13 4
520 28 1 1 0 0 24 1 2 15 4 24 0 2 0 0 24 1 2 13 4
524 29 0 1 0 0 1 1 3 4 0 18 0 1 5 0 4 0 0 7 4
528 0 0 2 12 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 160 0
532 0 0 3 3150 4 24 1 0 543 4 24 1 2 15 4 24 0 2 0 0
536 18 1 1 4123 0 1 1 3 54 0 18 1 1 5 0 24 1 2 13 4
540 28 1 1 0 0 1 1 3 9 0 24 1 0 526 4 6 1 0 3064 4
544 24 1 2 15 4 28 0 0 0 0 2 0 0 3245 4 26 0 1 491 4
PROCEDURE 464
548 0 0 0 0 0 6 1 0 640 4 24 1 2 19 4 2 1 0 52 0
552 0 1 0 3044 4 0 0 3 0 4 0 0 2 18 4 6 1 0 3100 4
556 4 0 0 10 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
560 0 1 1 3044 4 6 1 0 3102 4 24 1 2 19 4 28 0 0 0 0
564 26 0 1 548 4
PROCEDURE 465
565 0 0 0 0 0 2 1 0 696 4 0 0 3 3153 4
568 24 0 2 718 4 12 1 0 696 4 26 0 1 565 4
PROCEDURE 466
571 0 0 0 0 0
572 2 1 0 696 4 0 0 3 3150 4 24 0 2 698 4 12 1 0 696 4
576 26 0 1 571 4
PROCEDURE 467
577 0 0 0 0 0 6 1 0 3100 4 0 0 2 12 4
580 25 1 1 4096 0 4 0 0 7 4 24 0 3 0 4 23 0 2 160 0
584 26 0 1 577 4 0 0 0 0 0
SECTION 468
586 7734. 0 564.6 0
588 85572 0 7 0 6566 0 0 0
592 6544. 0 646 0 7674. 0 5 0
596 96669 0 67695 0 97378 0 5 0
600 97273 0 56596 0 3654. 0 63665 0
604 16773 0 53585 0 7554£ 0 73786 0
608 35572 0 56596 0 1654. 0 73695 0
612 55172 0 51695 0 34.69 0 51637 0
616 35572 0 66747 0 65769 0 67696 0
620 46455 0 516 0 95951 0 72556 0
624 9544. 0 5 0 3554. 0 697 0
628 86755 0 737 0 .6656 0 72734 0
632 65362 0 52636 0 97955 0 725 0
636 25973 0 7 0 56554 0 67695 0
640 7. 0 7.000 0 35871 0 5Ю005 0
644 £6£6£ 0 6£6£6 0 25553 0 7 0
648 6654. 0 73596 0 96653 0 676 0
652 46955 0 55547 0 27243 0 67517 0
656 +7200 0 64695 0 23000 0 44104 0
660 5644+ 0 59735 0 36972 0 537 0
664 97353 0 72765 0 20000 0 58557 0
668 16973 0 72735 0 35572 0 65667 0
672 66663 0 72676 0 36978 0 55657 0
676 186Ю0 0 0 0
SECTION 469
678 5.5. 0 0 0
680 45577 0 59655 0 15965 0 53585 0
684 3££ 0 7£££0 0 3030 0 30483 0
688 20059 0 67737 0 37454 0 65536 0
692 0 0 55540 0
SECTION 470
694 1 0 0 0
696 0 0 0 0
SECTION 471
698 1 0 0 0
700 Ю 0 0 0 64 0 0 0
704 3.8 0 0 0 2710 0 0 0
708 186Ю0 0 0 0 £4240 0 0 0
712 89680 0 9 0 5.100 0 5£ 0
716 Ю+Ю00 0 3‼9 0 1 0 0 0
720 16 0 0 0 256 0 0 0
724 4096 0 0 0 65536 0 0 0
728 48576 0 10 0 77216 0 167 0
732 35456 0 2684 0 67296 0 42949 0
736 £££££ 0 £££££ 0
SECTION 472
738 7 0 80000 0
740 0 0 3£ 0 £0000 0 7£ 0
744 80 0 0 0
SECTION 473
SECTION 474
746 0 604 3 20 3 0 0 1 4 0
748 0 622 3 1 3 0 0 0 1 0 0 3200 3 1057 3 0 4 2 1 0
752 0 608 3 53 3 0 0 3 5 0 0 3202 3 4898 0 1 3 2 2 0
756 0 610 3 117 3 0 0 7 5 0 0 612 3 37 3 0 0 2 5 0
760 0 3204 3 4898 0 1 3 2 2 0 0 640 3 101 3 0 0 6 5 1
764 0 3216 3 5 0 0 0 0 5 0 0 3215 3 5 0 0 0 0 5 0
768 0 3212 3 5 0 0 0 0 5 0 0 3214 3 5 0 0 0 0 5 1
SECTION 475
772 0 608 3 20 3 0 0 1 4 0 0 624 3 547 3 0 2 2 3 0
776 0 626 3 356 3 0 1 6 4 0 0 628 3 292 3 0 1 2 4 0
780 0 668 3 101 3 0 0 6 5 0 0 602 3 37 3 0 0 2 5 0
784 0 614 3 101 3 0 0 6 5 0 0 616 3 5 3 0 0 0 5 0
788 0 632 3 69 3 0 0 4 5 0 0 634 3 21 3 0 0 1 5 0
792 0 604 3 165 3 0 0 10 5 1
SECTION 476
794 0 634 3 53 3 0 0 3 5 0
796 0 630 3 802 3 0 3 2 2 0 0 604 3 36 3 0 0 2 4 0
800 0 622 3 1 3 0 0 0 1 0 0 3212 3 16421 4 4 0 2 5 0
804 0 3213 3 16421 4 4 0 2 5 0 0 3214 3 16421 4 4 0 2 5 0
808 0 3215 3 16421 4 4 0 2 5 0 0 3216 3 16421 4 4 0 2 5 0
812 0 3217 3 16421 4 4 0 2 5 0 0 3218 3 16421 4 4 0 2 5 1
816 0 3212 3 5 0 0 0 0 5 0 0 3214 3 5 3 0 0 0 5 0
820 0 3216 3 5 3 0 0 0 5 1
SECTION 477
822 0 586 3 69 3 0 0 4 5 0
824 0 3212 3 547 3 0 2 2 3 0 0 592 3 372 3 0 1 7 4 0
828 0 594 3 547 3 0 2 2 3 0 0 3214 3 547 3 0 2 2 3 0
832 0 596 3 117 3 0 0 7 5 0 0 598 3 515 3 0 2 0 3 0
836 0 3196 3 1057 3 0 4 2 1 0 0 674 3 117 3 0 0 7 5 0
840 0 642 3 4 3 0 0 0 4 0 0 6698 3 1025 0 0 4 0 1 0
844 0 642 3 1025 3 0 4 0 1 0 0 6696 3 12548 0 3 1 0 4 1
SECTION 478
848 0 744 3 16389 0 4 0 0 5 0 0 618 3 21 3 0 0 1 5 0
852 0 620 3 260 3 0 1 0 4 0 0 3246 3 53 0 0 0 3 5 0
856 0 622 3 53 3 0 0 3 5 0 0 602 3 1 3 0 0 0 1 0
860 0 3247 3 16437 0 4 0 3 5 0 0 604 3 244 3 0 0 15 4 0
864 0 622 3 1 3 0 0 0 1 0 0 6719 3 1057 0 0 4 2 1 0
868 0 608 3 53 3 0 0 3 5 0 0 548 3 1057 0 0 4 2 1 0
872 0 610 3 101 3 0 0 6 5 0 0 612 3 37 3 0 0 2 5 0
876 0 491 3 1057 0 0 4 2 1 1
SECTION 479
878 0 3192 3 101 3 0 0 6 5 0
880 0 586 3 12484 0 3 0 12 4 0 0 3218 3 12756 0 3 1 13 4 0
884 0 3220 3 691 3 0 2 11 3 0 0 3216 3 12740 0 3 1 12 4 0
888 0 3214 3 12740 0 3 1 12 4 1 0 610 3 21 3 0 0 1 5 0
892 0 612 3 37 3 0 0 2 5 0 0 668 3 37 3 0 0 2 5 0
896 0 602 3 37 3 0 0 2 5 0 0 604 3 117 3 0 0 7 5 0
900 0 634 3 101 3 0 0 6 5 1 0 586 3 20565 0 5 0 5 5 0
904 0 3212 3 12724 0 3 1 11 4 0 0 571 3 1233 0 0 4 13 1 0
908 0 3216 3 12660 0 3 1 7 4 1 0 3192 3 5 3 0 0 0 5 0
912 0 3194 3 5 3 0 0 0 5 0 0 3196 3 5 3 0 0 0 5 0
916 0 3198 3 5 3 0 0 0 5 1
SECTION 480
918 0 586 3 4914 0 1 3 3 2 0
920 0 642 3 1 3 0 0 0 1 0 0 587 3 12548 0 3 1 0 4 1
924 0 656 3 5 3 0 0 0 5 0 0 658 3 5 3 0 0 0 5 1
928 0 660 3 5 3 0 0 0 5 0 0 662 3 5 3 0 0 0 5 1
932 0 664 3 5 3 0 0 0 5 0 0 666 3 5 3 0 0 0 5 1
936 0 588 3 16389 0 4 0 0 5 0 0 642 3 4 3 0 0 0 4 0
940 0 586 3 1025 0 0 4 0 1 0 0 642 3 1025 3 0 4 0 1 0
944 0 587 3 12548 0 3 1 0 4 1
SECTION 481
946 0 3260 3 5 0 0 0 0 5 0
948 0 738 3 5 0 0 0 0 5 0 0 3246 3 5 0 0 0 0 5 0
952 0 3247 3 5 0 0 0 0 5 0 0 604 3 5 3 0 0 0 5 1
956 0 604 3 5 3 0 0 0 5 0 0 3260 3 16437 0 4 0 3 5 1
960 0 3192 3 5 3 0 0 0 5 0 0 3194 3 20 3 0 0 1 4 0
964 0 3200 3 5 3 0 0 0 5 0 0 3196 3 5 3 0 0 0 5 0
968 0 3198 3 5 3 0 0 0 5 0 0 3202 3 5 3 0 0 0 5 1
SECTION 482
972 0 0 0 0 0 0 4£000 0
976 30 0 0 0 30 0 0 0
980 30 0 0 0 30 0 0 0
984 30 0 0 0 30 0 0 0
988 30 0 0 0
PROCEDURE 483
990 24 0 2 2144 4 24 1 2 15 4
992 28 1 2 0 0 0 1 0 3044 4 0 0 3 0 4 24 1 2 15 4
996 24 0 2 0 0 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 1280
1000 0 1 1 3044 4 6 1 0 3064 4 24 1 2 15 4 28 1 1 0 0
1004 6 1 0 3106 4 28 1 1 3384 4 6 1 0 3094 4 2 1 0 8102 4
1008 26 1 2 3098 4 26 0 0 1862 4 24 1 2 21 4 24 0 2 4 0
1012 18 1 1 4123 0 1 1 3 8 0 18 1 1 5 0 28 1 1 3192 4
1016 24 0 3 1 4 2 0 0 84 0 6 1 0 3192 4 18 1 1 4126 0
1020 5 1 0 2008 4 27 0 0 1033 4 6 1 0 3108 4 4 0 0 6785 4
1024 3 1 0 3044 4 26 1 1 3044 4 1 1 3 8 0 0 0 2 3148 4
1028 25 1 1 4096 0 24 0 3 0 4 26 0 2 0 512 0 0 0 43 1
1032 0 0 0 1008 3 24 1 2 21 4 6 1 0 1 0 2 0 0 1783 4
1036 26 1 2 3098 4 24 1 2 21 4 6 1 2 4 0 18 1 1 4126 0
1040 5 1 0 2008 4 27 0 1 1058 4 18 1 1 2 0 1 1 2 70 0
1044 27 0 0 1058 4 1 1 2 1 0 27 0 0 1058 4 27 0 3 1051 4
1048 1 1 2 8 0 27 0 0 1062 4 24 1 0 1058 4 24 1 2 21 4
1052 6 1 2 7 0 2 0 0 3384 4 24 1 2 21 4 6 1 2 9 0
1056 24 0 1 3384 4 2 0 0 3384 4 25 0 2 8 0 24 1 0 1037 4
1060 26 0 0 1862 4 24 1 0 1036 4 0 1 0 3044 4 0 0 3 0 4
1064 0 1 2 3110 4 6 1 0 3072 4 4 0 0 11 4 25 1 1 4096 0
1068 24 0 3 0 4 23 0 2 0 256 0 1 1 3044 4 26 0 0 1862 4
1072 24 1 2 21 4 6 1 0 1 0 5 0 0 1783 4 27 0 1 1071 4
1076 24 0 2 5476 4 18 1 1 4123 0 1 1 3 100 0 18 1 1 5 0
1080 28 1 1 3384 4 1 1 3 204 0 2 0 0 4384 4 24 0 1 6719 4
1084 6 0 0 4385 4 24 0 1 6719 4 2 0 0 3177 4 24 0 2 3178 4
1088 18 1 1 4123 0 6 0 0 6719 4 18 1 1 5 0 28 0 0 4386 4
1092 24 0 1 6719 4 6 0 0 3162 4 2 0 0 4385 4 2 0 0 6783 4
PROCEDURE 484
1096 6 0 0 3246 4 24 1 2 19 4 2 1 0 7 0 6 0 0 3247 4
1100 24 1 2 19 4 2 1 0 9 0 6 1 0 2056 4 24 1 2 19 4
1104 2 1 0 4 0 26 0 0 1960 4 26 0 0 1960 4
PROCEDURE 485
1107 26 1 1 3094 4
1108 1 1 3 1 0 2 0 0 3260 4 24 0 2 2176 4 24 1 2 19 4
1112 28 1 2 4 0 26 0 0 1960 4 24 0 2 2186 4 24 1 2 15 4
1116 28 1 2 2 0 1 1 3 2 0 3 0 0 3260 4 26 0 0 1897 4
1120 26 1 2 3098 4 24 1 0 1123 4
PROCEDURE 486
1122 26 0 0 1856 4 26 0 0 1977 4
1124 6 1 0 3192 4 18 1 1 4126 0 5 1 0 2008 4 27 0 1 1365 4
1128 18 1 1 2 0 1 1 2 72 0 27 0 2 1214 4 1 1 1 8 0
1132 2 0 0 8077 4 6 1 0 3197 4 2 0 0 3267 4 6 1 0 3195 4
1136 26 0 0 1990 4 3 0 0 3261 4 2 0 0 2074 4 0 0 3 3150 4
PROCEDURE 487
1140 24 0 1 8076 4 26 0 1 1141 4 0 0 0 1180 3 0 0 0 1144 3
1144 6 1 0 3195 4 27 0 0 1122 4 6 1 0 3197 4 26 0 0 1990 4
1148 0 0 3 3150 4 2 0 0 3280 4 24 0 2 2190 4 0 1 0 3044 4
1152 0 0 3 0 4 24 1 2 15 4 24 0 2 0 0 4 0 0 8102 4
1156 2 0 0 3050 4 0 1 1 3044 4 24 0 3 3050 4 28 1 2 2 0
1160 6 0 0 8077 4 1 1 2 6 0 27 0 1 1173 4 6 1 0 3112 4
1164 0 1 0 3044 4 0 0 3 0 4 24 1 2 15 4 24 0 2 0 0
1168 4 0 0 8102 4 2 0 0 3050 4 0 1 1 3044 4 24 0 3 3050 4
1172 2 1 0 2 0 23 0 0 4 0 0 0 0 8102 3 24 1 0 1122 4
1176 26 0 0 1897 4 6 1 0 3094 4 2 1 0 8102 4 24 1 0 1122 4
1180 6 1 0 8092 4 2 1 0 2038 4 6 0 0 3245 4 27 0 0 1185 4
1184 26 0 0 1783 4 6 1 0 2038 4 2 1 0 8092 4 2 0 0 3281 4
1188 6 0 0 8077 4 1 1 2 1 0 27 0 1 1194 4 6 1 0 2028 4
1192 0 1 2 2030 4 24 1 0 1208 4
PROCEDURE 488
1194 1 1 2 5 0 27 0 1 1200 4
1196 6 1 0 3114 4 24 1 2 15 4 2 1 0 2 0 24 1 0 1212 4
1200 1 1 2 1 0 27 0 1 1206 4 6 1 0 3092 4 2 1 0 8102 4
1204 6 1 0 3116 4 24 1 0 1197 4 6 1 0 2032 4 0 1 2 2034 4
1208 0 1 0 3262 4 24 0 2 2216 4 24 1 2 15 4 28 1 2 2 0
1212 26 0 0 1897 4 24 1 0 1122 4
PROCEDURE 489
1214 26 0 0 1856 4 26 0 0 1977 4
1216 6 1 0 3192 4 5 1 0 2020 4 27 0 0 1859 4 6 1 0 3192 4
1220 18 0 1 4126 0 5 1 0 2008 4 27 0 1 1214 4 6 0 0 2124 4
1224 24 1 2 19 4 2 1 1 5 0 24 1 2 19 4 2 1 1 6 0
1228 26 0 0 1960 4 26 1 1 3094 4 6 0 0 3245 4 27 0 0 1233 4
1232 26 0 0 1783 4
PROCEDURE 490
1233 1 1 3 0 0 2 0 0 3272 4 2 0 0 3281 4
1236 24 0 2 2176 4 24 1 2 19 4 28 1 2 4 0 6 0 0 3260 4
1240 26 0 0 1996 4 24 1 2 19 4 2 1 0 5 0 24 0 1 8076 4
1244 26 0 1 1244 4 0 0 0 1250 3 0 0 0 1247 3 26 0 0 1897 4
1248 6 1 0 3094 4 2 1 0 8102 4 24 0 2 2186 4 24 1 2 15 4
1252 28 1 2 2 0 6 1 0 3092 4 2 1 0 8092 4 0 0 3 3153 4
1256 1 1 3 1 0 7 0 0 3260 4 0 0 3 3150 4 6 0 0 3260 4
1260 1 1 2 1 0 5 0 0 6719 4 27 0 1 1274 4 24 0 2 2046 4
1264 18 1 1 4123 0 1 1 3 6 0 18 1 1 5 0 24 1 2 15 4
1268 28 1 1 10 0 1 1 3 202 0 2 0 0 3272 4 26 0 0 1897 4
1272 26 0 0 1960 4 24 1 0 1324 4 6 1 0 3192 4 5 1 0 2004 4
1276 26 1 1 3068 4 27 0 0 1282 4 26 1 1 3094 4 26 0 0 1897 4
1280 26 0 0 1960 4 24 1 0 1124 4 6 0 0 6783 4 27 0 0 1317 4
1284 18 0 1 5 0 3 1 0 3044 4 26 1 3 3044 4 6 1 0 3118 4
1288 24 1 2 15 4 28 1 1 2 0 26 0 0 1897 4 26 0 0 1897 4
1292 26 0 0 1897 4 6 1 0 3120 4 24 1 2 15 4 2 1 0 4 0
1296 6 1 0 3122 4 24 1 2 15 4 2 1 0 6 0 26 0 0 1897 4
1300 24 0 3 1 4 6 0 3 87 0 26 0 0 1990 4 2 0 0 1990 4
1304 24 0 3 1 4 6 0 3 86 0 2 0 0 1897 4 0 0 3 3150 4
1308 24 0 2 2140 4 24 1 2 15 4 28 1 2 4 0 26 0 0 1897 4
1312 25 0 3 2 0 24 1 0 1300 4 26 0 0 1897 4 26 0 0 1897 4
1316 26 0 0 1897 4 24 0 2 3384 4 18 1 1 4123 0 1 1 3 1000 0
1320 18 1 1 5 0 24 0 3 1 4 28 1 1 1084 0 24 1 0 2270 4
PROCEDURE 491
1324 1 1 3 3840 0 2 1 0 3213 4 1 1 3 202 0 2 1 0 3215 4
1328 26 0 0 1818 4 1 1 3 20 0 2 0 0 8092 4 1 1 3 0 0
1332 2 1 0 3213 4 2 1 0 3215 4 26 0 0 1772 4 26 0 0 1772 4
1336 24 1 0 1223 4
PROCEDURE 492
1337 0 0 0 0 0 24 1 2 19 4 2 1 2 5 0
1340 25 0 2 2 0 24 1 0 1344 4 26 0 0 1960 4 26 1 2 3094 4
1344 26 0 1 1337 4
PROCEDURE 493
1345 0 0 0 0 0 25 0 2 2 0 24 1 0 1351 4
1348 26 0 0 1354 4 26 0 0 1574 4 26 1 2 3094 4 24 1 2 17 4
1352 6 1 2 5 0 26 0 1 1345 4
PROCEDURE 494
1354 0 0 0 0 0 0 1 0 3044 4
1356 0 0 3 0 4 0 0 2 16 4 6 1 0 3096 4 4 0 0 9 4
1360 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 3044 4
1364 26 0 1 1354 4
PROCEDURE 495
1365 24 0 1 8077 4 26 0 1 1366 4 0 0 0 1374 3
1368 0 0 0 1513 3 0 0 0 1633 3 0 0 0 1633 3 0 0 0 1680 3
1372 0 0 0 1374 3 0 0 0 1706 3
PROCEDURE 496
1374 6 1 0 3197 4 18 1 1 4126 0
1376 2 0 0 3262 4 18 1 3 1 0 2 0 0 3268 4 18 1 3 7 0
1380 2 1 0 3213 4 0 1 2 3199 4 6 1 0 3195 4 27 0 0 1401 4
1384 1 1 2 1 0 27 0 0 1432 4 1 1 2 1 0 27 0 1 1399 4
1388 15 0 0 2117 4 2 0 0 3263 4 0 0 2 3268 4 27 1 0 1394 4
1392 4 0 0 3263 4 24 1 0 1395 4 5 0 0 3263 4 24 0 1 3262 4
1396 5 0 0 3384 4 2 1 0 3215 4 24 1 0 1427 4 6 1 0 3195 4
1400 2 1 0 3213 4
PROCEDURE 497
1401 15 0 0 2117 4 2 0 0 3263 4 6 1 0 3199 4
1404 2 1 0 3215 4 0 0 2 3268 4 27 1 0 1409 4 5 0 0 3263 4
1408 2 0 0 3263 4 6 0 0 3263 4 24 0 1 3262 4 4 0 0 3384 4
1412 27 0 3 1416 4 0 0 2 2117 4 14 1 0 3215 4 24 1 0 1427 4
PROCEDURE 498
1416 6 0 0 3154 4 2 1 0 3215 4 2 1 0 3213 4 26 1 3 6783 4
1420 6 0 0 3262 4 18 0 1 5 0 4 0 0 2074 4 24 0 3 1 4
1424 2 1 3 86 0 1 1 3 2 0 7 0 0 6783 4 26 0 0 1818 4
1428 24 0 1 8076 4 26 0 1 1429 4 0 0 0 1472 3 0 0 0 1122 3
PROCEDURE 499
1432 6 0 0 2129 4 27 0 0 1445 4 0 1 0 3044 4 0 0 3 0 4
1436 6 0 0 1 4 4 0 0 8088 4 2 0 0 3050 4 0 1 1 3044 4
1440 24 0 3 3050 4 6 0 0 84 0 18 0 3 2 0 18 0 1 4125 0
1444 24 1 0 1454 4 0 0 2 2128 4 0 1 0 3044 4 0 0 3 0 4
1448 6 0 0 1 4 4 0 0 8088 4 2 0 0 3050 4 0 1 1 3044 4
1452 24 0 3 3050 4 15 0 0 84 0 24 0 1 3262 4 4 0 0 3384 4
1456 2 0 0 3262 4 0 1 2 3199 4 15 0 0 2118 4 27 0 3 1462 4
1460 4 0 0 3262 4 24 1 0 1463 4 5 0 0 3262 4 2 1 0 3215 4
1464 1 1 3 1 0 5 0 0 2129 4 3 0 0 2129 4 27 0 1 1427 4
1468 23 0 0 4097 0 0 0 0 8088 3 24 1 0 1471 4 24 1 0 1427 4
PROCEDURE 500
1472 0 1 2 3215 4 18 1 1 6 0 2 0 0 3265 4 18 1 3 1 0
1476 2 0 0 3269 4 18 1 3 2 0 2 0 0 3270 4 18 1 3 13 0
1480 2 0 0 3268 4 6 1 0 3215 4 27 0 2 1485 4 1 1 3 16 0
1484 7 0 0 3265 4
PROCEDURE 501
1485 6 1 0 3213 4 26 0 0 1990 4 2 0 0 3216 4
1488 6 0 0 3268 4 26 0 0 1990 4 2 1 0 3214 4 6 0 0 3265 4
1492 26 0 0 1990 4 2 1 0 3212 4 0 0 3 3150 4 24 0 2 2228 4
1496 0 1 0 3044 4 0 0 3 0 4 24 1 2 15 4 24 0 2 0 0
1500 4 0 0 8092 4 2 0 0 3050 4 0 1 1 3044 4 24 0 3 3050 4
1504 28 1 2 4 0 1 1 3 1 0 7 0 0 3281 4 2 0 0 3245 4
1508 23 0 0 10 0 0 0 0 8092 3 24 1 0 1122 4 26 0 0 1783 4
1512 24 1 0 1122 4
PROCEDURE 502
1513 6 1 0 3193 4 18 1 1 4126 0 2 0 0 3262 4
1516 18 1 3 1 0 2 0 0 3265 4 18 1 3 7 0 3 1 0 3213 4
1520 2 1 0 3217 4
PROCEDURE 503
1521 6 1 0 3198 4 2 1 0 3218 4 6 1 0 3197 4
1524 27 0 0 1545 4 24 0 1 3262 4 6 0 0 3384 4 1 0 1 15 0
1528 15 1 0 3197 4 2 0 0 3266 4 6 1 0 3219 4 27 0 2 1534 4
1532 5 0 0 3266 4 24 1 0 1535 4 4 0 0 3266 4 2 1 0 3219 4
1536 0 0 2 3265 4 27 1 0 1546 4 5 1 0 3219 4 27 0 0 1543 4
1540 2 1 0 3219 4 2 0 0 3265 4 24 1 0 1546 4 2 0 0 3265 4
1544 6 0 0 2122 4 2 1 0 3217 4 24 0 1 3262 4 6 0 0 3384 4
1548 4 1 0 3195 4 2 1 0 3215 4 6 0 0 3265 4 27 0 0 1554 4
1552 6 0 0 2122 4 2 1 0 3217 4 26 0 0 1818 4 6 1 0 3213 4
1556 26 0 0 1990 4 2 0 0 3266 4 0 1 2 3215 4 18 1 1 6 0
1560 1 1 3 0 0 18 1 1 4 0 26 0 0 1990 4 2 0 0 3274 4
1564 0 0 3 3150 4 1 0 1 16 0 15 1 0 3215 4 7 0 0 3266 4
1568 6 1 0 3216 4 2 1 0 3212 4 6 1 0 3218 4 2 1 0 3214 4
1572 26 0 0 1818 4 24 1 0 1584 4
PROCEDURE 504
1574 0 0 0 0 0 24 1 2 17 4
1576 24 0 2 4 0 18 1 1 4123 0 1 1 3 50 0 18 1 1 5 0
1580 24 1 2 19 4 28 1 1 4 0 26 0 0 1960 4 26 0 1 1574 4
PROCEDURE 505
1584 1 0 1 15 0 24 0 1 8076 4 26 0 1 1586 4 0 0 0 1589 3
1588 0 0 0 1122 3 15 1 0 3215 4 26 0 0 1990 4 0 0 3 3150 4
1592 2 0 0 2038 4 2 0 0 3234 4 6 1 0 3215 4 27 0 3 1599 4
1596 6 1 0 3213 4 18 0 1 4125 0 27 0 0 1601 4 1 1 3 1 0
1600 2 0 0 3234 4 26 1 3 3124 4 0 1 2 3215 4 18 1 1 6 0
1604 2 0 3 3212 4 18 1 1 1 0 25 0 3 1 0 24 1 0 1604 4
1608 26 1 3 3124 4 6 0 3 3212 4 26 0 0 1990 4 2 0 3 3212 4
1612 25 0 3 1 0 24 1 0 1609 4 0 0 3 3150 4 24 0 2 2196 4
1616 0 1 0 3044 4 0 0 3 0 4 24 1 2 15 4 24 0 2 0 0
1620 4 0 0 8092 4 2 0 0 3050 4 0 1 1 3044 4 24 0 3 3050 4
1624 28 1 2 4 0 1 1 3 2 0 7 0 0 3281 4 2 0 0 3245 4
1628 23 0 0 20 0 0 0 0 8092 3 24 1 0 1122 4 26 0 0 1783 4
1632 24 1 0 1122 4
PROCEDURE 506
1633 6 1 0 3100 4 2 1 0 8096 4 24 0 1 8096 4
1636 6 1 0 3193 4 18 1 1 4126 0 2 0 0 3262 4 18 1 1 2 0
1640 2 1 0 3213 4 0 0 2 2125 4 15 1 0 3213 4 27 0 0 1646 4
1644 6 0 0 2122 4 2 1 0 3213 4 24 0 1 8096 4 6 1 0 3195 4
1648 27 0 2 1652 4 24 0 1 3262 4 5 0 0 3384 4 24 1 0 1654 4
1652 24 0 1 3262 4 4 0 0 3384 4 2 1 0 3215 4 26 0 0 1818 4
1656 6 1 0 3215 4 24 0 1 8096 4 2 0 0 3216 4 6 1 0 3213 4
1660 24 0 1 8096 4 2 0 0 3218 4 23 0 0 4 0 0 0 0 8096 3
1664 24 1 0 1635 4 24 0 1 8076 4 26 0 1 1666 4 0 0 0 1669 3
1668 0 0 0 1122 3 24 0 2 2160 4 0 1 0 3044 4 0 0 3 0 4
1672 24 1 2 15 4 24 0 2 0 0 4 0 0 8092 4 2 0 0 3050 4
1676 0 1 1 3044 4 24 0 3 3050 4 28 1 2 4 0 24 1 0 1625 4
PROCEDURE 507
1680 6 1 0 3100 4 2 1 0 8096 4 1 1 3 0 0 2 1 0 3213 4
1684 24 0 1 8096 4 6 1 0 3192 4 2 1 0 3214 4 26 0 0 1818 4
1688 23 0 0 2 0 0 0 0 8096 3 24 1 0 1684 4 24 0 1 8076 4
1692 26 0 1 1692 4 0 0 0 1695 3 0 0 0 1122 3 6 1 0 3100 4
1696 2 1 0 8096 4 24 0 1 8096 4 6 1 0 3193 4 2 0 0 3216 4
1700 2 0 0 3218 4 26 0 0 1753 4 23 0 0 2 0 0 0 0 8096 3
1704 24 1 0 1697 4 24 1 0 1122 4
PROCEDURE 508
1706 6 1 0 3192 4 5 1 0 2024 4
1708 27 0 1 1747 4 6 1 0 3197 4 2 0 0 3262 4 6 1 0 3199 4
1712 24 0 0 3262 4 4 0 0 3384 4 5 0 0 3267 4 3 1 0 3215 4
1716 7 0 0 3267 4 1 1 3 3840 0 2 1 0 3213 4 26 0 0 1818 4
1720 24 0 1 8076 4 26 0 1 1721 4 0 0 0 1724 3 0 0 0 1122 3
1724 6 1 0 3213 4 2 0 0 3218 4 6 1 0 3215 4 2 0 0 3216 4
1728 1 1 3 1 0 2 0 0 3245 4 24 0 2 2156 4 0 1 0 3044 4
1732 0 0 3 0 4 24 1 2 15 4 24 0 2 0 0 4 0 0 8102 4
1736 2 0 0 3050 4 0 1 1 3044 4 24 0 3 3050 4 28 1 2 4 0
1740 23 0 0 10 0 0 0 0 8102 3 24 1 0 1122 4 26 0 0 1897 4
1744 6 1 0 3092 4 2 1 0 8102 4 24 1 0 1122 4 1 1 3 1 0
1748 7 0 0 3267 4 6 1 0 3199 4 2 1 0 3215 4 6 1 0 3197 4
1752 24 1 0 1718 4
PROCEDURE 509
1753 0 0 0 0 0 1 1 3 1 0 7 0 0 3281 4
1756 2 0 0 3245 4 24 0 2 2156 4 0 1 0 3044 4 0 0 3 0 4
1760 24 1 2 15 4 24 0 2 0 0 4 0 0 8092 4 2 0 0 3050 4
1764 0 1 1 3044 4 24 0 3 3050 4 28 1 2 4 0 23 0 0 10 0
1768 0 0 0 8092 3 24 1 0 1771 4 26 0 0 1783 4 26 0 1 1753 4
PROCEDURE 510
1772 0 0 0 0 0 26 0 0 1818 4 6 1 0 3215 4 2 0 0 3216 4
1776 2 0 0 3218 4 24 0 1 8076 4 26 0 1 1778 4 0 0 0 1781 3
1780 0 0 0 1782 3 26 0 0 1753 4 26 0 1 1772 4
PROCEDURE 511
1783 0 0 0 0 0
1784 6 0 0 3272 4 26 0 0 1990 4 2 0 0 2040 4 24 0 2 2226 4
1788 24 1 2 15 4 28 1 2 2 0 26 0 0 1897 4 0 0 3 3150 4
1792 6 0 0 3281 4 7 0 0 3272 4 1 1 3 0 0 2 0 0 3281 4
1796 6 1 0 3092 4 2 1 0 8092 4 26 0 1 1783 4 0 0 0 0 0
SECTION 512
1800 0 0 0 0 0 0 4£000 0
1804 0 0 0 0 0 0 0 0
1808 0 0 0 0 0 0 0 0
1812 0 0 0 0 0 0 0 0
1816 0 0 0 0
PROCEDURE 513
1818 0 0 0 0 0 6 1 0 3212 4
1820 24 1 2 19 4 2 1 1 4 0 6 1 0 3214 4 24 1 2 19 4
1824 2 1 1 6 0 25 0 1 4 0 24 1 0 1829 4 26 0 0 1960 4
1828 26 1 1 3094 4 26 0 1 1818 4
PROCEDURE 514
1830 0 0 0 0 0 0 1 0 3044 4
1832 0 0 3 0 4 0 0 2 18 4 6 1 0 3096 4 4 0 0 10 4
1836 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 3044 4
1840 26 0 1 1830 4
PROCEDURE 515
1841 0 0 0 0 0 26 0 0 1830 4 24 1 2 19 4
1844 6 1 0 4 0 5 1 0 3126 4 27 0 1 1842 4 0 1 0 3044 4
1848 0 0 3 0 4 6 1 0 3128 4 4 0 0 10 4 25 1 1 4096 0
1852 24 0 3 0 4 23 0 2 0 256 0 1 1 3044 4 26 0 1 1841 4
PROCEDURE 516
1856 0 0 0 0 0 25 0 2 8 0 24 1 0 1861 4 26 0 0 1862 4
1860 26 1 2 3098 4 26 0 1 1856 4
PROCEDURE 517
1862 0 0 0 0 0 0 1 0 3044 4
1864 0 0 3 0 4 0 0 2 20 4 6 1 0 3096 4 4 0 0 11 4
1868 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 3044 4
1872 26 0 1 1862 4
PROCEDURE 518
1873 0 0 0 0 0 24 1 2 19 4 24 0 2 4 0
1876 18 1 1 4123 0 1 1 3 50 0 18 1 1 5 0 24 1 2 21 4
1880 28 1 1 4 0 6 1 0 2020 4 24 1 2 21 4 2 1 0 52 0
1884 0 1 0 3044 4 0 0 3 0 4 0 0 2 20 4 6 1 0 3100 4
1888 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
1892 0 1 1 3044 4 6 1 0 3102 4 24 1 2 21 4 28 0 0 0 0
1896 26 0 1 1873 4
PROCEDURE 519
1897 0 0 0 0 0 0 0 3 3150 4 6 1 0 2020 4
1900 24 1 2 15 4 2 1 0 50 0 1 1 3 1 0 24 1 2 15 4
1904 2 1 0 0 0 6 0 0 6785 4 27 0 0 1916 4 24 1 2 15 4
1908 24 0 2 0 0 18 1 1 4123 0 1 1 3 54 0 18 1 1 5 0
1912 24 1 2 13 4 28 1 1 4 0 26 0 0 1952 4 24 1 0 1947 4
1916 6 0 0 6784 4 1 1 2 9 0 27 0 0 1938 4 6 0 0 3152 4
1920 24 1 2 15 4 2 0 0 1 0 6 1 0 3104 4 24 1 2 13 4
1924 28 1 1 0 0 24 1 2 15 4 24 0 2 0 0 24 1 2 13 4
1928 29 0 1 0 0 1 1 3 4 0 18 0 1 5 0 4 0 0 7 4
1932 0 0 2 12 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 160 0
1936 0 0 3 3150 4 24 1 0 1947 4 24 1 2 15 4 24 0 2 0 0
1940 18 1 1 4123 0 1 1 3 54 0 18 1 1 5 0 24 1 2 13 4
1944 28 1 1 0 0 1 1 3 9 0 24 1 0 1930 4 6 1 0 3064 4
1948 24 1 2 15 4 28 0 0 0 0 2 0 0 3245 4 26 0 1 1897 4
PROCEDURE 520
1952 0 0 0 0 0 6 1 0 3100 4 0 0 2 12 4 25 1 1 4096 0
1956 4 0 0 7 4 24 0 3 0 4 23 0 2 160 0 26 0 1 1952 4
PROCEDURE 521
1960 0 0 0 0 0 6 1 0 2020 4 24 1 2 19 4 2 1 0 52 0
1964 0 1 0 3044 4 0 0 3 0 4 0 0 2 18 4 6 1 0 3100 4
1968 4 0 0 10 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
1972 0 1 1 3044 4 6 1 0 3102 4 24 1 2 19 4 28 0 0 0 0
1976 26 0 1 1960 4
PROCEDURE 522
1977 0 0 0 0 0 24 0 2 2168 4 0 1 0 3044 4
1980 0 0 3 0 4 24 1 2 21 4 24 0 2 0 0 24 0 3 0 4
1984 4 0 0 4 22 2 0 0 3050 4 0 1 1 3044 4 24 0 3 3050 4
1988 28 0 2 4 0 26 0 1 1977 4
PROCEDURE 523
1990 0 0 0 0 0 2 1 0 2072 4
1992 0 0 3 3153 4 24 0 2 2096 4 12 1 0 2072 4 26 0 1 1990 4
PROCEDURE 524
1996 0 0 0 0 0 2 1 0 2072 4 0 0 3 3150 4 24 0 2 2076 4
2000 12 1 0 2072 4 26 0 1 1996 4
SECTION 525
2002 16773 0 53585 0
2004 7554£ 0 73786 0 35572 0 56596 0
2008 86755 0 737 0 .6656 0 72734 0
2012 65362 0 52636 0 97955 0 725 0
2016 25973 0 7 0 56554 0 67695 0
2020 7. 0 7.000 0 16973 0 72735 0
2024 35572 0 65667 0 66663 0 72676 0
2028 96653 0 676 0 46955 0 55547 0
2032 25553 0 7 0 66500 0 73596 0
2036 £6£6£ 0 6£6£6 0 0 0 0 0
2040 0 0 0 0 0 0 0 0
2044 5715Ю 0 666 0
SECTION 526
2046 36951 0 55777 0
2048 85167 0 535 0 90000 0 73556 0
2052 3££ 0 7£££0 0 5.5. 0 0 0
2056 56554 0 56595 0 45577 0 59655 0
2060 15965 0 53585 0 3044 0 30483 0
2064 96657 0 676 0 67473 0 6 0
2068 5.5. 0 0 0
SECTION 527
2070 1 0 0 0
2072 0 0 0 0 0 0 0 0
SECTION 528
2076 1 0 0 0 Ю 0 0 0
2080 64 0 0 0 3.8 0 0 0
2084 2710 0 0 0 186Ю0 0 0 0
2088 £4240 0 0 0 89680 0 9 0
2092 5.100 0 5£ 0 Ю+Ю00 0 3‼9 0
2096 1 0 0 0 16 0 0 0
2100 256 0 0 0 4096 0 0 0
2104 65536 0 0 0 48576 0 10 0
2108 77216 0 167 0 35456 0 2684 0
2112 67296 0 42949 0 £££££ 0 £££££ 0
SECTION 529
2116 7 0 1£££ 0 £.000- 0 7£ 0
2120 8000 0 6000 0 £000 0 80000 0
2124 £0000 0 80 0 £0000- 0 £ 0
2128 3££ 0 0 0 3£ 0 0 0
SECTION 530
2132 0 3216 3 5 0 0 0 0 5 0 0 3215 3 5 0 0 0 0 5 0
2136 0 3212 3 5 0 0 0 0 5 0 0 3214 3 5 0 0 0 0 5 1
2140 0 1990 3 8707 0 2 2 0 3 0 0 1897 3 16421 0 4 0 2 5 1
2144 0 2062 3 5 3 0 0 0 5 0 0 2064 3 276 3 0 1 1 4 0
2148 0 2066 3 531 3 0 2 1 3 0 0 3246 3 37 0 0 0 2 5 0
2152 0 3247 3 16421 0 4 0 2 5 0 0 2068 3 770 3 0 3 0 2 1
SECTION 531
2156 0 3216 3 16501 4 4 0 7 5 0 0 3218 3 16421 0 4 0 2 5 1
2160 0 3216 3 16501 4 4 0 7 5 0 0 3218 3 16421 0 4 0 2 5 0
2164 0 3220 3 16581 4 4 0 12 5 0 0 3222 3 16421 0 4 0 2 5 1
2168 0 3192 3 5 3 0 0 0 5 0 0 3194 3 5 3 0 0 0 5 0
2172 0 3196 3 5 3 0 0 0 5 0 0 3198 3 5 3 0 0 0 5 1
SECTION 532
2176 0 3260 3 5 0 0 0 0 5 0 0 2116 3 5 0 0 0 0 5 0
2180 0 3246 3 5 0 0 0 0 5 0 0 3247 3 5 0 0 0 0 5 0
2184 0 2002 3 5 3 0 0 0 5 1 0 2002 3 5 3 0 0 0 5 0
2188 0 3260 3 16437 0 4 0 3 5 1 0 3261 3 12564 0 3 1 1 4 0
2192 0 2044 3 1025 3 0 4 0 1 0 0 3280 3 12548 0 3 1 0 4 1
2196 0 3266 3 65 0 0 0 4 1 0 0 3274 3 12596 0 3 1 3 4 0
2200 0 3266 3 4898 0 1 3 2 2 0 0 2038 3 16453 0 4 0 4 5 0
2204 0 3212 3 4898 0 1 3 2 2 0 0 3213 3 4882 0 1 3 1 2 0
2208 0 3214 3 4882 0 1 3 1 2 0 0 3215 3 4882 0 1 3 1 2 0
2212 0 3216 3 4882 0 1 3 1 2 0 0 3234 3 1073 0 0 4 3 1 1
2216 0 3262 3 5 3 0 0 0 5 0 0 3264 3 5 3 0 0 0 5 0
2220 0 3261 3 12564 0 3 1 1 4 1 0 3212 3 5 3 0 0 0 5 0
2224 0 3214 3 5 3 0 0 0 5 1 0 2040 3 16389 0 4 0 0 5 1
SECTION 533
2228 0 3212 3 4962 0 1 3 6 2 0 0 3269 3 1057 0 0 4 2 1 0
2232 0 3270 3 1057 0 0 4 2 1 0 0 3214 3 12580 0 3 1 2 4 0
2236 0 3216 3 12564 0 3 1 1 4 1
PROCEDURE 534
2238 0 1 0 3044 4 0 0 3 0 4
2240 1 1 3 6 0 0 0 2 3148 4 25 1 1 4096 0 24 0 3 0 4
2244 23 0 2 0 1024 0 1 1 3044 4 24 0 1 8078 4 26 0 1 2247 4
2248 0 0 0 2238 3 24 0 1 8079 4 26 0 1 2250 4 0 0 0 2238 3
2252 24 0 1 8080 4 26 0 1 2253 4 0 0 0 2238 3 24 0 1 8081 4
2256 26 0 1 2256 4 0 0 0 2238 3 24 0 1 8082 4 26 0 1 2259 4
2260 0 0 0 2238 3 0 1 0 3044 4 0 0 3 0 4 0 0 2 14 4
2264 6 1 0 3100 4 4 0 0 9 4 25 1 1 4096 0 24 0 3 0 4
2268 23 0 2 0 256 0 1 1 3044 4
PROCEDURE 535
2270 6 1 0 3130 4 24 1 2 19 4
2272 28 1 1 4 0 1 1 3 85 0 24 1 2 19 4 2 1 0 4 0
2276 26 0 0 2540 4 6 1 0 2712 4 24 1 2 19 4 2 1 0 4 0
2280 6 0 0 3246 4 24 1 2 19 4 2 1 0 7 0 26 0 0 2540 4
2284 6 1 0 2722 4 24 1 2 19 4 2 1 0 6 0 6 1 0 2729 4
2288 24 1 2 19 4 2 1 0 9 0 1 1 3 4 0 24 1 2 19 4
2292 2 1 0 10 0 6 1 0 2728 4 24 1 2 19 4 2 1 0 4 0
2296 26 0 0 2540 4 6 0 0 3246 4 24 1 2 19 4 3 1 0 5 0
2300 24 1 2 19 4 2 1 0 13 0 6 0 0 3247 4 24 1 2 19 4
2304 3 1 0 7 0 24 1 2 19 4 2 1 0 15 0 1 1 3 2 0
2308 24 1 2 19 4 2 1 0 11 0 1 1 3 3 0 24 1 2 19 4
2312 3 1 0 19 0 1 1 3 2 0 4 0 0 6788 4 24 1 2 19 4
2316 2 1 0 17 0 6 1 0 2729 4 24 1 2 19 4 2 1 0 21 0
2320 26 0 0 2540 4 0 1 0 3044 4 0 0 3 0 4 6 1 0 3132 4
2324 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
2328 0 1 1 3044 4 6 1 0 3130 4 24 1 2 15 4 28 1 1 0 0
2332 26 1 1 3124 4 26 0 0 2576 4 25 0 1 1 0 24 1 0 2333 4
2336 24 0 2 2780 4 18 1 1 4123 0 1 1 3 22 0 18 1 1 5 0
2340 24 1 2 15 4 28 1 1 10 0 26 0 0 2576 4
PROCEDURE 536
2343 26 1 1 3134 4
2344 6 0 0 6782 4 27 0 0 2348 4 6 1 0 2776 4 24 1 0 2349 4
2348 6 1 0 2778 4 24 1 2 15 4 2 1 0 12 0 26 0 0 2980 4
2352 25 0 1 4 0 24 1 0 2354 4 1 1 3 0 0 2 0 0 2758 4
2356 6 0 0 8078 4 26 0 0 2966 4 26 0 0 2989 4 24 0 2 2932 4
2360 24 1 2 15 4 28 1 2 18 0 26 0 0 2980 4 25 0 1 4 0
2364 24 1 0 2365 4 1 1 3 0 0 2 0 0 2758 4 6 0 0 8079 4
2368 26 0 0 2966 4 26 0 0 2989 4 26 0 0 2980 4 0 0 3 3150 4
2372 26 0 0 2576 4 25 0 1 1 0 24 1 0 2372 4 6 0 0 3155 4
2376 2 1 0 2742 4 24 0 2 2730 4 18 1 1 4123 0 1 1 3 14 0
2380 18 1 1 5 0 24 1 2 15 4 28 1 1 6 0 25 1 1 4096 0
2384 23 0 2 2386 4 24 1 0 2392 4 0 0 0 0 0 24 0 3 0 4
2388 0 0 2 156 0 24 0 3 0 4 6 1 0 138 0 26 0 3 2386 4
2392 2 1 0 2742 4 6 0 0 8080 4 2 0 0 2724 4 24 0 2 2896 4
2396 24 1 2 15 4 28 1 2 20 0 26 0 0 2576 4 24 0 2 2802 4
2400 18 1 1 4123 0 1 1 3 8 0 18 1 1 5 0 24 1 2 15 4
2404 28 1 1 20 0 26 0 0 2576 4 6 0 0 6785 4 27 0 0 2410 4
2408 6 1 0 3136 4 24 1 0 2413 4 6 0 0 6784 4 1 1 1 20 0
2412 18 0 1 5 0 4 0 0 7 4 25 1 1 4096 0 24 0 3 0 4
2416 23 0 2 160 0 0 0 3 3150 4 0 1 0 3044 4 0 0 3 0 4
2420 0 1 2 3138 4 6 1 0 3140 4 4 0 0 10 4 25 1 1 4096 0
2424 24 0 3 0 4 23 0 2 0 256 0 1 1 3044 4 1 1 3 1 0
2428 2 0 0 2762 4 2 0 0 2762 4 0 1 0 3044 4 0 0 3 0 4
2432 0 1 2 3058 4 6 1 0 3142 4 4 0 0 11 4 25 1 1 4096 0
2436 24 0 3 0 4 23 0 2 0 256 0 0 3 3048 4 0 1 0 2756 4
2440 24 0 2 2912 4 24 1 2 21 4 28 1 2 4 0 0 1 0 3044 4
2444 0 0 3 0 4 24 1 2 21 4 24 0 2 4 0 25 1 1 4096 0
2448 24 0 3 0 4 23 0 2 0 1280 0 1 1 3044 4 26 0 0 2632 4
2452 26 0 0 2632 4 26 0 0 2656 4 1 1 3 2 0 24 1 2 19 4
2456 2 1 0 11 0 6 1 0 2714 4 24 1 2 19 4 2 1 0 12 0
2460 26 0 0 2632 4
PROCEDURE 537
2461 26 0 0 2656 4 1 1 3 2 0 4 0 0 6788 4
2464 24 1 2 19 4 2 1 0 9 0 6 0 0 3156 4 24 1 2 19 4
2468 2 1 0 13 0 26 0 0 2632 4 26 0 0 2656 4 24 1 2 19 4
2472 6 1 0 6 0 5 1 0 2722 4 27 0 0 2477 4 26 0 0 2632 4
2476 24 1 0 2470 4 26 0 0 2632 4 26 0 0 2656 4 1 1 3 2 0
2480 4 0 0 6788 4 24 1 2 19 4 2 1 0 9 0 6 0 0 3156 4
2484 24 1 2 19 4 2 1 0 13 0 26 0 0 2632 4 0 1 0 3044 4
2488 0 0 3 0 4 6 1 0 3136 4 4 0 0 11 4 25 1 1 4096 0
2492 24 0 3 0 4 23 0 2 0 256 0 1 1 3044 4 0 1 0 3044 4
2496 0 0 3 0 4 0 1 2 3138 4 6 1 0 3072 4 4 0 0 10 4
2500 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 3044 4
2504 26 1 1 3068 4 1 1 3 6 0 2 0 0 2724 4 6 0 0 6785 4
2508 27 0 0 2515 4 6 0 0 8078 4 1 1 1 0 0 27 0 1 2517 4
2512 6 0 0 6782 4 1 1 1 0 0 27 0 1 2517 4 6 0 0 6783 4
2516 27 0 0 2519 4 1 1 3 7 0 2 0 0 2724 4 6 0 0 2724 4
2520 0 0 2 3157 4 25 1 1 4096 0 24 0 3 0 4 26 0 2 0 512
2524 0 0 0 2532 3 0 0 0 2536 3 0 0 0 2995 3 0 0 0 2528 3
2528 26 0 0 2956 4 26 1 1 3144 4 24 0 3 1 4 24 1 0 43 0
2532 26 0 0 2956 4 25 1 1 4096 0 24 0 3 0 4 26 0 2 0 768
2536 26 0 0 2956 4 26 1 1 3094 4 24 0 3 1 4 24 1 0 43 0
PROCEDURE 538
2540 0 0 0 0 0 6 1 0 2726 4 24 1 2 19 4 2 1 0 52 0
2544 0 1 0 3044 4 0 0 3 0 4 0 0 2 18 4 6 1 0 3100 4
2548 4 0 0 10 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
2552 0 1 1 3044 4 6 1 0 3102 4 24 1 2 19 4 28 1 1 0 0
2556 26 0 1 2540 4
PROCEDURE 539
2557 0 0 0 0 0 0 1 0 3044 4 0 0 3 0 4
2560 0 1 2 3058 4 6 1 0 3060 4 4 0 0 11 4 25 1 1 4096 0
2564 24 0 3 0 4 23 0 2 0 256 0 0 3 3048 4 0 1 0 3044 4
2568 0 0 3 0 4 6 1 0 3128 4 4 0 0 11 4 25 1 1 4096 0
2572 24 0 3 0 4 23 0 2 0 256 0 1 1 3044 4 26 0 1 2557 4
PROCEDURE 540
2576 0 0 0 0 0 0 0 3 3150 4 6 1 0 2726 4 24 1 2 15 4
2580 2 1 0 50 0 6 0 0 2762 4 24 1 2 15 4 2 1 0 1 0
2584 1 1 3 1 0 2 0 0 2762 4 6 0 0 6785 4 27 0 0 2597 4
2588 24 1 2 15 4 24 0 2 0 0 18 1 1 4123 0 1 1 3 54 0
2592 18 1 1 5 0 24 1 2 13 4 28 1 1 4 0 26 0 0 2972 4
2596 24 1 0 2628 4 6 0 0 6784 4 1 1 2 9 0 27 0 0 2619 4
2600 6 0 0 3152 4 24 1 2 15 4 2 0 0 1 0 6 1 0 3104 4
2604 24 1 2 13 4 28 1 1 0 0 24 1 2 15 4 24 0 2 0 0
2608 24 1 2 13 4 29 0 1 0 0 1 1 3 4 0 18 0 1 5 0
2612 4 0 0 7 4 0 0 2 12 4 25 1 1 4096 0 24 0 3 0 4
2616 23 0 2 160 0 0 0 3 3150 4 24 1 0 2628 4 24 1 2 15 4
2620 24 0 2 0 0 18 1 1 4123 0 1 1 3 54 0 18 1 1 5 0
2624 24 1 2 13 4 28 1 1 0 0 1 1 3 9 0 24 1 0 2611 4
2628 6 1 0 3064 4 24 1 2 15 4 28 1 1 0 0 26 0 1 2576 4
PROCEDURE 541
2632 0 0 0 0 0 24 1 2 19 4 24 0 2 4 0 18 1 1 4123 0
2636 1 1 3 50 0 18 1 1 5 0 24 1 2 21 4 28 1 1 4 0
2640 6 1 0 2726 4 24 1 2 21 4 2 1 0 52 0 0 1 0 3044 4
2644 0 0 3 0 4 0 0 2 20 4 6 1 0 3100 4 4 0 0 11 4
2648 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 3044 4
2652 6 1 0 3102 4 24 1 2 21 4 28 1 1 0 0 26 0 1 2632 4
PROCEDURE 542
2656 0 0 0 0 0 0 1 0 3044 4 0 0 3 0 4 0 0 2 18 4
2660 6 1 0 3096 4 4 0 0 10 4 25 1 1 4096 0 24 0 3 0 4
2664 23 0 2 0 256 0 1 1 3044 4 26 0 1 2656 4
PROCEDURE 543
2667 0 0 0 0 0
2668 24 0 3 5 4 26 1 2 20 0 26 0 0 2680 4 24 0 3 5 4
2672 26 1 2 22 0 26 0 0 2680 4 24 0 3 5 4 26 1 2 24 0
2676 25 0 2 204 0 26 0 0 2680 4 26 1 1 3068 4 26 0 3 2667 4
PROCEDURE 544
2680 0 0 0 0 0 23 0 3 2810 4 24 0 3 0 4 23 1 2 0 0
2684 25 0 2 2 0 24 1 0 2682 4 26 0 1 2680 4
PROCEDURE 545
2687 0 0 0 0 0
2688 24 1 2 19 4 24 0 2 4 0 18 1 1 4123 0 1 1 3 50 0
2692 18 1 1 5 0 24 1 2 21 4 28 1 1 4 0 6 1 0 2726 4
2696 24 1 2 21 4 2 1 0 52 0 6 1 0 3064 4 24 1 2 19 4
2700 28 1 1 4 0 0 1 0 3044 4 0 0 3 0 4 0 0 2 20 4
2704 6 1 0 3100 4 4 0 0 11 4 25 1 1 4096 0 24 0 3 0 4
2708 23 0 2 0 256 0 1 1 3044 4 26 0 1 2687 4 0 0 0 0 0
SECTION 546
2712 56554 0 67695 0 15965 0 53585 0
2716 55972 0 56596 0 16773 0 53585 0
2720 36653 0 51636 0 45577 0 59655 0
2724 30 0 0 0 7. 0 7.000 0
2728 £6£6£ 0 6£6£6 0 45500 0 64515 0
2732 3048 0 52780 0 40059 0 30304 0
2736 45500 0 72727 0 7255 0 45000 0
2740 16300 0 69595 0 3030 0 44303 0
2744 71 0 0 0 66663 0 72676 0
2748 3044 0 30483 0 25572 0 64516 0
2752 77800 0 53666 0 27243 0 67517 0
2756 30 0 0 0 30 0 0 0
2760 30 0 0 0 30 0 0 0
2764 6664 0 67730 0 35554 0 59737 0
2768 25172 0 54597 0 67472 0 73696 0
2772 85569 0 66735 0 0 0 72000 0
2776 85572 0 7 0 6566 0 0 0
2780 5965 0 0 0 95366 0 73556 0
2784 0 0 54550 0 0 0 0 0
2788 95951 0 72556 0 57464 0 63006 0
2792 97200 0 52556 0 5965 0 66560 0
2796 95366 0 73556 0 6955 0 54550 0
2800 97372 0 67666 0 83030 0 7Ю304 0
2804 97272 0 30005 0 487‼ 0 74550 0
2808 7. 0 7.000 0
SECTION 547
2810 1 0 0 0
2812 Ю 0 0 0 64 0 0 0
2816 3.8 0 0 0 2710 0 0 0
2820 18600 0 0 0 £4240 0 0 0
2824 89680 0 9 0 5.100 0 5£ 0
2828 Ю+Ю00 0 3‼9 0 1 0 0 0
2832 16 0 0 0 256 0 0 0
2836 4096 0 0 0 65536 0 0 0
2840 48576 0 10 0 77216 0 167 0
2844 35456 0 2684 0 67296 0 42949 0
2848 £££££ 0 £££££ 0 1 0 0 0
2852 + 0 0 0 78 0 0 0
2856 £0 0 0 0 960 0 0 0
2860 5:+0 0 0 0 3Ю980 0 0 0
2864 49£00 0 2 0 .3600 0 16 0
2868 .1+00 0 .4 0 1 0 0 0
2872 14 0 0 0 1014 0 0 0
2876 17014 0 0 0 73014 0 2 0
2880 69014 0 43 0 5014 0 699 0
2884 81014 0 11184 0 £££££ 0 £££££ 0
2888 £££££ 0 £££££ 0 0 0 14 0
PROCEDURE 548
2892 0 0 0 0 0 6 0 0 3158 4 7 0 0 2892 4 26 0 3 2892 4
SECTION 549
2896 0 2044 3 274 3 0 1 1 2 0 0 2742 3 9234 2 2 4 1 2 0
2900 0 2744 3 1025 3 0 4 0 1 0 0 2742 3 8450 0 2 1 0 2 0
2904 0 2744 3 1025 3 0 4 0 1 0 0 2742 3 8962 0 2 3 0 2 0
2908 0 2746 3 37 3 0 0 2 5 0 0 2724 3 20501 0 5 0 1 5 1
2912 0 2748 3 37 3 0 0 2 5 0 0 2750 3 21 3 0 0 1 5 0
2916 0 2754 3 21 3 0 0 1 5 0 0 2752 3 21 3 0 0 1 5 0
2920 0 2044 3 258 3 0 1 0 2 0 0 2758 3 20501 0 5 0 1 5 0
2924 0 2068 3 770 3 0 3 0 2 1 0 3027 3 8707 0 2 2 0 3 0
2928 0 2687 3 16421 0 4 0 2 5 1 0 2756 3 12564 0 3 1 1 4 1
2932 0 7344 3 20549 0 5 0 4 5 0 0 7345 3 20501 0 5 0 1 5 0
2936 0 7346 3 20501 0 5 0 1 5 0 0 7347 3 20501 0 5 0 1 5 0
2940 0 7348 3 20501 0 5 0 1 5 0 0 7349 3 20501 0 5 0 1 5 0
2944 0 7350 3 20501 0 5 0 1 5 0 0 7351 3 20501 0 5 0 1 5 0
2948 0 7352 3 20501 0 5 0 1 5 0 0 7353 3 20501 0 5 0 1 5 0
2952 0 7354 3 20501 0 5 0 1 5 0 0 7355 3 20501 0 5 0 1 5 1
PROCEDURE 550
2956 0 0 0 0 0 0 1 0 3044 4 0 0 3 0 4 6 1 0 3128 4
2960 4 0 0 10 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256
2964 0 1 1 3044 4 26 0 1 2956 4
PROCEDURE 551
2966 0 0 0 0 0 2 0 0 2956 4
2968 0 0 3 3153 4 24 0 2 2830 4 12 0 0 2956 4 26 0 1 2966 4
PROCEDURE 552
2972 0 0 0 0 0 6 1 0 3100 4 0 0 2 12 4 25 1 1 4096 0
2976 4 0 0 7 4 24 0 3 0 4 23 0 2 160 0 26 0 1 2972 4
PROCEDURE 553
2980 0 0 0 0 0 6 1 1 2764 4 24 1 2 15 4 2 1 0 6 0
2984 6 1 1 2766 4 24 1 2 15 4 2 1 0 8 0 26 0 0 2576 4
2988 26 0 1 2980 4
PROCEDURE 554
2989 0 0 0 0 0 2 0 0 2756 4 24 0 2 2930 4
2992 24 1 2 15 4 28 1 2 12 0 26 0 1 2989 4
PROCEDURE 555
2995 26 0 0 2956 4
2996 26 0 0 2892 4 26 1 1 3076 4 1 1 3 14 0 24 0 3 5 4
3000 24 0 3 67 0 23 1 0 0 0 1 1 3 2 0 7 0 0 5 4
3004 25 0 1 1 0 24 1 0 2998 4 1 1 3 14 0 24 0 3 5 4
3008 23 1 0 106 0 0 1 0 3044 4 0 0 3 0 4 1 1 3 8 0
3012 0 0 2 3149 4 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 1024
3016 0 1 1 3044 4 24 0 3 1 4 24 1 0 33 0 0 1 0 3044 4
3020 0 0 3 0 4 1 1 3 7 0 0 0 2 3148 4 25 1 1 4096 0
3024 24 0 3 0 4 23 0 2 0 1024 0 1 1 3044 4
PROCEDURE 556
3027 0 0 0 0 0
3028 6 1 0 3146 4 24 1 2 19 4 2 1 0 52 0 0 1 0 3044 4
3032 0 0 3 0 4 0 0 2 18 4 6 1 0 3100 4 4 0 0 10 4
3036 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 256 0 1 1 3044 4
3040 6 1 0 3064 4 24 1 2 19 4 28 1 1 4 0 26 0 1 3027 4
SECTION 1023
3044 0 0 0 0 0 0 0 0
3048 0 0 0 0 0 0 0 0
3052 0 0 0 0 0 0 0 0
3056 0 0 0 0 8004 0 5146 0
3060 0 0 11 0 0 0 20028 0
3064 0 0 20032 0 0 0 2000. 0
3068 0 0 0 0 6 0 Ю 0
3072 0 0 24 0 0 0 27 0
3076 0 0 Ю 0 0 0 . 0
3080 36653 0 51636 0 0 0 4 0
3084 0 0 1 0 :5:5: 0 5:5:5 0
3088 0 0 2001£ 0 9+3 0 0 0
3092 0 0 28 0 0 0 30 0
3096 0 0 7 0 0 0 90 0
3100 0 0 8 0 0 0 20034 0
3104 0 0 20180 0 0 0 20438 0
3108 0 0 9 0 £££££ 0 4 0
3112 37354 0 5 0 57354 0 53666 0
3116 37455 0 75516 0 0 0 2002. 0
3120 60000 0 69555 0 65369 0 67696 0
3124 0 0 5 0 55972 0 56596 0
3128 0 0 1‼ 0 0 0 20030 0
3132 0 0 22 0 0 0 : 0
3136 0 0 1+ 0 3 0 Ю 0
3140 0 0 23 0 0 0 12 0
3144 2 0 30 0 7. 0 7.000 0
SECTION 1024
3148 2 0 1 0 0 0 2001 0
3152 80000 0 66666 0 78000- 0 30 0
3156 £££££ 0 4 0 £0000 0 3 0
SECTION 1025
PROCEDURE 1006
CHAPT 7
PROCEDURE 0
0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 0 0 0 0 3
4 0 0 0 0 4 0 0 0 0 5 0 0 0 0 6 0 0 0 0 7
8 0 0 0 0 8 0 0 0 0 9 0 0 0 0 10 0 0 0 0 11
12 0 0 0 0 12 0 0 0 0 13 0 0 0 0 14 0 0 0 0 15
16 0 0 0 0 16 0 0 0 0 17 0 0 0 0 18 0 0 0 0 19
20 0 0 0 0 20 0 0 0 0 21 0 0 0 0 22 0 0 0 0 23
24 0 0 0 0 24 0 0 0 0 25 0 0 0 0 0 25 1 1 4096 0
28 24 0 3 0 4 23 0 2 0 1792 0 0 0 0 0 0 0 0 0 0
32 26 0 1 26 4
PROCEDURE 557
33 0 0 0 0 0
SECTION 1026
34 0 0 0 0
36 0 0 0 0 0 0 0 0
40 0 0 0 0 0 0 0 0
44 0 0 0 0 0 0 0 0
48 8004 0 5146 0
SECTION 1027
SECTION 1028
PROCEDURE 1007
CHAPT 8
PROCEDURE 0
0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 0 0 0 0 3
4 0 0 0 0 4 0 0 0 0 5 0 0 0 0 6 0 0 0 0 7
8 0 0 0 0 8 0 0 0 0 9 0 0 0 0 10 0 0 0 0 11
12 0 0 0 0 12 0 0 0 0 13 0 0 0 0 14 0 0 0 0 15
16 0 0 0 0 16 0 0 0 0 17 0 0 0 0 18 0 0 0 0 19
20 0 0 0 0 20 0 0 0 0 21 0 0 0 0 22 0 0 0 0 23
24 0 0 0 0 24 0 0 0 0 25 0 0 0 0 0 25 1 1 4096 0
28 24 0 3 0 4 23 0 2 0 1792 0 0 0 0 0 0 0 0 0 0
32 26 0 1 26 4
PROCEDURE 558
33 0 0 0 0 0
SECTION 1029
34 0 0 0 0
36 0 0 0 0 0 0 0 0
40 0 0 0 0 0 0 0 0
44 0 0 0 0 0 0 0 0
48 8004 0 5146 0
SECTION 1030
SECTION 1031
PROCEDURE 1008
CHAPT 9
PROCEDURE 0
0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 0 0 0 0 3
4 0 0 0 0 4 0 0 0 0 5 0 0 0 0 6 0 0 0 0 7
8 0 0 0 0 8 0 0 0 0 9 0 0 0 0 10 0 0 0 0 11
12 0 0 0 0 12 0 0 0 0 13 0 0 0 0 14 0 0 0 0 15
16 0 0 0 0 16 0 0 0 0 17 0 0 0 0 18 0 0 0 0 19
20 0 0 0 0 20 0 0 0 0 21 0 0 0 0 22 0 0 0 0 23
24 0 0 0 0 24 0 0 0 0 25 0 0 0 0 0 25 1 1 4096 0
28 24 0 3 0 2 23 0 2 0 1792 0 0 0 0 0 0 0 0 0 0
32 26 0 1 26 2
PROCEDURE 559
33 0 0 3 194 2 25 1 1 4096 0 23 0 2 36 2
36 23 0 2 36 2 23 0 3 0 2 1 1 2 1 0 27 0 1 150 2
40 24 1 0 82 2 24 1 0 47 2 24 1 0 45 2 24 1 0 45 2
44 24 1 0 45 2 1 1 3 10 0 24 1 0 94 2 26 1 0 11 0
48 24 1 0 54 2 24 1 0 52 2 24 1 0 52 2 24 1 0 52 2
52 1 1 3 11 0 24 1 0 94 2 26 1 0 18 0 24 1 0 61 2
56 24 1 0 59 2 24 1 0 59 2 24 1 0 59 2 1 1 3 18 0
60 24 1 0 94 2 26 1 0 34 0 24 1 0 68 2 24 1 0 66 2
64 24 1 0 66 2 24 1 0 66 2 1 1 3 34 0 24 1 0 94 2
68 26 1 0 42 0 24 1 0 75 2 24 1 0 73 2 24 1 0 73 2
72 24 1 0 73 2 1 1 3 42 0 24 1 0 94 2 26 1 0 50 0
76 24 1 0 82 2 24 1 0 80 2 24 1 0 80 2 24 1 0 80 2
80 1 1 3 50 0 24 1 0 94 2 26 1 0 58 0 24 1 0 142 2
84 24 1 0 87 2 24 1 0 87 2 24 1 0 87 2 26 1 0 63 0
88 24 1 0 93 2 24 1 0 142 2 24 1 0 142 2 24 1 0 142 2
92 24 1 0 142 2 1 1 3 58 0 2 0 0 34 2
PROCEDURE 560
95 6 0 0 141 2
96 24 0 3 0 2 1 1 2 3964 0 24 0 3 0 2 24 0 3 3 0
100 3 0 0 22 0 3 0 0 3 2 1 1 1 2091 0 2 0 0 33 2
104 24 0 1 3 2 1 1 3 0 0 2 0 0 4 2 24 0 2 0 2
108 4 1 0 192 2 24 0 3 3 2 28 0 0 0 0 0 1 0 178 2
112 0 0 3 0 2 1 1 3 9 0 0 0 2 195 2 25 1 1 4096 0
116 24 0 3 0 2 23 0 2 0 1024 0 1 1 178 2
PROCEDURE 561
119 25 1 1 4096 0
120 23 0 2 121 2 0 0 0 0 0 24 0 3 0 2 24 0 3 2 0
124 24 0 3 6 0 6 0 0 2 0 5 0 0 139 2 4 0 0 34 2
128 27 0 0 137 2 1 1 3 248 0 18 1 0 4118 0 24 0 3 5 2
132 24 0 3 32 0 15 0 0 24 0 18 1 0 4118 0 6 0 0 34 2
136 26 0 1 33 2 25 1 0 4096 0 24 1 0 119 2 26 1 0 0 0
PROCEDURE 562
140 0 0 1 4096 0 0 0 1 8190 0 0 1 0 178 2 0 0 3 0 2
144 24 0 2 160 2 25 1 1 4096 0 24 0 3 0 2 23 0 2 0 1280
148 0 1 1 178 2 24 1 0 33 2 0 1 0 178 2 0 0 3 0 2
152 24 0 2 168 2 25 1 1 4096 0 24 0 3 0 2 23 0 2 0 1280
156 0 1 1 178 2 25 1 1 4096 0 24 0 3 0 2 26 0 2 0 768
SECTION 563
160 86755 0 6£737 0 97355 0 76695 0
164 36366 0 69005 0 45.5. 0 72555 0
168 60065 0 6£546 0 7359 0 66730 0
172 25851 0 64557 0 3049 0 69550 0
176 5.5. 0 30303 0
SECTION 1032
178 0 0 0 0
180 0 0 0 0 0 0 0 0
184 0 0 0 0 0 0 0 0
188 0 0 0 0 0 0 0 0
192 0 0 16 0
SECTION 1033
194 0 0 2 0
196 0 0 2001 0
SECTION 1034
PROCEDURE 1009
CHAPT 10
PROCEDURE 0
0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 0 0 0 0 3
4 0 0 0 0 4 0 0 0 0 5 0 0 0 0 6 0 0 0 0 7
8 0 0 0 0 8 0 0 0 0 9 0 0 0 0 10 0 0 0 0 11
12 0 0 0 0 12 0 0 0 0 13 0 0 0 0 14 0 0 0 0 15
16 0 0 0 0 16 0 0 0 0 17 0 0 0 0 18 0 0 0 0 19
20 0 0 0 0 20 0 0 0 0 21 0 0 0 0 22 0 0 0 0 23
24 0 0 0 0 24 0 0 0 0 25 0 0 0 0 0 25 1 1 4096 0
28 24 0 3 0 4 23 0 2 0 1792 0 0 0 0 0 0 0 0 0 0
32 26 0 1 26 4 0 0 0 0 0
SECTION 564
34 0 0 0 0
36 0 0 0 0 0 0 0 0
40 0 0 0 0 0 0 0 0
SECTION 565
44 0 0 18 0 19 0 0 0
48 0 0 0 0 0 0 0 0
52 0 0 0 0 0 0 0 0
SECTION 566
56 0 0 0 0 66666 0 0 0
60 .000 0 0 0 0 0 4000 0
64 0 0 0 0 2000 0 0 0
68 0 0 3+00 0
PROCEDURE 567
70 0 0 1 3259 4 0 0 0 704 0
72 0 0 1 2939 4 0 0 0 1024 0 14 0 1 2934 4 2 0 0 1 0
76 26 0 1 30 0
PROCEDURE 568
77 0 0 0 0 0 25 1 1 4096 0 24 0 2 81 4
80 2 0 1 30 0 26 0 3 82 4 15 0 1 83 4 25 1 1 4096 0
84 26 0 1 77 4
PROCEDURE 569
85 0 0 0 0 0 0 0 3 58 4 1 0 1 3 0
88 1 1 3 1 0 15 1 0 57 4 0 0 3 59 4 14 1 0 3 4
92 1 0 1 15 0 6 1 0 2 4 14 1 0 56 4 26 0 1 85 4
PROCEDURE 570
96 0 0 0 0 0 24 0 3 53 4 19 0 1 0 0 26 0 0 85 4
100 24 0 3 53 4 26 1 0 0 0 0 0 0 259 0 24 1 0 100 4
104 24 1 0 112 4 24 1 0 106 4 24 0 3 53 4 24 0 3 64 0
108 6 1 0 1 0 5 1 0 57 4 27 0 1 117 4 26 0 1 96 4
112 0 0 0 261 0 24 0 3 53 4 19 1 2 0 0 0 0 0 261 0
116 24 1 0 115 4 0 0 0 270 0 24 0 3 53 4 19 1 2 0 0
120 0 0 0 270 0 24 1 0 120 4
PROCEDURE 571
122 0 0 0 0 0 25 1 1 8191 0
124 25 1 0 127 0 0 0 3 59 4 24 1 1 59 4 26 1 1 60 4
128 6 0 0 76 4 2 0 1 9 0 26 0 0 77 4
PROCEDURE 572
131 26 1 2 62 4
132 6 0 0 60 4 7 0 1 4 0 7 0 1 5 0 1 1 3 14 0
136 23 1 2 0 0 25 0 2 2 0 24 1 0 136 4 25 1 2 0 0
140 2 0 1 1 0 6 1 0 74 4 28 0 0 0 4 6 0 1 1 0
144 3 0 0 54 4 27 0 0 149 4 25 1 2 0 0 23 1 1 0 0
148 23 1 1 32 0 1 1 3 15 0 23 1 0 3964 4 23 1 1 140 0
152 23 1 1 142 0 23 1 1 144 0 23 1 1 146 0 23 1 1 148 0
156 23 1 1 150 0 23 1 1 152 0 26 0 1 122 4
PROCEDURE 573
159 0 0 1 204 4
160 26 0 0 96 4 6 1 0 72 4 24 0 3 59 4 24 0 3 4 0
164 28 1 0 0 0 6 0 1 129 0 2 0 0 53 4 25 0 2 512 0
168 24 1 0 160 4 26 0 1 159 4
PROCEDURE 574
170 26 0 0 122 4 6 0 1 129 0
172 2 0 0 53 4 6 0 0 42 4 18 0 0 4127 0 4 0 0 37 4
176 2 0 1 153 0 1 0 1 3 0 6 0 0 35 4 14 0 1 144 0
180 14 0 1 145 0 1 1 1 64 0 14 0 1 143 0
PROCEDURE 575
183 24 0 3 53 4
184 24 0 3 64 0 6 1 0 0 0 2 1 0 56 4 6 0 0 74 4
188 24 0 3 53 4 2 0 0 64 0 26 1 2 64 4
PROCEDURE 576
191 26 0 0 96 4
192 6 1 0 70 4 24 0 3 59 4 28 1 0 160 0 25 0 2 512 0
196 6 0 0 74 4 24 0 3 53 4 2 0 0 64 0 26 0 0 159 4
200 26 1 2 66 4 26 0 0 159 4 26 1 2 68 4 26 0 0 159 4
PROCEDURE 577
204 6 1 0 2574 4 28 0 0 44 4 6 1 0 2556 4 28 0 0 2130 4
208 2 0 1 1 0 6 1 0 74 4 28 0 0 0 4 6 0 1 1 0
212 3 0 0 54 4 27 0 0 218 4 6 0 0 2178 4 2 0 0 2175 4
216 6 0 0 2180 4 24 1 0 221 4 6 0 0 2179 4 2 0 0 2175 4
220 6 0 0 2181 4 2 0 0 2177 4
PROCEDURE 578
222 25 1 2 4095 0 1 1 2 3072 0
224 27 0 1 233 4 25 1 1 4095 0 25 1 2 4095 0 27 0 0 226 4
228 25 1 2 4032 0 27 0 1 225 4 25 1 2 63 0 3 0 0 34 4
232 2 0 0 44 4 25 1 1 4032 0 25 1 0 127 0 6 0 0 44 4
236 1 1 2 46 0 27 0 2 243 4 1 1 1 32 0 27 0 2 242 4
240 1 1 3 1 0 24 1 0 243 4 1 1 2 38 0 2 0 0 2148 4
244 6 0 0 2119 4 24 0 3 44 4 2 0 0 64 0 2 1 1 154 0
248 6 0 0 2122 4 3 0 1 1 0 3 0 1 17 0 2 0 1 25 0
252 24 0 2 2078 4 2 0 1 31 0 6 0 0 2149 4 27 0 0 258 4
256 26 0 0 1465 4 24 1 0 384 4
PROCEDURE 579
258 6 0 0 2135 4 27 0 0 261 4
260 26 0 0 1865 4 6 0 0 2128 4 2 0 1 30 0 25 1 0 4096 0
264 6 0 0 2148 4 27 0 1 268 4 6 1 0 2428 4 24 1 0 269 4
268 6 1 0 2426 4 2 1 1 154 0 24 0 3 44 4 19 0 0 0 0
272 26 1 3 62 4 25 0 3 1 0 24 1 0 273 4 26 0 0 1811 4
276 24 0 2 2302 4 26 0 0 1937 4 24 1 0 260 4 26 0 0 77 4
280 26 0 0 1817 4 6 1 0 2424 4 24 0 3 2490 4 2 1 0 0 0
PROCEDURE 580
284 6 0 0 48 4 27 0 0 296 4 26 0 0 2010 4 6 0 1 156 0
288 27 0 1 294 4 26 0 0 2018 4 24 1 0 287 4 24 0 2 2278 4
292 26 0 0 1937 4 24 1 0 289 4 6 1 0 2616 4 24 1 0 297 4
296 6 1 0 2618 4 3 1 0 2606 4 2 1 0 2612 4
PROCEDURE 581
299 6 0 0 49 4
300 27 0 0 309 4 26 0 0 2005 4 6 0 1 157 0 27 0 1 309 4
304 26 0 0 2018 4 24 1 0 302 4 24 0 2 2382 4 26 0 0 1937 4
308 24 1 0 304 4
PROCEDURE 582
309 6 0 0 54 4 27 0 1 321 4 26 0 0 2005 4
312 24 0 2 320 4 2 0 1 31 0 0 0 1 59 4 26 0 0 2018 4
316 24 1 0 314 4 24 0 2 2388 4 26 0 0 1937 4 24 1 0 315 4
320 26 0 0 77 4
PROCEDURE 583
321 6 0 0 50 4 27 0 0 336 4 26 0 0 2005 4
324 24 0 2 335 4 2 0 1 31 0 2 1 1 6 0 26 0 2 328 4
328 0 0 0 0 0 15 1 3 3965 4 26 0 0 2018 4 24 1 0 327 4
332 24 0 2 2326 4 26 0 0 1937 4 24 1 0 330 4 26 0 0 77 4
PROCEDURE 584
336 26 0 0 2005 4 24 0 2 347 4 2 0 1 31 0 0 0 3 2190 4
340 1 1 1 1 0 0 0 3 2930 4 26 0 0 2018 4 24 1 0 337 4
344 24 0 2 2364 4 26 0 0 1937 4 24 1 0 342 4 0 0 3 2930 4
348 26 0 0 77 4 24 0 2 2078 4 2 0 1 31 0
PROCEDURE 585
351 25 1 1 2047 0
352 25 1 0 128 0 26 0 0 1805 4 2 1 1 156 0 24 0 2 2420 4
356 26 0 0 1937 4 24 0 2 2626 4 24 0 3 2490 4 28 1 2 4 0
PROCEDURE 586
360 25 1 2 15 0 27 0 1 363 4 26 0 0 1865 4 3 0 0 394 4
364 3 0 0 404 4 18 0 0 1 0 3 0 0 2359 4 3 0 0 2363 4
368 25 1 2 1919 0 25 1 1 2047 0 1 1 2 5 0 27 0 3 388 4
372 1 1 2 11 0 27 0 2 379 4 1 1 1 2 0 27 0 2 388 4
376 1 1 3 5 0 2 0 0 394 4 24 1 0 388 4 25 1 0 128 0
380 26 0 0 1811 4 24 0 2 2360 4 26 0 0 1937 4 24 1 0 362 4
384 1 1 3 1 0 2 0 0 2132 4 25 1 0 127 0 24 1 0 415 4
PROCEDURE 587
388 26 0 0 1805 4 24 0 2 2356 4 26 0 0 1937 4 25 1 2 0 0
392 24 0 1 394 4 24 1 0 394 4 0 0 0 0 0 24 1 0 1158 4
396 24 1 0 386 4 24 1 0 1159 4 24 1 0 384 4 6 0 0 404 4
400 1 1 2 4 0 2 0 1 180 0 24 1 0 351 4 0 0 0 0 0
404 0 0 0 0 0 1 1 3 492 0 7 0 0 19 0 24 1 0 0 0
408 24 0 2 1158 4 27 0 1 411 4 24 0 2 386 4 0 0 2 414 4
412 14 0 0 407 4 24 1 0 405 4 0 0 0 8191 0
PROCEDURE 588
415 6 0 0 53 4
416 1 1 1 1 0 3 0 0 2153 4 1 1 1 1 0 3 0 0 2154 4
420 1 1 1 1 0 2 0 0 2155 4 6 0 0 74 4 24 0 3 2153 4
424 3 0 0 64 0 24 0 3 2154 4 3 0 0 64 0 24 0 3 2155 4
428 3 0 0 64 0 24 0 3 45 4 3 0 0 64 0 24 0 3 46 4
432 2 0 0 64 0
PROCEDURE 589
433 6 0 0 45 4 26 0 0 1422 4 2 1 0 2934 4
436 26 0 0 1434 4 25 1 0 0 0 26 0 0 1485 4 6 0 0 2149 4
440 27 0 1 444 4 6 1 0 2934 4 5 1 0 2444 4 27 0 0 506 4
444 6 1 0 2934 4 5 1 0 2422 4 27 0 0 454 4 26 0 0 1405 4
448 6 1 0 2934 4 2 1 0 2350 4 24 0 2 2350 4 26 0 0 1937 4
452 26 0 0 1481 4 24 1 0 436 4
PROCEDURE 590
454 2 0 0 2149 4 6 1 0 2558 4
456 28 0 0 2224 4 24 0 2 2620 4 28 0 3 2934 4 26 1 2 2156 4
460 25 1 2 0 0 0 0 2 2206 4 15 0 2 2224 4 27 0 1 500 4
464 24 0 2 2256 4 12 0 2 2224 4 2 0 2 34 4 25 0 2 1 0
468 24 1 0 461 4 6 0 0 2227 4 27 0 0 500 4 1 1 2 9 0
472 27 0 2 500 4 6 0 0 2232 4 27 0 0 480 4 1 1 2 5 0
476 27 0 2 500 4 6 0 0 2227 4 1 1 2 5 0 27 0 2 500 4
480 6 0 0 2227 4 18 0 0 3 0 18 0 3 1 0 2 0 0 37 4
484 6 0 0 2232 4 18 0 0 3 0 18 0 3 1 0 2 0 0 42 4
PROCEDURE 591
488 26 1 2 2158 4 6 0 2 2228 4 27 0 0 492 4 1 1 3 1 0
492 2 0 2 38 4 25 0 2 1 0 24 1 0 489 4 26 0 0 1805 4
496 24 0 2 2680 4 24 0 3 2490 4 28 1 2 2 0 24 1 0 452 4
PROCEDURE 592
500 26 0 0 1805 4 6 0 2 2210 4 2 0 0 2274 4 24 0 2 2272 4
504 3 0 0 2149 4 24 1 0 451 4
PROCEDURE 593
506 6 1 0 2937 4 26 0 0 1942 4
508 24 1 0 452 4 26 0 0 1485 4 6 1 0 2938 4 18 0 0 4120 0
512 1 1 2 126 0 27 0 1 515 4 2 1 0 2938 4 6 1 0 2935 4
516 27 0 0 527 4 5 0 0 2150 4 27 0 1 525 4 6 1 0 2937 4
520 5 0 0 2151 4 27 0 1 525 4 6 1 0 2939 4 5 0 0 2152 4
524 27 0 0 538 4 6 1 0 2939 4 27 0 0 534 4 26 0 0 1805 4
528 24 0 2 2372 4 26 0 0 1937 4 24 0 2 2634 4 24 0 3 2490 4
532 28 1 2 6 0 24 1 0 452 4 1 1 3 1 0 2 0 0 2134 4
536 6 1 0 2578 4 28 1 0 2150 4
PROCEDURE 594
538 26 0 0 1485 4 6 1 0 2576 4
540 28 1 0 2141 4 26 1 2 2160 4 6 0 2 2141 4 5 0 0 2207 4
544 27 0 0 548 4 25 0 2 1 0 24 1 0 542 4 24 1 0 551 4
548 3 0 2 2141 4 25 0 2 1 0 24 1 0 548 4
PROCEDURE 595
551 26 0 0 1485 4
552 6 1 0 2934 4 5 1 0 2446 4 27 0 0 559 4 6 1 0 2935 4
556 2 0 0 2130 4 6 1 0 2937 4 24 1 0 564 4 1 1 3 1 0
560 2 0 0 2133 4 6 1 0 2937 4 2 0 0 2130 4 6 1 0 2939 4
564 3 0 0 2131 4 5 0 0 2207 4 27 0 1 568 4 2 0 0 2131 4
568 6 0 0 2130 4 5 0 0 2207 4 27 0 1 572 4 2 1 0 2130 4
572 26 0 0 1485 4 6 0 0 2431 4 2 0 0 2937 4 24 0 2 2624 4
576 28 0 3 2934 4 26 0 0 1481 4 6 1 0 2132 4 27 0 1 581 4
580 26 0 0 1465 4
PROCEDURE 596
581 6 0 0 2134 4 27 0 0 749 4 6 0 0 2153 4
584 26 0 0 1422 4 6 0 1 175 0 2 0 0 2237 4 26 0 0 1491 4
588 6 1 0 2941 4 2 0 0 3937 4 26 0 0 1521 4 6 1 0 2949 4
592 3 0 0 2225 4 18 0 0 4126 0 1 1 2 128 0 27 0 1 600 4
596 6 1 0 2940 4 18 0 0 4126 0 1 1 2 81 0 27 0 0 606 4
600 26 0 0 1805 4 24 0 2 2702 4 24 0 3 2490 4 28 1 2 2 0
604 26 0 0 1476 4 24 1 0 587 4 26 0 0 1783 4
PROCEDURE 597
607 26 0 0 1521 4
608 6 1 0 2940 4 5 1 0 2448 4 27 0 1 607 4 26 0 0 1521 4
612 26 1 2 2164 4 6 1 2 2939 4 5 0 0 2190 4 27 0 1 620 4
616 26 0 0 1805 4 24 0 2 2376 4 26 0 0 1937 4 24 1 0 604 4
620 6 1 2 2939 4 5 0 0 2150 4 27 0 1 628 4 6 1 2 2941 4
624 5 0 0 2151 4 27 0 1 628 4 6 1 2 2943 4 27 0 1 631 4
628 25 0 2 8 0 24 1 0 613 4 24 1 0 611 4
PROCEDURE 598
631 26 0 0 1521 4
632 6 1 0 2939 4 5 0 0 2190 4 27 0 1 639 4 1 0 1 1 0
636 15 0 0 2940 4 1 1 2 5 0 27 0 0 647 4 6 1 0 2944 4
640 5 1 0 2450 4 27 0 1 631 4 26 0 0 1499 4 26 0 0 1506 4
644 6 1 0 2935 4 2 0 0 56 4 24 1 0 632 4 6 1 0 2943 4
648 5 0 0 2150 4 27 0 1 642 4 6 1 0 2945 4 5 0 0 2151 4
652 27 0 1 642 4
PROCEDURE 599
653 26 0 0 1521 4 6 1 0 2976 4 5 1 0 2452 4
656 27 0 0 664 4 6 1 0 2939 4 5 0 0 2190 4 27 0 1 653 4
660 6 1 0 2941 4 1 1 2 6 0 27 0 0 653 4 26 0 0 1521 4
PROCEDURE 600
664 26 1 2 2158 4 6 0 0 2881 4 2 0 0 2263 4 2 0 0 2264 4
668 6 1 0 2959 4 4 0 0 2261 4 2 0 0 2266 4 0 0 2 2220 4
672 15 0 0 2266 4 1 1 1 512 0 2 0 0 65 4 6 0 0 2266 4
676 5 0 0 2881 4 27 0 3 682 4 7 0 0 2263 4 2 0 0 2264 4
680 6 0 0 66 4 2 0 0 65 4
PROCEDURE 601
682 26 0 0 1521 4 6 1 0 2941 4
684 1 1 2 7 0 27 0 1 682 4 6 1 0 2946 4 5 1 0 2454 4
688 27 0 1 682 4
PROCEDURE 602
689 6 0 2 2261 4 2 0 0 2266 4 26 1 3 2164 4
692 26 0 0 1521 4 6 0 0 2266 4 1 1 2 160 0 27 0 3 730 4
696 6 0 0 53 4 1 1 2 128 0 27 0 3 704 4 6 0 0 2266 4
700 1 1 2 192 0 27 0 3 704 4 1 1 2 4 0 27 0 3 730 4
704 6 1 3 2939 4 5 0 0 2208 4 27 0 0 740 4 4 0 0 2209 4
708 27 0 1 713 4 6 1 0 2580 4 24 0 3 2266 4 28 1 0 0 0
712 24 1 0 730 4
PROCEDURE 603
713 1 0 1 1 0 25 1 2 0 0 15 1 3 2938 4
716 2 1 3 2938 4 6 1 3 2941 4 27 0 3 724 4 24 0 3 59 4
720 24 0 1 6 0 24 0 1 2938 4 4 0 0 2260 4 24 1 0 728 4
724 24 0 3 59 4 24 0 1 6 0 24 0 1 2938 4 5 0 0 2260 4
728 24 0 3 2266 4 2 0 0 0 0
PROCEDURE 604
730 23 0 0 1 0 0 0 0 2266 3
732 24 1 0 737 4 26 0 0 1805 4 24 0 2 2334 4 26 0 0 1937 4
736 24 1 0 2078 4 25 0 3 4 0 24 1 0 693 4 24 1 0 691 4
740 25 0 2 2 0 24 1 0 682 4 26 0 0 1476 4 6 0 0 2237 4
744 2 0 1 175 0 0 0 2 2220 4 15 0 0 2266 4 1 1 1 512 0
748 2 0 0 67 4
PROCEDURE 605
749 24 0 2 2738 4 28 1 2 2238 4 6 0 0 2130 4
752 27 0 0 807 4 6 0 0 2154 4 26 0 0 1422 4 2 0 0 2134 4
756 26 0 0 1491 4 6 1 0 2941 4 27 0 0 788 4 3 0 0 61 4
760 5 0 0 2130 4 27 0 0 798 4 6 1 0 2941 4 5 0 0 2131 4
764 27 0 0 796 4 6 0 0 2130 4 4 0 0 2222 4 27 0 1 771 4
768 6 1 0 2941 4 2 0 0 2130 4 24 1 0 776 4 6 0 0 2131 4
772 4 0 0 2222 4 27 0 1 788 4 6 1 0 2941 4 2 0 0 2131 4
776 6 1 0 2239 4 5 0 0 2222 4 27 0 1 782 4 6 1 0 2940 4
780 2 1 0 2238 4 24 1 0 757 4 6 1 0 2241 4 5 0 0 2222 4
784 27 0 1 757 4 6 1 0 2940 4 2 1 0 2240 4 24 1 0 757 4
788 26 0 0 1805 4 24 0 2 2394 4 26 0 0 1937 4 24 0 2 2724 4
792 24 0 3 2490 4 28 1 2 6 0 26 0 0 1476 4 24 1 0 756 4
796 6 0 0 2130 4 2 0 0 2131 4 26 0 0 1805 4 6 0 0 2931 4
800 2 1 0 3934 4 24 0 2 2790 4 24 0 3 2490 4 28 1 2 2 0
804 26 0 0 2084 4 24 0 3 2186 4 19 1 1 0 0
PROCEDURE 606
807 6 0 0 2141 4
808 27 0 0 1040 4 6 0 0 46 4 26 0 0 1422 4 1 1 3 1 0
812 0 0 3 2932 4 7 0 0 2152 4 0 0 3 2930 4 26 1 2 2160 4
816 25 1 2 0 0 2 0 0 2146 4 26 0 0 1434 4 25 1 0 0 0
820 24 0 3 2186 4 19 0 1 0 0 6 1 0 2558 4 28 0 0 2224 4
824 26 0 0 1434 4 24 1 0 893 4 24 0 2 2622 4 28 0 3 2934 4
828 6 1 0 2230 4 0 1 2 2232 4 27 1 0 863 4 1 1 3 18 0
PROCEDURE 607
832 2 0 0 2344 4 26 0 0 1805 4 24 0 2 2342 4 26 0 0 1937 4
836 26 1 3 2162 4 1 0 1 1792 0 15 1 3 2934 4 15 1 0 2410 4
840 27 0 0 852 4 15 1 0 2414 4 27 0 1 845 4 6 1 0 2416 4
844 14 1 3 2934 4 25 1 2 0 0 18 1 0 4126 0 27 1 1 838 4
848 25 0 3 2 0 24 1 0 837 4
PROCEDURE 608
850 25 0 3 4098 0 24 1 0 854 4
852 6 1 0 2418 4 14 1 3 2934 4 6 1 0 2276 4 2 1 3 2936 4
856 6 1 0 2602 4 24 0 3 2490 4 28 1 1 8 0 26 0 0 1481 4
860 6 0 0 2146 4 27 0 3 2078 4 24 1 0 816 4
PROCEDURE 609
863 6 0 0 2229 4
864 27 0 0 917 4 1 1 1 152 0 27 0 0 1013 4 1 1 2 304 0
868 27 0 0 895 4 1 1 2 1 0 27 0 0 895 4 1 1 1 136 0
872 27 0 0 875 4 1 1 3 5149 0 24 1 0 832 4
PROCEDURE 610
875 6 0 0 2146 4
876 27 0 0 879 4 1 1 3 257 0 24 1 0 832 4 6 0 0 2228 4
880 5 0 2 2141 4 27 0 1 885 4 1 1 3 1 0 2 0 0 2146 4
884 24 1 0 820 4 26 0 0 1805 4 24 0 2 2398 4 26 0 0 1937 4
888 6 0 2 2141 4 2 0 0 2229 4 24 0 2 2742 4 24 0 3 2490 4
892 28 1 2 6 0 26 0 0 1481 4 24 1 0 816 4
PROCEDURE 611
895 6 0 0 2146 4
896 27 0 1 899 4 1 1 3 5136 0 24 1 0 832 4 6 0 0 2228 4
900 27 0 3 915 4 0 0 3 58 4 5 0 0 2228 4 0 0 3 59 4
904 27 0 1 915 4 24 0 2 2242 4 12 0 0 2228 4 3 0 0 2193 4
908 3 0 0 2195 4 5 0 0 63 4 27 0 2 915 4 6 0 0 2229 4
912 1 1 2 154 0 2 0 0 2146 4 24 1 0 820 4 1 1 3 4372 0
916 24 1 0 832 4
PROCEDURE 612
917 6 0 0 2146 4 27 0 3 921 4 1 1 3 48 0
920 24 1 0 832 4 1 1 1 1 0 27 0 1 934 4 6 1 0 2224 4
924 0 1 2 2226 4 27 0 0 928 4 1 1 3 19 0 24 1 0 832 4
928 6 1 0 2582 4 24 0 3 2195 4 28 0 0 0 0 23 0 0 1 0
932 0 0 0 2195 3 24 1 0 820 4
PROCEDURE 613
934 6 0 0 2224 4 27 0 3 945 4
936 0 0 3 58 4 5 0 0 2224 4 0 0 3 59 4 27 0 1 945 4
940 24 0 2 2242 4 12 0 0 2224 4 3 0 0 2224 4 1 1 2 32 0
944 27 0 3 947 4 1 1 3 17 0 24 1 0 832 4
PROCEDURE 614
947 6 0 0 2225 4
948 27 0 0 953 4 1 1 2 1 0 27 0 0 953 4 1 1 3 20 0
952 24 1 0 832 4 6 0 0 2226 4 27 0 3 957 4 1 1 2 4 0
956 27 0 3 959 4 1 1 3 36 0 24 1 0 832 4
PROCEDURE 615
959 6 0 0 2228 4
960 27 0 3 965 4 0 0 3 2932 4 5 0 0 2228 4 0 0 3 2930 4
964 27 0 0 967 4 1 1 3 25 0 24 1 0 832 4 24 0 2 2242 4
968 12 0 0 2228 4 2 0 0 2228 4 6 0 0 2227 4 27 0 0 978 4
972 1 1 2 1 0 27 0 0 976 4 1 1 3 41 0 24 1 0 832 4
976 6 0 0 2193 4 7 0 0 2228 4
PROCEDURE 616
978 6 0 0 2228 4 5 0 0 63 4
980 27 0 3 983 4 1 1 3 6441 0 24 1 0 832 4 6 0 0 2228 4
984 5 0 0 2881 4 27 0 3 987 4 2 0 0 2228 4 6 0 0 2224 4
988 18 0 3 1 0 4 0 0 2225 4 18 0 3 2 0 4 0 0 2226 4
992 18 0 3 1 0 18 0 0 3 0 4 0 0 2228 4 2 0 0 2236 4
PROCEDURE 617
996 6 0 0 2224 4 1 1 2 16 0 27 0 1 1005 4 6 0 0 2236 4
1000 27 0 1 1006 4 6 1 0 2580 4 24 0 3 2195 4 28 1 0 0 0
1004 24 1 0 931 4 27 0 3 1009 4 25 1 2 0 0 5 0 0 2236 4
1008 2 0 0 2236 4 6 0 0 2236 4 24 0 3 2195 4 2 0 0 0 0
1012 24 1 0 931 4
PROCEDURE 618
1013 6 0 0 2146 4 27 0 1 1017 4 1 1 3 4112 0
1016 24 1 0 832 4 25 1 2 0 0 2 0 0 2146 4 26 0 0 1481 4
1020 6 0 2 2142 4 27 0 0 1024 4 25 0 2 1 0 24 1 0 816 4
1024 26 0 0 1805 4 24 0 2 2348 4 26 0 0 1937 4 24 0 2 2752 4
1028 24 0 3 2490 4 28 1 2 4 0 2 0 0 2141 4 26 1 2 2168 4
1032 24 0 3 2490 4 6 1 2 0 0 27 0 1 1040 4 6 1 0 2370 4
1036 24 0 3 2490 4 2 1 2 0 0 25 0 2 4098 0 24 1 0 1032 4
PROCEDURE 619
1040 6 0 0 2130 4 27 0 0 1100 4 6 0 0 2154 4 26 0 0 1422 4
1044 26 1 3 2156 4 6 1 0 2562 4 28 0 0 2934 4 6 0 0 41 4
1048 27 0 0 1050 4 1 1 3 128 0 2 1 0 2903 4 6 1 0 2586 4
1052 28 1 1 2934 4 6 1 0 2588 4 28 0 1 2951 4 6 1 0 2590 4
1056 28 0 1 2969 4 6 1 0 2592 4 28 0 1 3217 4 6 1 0 2594 4
1060 28 1 1 3190 4 6 1 0 2596 4 28 0 1 3255 4 6 1 0 2430 4
1064 3 1 0 3962 4 3 1 0 3354 4 2 1 0 3270 4 26 0 0 1434 4
1068 25 1 0 0 0 26 0 0 1593 4 26 0 0 1593 4
PROCEDURE 620
1071 6 1 0 2436 4
1072 2 1 0 56 4 24 0 2 0 4 4 1 0 2598 4 28 0 1 2939 4
1076 6 1 0 2882 4 3 1 0 56 4 2 1 0 2934 4 2 1 0 2936 4
1080 26 1 2 64 4 26 0 0 1583 4 26 1 2 66 4 26 0 0 1583 4
1084 26 1 2 68 4 26 0 0 1583 4 26 0 0 1593 4
PROCEDURE 621
1087 25 1 2 0 0
1088 26 0 0 1663 4 6 0 0 2133 4 27 0 1 1109 4 26 0 0 1717 4
1092 6 0 0 2131 4 27 0 1 1103 4 26 0 0 1805 4 24 0 2 2380 4
1096 26 0 0 1937 4 24 0 2 2728 4 24 0 3 2490 4 28 1 2 4 0
1100 6 0 0 55 4 27 0 0 1177 4 24 1 0 1392 4 6 0 0 2131 4
1104 2 0 0 2130 4 2 0 0 2131 4 6 0 0 2155 4 3 0 0 2154 4
1108 24 1 0 754 4
PROCEDURE 622
1109 6 0 0 53 4 26 0 0 1422 4 26 0 0 1491 4
1112 6 1 0 2941 4 2 0 0 3937 4 26 0 0 1521 4 6 1 0 2949 4
1116 2 0 0 2225 4 26 0 0 1783 4 6 0 0 2154 4 3 0 0 2146 4
1120 26 0 0 1422 4 26 0 0 1623 4 6 0 0 61 4 2 0 0 3937 4
1124 6 1 0 2951 4 24 0 3 2186 4 7 0 0 64 0 27 0 1 1130 4
1128 6 1 0 2460 4 24 1 0 1131 4 6 1 0 2462 4 26 0 0 1798 4
PROCEDURE 623
1132 6 0 0 53 4 26 0 0 1422 4 26 0 0 1521 4 6 0 0 2154 4
1136 26 0 0 1422 4 26 0 0 1623 4 6 0 0 2134 4 27 0 0 1132 4
1140 26 0 0 1752 4
PROCEDURE 624
1141 6 0 0 2131 4 27 0 0 1150 4 26 0 0 2084 4
1144 24 0 3 53 4 19 1 1 0 0 6 0 0 74 4 24 0 3 53 4
1148 2 0 0 64 0 24 1 0 1103 4 6 0 0 2132 4 27 0 0 1156 4
1152 26 0 0 2084 4 24 0 3 53 4 19 1 1 0 0 24 1 0 1094 4
1156 26 0 0 1465 4 24 1 0 1094 4
PROCEDURE 625
1158 26 0 0 1465 4 6 0 0 2127 4
1160 3 0 0 2126 4 3 0 0 2125 4 2 0 0 2124 4 26 0 0 2010 4
1164 25 1 2 2047 0 27 0 1 1171 4 26 0 0 2018 4 24 1 0 1164 4
1168 24 0 2 2284 4 26 0 0 1937 4 24 1 0 1164 4 18 0 0 2 0
1172 4 0 0 2192 4 25 1 1 2047 0 26 0 0 1942 4 24 1 0 1163 4
1176 25 1 0 127 0
PROCEDURE 626
1177 6 1 0 2570 4 4 0 1 164 0 28 0 0 2936 4
1180 1 0 1 16 0 15 0 0 2151 4 18 0 0 4125 0 27 0 1 1185 4
1184 1 1 3 768 0 18 0 0 1 0 2 0 0 2312 4 6 1 0 2310 4
1188 24 0 3 2954 4 2 1 1 8190 0 24 0 2 2312 4 4 1 0 2572 4
1192 24 0 3 2954 4 28 1 1 0 0 24 0 2 2648 4 24 0 3 2954 4
1196 28 1 2 14 0
PROCEDURE 627
1197 6 0 0 47 4 5 0 0 2881 4 2 0 0 2167 4
1200 24 0 2 1205 4 24 1 0 1863 4 26 1 2 2166 4 24 0 2 1361 4
1204 2 0 1 31 0 1 1 3 14 0 23 1 2 0 0 25 0 2 2 0
1208 24 1 0 1206 4 6 0 0 52 4 27 0 0 1215 4 6 0 0 2967 4
1212 27 0 1 1215 4 2 0 0 52 4 24 1 0 1373 4 24 0 2 2078 4
1216 2 0 1 31 0 24 0 2 1222 4 24 1 0 1863 4 26 1 2 2166 4
1220 25 1 2 0 0 2 1 2 0 0 25 0 2 2 0 24 1 0 1221 4
PROCEDURE 628
1224 6 0 0 52 4 27 0 0 1242 4 4 0 0 2172 4 2 0 0 2173 4
1228 26 1 2 2172 4 24 0 2 1373 4 2 0 1 31 0 1 1 3 14 0
1232 23 1 2 0 0 25 0 2 2 0 24 1 0 1232 4 24 0 2 2078 4
1236 2 0 1 31 0 26 1 2 2172 4 25 1 2 0 0 2 1 2 0 0
1240 25 0 2 2 0 24 1 0 1239 4
PROCEDURE 629
1242 24 0 2 1247 4 24 1 0 1863 4
1244 6 1 0 2558 4 24 0 3 59 4 28 0 0 128 0 6 0 0 2433 4
1248 2 0 1 135 0 6 0 0 2219 4 2 0 1 137 0 6 0 0 54 4
1252 27 0 1 1255 4 6 1 0 2434 4 2 1 1 134 0
PROCEDURE 630
1255 6 1 0 2568 4
1256 4 0 1 162 0 24 0 3 59 4 28 0 0 64 0 6 0 0 2119 4
1260 24 0 3 44 4 2 0 0 64 0
PROCEDURE 631
1262 6 0 0 53 4 1 1 2 128 0
1264 27 0 2 1267 4 25 1 2 0 0 24 1 0 1272 4 6 1 0 2566 4
1268 4 0 1 162 0 24 0 3 59 4 28 0 0 192 0 1 1 2 64 0
1272 2 0 0 2968 4 6 0 0 2223 4 27 0 1 1277 4 6 0 0 48 4
1276 2 0 0 2961 4
PROCEDURE 632
1277 1 1 3 0 0 2 1 1 4 0 1 0 1 1 0
1280 24 0 3 59 4 15 0 2 64 0 1 1 2 4 0 27 0 0 1289 4
1284 1 1 2 5 0 27 0 0 1289 4 25 0 2 1 0 25 1 2 0 0
1288 24 1 0 1280 4 24 0 3 59 4 15 0 2 64 0 18 0 0 4 0
1292 4 0 1 4 0 1 0 1 19 0 14 0 1 153 0
PROCEDURE 633
1295 6 0 0 53 4
1296 2 0 0 2960 4 1 1 3 255 0 24 0 3 53 4 2 0 0 71 0
PROCEDURE 634
1300 0 0 2 2221 4 15 0 0 45 4 3 0 0 2235 4 3 0 1 188 0
1304 1 1 1 4 0 2 0 1 189 0 6 0 0 45 4 2 0 1 186 0
1308 1 0 1 1 0 24 0 3 2235 4 15 0 0 70 0 1 1 2 6 0
1312 27 0 0 1315 4 1 1 3 3 0 24 1 0 1316 4 1 1 3 6 0
1316 4 0 0 2235 4 2 0 1 187 0
PROCEDURE 635
1318 6 0 0 2966 4 3 0 1 6 0
1320 1 1 1 20 0 26 0 0 1377 4 6 0 0 52 4 27 0 1 1326 4
1324 2 0 0 2967 4 24 1 0 1334 4
PROCEDURE 636
1326 24 0 3 2967 4 6 0 0 0 0
1328 4 0 0 52 4 2 0 0 47 4 6 0 0 2967 4 3 0 1 6 0
1332 1 1 1 12 0 26 0 0 1377 4
PROCEDURE 637
1334 24 0 2 2936 4 4 1 0 2570 4
1336 24 0 3 2939 4 28 0 0 0 0 1 1 3 1 0 2 0 0 2140 4
1340 26 0 0 1847 4
PROCEDURE 638
1341 6 0 1 160 0 2 0 0 1361 4 2 0 1 0 0
1344 2 0 1 160 0 2 0 1 162 0 2 0 1 164 0 6 1 0 2560 4
1348 24 0 3 0 4 28 0 0 4 0 6 0 0 2121 4 2 0 1 9 0
1352 6 0 0 2151 4 2 0 1 181 0 6 0 0 2152 4 2 0 1 182 0
1356 6 0 0 44 4 3 0 1 190 0 25 1 2 4095 0 1 1 2 127 0
1360 25 1 1 4095 0
PROCEDURE 639
1361 26 0 0 77 4 1 0 1 8 0 6 0 1 4 0
1364 14 0 0 2167 4 4 0 0 2881 4 14 0 1 153 0 14 0 0 47 4
1368 26 0 0 1805 4 24 0 2 2402 4 26 0 0 1937 4 2 0 0 52 4
1372 24 1 0 1215 4 26 0 0 77 4 1 0 1 4 0 14 0 1 153 0
1376 24 1 0 1368 4
PROCEDURE 640
1377 0 0 0 0 0 2 0 1 7 0 24 0 3 0 4
1380 6 0 3 0 0 5 0 0 47 4 27 0 0 1386 4 25 0 3 2 0
1384 24 1 0 1379 4 24 1 0 1391 4 6 1 0 2190 4 24 0 3 0 4
1388 3 1 3 0 0 25 0 3 2 0 24 1 0 1387 4 26 0 1 1377 4
PROCEDURE 641
1392 26 0 0 1805 4 24 0 2 2648 4 24 0 3 2490 4 28 1 2 4 0
1396 6 1 0 2464 4 24 0 3 2490 4 2 1 0 2 0 25 1 2 0 0
1400 2 1 0 2132 4 2 0 0 2134 4 2 0 0 2146 4 2 0 0 2149 4
1404 24 1 0 351 4
PROCEDURE 642
1405 0 0 0 0 0 25 1 2 0 0 1 0 1 1792 0
1408 15 1 0 2934 4 15 1 0 2410 4 27 0 1 1413 4 6 1 0 2418 4
1412 24 1 0 1416 4 15 1 0 2414 4 27 0 1 1417 4 6 1 0 2416 4
1416 14 1 0 2934 4 25 1 2 0 0 18 1 0 4126 0 27 1 1 1408 4
1420 26 0 0 1805 4 26 0 1 1405 4
PROCEDURE 643
1422 0 0 0 0 0 3 0 0 2186 4
1424 18 1 0 4127 0 18 1 3 1 0 18 0 3 1 0 18 1 3 3 0
1428 3 0 0 2187 4 1 1 2 256 0 27 0 3 1433 4 1 1 1 352 0
1432 2 0 0 2187 4 26 0 1 1422 4
PROCEDURE 644
1434 0 0 0 0 0 6 0 0 2186 4
1436 1 0 1 3 0 14 0 0 1439 4 26 0 0 2005 4 26 1 0 0 0
1440 24 1 0 1446 4 26 0 0 1865 4 24 1 0 1452 4 24 1 0 1460 4
1444 24 0 3 1434 4 24 1 0 1 0
PROCEDURE 645
1446 26 0 0 2018 4 24 1 0 1439 4
1448 24 0 2 2658 4 24 0 3 2490 4 28 1 2 2 0 24 1 0 1441 4
PROCEDURE 646
1452 6 1 0 2934 4 4 1 0 2412 4 27 0 0 1459 4 26 0 0 1405 4
1456 24 0 2 2664 4 24 0 3 2490 4 28 1 2 2 0 26 0 1 1434 4
PROCEDURE 647
1460 26 0 0 1805 4 24 0 2 2674 4 24 0 3 2490 4 28 1 2 2 0
1464 24 1 0 1444 4
PROCEDURE 648
1465 0 0 0 0 0 24 0 3 53 4 26 1 0 0 0
1468 24 1 0 1475 4 24 1 0 1466 4 24 1 0 1472 4 24 1 0 1472 4
1472 26 0 0 2084 4 24 0 3 53 4 19 1 2 0 0 26 0 1 1465 4
PROCEDURE 649
1476 0 0 0 0 0 26 0 0 2084 4 24 0 3 2186 4 19 1 2 0 0
1480 26 0 1 1476 4
PROCEDURE 650
1481 0 0 0 0 0 24 0 3 2186 4 19 1 3 0 0
1484 26 0 1 1481 4
PROCEDURE 651
1485 0 0 0 0 0 24 0 3 45 4 19 0 1 0 0
1488 26 0 0 1434 4 24 1 0 452 4 26 0 1 1485 4
PROCEDURE 652
1491 0 0 0 0 0
1492 26 0 0 1434 4 25 1 0 0 0 26 0 0 1499 4 1 1 3 5 0
1496 2 0 0 56 4 26 0 0 1521 4 26 0 1 1491 4
PROCEDURE 653
1499 0 0 0 0 0
1500 24 0 3 2186 4 19 0 3 0 0 26 0 0 1434 4 25 1 0 0 0
1504 26 0 0 1777 4 26 0 1 1499 4
PROCEDURE 654
1506 0 0 0 0 0 25 1 2 0 0
1508 2 0 0 2182 4 24 0 3 2186 4 19 0 1 0 0 26 0 0 1434 4
1512 24 1 0 1515 4 24 1 1 59 4 26 0 1 1506 4 26 0 0 1571 4
1516 24 1 0 1509 4 23 0 0 1 0 0 0 0 2182 3 24 1 0 1569 4
1520 24 1 0 2078 4
PROCEDURE 655
1521 0 0 0 0 0 25 1 2 0 0 2 0 0 2147 4
1524 2 0 0 2184 4 0 0 3 2932 4 1 1 3 1 0 7 0 0 56 4
1528 0 0 3 2930 4 26 0 0 1506 4 0 0 3 2932 4 6 1 0 2935 4
1532 5 0 0 56 4 0 0 3 2930 4 27 0 1 1536 4 26 0 1 1521 4
1536 0 0 3 2932 4 1 1 1 1 0 0 0 3 2930 4 27 0 0 1529 4
PROCEDURE 656
1540 26 0 0 1571 4 24 1 0 1529 4 6 1 0 2935 4 5 1 0 2477 4
1544 18 0 0 4126 0 27 0 1 1551 4 6 0 0 2134 4 27 0 1 616 4
1548 6 1 0 2939 4 3 0 0 2134 4 24 1 0 1532 4 26 0 0 2074 4
1552 6 0 0 2147 4 27 0 1 1560 4 1 1 3 1 0 2 0 0 2147 4
1556 26 0 0 1405 4 24 0 2 2710 4 24 0 3 2490 4 28 1 2 2 0
1560 6 1 0 2935 4 5 0 0 56 4 27 0 3 1529 4 26 0 0 2084 4
1564 26 0 0 1771 4 26 0 0 2074 4 26 0 0 1771 4 26 0 0 2074 4
1568 26 0 0 1771 4 26 0 0 1762 4 24 1 0 1509 4
PROCEDURE 657
1571 0 0 0 0 0
1572 1 0 1 1792 0 25 1 2 0 0 15 1 0 2934 4 15 1 0 2412 4
1576 27 0 0 1582 4 25 1 2 0 0 18 1 0 4126 0 27 1 1 1573 4
1580 24 0 3 1571 4 24 1 0 1 0 26 0 1 1571 4
PROCEDURE 658
1583 0 0 0 0 0
1584 26 0 0 1593 4 6 1 0 56 4 2 1 0 2934 4 6 0 1 4 0
1588 4 1 0 2598 4 28 0 1 2939 4 25 0 2 512 0 24 1 0 1584 4
1592 26 0 1 1583 4
PROCEDURE 659
1593 0 0 0 0 0 24 0 3 2186 4 19 0 0 0 0
1596 26 0 0 85 4 26 0 0 1434 4 24 1 0 1600 4 26 0 1 1593 4
PROCEDURE 660
1600 25 0 3 1 0 24 1 0 1616 4 6 1 0 2239 4 5 0 0 61 4
1604 27 0 1 1608 4 6 1 0 2418 4 2 1 0 2238 4 24 1 0 1610 4
1608 6 1 0 2418 4 2 1 0 2240 4 1 1 3 2 0 26 0 0 1663 4
1612 26 0 0 1717 4 6 0 0 2133 4 27 0 0 1092 4 24 1 0 1141 4
1616 26 0 0 2084 4 24 0 3 2186 4 19 1 1 0 0 26 0 0 1434 4
1620 25 1 0 0 0 26 0 0 2084 4 24 1 0 1045 4
PROCEDURE 661
1623 0 0 0 0 0
1624 25 1 2 0 0 2 0 0 2182 4 2 0 0 2184 4 24 0 3 2186 4
1628 19 0 0 0 0 6 1 0 2935 4 2 0 0 57 4 26 0 0 1434 4
1632 24 1 0 1634 4 26 0 1 1623 4
PROCEDURE 662
1634 23 0 0 1 0 0 0 0 2182 3
1636 24 1 0 1638 4 24 1 0 2078 4 26 0 0 1762 4 6 0 0 57 4
1640 5 1 0 2935 4 1 1 2 1 0 27 0 1 1652 4 6 1 0 2412 4
1644 2 1 0 2934 4 24 0 3 2186 4 19 0 0 0 0 26 0 0 1434 4
1648 25 1 0 0 0 6 0 0 57 4 2 1 0 2935 4 24 1 0 1627 4
1652 26 0 0 2074 4 27 0 2 1661 4 26 0 0 2084 4 26 0 0 1771 4
1656 26 0 0 2074 4 26 0 0 1771 4 26 0 0 2074 4 26 0 0 1771 4
1660 24 1 0 1638 4 26 0 0 1777 4 24 1 0 1639 4
PROCEDURE 663
1663 0 0 0 0 0
1664 2 0 0 2149 4 1 1 3 1 0 2 1 0 2935 4 2 1 0 2936 4
1668 6 1 0 2466 4 2 1 0 2938 4 6 0 0 61 4 2 1 0 2941 4
1672 6 1 0 2430 4 2 1 0 2942 4 26 0 0 1623 4 6 0 0 2149 4
1676 27 0 1 1697 4
PROCEDURE 664
1677 6 1 0 2412 4 2 1 0 3934 4 2 1 0 3936 4
1680 6 1 0 2604 4 28 1 1 3938 4 24 0 2 2642 4 28 1 2 3948 4
1684 6 1 0 2468 4 2 1 0 3956 4 6 0 0 2931 4 2 1 0 3958 4
1688 6 0 1 175 0 2 1 0 3961 4 6 0 0 2123 4 24 0 3 2186 4
1692 2 0 0 64 0 26 0 0 1623 4 6 0 0 74 4 24 0 3 2186 4
1696 2 0 0 64 0
PROCEDURE 665
1697 26 0 0 1712 4 26 0 0 1623 4 26 0 0 1712 4
1700 26 0 0 1623 4 26 0 0 1712 4 6 1 0 2472 4 2 1 0 2940 4
1704 26 0 0 1623 4 26 0 0 1712 4 26 0 0 1623 4 26 0 0 1712 4
1708 6 0 0 61 4 2 1 0 2941 4 26 0 0 1623 4 26 0 1 1663 4
PROCEDURE 666
1712 0 0 0 0 0 1 1 3 1 0 7 0 0 2934 4 7 0 0 2938 4
1716 26 0 1 1712 4
PROCEDURE 667
1717 0 0 0 0 0 1 1 3 1 0 7 0 0 2934 4
1720 6 1 0 2474 4 2 1 0 2938 4 1 1 3 7453 0 2 1 0 2940 4
1724 6 0 0 2931 4 2 1 0 2942 4 1 1 3 1 0 2 1 0 2944 4
1728 6 0 1 175 0 2 1 0 2947 4 6 1 0 2468 4 2 1 0 2948 4
1732 2 1 0 2950 4 6 1 0 2430 4 2 1 0 2952 4 26 0 0 1623 4
PROCEDURE 668
1736 1 1 3 1 0 7 0 0 2934 4 6 1 0 2472 4 2 1 0 2936 4
1740 6 1 0 2470 4 2 1 0 2938 4 6 1 0 2430 4 2 1 0 2940 4
1744 26 0 0 1623 4 6 1 0 2476 4 2 1 0 2934 4 1 1 3 9 0
1748 2 1 0 2938 4 26 0 0 1623 4 26 0 0 1752 4 26 0 1 1717 4
PROCEDURE 669
1752 0 0 0 0 0 6 1 0 2478 4 3 1 0 2934 4 2 1 0 2936 4
1756 24 0 3 2186 4 19 0 0 0 0 26 0 0 1434 4 24 1 0 1756 4
1760 26 0 0 1476 4 26 0 1 1752 4
PROCEDURE 670
1762 0 0 0 0 0 26 0 0 2084 4
1764 26 0 0 1771 4 26 0 0 1771 4 26 0 0 1771 4 26 0 0 2084 4
1768 26 0 0 1777 4 26 0 0 1777 4 26 0 1 1762 4
PROCEDURE 671
1771 0 0 0 0 0
1772 24 0 3 2186 4 19 1 0 0 0 26 0 0 1434 4 25 1 0 0 0
1776 26 0 1 1771 4
PROCEDURE 672
1777 0 0 0 0 0 24 0 3 2186 4 19 1 3 0 0
1780 26 0 0 1434 4 25 1 0 0 0 26 0 1 1777 4
PROCEDURE 673
1783 0 0 0 0 0
1784 6 1 0 2951 4 24 0 3 2186 4 7 0 0 64 0 6 0 0 2146 4
1788 27 0 1 1797 4 6 1 0 2943 4 2 0 0 3936 4 6 1 0 2951 4
1792 27 0 1 1795 4 6 1 0 2456 4 24 1 0 1796 4 6 1 0 2458 4
1796 26 0 0 1798 4 26 0 1 1783 4
PROCEDURE 674
1798 0 0 0 0 0 2 1 0 3934 4
1800 26 0 0 1805 4 24 0 2 2764 4 24 0 3 2490 4 28 1 2 2 0
1804 26 0 1 1798 4
PROCEDURE 675
1805 0 0 0 0 0 26 0 0 1817 4 24 0 2 2606 4
1808 24 0 3 2490 4 28 1 2 0 0 26 0 1 1805 4
PROCEDURE 676
1811 0 0 0 0 0
1812 26 0 0 1817 4 24 0 2 2610 4 24 0 3 2490 4 28 1 2 0 0
1816 26 0 1 1811 4
PROCEDURE 677
1817 0 0 0 0 0 6 0 0 2139 4 27 0 0 1821 4
1820 26 0 0 1847 4 6 0 0 2135 4 27 0 1 1829 4 24 0 2 2498 4
1824 3 0 0 2135 4 3 0 0 2490 4 2 0 0 2491 4 2 0 0 2492 4
1828 26 0 1 1817 4
PROCEDURE 678
1829 6 0 0 2136 4 27 0 1 1839 4 6 0 0 2135 4
1832 1 1 1 20 0 3 0 0 2136 4 3 0 0 2490 4 5 0 0 2120 4
1836 27 0 1 1828 4 24 0 2 2498 4 24 1 0 1833 4
PROCEDURE 679
1839 1 1 1 20 0
1840 3 0 0 2137 4 3 0 0 2490 4 3 0 0 2139 4 5 0 0 2120 4
1844 27 0 1 1828 4 24 0 2 2498 4 24 1 0 1840 4
PROCEDURE 680
1847 0 0 0 0 0
1848 24 0 2 1853 4 24 1 0 1863 4 24 0 2 1861 4 2 0 1 30 0
1852 25 1 0 4096 0 1 1 3 4000 0 0 0 2 2583 4 11 0 0 2583 4
1856 27 0 1 1854 4 1 1 2 8191 0 4 0 0 2583 4 27 0 0 1853 4
1860 24 1 0 1858 4 26 0 0 77 4 6 0 0 1847 4 2 0 0 1865 4
1864 24 1 0 1866 4
PROCEDURE 681
1865 0 0 0 0 0 6 0 0 2135 4 27 0 1 1886 4
1868 6 0 0 2136 4 27 0 1 1879 4 6 0 0 2140 4 27 0 3 2027 4
1872 27 0 1 1341 4 25 1 2 0 0 1 1 2 3 0 7 0 0 1865 4
1876 26 0 1 1865 4 25 1 0 2048 0 24 1 0 1873 4
PROCEDURE 682
1879 6 0 0 2136 4
1880 3 0 0 2135 4 2 0 0 2491 4 6 0 0 2137 4 2 0 0 2136 4
1884 2 0 0 2137 4 2 0 0 2492 4
PROCEDURE 683
1886 25 1 1 2048 0 24 0 3 44 4
1888 26 1 0 0 0 24 1 0 1877 4 24 1 0 1873 4 24 1 0 1930 4
1892 24 1 0 1893 4 6 0 0 2138 4 27 0 0 1899 4 25 1 2 0 0
1896 3 0 0 2135 4 2 1 0 2138 4 24 1 0 1868 4
PROCEDURE 684
1899 6 0 0 2148 4
1900 27 0 3 1907 4 24 0 3 2491 4 6 1 0 0 0 2 1 1 154 0
1904 24 0 3 44 4 19 0 0 0 0 24 1 0 1920 4
PROCEDURE 685
1907 0 1 2 2494 4
1908 24 0 3 2491 4 6 1 0 0 0 24 0 3 2492 4 18 0 0 0 0
1912 14 1 1 154 0 24 0 3 44 4 19 0 0 0 0 23 0 0 2 0
1916 0 0 0 2492 3 24 1 0 1887 4 25 1 2 0 0 2 0 0 2492 4
PROCEDURE 686
1920 1 0 1 15 0 24 0 3 2491 4 15 0 0 0 0 5 0 0 2276 4
1924 27 0 1 1927 4 1 1 3 1 0 2 0 0 2138 4 1 1 3 2 0
1928 7 0 0 2491 4 24 1 0 1887 4
PROCEDURE 687
1930 6 0 0 2135 4 1 1 2 2 0
1932 2 0 0 2491 4 2 1 1 154 0 24 0 3 44 4 19 0 0 0 0
1936 24 1 0 1887 4
PROCEDURE 688
1937 0 0 0 0 0 4 1 0 2564 4 24 0 3 2490 4
1940 28 1 1 2 0 26 0 1 1937 4
PROCEDURE 689
1942 0 0 0 0 0 3 0 1 138 0
1944 2 0 1 175 0 0 0 3 58 4 1 0 1 3 0 15 0 1 175 0
1948 5 0 0 2192 4 27 0 0 1959 4 1 1 2 1 0 27 0 0 1954 4
1952 1 1 1 256 0 27 0 1 2000 4 6 0 1 175 0 14 0 0 2192 4
1956 26 0 0 1805 4 24 0 2 2294 4 26 0 0 1937 4
PROCEDURE 690
1959 1 0 1 4 0
1960 25 1 2 0 0 15 0 1 175 0 1 0 1 12 0 14 0 1 138 0
1964 0 0 3 59 4 1 0 1 4 0 25 1 2 0 0 15 0 1 175 0
1968 18 0 0 4126 0 3 0 0 2193 4 27 0 0 2000 4 1 1 2 13 0
1972 27 0 2 2000 4
PROCEDURE 691
1973 0 0 2 2157 4 25 1 2 0 0 15 0 1 175 0
1976 27 0 0 1979 4 1 1 3 41 0 24 1 0 1980 4 1 1 3 48 0
1980 2 0 0 2195 4 1 0 1 24 0 15 0 1 175 0 27 0 0 2000 4
1984 18 1 0 1 0 14 1 1 138 0 18 0 0 4124 0 0 0 3 58 4
1988 24 0 1 2193 4 5 0 0 2193 4 27 0 2 2000 4 0 0 3 59 4
1992 1 0 1 8 0 25 1 2 0 0 15 0 1 175 0 18 0 0 4125 0
1996 1 1 2 10 0 27 0 2 2000 4 24 0 3 1942 4 24 1 0 1 0
PROCEDURE 692
2000 0 0 3 2930 4 26 0 0 1805 4 24 0 2 2290 4 26 0 0 1937 4
2004 26 0 1 1942 4
PROCEDURE 693
2005 0 0 0 0 0 6 0 0 2175 4 1 1 2 1 0
2008 2 0 0 2174 4 26 0 1 2005 4
PROCEDURE 694
2010 0 0 0 0 0 6 0 0 2175 4
2012 18 0 0 4127 0 2 0 0 2174 4 6 0 0 2175 4 5 0 0 2174 4
2016 2 0 0 2174 4 26 0 1 2010 4
PROCEDURE 695
2018 0 0 0 0 0 23 0 0 1 0
2020 0 0 0 2174 3 24 1 0 2027 4 25 1 2 0 0 2 0 0 2174 4
2024 26 0 0 1811 4 24 0 3 2018 4 24 1 0 1 0
PROCEDURE 696
2027 24 0 2 2033 4
2028 2 0 1 30 0 24 1 1 2029 4 0 1 1 2214 4 26 0 3 2032 4
2032 15 0 1 2044 4 0 1 0 2214 4 24 1 1 59 4 25 1 2 0 0
2036 1 1 2 1 0 7 0 0 2174 4 6 0 1 8 0 2 0 0 2032 4
2040 26 0 0 77 4 6 0 0 2018 4 1 1 1 3 0 24 1 0 1863 4
SECTION 697
PROCEDURE 698
2044 25 1 2 0 0 0 0 2 2157 4 15 0 0 2032 4 2 0 0 2062 4
2048 25 1 1 4096 0 24 1 1 59 4 24 0 1 2062 4 6 0 0 2124 4
2052 24 1 0 2039 4 1 1 3 2000 0 0 0 2 2583 4 11 0 0 2583 4
2056 27 0 1 2054 4 24 1 0 2045 4 26 1 1 2170 4 25 0 1 1 0
2060 24 1 0 2059 4 24 1 0 2044 4 0 0 0 0 0 25 1 2 0 0
2064 1 1 2 4096 0 4 0 0 2583 4 27 0 0 2045 4 24 1 0 2065 4
2068 1 1 3 500 0 18 1 0 4119 0 13 0 0 2242 4 1 1 2 1 0
2072 27 0 2 2069 4 24 1 0 2044 4
PROCEDURE 699
2074 0 0 0 0 0 23 0 0 1 0
2076 0 0 0 2184 3 26 0 1 2074 4 26 0 0 1811 4 24 0 2 2268 4
2080 26 0 0 1937 4 6 0 0 76 4 2 0 0 2140 4 26 0 0 1865 4
PROCEDURE 700
2084 0 0 0 0 0 25 1 2 0 0 2 0 0 2176 4 23 0 0 1 0
2088 0 0 0 2176 3 26 0 0 1865 4 26 0 1 2084 4
PROCEDURE 701
2091 2 0 0 44 4
2092 18 1 1 10 0 2 0 0 53 4 26 0 0 122 4 25 1 2 0 0
2096 1 0 1 4 0 15 0 1 153 0 18 1 0 1 0 2 0 0 52 4
2100 15 0 1 153 0 2 0 0 47 4 6 0 1 186 0 1 1 2 28 0
2104 27 0 3 2109 4 6 0 1 186 0 3 0 0 45 4 1 1 1 2 0
2108 2 0 0 46 4 25 1 2 0 0 1 0 1 3 0 15 0 1 175 0
2112 2 0 0 2192 4 24 0 2 0 4 0 0 2 2220 4 14 0 0 68 4
2116 3 0 0 2223 4 2 0 0 2149 4 24 1 0 208 4
PROCEDURE 702
2119 14 0 0 154 0
2120 0 0 1 2558 4 26 0 1 2 0 26 0 1 31 0 14 0 1 3934 4
2124 15 0 1 2053 4 15 0 1 2058 4 15 0 1 2063 4 15 0 1 2068 4
2128 15 0 1 279 4 0 0 0 0 0
SECTION 703
2130 0 0 0 0
2132 0 0 0 0 0 0 0 0
2136 0 0 0 0 0 0 0 0
2140 0 0 0 0 0 0 0 0
2144 0 0 0 0 0 0 0 0
2148 0 0 0 0
SECTION 704
2150 0 0 0 0
2152 0 0 0 0 0 0 0 0
SECTION 705
2156 0 0 3 0 0 0 4 0
2160 0 0 5 0 0 0 8 0
2164 0 0 30 0 1££. 0 0 0
2168 . 0 4 0 0 0 1000 0
2172 6000 0 0 0
SECTION 706
2174 0 0 0 0
2176 0 0 0 0 100 0 400 0
2180 400 0 1000 0 0 0 Ю 0
2184 0 0 64 0
SECTION 707
2186 0 0 0 0
2188 0 0 0 0
SECTION 708
2190 £££££ 0 £££££ 0
2192 68 0 0 0 32 0 0 0
2196 32 0 31 0 32 0 31 0
2200 32 0 32 0 31 0 32 0
2204 31 0 32 0
SECTION 709
2206 £££88 0 .0000 0
2208 £0000 0 .1000 0 73 0 53 0
2212 64 0 72 0 0 0 0 0
2216 0 0 0 0 0 0 8000 0
2220 £.00 0 38 0 3.1.4 0 0 0
SECTION 710
2224 0 0 0 0 0 0 0 0
2228 0 0 0 0 0 0 0 0
2232 0 0 0 0 0 0 0 0
2236 0 0 0 0 0 0 0 0
2240 0 0 0 0
SECTION 711
2242 1 0 0 0
2244 Ю 0 0 0 64 0 0 0
2248 3.8 0 0 0 2710 0 0 0
2252 1 0 0 0 20 0 0 0
2256 1 0 0 0 8 0 0 0
PROCEDURE 712
2260 0 0 0 0 0 0 0 0 142 0 0 0 0 142 0 0 0 1 0 0
2264 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 4
SECTION 713
2268 16554 0 51525 0 5.5. 0 66650 0
2272 69 0 53540 0 0 0 55610 0
2276 5.5. 0 0 0 65362 0 53636 0
2280 35551 0 676 0 5.5. 0 72550 0
2284 35500 0 54517 0 55172 0 67635 0
2288 5.5. 0 55000 0 35500 0 54517 0
2292 15.5. 0 69556 0 76778 0 58516 0
2296 55576 0 6 0 85551 0 7 0
2300 5.5. 0 69000 0 35569 0 59657 0
2304 77300 0 69746 0 55172 0 67635 0
2308 5.5. 0 55000 0
SECTION 714
2310 97272 0 5.5 0
2312 0 0 74550 0 60055 0 576 0
2316 50056 0 75556 0 35569 0 51727 0
2320 17273 0 645 0 6966 0 55690 0
2324 96555 0 74735 0 36266 0 63665 0
2328 6763 0 74730 0 25500 0 55517 0
2332 5.5. 0 0 0 27355 0 64517 0
2336 36666 0 69007 0 16957 0 635 0
2340 5.5. 0 55000 0 40069 0 64665 0
2344 0 0 55610 0 0 0 0 0
2348 47200 0 64665 0 0 0 0 0
2352 67300 0 656 0 5.5. 0 53540 0
2356 30000 0 66677 0 5.5. 0 0 0
2360 95561 0 66006 0 5.5. 0 0 0
SECTION 715
2364 56956 0 66755 0 60067 0 63667 0
2368 17255 0 63555 0 5.5. 0 0 0
2372 65700 0 67696 0 10000 0 69556 0
2376 75500 0 73516 0 15.5. 0 69556 0
2380 75572 0 73516 0 45569 0 73596 0
2384 35551 0 676 0 5.5. 0 72550 0
2388 10067 0 74005 0 17255 0 63555 0
2392 5.5. 0 0 0 66557 0 76696 0
2396 16755 0 735 0 66557 0 76696 0
2400 65472 0 646 0 66557 0 76696 0
2404 36669 0 727 0 25979 0 55007 0
2408 5.5. 0 55000 0
SECTION 716
2410 .7.7. 0 7.7.7- 0
2412 £5£5£ 0 5£5£5- 0 10101 0 1010 0
2416 +7+7+ 0 7+7+7 0 :5:5: 0 5:5:5 0
2420 4747 0 5‼000 0 +6+6+ 0 6+6+6 0
2424 .5.5. 0 5.5.5 0 1. 0 0 0
2428 0 0 1.000 0 7. 0 7.000 0
2432 0 0 10000 0 +0+0 0 +0+0+ 0
2436 £0041 0 5£5£5 0 85457 0 54525 0
2440 9537: 0 72556 0 71 0 76550 0
2444 ‼6‼6‼ 0 6‼6‼6 0 35163 0 73667 0
2448 45577 0 59655 0 27259 0 67517 0
2452 36653 0 51636 0 16773 0 53585 0
2456 35967 0 6 0 85967 0 5 0
2460 36667 0 6 0 86667 0 5 0
2464 40000 0 55655 0
SECTION 717
2466 41 0 45000 0
2468 3030 0 30493 0 55972 0 56596 0
2472 £6£6£ 0 6£6£6 0 47 0 5.000 0
2476 £4£43 0 4£4£4 0 5547‼ 0 7Ю556 0
2480 75500 0 73516 0 16973 0 72735 0
2484 17273 0 645 0 6966 0 55690 0
2488 96555 0 74735 0
SECTION 718
2490 0 0 0 0
2492 0 0 Ю 0 0 0 3£000 0
SECTION 719
2496 4525. 0 5.635 0 0 0 0 0
2500 0 0 0 0 0 0 0 0
2504 0 0 0 0 0 0 0 0
2508 0 0 0 0 0 0 0 0
2512 0 0 0 0 0 0 0 0
SECTION 720
2516 4525. 0 5.635 0 0 0 0 0
2520 0 0 0 0 0 0 0 0
2524 0 0 0 0 0 0 0 0
2528 0 0 0 0 0 0 0 0
2532 0 0 0 0 0 0 0 0
SECTION 721
2536 4525. 0 5.635 0 0 0 0 0
2540 0 0 0 0 0 0 0 0
2544 0 0 0 0 0 0 0 0
2548 0 0 0 0 0 0 0 0
2552 0 0 0 0 0 0 0 0
SECTION 722
2556 0 0 20014 0 0 0 2000Ю 0
2560 0 0 2003+ 0 0 0 20404 0
2564 0 0 Ю 0 40 0 30 0
2568 0 0 40 0 0 0 22 0
2572 0 0 10 0
SECTION 723
2574 0 34 3 9 0 0 0 0 9 0
2576 0 2935 3 10 0 0 0 0 10 0 0 2935 3 6 0 0 0 0 6 0
2580 0 2433 3 2 0 0 0 0 2 0 0 2228 3 1 0 0 0 0 1 0
2584 0 2934 3 8 0 0 0 0 8 0 0 2808 3 16 0 0 0 1 0 0
2588 0 2824 3 7 0 0 0 0 7 0 0 2831 3 55 0 0 0 3 7 0
2592 0 2886 3 13 0 0 0 0 13 0 0 2900 3 8 0 0 0 0 8 0
2596 0 2908 3 5 0 0 0 0 5 0 0 0 0 512 0 0 2 0 0 0
2600 0 2150 3 3 0 0 0 0 3 0 0 2934 3 10 0 0 0 0 10 0
2604 0 2480 3 10 0 0 0 0 10 0
SECTION 724
2606 0 59 3 12291 0 3 0 0 3 0
2608 0 2440 3 1041 3 0 4 1 1 1 0 2472 3 1 3 0 0 0 1 0
2612 0 59 3 12291 0 3 0 0 3 0 0 2440 3 1025 3 0 4 0 1 0
2616 0 156 0 530 0 0 2 1 2 0 0 59 3 12291 0 3 0 0 3 0
SECTION 725
2620 0 2224 3 2224 3 0 8 11 0 0 0 2224 3 2224 8 0 8 11 0 1
2624 0 55 3 55 0 0 0 3 7 1
SECTION 726
2626 0 2150 3 53 0 0 0 3 5 0
2628 0 2151 3 21 0 0 0 1 5 0 0 2152 3 8978 0 2 3 1 2 0
2632 0 2276 3 786 3 0 3 1 2 1 0 2934 3 5 3 0 0 0 5 0
2636 0 2936 3 21 3 0 0 1 5 0 0 2938 3 21 3 0 0 1 5 0
2640 0 2276 3 786 3 0 3 1 2 1 0 2150 3 85 0 0 0 5 5 0
2644 0 2151 3 5 0 0 0 0 5 0 0 2152 3 16389 0 4 0 0 5 1
2648 0 2150 3 53 0 0 0 3 5 0 0 2151 3 21 0 0 0 1 5 0
2652 0 2152 3 8978 0 2 3 1 2 0 0 2276 3 769 3 0 3 0 1 0
2656 0 2276 3 770 3 0 3 0 2 1
SECTION 727
2658 0 2440 3 514 3 0 2 0 2 0
2660 0 2187 3 4627 0 1 2 1 3 0 0 2276 3 802 3 0 3 2 2 1
2664 0 2438 3 2 3 0 0 0 2 0 0 2187 3 4627 0 1 2 1 3 0
2668 0 2440 3 1041 3 0 4 1 1 0 0 2934 3 5 3 0 0 0 5 0
2672 0 2276 3 770 3 0 3 0 2 1 0 2442 3 2 3 0 0 0 2 0
2676 0 2187 3 4627 0 1 2 1 3 0 0 2276 3 802 3 0 3 2 2 1
SECTION 728
2680 0 2422 3 5 3 0 0 0 5 0 0 2224 3 786 0 0 3 1 2 0
2684 0 2225 3 786 0 0 3 1 2 0 0 2226 3 786 0 0 3 1 2 0
2688 0 2227 3 1041 0 0 4 1 1 0 0 38 3 1041 0 0 4 1 1 0
2692 0 39 3 1041 0 0 4 1 1 0 0 40 3 1041 0 0 4 1 1 0
2696 0 41 3 1041 0 0 4 1 1 0 0 2232 3 1041 0 0 4 1 1 0
2700 0 2276 3 802 3 0 3 2 2 1
SECTION 729
2702 0 2438 3 515 3 0 2 0 3 0
2704 0 2225 3 37 0 0 0 2 5 0 0 2940 3 786 3 0 3 1 2 0
2708 0 2276 3 770 3 0 3 0 2 1 0 2440 3 3 3 0 0 0 3 0
2712 0 2187 3 4611 0 1 2 0 3 0 0 2440 3 1025 3 0 4 0 1 0
2716 0 56 3 16389 0 4 0 0 5 0 0 2440 3 1025 3 0 4 0 1 0
2720 0 2934 3 5 3 0 0 0 5 0 0 2276 3 770 3 0 3 0 2 1
SECTION 730
2724 0 61 3 16437 0 4 0 3 5 0 0 2276 3 770 3 0 3 0 2 1
2728 0 2440 3 1025 3 0 4 0 1 0 0 2238 3 5 3 0 0 0 5 0
2732 0 2440 3 1025 3 0 4 0 1 0 0 2240 3 5 3 0 0 0 5 0
2736 0 2276 3 786 3 0 3 1 2 1 0 2130 3 20485 0 5 0 0 5 0
2740 0 2131 3 20485 0 5 0 0 5 1
SECTION 731
2742 0 2440 3 1025 3 0 4 0 1 0
2744 0 2229 3 16389 0 4 0 0 5 0 0 2440 3 1025 3 0 4 0 1 0
2748 0 2228 3 16389 0 4 0 0 5 0 0 2276 3 786 3 0 3 1 2 1
2752 0 2141 3 20501 0 5 0 1 5 0 0 2142 3 20501 0 5 0 1 5 0
2756 0 2143 3 20501 0 5 0 1 5 0 0 2144 3 20501 0 5 0 1 5 0
2760 0 2145 3 20501 0 5 0 1 5 0 0 2276 3 818 3 0 3 3 2 1
SECTION 732
2764 0 3934 3 515 3 0 2 0 3 0 0 2187 3 4611 0 1 2 0 3 0
2768 0 2440 3 1025 3 0 4 0 1 0 0 2225 3 5 0 0 0 0 5 0
2772 0 2440 3 1025 3 0 4 0 1 0 0 3936 3 5 0 0 0 0 5 0
2776 0 2440 3 1025 3 0 4 0 1 0 0 3937 3 16389 0 4 0 0 5 0
2780 0 2440 3 1025 3 0 4 0 1 0 0 2940 3 770 3 0 3 0 2 0
2784 0 2442 3 1025 3 0 4 0 1 0 0 2944 3 770 3 0 3 0 2 0
2788 0 2276 3 818 3 0 3 3 2 1
SECTION 733
2790 0 2460 3 515 3 0 2 0 3 0
2792 0 2187 3 4611 0 1 2 0 3 0 0 2440 3 1025 3 0 4 0 1 0
2796 0 2468 3 5 3 0 0 0 5 0 0 2440 3 1025 3 0 4 0 1 0
2800 0 3934 3 5 3 0 0 0 5 0 0 2440 3 1025 3 0 4 0 1 0
2804 0 61 3 16389 0 4 0 0 5 0 0 2276 3 834 3 0 3 4 2 1
PROCEDURE 734
2808 0 0 2 256 0 5 1 0 1152 0 0 0 2 256 0 2 0 0 0 0
2812 0 0 2 256 0 2 0 0 0 0 0 0 2 256 0 2 0 0 0 0
2816 0 0 2 256 0 2 0 0 0 0 0 0 2 256 0 6 1 0 257 0
2820 2 0 0 16 0 6 1 0 260 0 3 0 0 0 0 4 1 0 263 0
PROCEDURE 735
2824 6 0 0 28 0 2 0 0 327 0 2 1 0 2 0 2 0 0 4 0
2828 1 1 3 141 0 2 0 0 5 0 24 1 0 320 0
PROCEDURE 736
2831 6 0 0 65 0
2832 3 0 0 64 0 3 0 0 72 0 3 0 0 192 0 3 0 0 200 0
2836 24 0 1 129 0 26 1 0 0 0 24 1 0 34 0 24 1 0 28 0
2840 24 1 0 28 0 24 1 0 28 0 6 0 0 66 0 27 0 2 42 0
2844 1 1 3 8 0 24 1 0 41 0 0 0 0 0 0 0 0 0 0 0
2848 1 1 3 0 0 5 0 0 66 0 3 0 0 66 0 7 0 0 23 0
2852 27 0 3 22 0 0 0 0 259 0 24 1 0 22 0 7 0 0 129 0
2856 24 0 1 129 0 19 0 1 0 0 24 0 1 129 0 26 1 0 0 0
2860 0 0 0 259 0 24 1 0 44 0 0 0 0 261 0 25 1 0 0 0
2864 6 1 0 256 0 5 1 0 68 0 27 0 1 58 0 6 1 0 62 0
2868 24 0 1 67 0 28 1 0 0 4 24 0 1 67 0 24 1 0 170 4
2872 6 1 0 256 0 5 1 0 70 0 27 0 0 42 0 0 0 0 270 0
2876 0 0 0 261 0 0 0 0 1024 0 0 0 0 0 0 15 0 0 256 0
2880 0 0 0 8 0 0 0 1 0 0
SECTION 737
2882 £0042 0 5£5£5 0
2884 4100 0 58480 0
PROCEDURE 738
2886 25 1 1 4096 0 1 1 3 8158 0
2888 2 0 0 64 0 19 0 1 0 0 26 1 0 0 0 0 0 0 769 0
2892 24 1 0 145 0 0 0 0 8159 0 0 0 0 32 0 6 1 0 148 0
2896 28 1 0 8191 0 24 1 0 8191 0 0 0 0 0 0 0 0 0 0 0
SECTION 739
2900 4100 0 5+480 0 0 0 0 0
2904 20 0 480 0 41 0 0 0
PROCEDURE 740
2908 6 0 1 34 0 2 0 2 17 0 25 0 1 2 0 25 0 2 1 0
2912 24 1 0 17 0 0 0 0 0 0
SECTION 1035
2914 0 0 0 0
2916 0 0 0 0 0 0 0 0
2920 0 0 0 0 0 0 0 0
2924 0 0 0 0 0 0 0 0
2928 0 0 16 0
SECTION 1036
2930 0 0 30 0
2932 66666 0 2001 0
SECTION 1037
PROCEDURE 1010
INTERCODE TRIAL DATA SERIAL NUMBERS OF INTERCODE REPORTS
PT OMITTED NO NO
DISASTROUS 0 0
OTHERS 0 0
MADE BY 08000 ISSUE 8 SERIAL 801 ON 31/ 8/15 SPOOL 8000