Source image: P1020637.JPG
PROGM 090 1 0 MASTER ROUTINE
ENTRY 551 1
CHAPS 2 100 536
INDEX 3 1 2
10000 PROCR 100 100 FIXED ENTRY POINTS TO MASTER
10001 NOTES RADIX B
10002 124 536 2 1 0 unconditional jump 160(IPS INITIAL ENTRY)
10003 124 264 12 1 0 unconditional jump 161 >I/P O/P CONTROL
10004 100 559 2 0 1 Invalid 162(IPS:ASL'S)
10005 124 205 2 1 0 unconditional jump 163 >OPTIONS
10006 100 233 2 0 0 Halt 164 (IPS: APT)
10007 124 204 6 1 0 unconditional jump 165 >PROGRAMME UNLOAD
10008 100 0 0 0 Halt 166
10009 124 244 2 1 0 unconditional jump 167 >OVERLAY
10010 100 0 0 0 Halt 168
10011 124 207 2 1 0 unconditional jump 169 >TYPE
10012 124 263 18 1 0 unconditional jump *££0*££3*13‼*60‼
10013 124 208 19 1 0 unconditional jump 171>
10014 100 0 0 0 Halt 172
10015 124 243 68 1 0 unconditional jump *60‼
10016 124 264 2 1 0 unconditional jump >TEST ROUTE
10017 100 0 0 0 Halt 175 5-FIGURE DATE
10018 100 0 0 0 Halt 176
10019 124 450 2 1 0 unconditional jump *13‼ RELEASE ROUTE
10020 115 537 2 0 1 collate and add 178 ON LINE STORE DUMP
10021 100 2 0 0 Halt 179 ABDON/UNLOAD INDICATOR
10022 100 3 0 0 Halt 180 MACHINE NO
10023 100 0 0 0 Halt 181 SERIAL NUMBER
10024 100 0 0 0 Halt 182 MOD NUMBER
10025 124 182 2 1 0 unconditional jump *££0*££2*293
10026 124 103 17 1 0 unconditional jump *2£‼
10027 124 182 2 1 0 unconditional jump *293
10028 124 127 31 1 0 unconditional jump *31‼
10029 124 104 9 0 1 modify address of next *££2*263
10030 124 268 9 1 0 unconditional jump 183>PRIORITYQUEUE
10031 100 0 0 0 Halt 184 USED IN TYPE PQ
10032 100 0 0 0 Halt 185 LAST COMMAND
10033 100 0 0 0 Halt 186 CD: MIN RT
10034 100 0 0 0 Halt 187 CD: MAX RT
10035 100 0 0 0 Halt 188 CD: 8*CH
10036 100 0 0 0 Halt 189 CD: (8*CH)+4
10037 100 0 0 0 Halt 190 TW: RT NO
10038 100 2 0 0 Halt 191 TW: RT TYPE
10100 CONST 101 101 1 FAST CHANNEL ASLS
10102 (D)££££0££££; *3:Ю4£Ю CHANNEL 16
10104 ££££0££££;
10106 ££££0££££;
10108 ££££0££££;
10110 ££££0££££; CHANNEL 17
10112 ££££0££££;
Source image: P1020638.JPG
10114 ££££0££££;
10116 ££££0££££;
10118 ££££0££££; CHANNEL 18
10120 ££££0££££;
10122 ££££0££££;
10124 ££££0££££;
10126 ££££0££££; CHANNEL 19
10128 ££££0££££;
10130 ££££0££££;
10132 ££££0££££;
10134 ££££0££££; CHANNEL 20
10136 ££££0££££;
10138 ££££0££££;
10140 ££££0££££;
10142 ££££0££££; CHANNEL 21
10144 ££££0££££;
10146 ££££0££££;
10148 ££££0££££;
10200 CONST 102 102 1 TYPEWRITER ANNEXE
10202 (D)7:(A)LDB(D)5.; TAB,L,D,B,L/E
10204 (D)0;
10206 0;
10208 0;
10210 0;
10212 0;
10214 0;
10216 0;
10218 0;
10220 0;
10222 0;
10224 0;
10226 0;
10228 0;
10230 0;
10232 0;
10234 0;
10236 0;
10238 0;
10240 0;
10242 0;
10244 0;
10246 0;
10248 0;
10250 0;
10252 0;
10254 0;
10256 0;
10258 0;
10260 0;
10262 0;
10264 0;
10266 0;
10268 0;
10270 0;
10272 0;
10274 0;
10276 0;
10278 0;
10280 0;
10282 5.5.; SP,SP,SP,L/E,L/E
10284 5.5.5.5.5.; L/E. L/E, L/E, L/E, L/E
10300 PROCR 103 103 LOG ROUTINE SWITCH
10301 NOTES RADIX B
10302 100 0 0 0 Halt INDICATOR L1 OPTIONS OFFERED
Source image: P1020639.JPG
10303 100 0 0 0 Halt INDICATOR L2 COMMAND IGNORED
20917>10304 106 8 0 0 select (N) *59Ю STORE LINK AFTER
10305 124 2 0 3 modify address of next *59Ю INTERRUPTION
10306 102 44 0 0 transfer (A) to N
11106>
11108>
11306>
11308>
11506>
11508>
11706>
11708>
11906>
11908>
12106>
12108>
12306>
12308>
12506>
12508>
12728>
17710>
19921>
19972>
20919>
24415>
24623>
54229>10307 100 212 2 0 3 set radix *31‼ SET BINARY HEAD OF QUEUE
12734>10308 124 212 2 1 1 set modification group SET MOD GROUP 0
18141>
18408>
18411>
18612>
18616>10309 124 103 25 1 0 unconditional jump (INTLY SL=4) SWITCH SL
10310 124 186 2 1 0 unconditional jump >ROUTE CLOSED SWITCH L1
10311 124 106 14 1 0 unconditional jump >ROUTE ENGAGED
10312 124 108 2 1 0 unconditional jump >DOUBTFUL BLOCK
10313 124 103 14 1 0 unconditional jump >WARNING OF END
10806>
10313>10314 124 182 24 1 0 unconditional jump *293 >AVAILABLE SWITCH SLAS
10315 126 273 2 0 0 enter subroutine (A),(B),(C), SET (C
10316 106 103 18 0 0 select (N) DECIMAL L SET RETUR
10026>10317 102 103 14 0 0 transfer (A) to N PROG LINK
10318 124 182 24 1 0 unconditional jump *293 SLAS=1
10319 100 0 0 0 Halt SETTING OF L5
10320 106 198 10 1 0 select (N) *263 L5=1
10321 124 185 2 1 0 unconditional jump L5=2
10322 124 186 17 1 0 unconditional jump L5=3
18503>10323 106 104 10 0 0 select (N) SET SL=4
10324 102 103 9 0 0 transfer (A) to N
10410>
10309>10325 125 1919 1 2 interrogate indicators INTERROGATE I1-7,I9-11 TEST INDS STACKED
10326 127 199 2 0 1 jump A != Z >YES: OP INT
19903>10327 124 106 14 1 0 unconditional jump (INTLY L6=2) SWITCH L6
10331>10328 106 175 2 0 3 select (N) TEST REQUEST SET
10329 127 178 2 0 1 jump A != Z >YES
10330 125 2 0 3 step on and test
10331 124 103 28 1 0 unconditional jump
10400 PROCR 104 104 LOG ROUTINE SWITCH CONT
10401 NOTES RADIX B
10402 106 104 4 0 0 select (N) SET L6=2
10403 102 103 27 0 0 transfer (A) to N
10404 124 106 14 1 0 unconditional jump >SM L6=2
10405 126 109 12 1 3 set modification register SET (MR3) FOR REQUESL8=1
10406 100 0 0 0 Halt P
Source image: P1020640.JPG
10407 100 0 0 0 Halt Q
10408 100 0 0 0 Halt (64+R)FIXED(T/W)
10409 100 0 0 0 Halt (64+R)VARIABLE(T/W)
10410 124 103 25 1 0 unconditional jump SL=4
10411 100 0 0 0 Halt SPARE
10412 100 0 0 0 Halt 1=256 MICROSECS INEFFECTIVE
10413 100 0 0 0 Halt 1=APP 1SEC TIME CNTR
10500 CONST 105 105 1 ANNEXES FOR FIXED COMMENT
10502 (D)7:(A)LDB(D)5.; TAB,L,D,B,L/E
10504 (D)6£7:(A)C I; R/S,TAB,C,SP,I
10506 (A)GN (D)5.5.; G,N,SP,L/E,L/E
10600 PROCR 106 106 MASTER ROUTINE SWITCH
10601 NOTES RADIX
10602 100 0 0 0 Halt INDICATOR FOR 'ABDON' AND 'END'
10603 100 4 0 0 Halt *££0*££2*1.3
10604 100 6 0 0 Halt *1:3
10605 100 12 0 0 Halt *393
10606 100 14 0 0 Halt *4.3
10607 100 16 0 0 Halt *££2*5Ю3
10608 100 0 0 0 Halt SPARE
10609 100 0 0 0 Halt MR3 SETTING FOR REQUEST T/W
10610 100 18 0 0 Halt *1.3*1:3*1£4*384*393*5Ю3*4.3 8 1
10611 124 3 0 1 modify address of next OPTION 8
10612 126 158 0 1 leave subroutine >
10616>
10628>10613 124 108 11 1 0 unconditional jump >
10404>
10327>
10311>10614 124 106 16 1 0 unconditional jump SWITCH SM
10615 124 106 25 1 0 unconditional jump >CLOSED(S=3) S=1 TEST ROUTE
10614>10616 124 106 13 1 0 unconditional jump >ENGAGED(S=2)
10617 126 271 2 0 0 enter subroutine >D/B TEST ROUTE
10618 126 300 2 0 0 enter subroutine >W/E
10619 106 107 7 0 0 select (N)
10620 102 106 14 0 0 transfer (A) to N S=4
10621 106 107 8 1 0 select (N)
10622 102 2 1 0 transfer (A) to N SET UP MR1
10623 106 107 2 1 0 select (N) ROUTE NO. & TYPE
10624 124 265 3 1 0 unconditional jump >I/P O/P CONTROL
10615>10625 106 156 0 0 select (N) CURRENT TIME S=3 TEMP, CLOSED
10626 106 107 17 0 0 select (N) *££0*££1*46‼
10627 105 107 17 0 0 subtract (N) from (A) *46‼
10628 127 106 13 0 3 jump A < Z >NO ACTION IS REQUIRED
10629 126 107 8 1 1 set modification register SET UP MR1
10630 126 107 14 0 1 leave subroutine >
10707>10631 124 106 37 1 1 set modification group S=4 NORMAL
10632 106 107 8 1 0 select (N) RESET MOD. GROUP
10633 102 2 1 0 transfer (A) to N SET UP MR1
10634 100 107 2 1 1 replace registers RESTORE (A)(B)(C)
10635 126 107 16 0 1 leave subroutine >
10636 126 107 16 0 1 leave subroutine >
10637 100 0 0 0 Halt MOD.GROUP
10700 PROCR 107 107 MASTER ROUTINE SWITCH CONT
10701 NOTES RADIX B
10702 100 0 0 0 Halt (A)
10703 100 0 0 0 Halt
10704 100 0 0 0 Halt (B)
10705 100 0 0 0 Halt
10706 100 0 0 0 Halt (C)
10707 124 106 31 1 0 unconditional jump S=4
10708 100 106 2 0 0 Halt PROG LINK
10709 100 0 0 0 Halt START OF SPECIAL CHAPTER
10710 100 0 0 0 Halt ALARM NO FOR D/D
Source image: P1020641.JPG
10711 100 4097 1 0 copy registers PROG ID NO
10712 100 0 0 0 Halt RUN & RERUN NO
10713 100 0 0 0 Halt BIT PATTERN FOR OPTIONS
10714 100 270 2 0 0 Halt *464 00004
10715 100 0 0 0 Halt LOCN BEFORE 1ST OPTION
10716 100 0 0 0 Halt LINK FOR I/P O/P, LINK FOR SI=4
10717 100 0 0 0 Halt ASSOC TIME/ORIGINAL SWITCH SETTING
10718 100 0 0 0 Halt W/L'S
10719 100 0 0 0 Halt
10800 PROCR 108 108 PSEUDO-SWITCH
10801 NOTES RADIX B
10312>10802 100 210 10 0 2 replace (B) by (N) SET (MR3)=8*CH DOUBTFUL BLOCK
10803 125 0 1 2 interrogate indicators ON LOG ASSEMBLER
10804 115 100 37 0 0 collate and add
10805 126 272 2 0 0 enter subroutine >SET D/B INDICATOR
10806 124 103 14 1 0 unconditional jump >SLAS
10807 100 0 0 3 set radix 06000
10808 100 0 0 0 Halt 5/0
10809 100 5 0 0 Halt
10810 100 0 0 0 Halt STORE DUMP:WL FOR(71)
10613>10811 124 127 11 1 0 unconditional jump
10812 124 127 11 1 0 unconditional jump SETTING FOR M/R SWITCH NON-INT
10813 126 24 0 1 leave subroutine OVERFLOW
10814 100 62 0 0 Halt STORE DUMP=TAM
10815 102 52 0 0 transfer (A) to N STORE DUMP:CLEAR TA
10816 100 0 0 0 Halt 20/0, MR CONST FOR TYPE
10817 100 20 0 0 Halt
10818 100 0 0 0 Halt MR CONST FOR M/T ALTERNATE ROUTES
10819 100 160 0 0 Halt *011*244*234*224 00000001200008000040
10820 100 192 0 0 Halt *019*244*234*224 00000001440009600048
10821 100 271 2 0 0 Halt W/L
10822 100 120 0 0 Halt
10823 127 127 11 0 3 jump A < Z
10824 118 6 0 3 shift binary SAS=1
10825 106 100 37 0 0 select (N) SLAS=2
10826 124 186 2 1 0 unconditional jump L1=1
10827 100 0 0 0 Halt
10828 100 0 0 0 Halt
10829 104 1028 1 1 add (N) to (A) *££0*££3*353
10830 107 6000 0 3 augment (N) by (A) STORE DUMP='XX'
10831 102 0 0 0 transfer (A) to N *:SP:2:SP:SP
10832 105 5124 1 1 subtract (N) from (A) *353
10900 PROCR 109 109 PSEUDO-SWITCH CONT
10901 NOTES RADIX B
10902 100 0 0 0 Halt D/B W/L
10903 100 64 0 0 Halt 64/0 FOR D/B
10904 103 0 0 0 copy (A) to N *:SP:3:SP:SP
10905 105 5124 1 1 subtract (N) from (A) *353
10906 107 0 0 0 augment (N) by (A) EDG
10907 105 5445 0 2 subtract (N) from (A)
10908 107 65 0 0 augment (N) by (A) I/P:1
10909 105 5910 1 0 subtract (N) from (A)
10910 107 65 0 0 augment (N) by (A) O/P:1
10911 106 1814 0 3 select (N)
10912 100 0 0 0 Halt MR3 SETTING FOR T/W
10913 100 14 0 0 Halt *££0*££2*393
10914 100 6 0 0 Halt *1.3
10915 100 8 0 0 Halt *1:3
10916 100 16 0 0 Halt *4.3
10917 100 18 0 0 Halt *££2*5Ю3
10918 100 20 0 0 Halt *1.3*1:3*1£4*384*393*5Ю3*4.3 10 12
10919 100 0 0 0 Halt SDB SETTING
10920 100 7999 0 1 Invalid COLLATION CONSTANT
10921 100 0 0 0 Halt STORE DUMP=MR
Source image: P1020642.JPG
10922 100 0 0 0 Halt STORE DUMP=MR
10923 100 0 0 0 Halt STORE DUMP=COUNTER
10924 100 0 0 0 Halt STORE DUMP=STORE SIZE
11000 PROCR 110 110 INITIAL PROGRAMME SWITCH
11002 124 265 2 1 0 unconditional jump *££0*££2*062063 >I/P O/P CONTROL
11003 106 157 0 0 select (N) *063
11004 119 56 0 1 input one block/reset timer *063063
11005 106 112 17 0 0 select (N) *46‼
11006 106 114 17 0 0 select (N) *46‼46‼
11007 106 116 17 0 0 select (N) *46‼*46‼*46‼
11008 106 118 17 0 0 select (N) *46‼*46‼*46‼*46‼
11100 PROCR 111 111 1ST COMMERCIAL PROGRAMME SWITCH
11101 NOTES RADIX B
11102 100 112 2 1 0 copy registers INTERRUPTION,STORE
11103 100 210 3 0 3 set radix 6'S (A),(B),(C).SET(C)
11104 106 8 0 0 select (N) DECIMAL SET RETURN
11105 102 112 16 0 0 transfer (A) to N PROG. LINK
11106 124 103 7 1 0 unconditional jump *063 (6/0/0/0/157)
11107 107 112 18 1 0 augment (N) by (A)
11108 124 103 7 1 0 unconditional jump >HEAD OF QUEUE
11109 124 127 11 1 0 unconditional jump OR'26/1/0 R' SWITCH SP1
11110 124 111 20 1 0 unconditional jump >CLOSED(S=2)
11111 124 127 11 1 0 unconditional jump >ENGAGED (S=3) TEST ROUTE
11112 126 271 2 0 0 enter subroutine >D/B
11113 126 300 2 0 0 enter subroutine >W/E
11114 106 112 7 0 0 select (N) SET S=4
11115 102 111 9 0 0 transfer (A) to N
11116 106 112 8 1 0 select (N) SET UP MR1
11117 102 2 1 0 transfer (A) to N
11118 106 112 2 1 0 select (N)
11119 124 265 3 1 0 unconditional jump *062063 >I/P O/P CONTROL
11110>11120 106 156 0 0 select (N) S=3 TEMP CLOSED
11121 105 112 17 0 0 subtract (N) from (A) *46‼
11122 127 127 11 0 3 jump A < Z >NO ACTION IS REQUIRED
11123 126 112 8 1 1 set modification register ACTION IS REQUIRED
11124 126 112 14 0 1 leave subroutine >MASTER ROUTINE
11207>11125 124 111 31 1 1 set modification group
11126 106 112 8 1 0 select (N) RESET MOD.GROUP
11127 102 2 1 0 transfer (A) to N SET UP MR1
11128 100 112 2 1 1 replace registers RESTORE (A) (B) (C)
11129 126 112 16 0 3 leave master routine *063063 (19/0/1/0/56)
11130 126 112 16 0 3 leave master routine >PROGRAMME
11131 100 0 0 3 set radix MOD GROUP
11200 PROCR 112 112 1ST COMML SWITCH CONT
11201 NOTES RADIX B
11202 100 0 0 0 Halt (A)
11203 100 0 0 0 Halt
11204 100 0 0 0 Halt (B)
11205 100 0 0 0 Halt
11206 100 0 0 0 Halt (C)
11207 124 111 25 1 0 unconditional jump S=4
11208 100 111 2 0 0 Halt PROGRAMME LINK
11209 100 0 0 0 Halt START OF LAST CHAPTER
11210 100 0 0 0 Halt ALARM NO FOR D/D
11211 100 0 0 0 Halt PROGM ID NO 10827
11212 100 0 0 0 Halt RUN & RERUN NO
11213 100 0 0 0 Halt BIT PATTERN FOR OPTIONS
11214 100 270 2 0 0 Halt *464 00004
11215 100 0 0 0 Halt ADDRESS BEFORE FIRST OPTION
11216 100 0 0 0 Halt I/P O/P CONTROL LINKLINK FOR SI=4
11217 100 0 0 0 Halt ASSOC.TIME/ORIG.SW.SETTING
11218 100 0 0 0 Halt TIME SPENT IN
11219 100 0 0 0 Halt PROGRAMME
Source image: P1020643.JPG
11300 PROCR 113 113 2ND COMMERCIAL PROGRAMME SWITCH
11301 NOTES RADIX B
11302 100 114 2 1 0 copy registers *1.2 INTERRUPTION,STORE
11303 100 210 3 0 3 set radix (A),(B),(C) SET(C)
11304 106 8 0 0 select (N) DECIMAL SET RETURN
11305 102 114 16 0 0 transfer (A) to N PROG LINK
11306 124 103 7 1 0 unconditional jump *063 (6/0/0/0/157)
11307 107 114 18 1 0 augment (N) by (A)
11308 124 103 7 1 0 unconditional jump >HEAD OF QUEUE
11309 124 127 11 1 0 unconditional jump OR'26/1/0 R' SWITCH SP2
11310 124 113 20 1 0 unconditional jump >CLOSED (S=3) TEST ROUTE
11311 124 127 11 1 0 unconditional jump >ENGAGED (S=2)
11312 126 271 2 0 0 enter subroutine >D/B
11313 126 300 2 0 0 enter subroutine >W/E
11314 106 114 7 0 0 select (N) SET S=4
11315 102 113 9 0 0 transfer (A) to N
11316 106 114 8 1 0 select (N) SET UP MR1
11317 102 2 1 0 transfer (A) to N
11318 106 114 2 1 0 select (N)
11319 124 265 3 1 0 unconditional jump *062063 >I/P O/P CONTROL
11310>11320 106 156 0 0 select (N) S=3.TEMP.CLOSED
11321 105 114 17 0 0 subtract (N) from (A) *46‼46‼
11322 127 127 11 0 3 jump A < Z >NO ACTION IS REQUIRED
11323 126 114 8 1 1 set modification register
11324 126 114 14 0 1 leave subroutine >M.R. SET UP MR1
11407>11325 124 113 31 1 1 set modification group
11326 106 114 8 1 0 select (N) RESET MOD.GROUP
11327 102 2 1 0 transfer (A) to N SET UP MR1
11328 100 114 2 1 1 replace registers RESTORE (A) (B) (C)
11329 126 114 16 0 3 leave master routine *063063 (19/0/1/0/56)
11330 126 114 16 0 3 leave master routine >PROGRAMME
11331 100 0 0 0 Halt MOD.GROUP
11400 PROCR 114 114 2ND COMML SWITCH CONT
11401 NOTES RADIX B
11402 100 0 0 0 Halt *1.2 (A)
11403 100 0 0 0 Halt
11404 100 0 0 0 Halt (B)
11405 100 0 0 0 Halt
11406 100 0 0 0 Halt (C)
11407 124 113 25 1 0 unconditional jump S=4
11408 100 113 2 0 0 Halt PROGRAMME LINK
11409 100 0 0 0 Halt START OF LAST CHAPTER
11410 100 0 0 0 Halt ALARM NO.FOR D/D
11411 100 0 0 0 Halt PROG.ID.NO.
11412 100 0 0 0 Halt RUN & RERUN NO
11413 100 0 0 0 Halt BIT PATTERN FOR OPTIONS
11414 100 270 2 0 0 Halt *464 00004
11415 100 0 0 0 Halt ADDRESS BEFORE FIRST OPTION
11416 100 0 0 0 Halt I/P O/P CONTROL LINKLINK FOR SI=4
11417 100 0 0 0 Halt ASSOC. TIME/ORIG.SWITCH.SETTING
11418 100 0 0 0 Halt TIME SPENT IN PROG
11419 100 0 0 0 Halt
11500 PROCR 115 115 3RD COMMERCIAL PROGRAMME SWITCH
11501 NOTES RADIX B
11502 100 116 2 1 0 copy registers *1.2*1:2 INTERRUPTION, STORE
11503 100 210 3 0 3 set radix 6'S (A),(B),(C), SET (C)
11504 106 8 0 0 select (N) DECIMAL. SET RETURN
11505 102 116 16 0 0 transfer (A) to N PROG. LINK
11506 124 103 7 1 0 unconditional jump *063 (6/0/0/0/157)
11507 107 116 18 1 0 augment (N) by (A)
11508 124 103 7 1 0 unconditional jump >HEAD OF QUEUE
11509 124 127 11 1 0 unconditional jump OR'26/1/0 R' SWITCH SP3
11510 124 115 20 1 0 unconditional jump >CLOSED(S=3)
Source image: P1020644.JPG
11511 124 127 11 1 0 unconditional jump >ENGAGED(S=2) TEST ROUTE
11512 126 271 2 0 0 enter subroutine >D/B
11513 126 300 2 0 0 enter subroutine >W/E
11514 106 116 7 0 0 select (N) SET S=4
11515 102 115 9 0 0 transfer (A) to N
11516 106 116 8 1 0 select (N) SET UP MR1
11517 102 2 1 0 transfer (A) to N
11518 106 116 2 1 0 select (N)
11519 124 265 3 1 0 unconditional jump *062063 >I/P O/P CONTROL
11510>11520 106 0 156 0 0 select (N) S=3, TEMP, CLOSED
11521 105 116 17 0 0 subtract (N) from (A) *46‼46‼46‼
11522 127 127 11 0 3 jump A < Z >NO IS REQUIRED
11523 126 116 8 1 1 set modification register S=5
11524 126 116 14 0 1 leave subroutine >M.R.
11607>11525 124 115 31 1 1 set modification group NORMAL
11526 106 116 8 1 0 select (N) RESET MOD.GROUP
11527 102 2 1 0 transfer (A) to N SET UP MR1
11528 100 116 2 1 1 replace registers RE&STORE (A)(B)(C)
11529 126 116 16 0 3 leave master routine *063063 (19/0/1/0/56)
11530 126 116 16 0 3 leave master routine >PROGRAMME
11531 100 0 0 0 Halt MOD.GROUP
11600 PROCR 116 116 3RD COMML SWITCH CONT
11601 NOTES RADIX B
11602 100 0 0 0 Halt *1.2*1:2 A
11603 100 0 0 0 Halt
11604 100 0 0 0 Halt (B)
11605 100 0 0 0 Halt
11606 100 0 0 0 Halt (C)
11607 124 115 25 1 0 unconditional jump S=4
11608 100 115 2 0 0 Halt PROGRAMME LINK
11609 100 0 0 0 Halt START OF LAST CHAPTER
11610 100 0 0 0 Halt ALARM NO. FOR D/D
11611 100 0 0 0 Halt PROG.ID.NO
11612 100 0 0 0 Halt RUN & RERUN NO
11613 100 0 0 0 Halt BIT PATTERN FOR OPTIONS
11614 100 270 2 0 0 Halt *464 00004
11615 100 0 0 0 Halt ADDRESS BEFORE FIRST OPTION
11616 100 0 0 0 Halt I/P O/P CONTROL LINK,LINK FOR SI=4
11617 100 0 0 0 Halt ASSOC. TIME/ORIG.SWITCH.SETTING
11618 100 0 0 0 Halt TIME SPENT IN PROG
11619 100 0 0 0 Halt
11700 PROCR 117 117 4TH COMMERCIAL PROGRAMME SWITCH
11701 NOTES RADIX B
11702 100 118 2 1 0 copy registers *1.2*1:2*1£2 INTERRUPTION.STORE
11703 100 210 3 0 3 set radix 6'S (A),(B),(C) SET (C)
11704 106 8 0 0 select (N) DECIMAL SET RETURN
11705 102 118 16 0 0 transfer (A) to N PROG LINK
11706 124 103 7 1 0 unconditional jump *063 (6/0/0/0/157)
11707 107 118 18 1 0 augment (N) by (A)
11708 124 103 7 1 0 unconditional jump >HEAD OF QUEUE
11709 124 127 11 1 0 unconditional jump OR'26/1/0 R' SWITCH SP4
11710 124 117 20 1 0 unconditional jump >CLOSED (S=3) TEST ROUTE
11711 124 127 11 1 0 unconditional jump >ENGAGED (S=2)
11712 126 271 2 0 0 enter subroutine >D/B
11713 126 300 2 0 0 enter subroutine >W/E
11714 106 118 7 0 0 select (N) SET (S=4)
11715 102 117 9 0 0 transfer (A) to N
11716 106 118 8 1 0 select (N) SET UP MR 1
11717 102 2 1 0 transfer (A) to N
11718 106 118 2 1 0 select (N)
11719 124 265 3 1 0 unconditional jump *062063 >I/P O/P CONTROL
11710>11720 106 156 0 0 select (N) S=3.TEMP.CLOSED
11721 105 118 17 0 0 subtract (N) from (A) *46‼46‼46‼46‼
11722 127 127 11 0 3 jump A < Z >NO IS REQUIRED
Source image: P1020645.JPG
11723 126 118 8 1 1 set modification register S=5
11724 126 118 14 0 1 leave subroutine >MR
11807>11725 124 117 31 1 1 set modification group NORMAL
11726 106 118 8 1 0 select (N) RESET MOD GROUP
11727 102 2 1 0 transfer (A) to N SET UP MR 1
11728 100 118 2 1 1 replace registers RESTORE (A),(B),(C)
11729 126 118 16 0 3 leave master routine *063063 (19/0/1/0/56)
11730 126 118 16 0 3 leave master routine >PROGRAMME
11731 100 0 0 0 Halt MOD GROUP
11800 PROCR 118 118 4TH COMML SWITCH CONT
11801 NOTES RADIX B
11802 100 0 0 0 Halt *1.2*1:2*1£2 (A)
11803 100 0 0 0 Halt
11804 100 0 0 0 Halt (B)
11805 100 0 0 0 Halt
11806 100 0 0 0 Halt (C)
11807 124 117 25 1 0 unconditional jump S=4
11808 100 117 2 0 0 Halt PROGRAMME LINK
11809 100 0 0 0 Halt START OF LAST CHAPTER
11810 100 0 0 0 Halt ALARM NO FOR D/D
11811 100 0 0 0 Halt PROG 1D NO
11812 100 0 0 0 Halt RUN & RERUN
11813 100 0 0 0 Halt BIT PATTERN FOR OPTIONS
11814 100 270 2 0 0 Halt *464 00004
11815 100 0 0 0 Halt ADDRESS BEFORE FIRST OPTION
11816 100 0 0 0 Halt I/P O/P CONTROL LINK. LINK FOR SI=4
11817 100 0 0 0 Halt ASSOC TIME/ORIG SWITCH SETTING
11818 100 0 0 0 Halt TIME SPENT IN PROG
11819 100 0 0 0 Halt
11820 106 157 0 0 select (N) *££0*££2*063
11821 119 56 0 1 input one block/reset timer *063063
11822 106 120 17 0 0 select (N) *46‼
11823 106 122 17 0 0 select (N) *46‼46‼
11824 106 124 17 0 0 select (N) *46‼46‼46‼
11825 106 126 17 0 0 select (N) *46‼46‼46‼46‼
11826 124 265 2 1 0 unconditional jump *062063 >I/P O/P CONTROL
11900 PROCR 119 119 5TH COMMERCIAL PROGRAMME SWITCH
11902 100 120 2 1 0 copy registers *1.2*1:2*1£2*382 INTERRUPTION STORE
11903 100 210 3 0 3 set radix (A),(B),(C)SET(C)
11904 106 8 0 0 select (N) DECIMAL SET RETURN
11905 102 120 16 0 0 transfer (A) to N PROG LINK
11906 124 103 7 1 0 unconditional jump *063 (6/0/0/0/157)
11907 107 120 18 1 0 augment (N) by (A)
11908 124 103 7 1 0 unconditional jump >HEAD OF QUEUE
11909 124 127 11 1 0 unconditional jump OR'26/1/0 R' SWITCH SP5
11910 124 119 20 1 0 unconditional jump >CLOSED(S=3) TEST ROUTE
11911 124 127 11 1 0 unconditional jump >ENGAGED(S=2)
11912 126 271 2 0 0 enter subroutine >D/B
11913 126 300 2 0 0 enter subroutine >W/E
11914 106 120 7 0 0 select (N) SET(S=4)
11915 102 119 9 0 0 transfer (A) to N
11916 106 120 8 1 0 select (N) SET UP MR1
11917 102 2 1 0 transfer (A) to N
11918 106 120 2 1 0 select (N)
11919 124 265 3 1 0 unconditional jump *062063 >I/P O/P CONTROL
11910>11920 106 156 0 0 select (N) S=3,TEMP,CLOSED
11921 105 120 17 0 0 subtract (N) from (A) *46‼
11922 127 127 11 0 3 jump A < Z >NO IS REQUIRED
11923 126 120 8 1 1 set modification register S=5
11924 126 120 14 0 1 leave subroutine >M.R.
12007>11925 124 119 31 1 1 set modification group NORMAL
11926 106 120 8 1 0 select (N) RESET MOD GROUP
11927 102 2 1 0 transfer (A) to N SET UP MR1
11928 100 120 2 1 1 replace registers RESTORE (A),(B),(C)
Source image: P1020646.JPG
11929 126 120 16 0 3 leave master routine *063063 (19/0/1/0/56)
11930 126 120 16 0 3 leave master routine >PROGRAMME
11931 100 0 0 0 Halt MOD.GROUP
12000 PROCR 120 120 5TH COMML SWITCH CONT
12002 100 0 0 0 Halt *1.2*1:2*1£2*382 (A)
12003 100 0 0 0 Halt
12004 100 0 0 0 Halt (B)
12005 100 0 0 0 Halt
12006 100 0 0 0 Halt (C)
12007 124 119 25 1 0 unconditional jump S=4
12008 100 119 2 0 0 Halt PROGRAMME LINK
12009 100 0 0 0 Halt START OF LAST CHAPTER
12010 100 0 0 0 Halt ALARM NO FOR D/D
12011 100 0 0 0 Halt PROG ID NO
12012 100 0 0 0 Halt RUN & RERUN NO
12013 100 0 0 0 Halt BIT PATTERN FOR OPTIONS
12014 100 270 2 0 0 Halt *464 00004
12015 100 0 0 0 Halt ADDRESS BEFORE FIRST OPTION
12016 100 0 0 0 Halt I/P O/P CONTROL LINK,LINK FOR SI=4
12017 100 0 0 0 Halt ASSOC TIME/ORIG.SW.SETTING
12018 100 0 0 0 Halt TIME SPENT IN PROG
12019 100 0 0 0 Halt
12100 PROCR 121 121 6TH COMMERCIAL PROGRAMME SWITCH
12102 100 122 2 1 0 copy registers *1.2*1:2*1£2*382*392 INTERRUPTION STORE
12103 100 210 3 0 3 set radix 6'6 (A),(B),(C) SET(C)
12104 106 8 0 0 select (N) DECIMAL SET RETURN
12105 102 122 16 0 0 transfer (A) to N PROG LINK
12106 124 103 7 1 0 unconditional jump *063 (6/0/0/0/157)
12107 107 122 18 1 0 augment (N) by (A)
12108 124 103 7 1 0 unconditional jump >HEAD OF QUEUE
12109 124 127 11 1 0 unconditional jump OR'26/1/0 R' SWITCH SP6
12110 124 121 20 1 0 unconditional jump >CLOSED(S=3) TEST ROUTE
12111 124 127 11 1 0 unconditional jump >ENGAGED(S=2)
12112 126 271 2 0 0 enter subroutine >D/B
12113 126 300 2 0 0 enter subroutine >W/E
12114 106 122 7 0 0 select (N) SET S=4
12115 102 121 9 0 0 transfer (A) to N
12116 106 122 8 1 0 select (N) SET UP MR1
12117 102 2 1 0 transfer (A) to N
12118 106 122 2 1 0 select (N)
12119 124 265 3 1 0 unconditional jump *062063 >I/P O/P CONTROL
12110>12120 106 156 0 0 select (N) S=3,TEMP,CLOSED
12121 105 122 17 0 0 subtract (N) from (A) *46‼46‼
12122 127 127 11 0 3 jump A < Z >NO IS REQUIRED
12123 126 122 8 1 1 set modification register S=5
12124 126 122 14 0 1 leave subroutine >M.R.
12207>12125 124 121 31 1 1 set modification group NORMAL
12126 106 122 8 1 0 select (N) RESET MOD GROUP
12127 102 2 1 0 transfer (A) to N SET UP MR1
12128 100 122 2 1 1 replace registers RESTORE (A),(B),(C)
12129 126 122 16 0 3 leave master routine *063063 (19/0/1/0/56)
12130 126 122 16 0 3 leave master routine >PROGRAMME
12131 100 0 0 0 Halt MOD GROUP
12200 PROCR 122 122 6TH COMML SWITCH CONT
12202 100 0 0 0 Halt *1.2*1:2*1£2*382*392 (A)
12203 100 0 0 0 Halt
12204 100 0 0 0 Halt (B)
12205 100 0 0 0 Halt
12206 100 0 0 0 Halt (C)
12207 124 121 25 1 0 unconditional jump S=4
12208 100 121 2 0 0 Halt PROGRAMME LINK
12209 100 0 0 0 Halt START OF LAST CHAPTER
12210 100 0 0 0 Halt ALARM NO FOR D/D
Source image: P1020647.JPG
12211 100 0 0 0 Halt PROG ID NO
12212 100 0 0 0 Halt RUN & RERUN NO
12213 100 0 0 0 Halt BIT PATTERN FOR OPTIONS
12214 100 270 2 0 0 Halt *464 00004
12215 100 0 0 0 Halt ADDRESS BEFORE FIRST OPTION
12216 100 0 0 0 Halt I/P O/P CONTROL LINK,LINK FOR SI=4
12217 100 0 0 0 Halt ASSOC TIME/ORIG SWITCH SETTING
12218 100 0 0 0 Halt TIME SPENT IN PROG
12219 100 0 0 0 Halt
12300 PROCR 123 123 7TH COMMERCIAL PROGRAMME SWITCH
12302 100 124 2 1 0 copy registers *1.2*1:2*1£2*382*392*4.2 INTERRUPTION ST
12303 100 210 3 0 3 set radix 6'5 (A),(B),(C)SET(C)
12304 106 8 0 0 select (N) DECIMAL SET RETURN
12305 102 124 16 0 0 transfer (A) to N PROG LINK
12306 124 103 7 1 0 unconditional jump *063 (6/0/0/0/157)
12307 107 124 18 1 0 augment (N) by (A)
12308 124 103 7 1 0 unconditional jump >HEAD OF QUEUE
12309 124 127 11 1 0 unconditional jump OR'26/1/OR' SWITCH SP5
12310 124 123 20 1 0 unconditional jump >CLOSED(S=3) TEST ROUTE
12311 124 127 11 1 0 unconditional jump >ENGAGED(S=2)
12312 126 271 2 0 0 enter subroutine >D/B
12313 126 300 2 0 0 enter subroutine >W/E
12314 106 124 7 0 0 select (N) SET(S=4)
12315 102 123 9 0 0 transfer (A) to N
12316 106 124 8 1 0 select (N) SET UP MR1
12317 102 2 1 0 transfer (A) to N
12318 106 124 2 1 0 select (N)
12319 124 265 3 1 0 unconditional jump *062063 >I/P O/P CONTROL
12310>12320 106 156 0 0 select (N) S=3,TEMP,CLOSED
12321 105 124 17 0 0 subtract (N) from (A) *46‼46‼46‼
12322 127 127 11 0 3 jump A < Z >NO IS REQUIRED
12323 126 124 8 1 1 set modification register S=5
12324 126 124 14 0 1 leave subroutine >M.R.
12407>12325 124 123 31 1 1 set modification group NORMAL
12326 106 124 8 1 0 select (N) RESET MOD GROUP
12327 102 2 1 0 transfer (A) to N SET UP MR1
12328 100 124 2 1 1 replace registers RESTORE(A),(B),(C)
12329 126 124 16 0 3 leave master routine *063063 (19/0/1/0/56)
12330 126 124 16 0 3 leave master routine >PROGRAM
12331 100 0 0 0 Halt MOD GROUP
12400 PROCR 124 124 7TH COMML SWITCH CONT
12402 100 0 0 0 Halt *1.2*1:2*1£2*382*392*4.2 A
12403 100 0 0 0 Halt
12404 100 0 0 0 Halt (B)
12405 100 0 0 0 Halt
12406 100 0 0 0 Halt (C)
12407 124 123 25 1 0 unconditional jump S=4
12408 100 123 2 0 0 Halt PROGRAMME LINK
12409 100 0 0 0 Halt START OF LAST CHAPTER
12410 100 0 0 0 Halt ALARM NO FOR D/D
12411 100 0 0 0 Halt PROG ID NO
12412 100 0 0 0 Halt RUN&RERUN NO
12413 100 0 0 0 Halt BIT PATTERN FOR OPTIONS
12414 100 270 2 0 0 Halt *464 00004
12415 100 0 0 0 Halt ADDRESS BEFORE FIRST OPTION
12416 100 0 0 0 Halt I/P O/P CONTROL LINK,LINK FOR SI=4
12417 100 0 0 0 Halt ASSOC TIME/ORIG OWITSETTING
12418 100 0 0 0 Halt TIME SPENT IN PROG
12419 100 0 0 0 Halt
12500 PROCR 125 125 8TH COMMERCIAL PROGRAMME SWITCH
12502 100 126 2 1 0 copy registers *1.2*1:2*1£2*382*392*4.2*5Ю2 INTERRUPTIO
12503 100 210 3 0 3 set radix 6'5 (A),(B),(C)SET(C)
12504 106 8 0 0 select (N) DECIMAL SET RETURN
Source image: P1020648.JPG
12505 102 126 16 0 0 transfer (A) to N PROGRAM LINK
12506 124 103 7 1 0 unconditional jump *063 (6/0/0/0/157)
12507 107 126 18 1 0 augment (N) by (A)
12508 124 103 7 1 0 unconditional jump >HEAD OF QUEUE
12509 124 127 11 1 0 unconditional jump OR'26/1/OR' SWITCH SP5
12510 124 125 20 1 0 unconditional jump >CLOSED(S=3) TEST ROUTE
12511 124 127 11 1 0 unconditional jump >ENGAGED(S=2)
12512 126 271 2 0 0 enter subroutine >D/B
12513 126 300 2 0 0 enter subroutine >W/E
12514 106 126 7 0 0 select (N) SET(S=4)
12515 102 125 9 0 0 transfer (A) to N
12516 106 126 8 1 0 select (N) SET UP MR1
12517 102 2 1 0 transfer (A) to N
12518 106 126 2 1 0 select (N)
12519 124 265 3 1 0 unconditional jump *062063 >I/P O/P CONTROL
12510>12520 106 156 0 0 select (N) S=3,TEMP CLOSED
12521 105 126 17 0 0 subtract (N) from (A) *46‼46‼46‼46‼
12522 127 127 11 0 3 jump A < Z >NO IS REQUIRED
12523 126 126 8 1 1 set modification register S=5
12524 126 126 14 0 1 leave subroutine >M.R.
12607>12525 124 125 31 1 1 set modification group NORMAL
12526 106 126 8 1 0 select (N) RESET MOD GROUP
12527 102 2 1 0 transfer (A) to N SET UP MR1
12528 100 126 2 1 1 replace registers RESTORE(A),(B),(C)
12529 126 126 16 0 3 leave master routine *063063 (19/0/1/0/157)
12530 126 126 16 0 3 leave master routine >PROGRAM
12531 100 0 0 0 Halt MOD GROUP
12600 PROCR 126 126 8TH COMML SWITCH CONT
12602 100 0 0 0 Halt *1.2*1:2*1£2*382*392*4.2*5Ю2 (A)
12603 100 0 0 0 Halt
12604 100 0 0 0 Halt (B)
12605 100 0 0 0 Halt
12606 100 0 0 0 Halt (C)
12607 124 125 25 1 0 unconditional jump S=4
12608 100 125 2 0 0 Halt PROGRAMME LINK
12609 100 0 0 0 Halt START OF LAST CHAPTER
12610 100 0 0 0 Halt ALARM NO FOR D/D
12611 100 0 0 0 Halt PROG ID NO
12612 100 0 0 0 Halt RUN&RERUN NO
12613 100 0 0 0 Halt BIT PATTERN FOR OPTIONS
12614 100 270 2 0 0 Halt *464 00004
12615 100 0 0 0 Halt ADDRESS BEFORE FIRST OPTION
12616 100 0 0 0 Halt I/P,O/P CONTROL LINK,LINK FOR SI=4
12617 100 0 0 0 Halt ASSOC TIME/ORIG SWITCH SETTING
12618 100 0 0 0 Halt TIME SPENT IN PROG
12619 100 0 0 0 Halt
12700 PROCR 127 127 COUNT INEFFECTIVE TIME
12701 NOTES RADIX B
12702 100 0 0 0 Halt *2£Ю
12703 100 0 0 0 Halt
12704 100 0 0 0 Halt
12705 100 1 0 0 Halt *2£Ю
12706 127 127 20 0 3 jump A < Z *££0*££2*3Ю32+3*3Ю32:3
12707 127 127 21 0 3 jump A < Z *4‼3
12708 102 182 2 0 0 transfer (A) to N *293
12709 124 166 2 0 2 select literal and division *293743
12710 127 127 22 0 3 jump A < Z *££2*4+3
34718>
38020>
38026>
38122>
12522>
12511>
12509>
12322>
12311>
12309>
12122>
12111>
12109>
11922>
11911>
11909>
11722>
11711>
11709>
11522>
11511>
11509>
11322>
11311>
11309>
11122>
11111>
11109>
10823>
10812>
Source image: P1020649.JPG
10811>12711 101 103 7 1 3 select literal address
12712 102 2 0 0 transfer (A) to N SET UP MR1
12713 105 221 43 0 0 subtract (N) from (A) *16Ю TEST DELAY IN PROGRESS
12714 127 379 58 0 3 jump A < Z *16Ю >YES
12715 125 0 4096 1 0 set indicators *2£Ю SET I13
12716 106 104 12 1 0 select (N) HAVE I BEEN
12717 104 127 4 1 0 add (N) to (A) HERE LONG ENOUGH?
12718 102 127 2 1 0 transfer (A) to N
12726>12719 101 178 1 3 select literal address *3Ю9*2+1*2:1
12706>12720 101 218 1 3 select literal address *3Ю9*2‼1*2Ю1
12707>12721 101 24 1 3 select literal address *4‼9
12710>12722 101 60 1 3 select literal address *4+9
12723 107 104 12 1 0 augment (N) by (A)
12724 106 104 12 1 0 select (N)
12725 105 127 2 1 0 subtract (N) from (A)
12726 127 127 19 0 3 jump A < Z *2£Ю*4‼3*4+3*3Ю32:3*3Ю32+3
12727 125 4096 1 1 clear indicators
12728 124 103 7 1 0 unconditional jump *319
12729 106 127 35 0 0 select (N) *312*31Ю2£Ю
12730 124 127 33 1 0 unconditional jump *31Ю2£Ю
10028>12731 100 212 2 0 3 set radix SET BINARY
12732 101 1 1 3 select literal address AUGMENT COUNTER
12730>12733 107 156 0 0 augment (N) by (A)
12734 124 103 8 1 0 unconditional jump *312
12735 100 102 0 0 Halt *311
12800 CONST 128 128 0 DUMMY
12900 PROCR 129 129 MOD GROUP BLISTERS+W/LS.
12902 128 26 1 1 bulk copy long numeric *59Ю RESTORE
12903 100 112 2 1 1 replace registers MOD GROUP 3
12904 126 112 16 0 3 leave master routine >PROGRAM
12905 128 129 8 1 1 bulk copy long numeric LOC 3 OF SWITCH
12906 100 129 8 0 0 Halt TABLE ENTRY
12907 100 6 0 0 Halt
12908 100 0 0 0 Halt MR 1
12909 100 0 0 0 Halt
12910 100 0 0 0 Halt MR 2
12911 100 0 0 0 Halt
12912 100 0 0 0 Halt MR 3
12913 100 0 0 0 Halt
12914 128 26 1 1 bulk copy long numeric *1.2 RESTORE
12915 100 114 2 1 1 replace registers MOD GROUP 3
Source image: P1020650.JPG
12916 126 114 16 0 3 leave master routine >PROGRAM
12917 128 129 20 1 1 bulk copy long numeric LOC 3 OF SWITCH
12918 100 129 20 0 0 Halt TABLE ENTRY
12919 100 6 0 0 Halt
12920 100 0 0 0 Halt MR1
12921 100 0 0 0 Halt
12922 100 0 0 0 Halt MR2
12923 100 0 0 0 Halt
12924 100 0 0 0 Halt MR3
12925 100 0 0 0 Halt
12926 128 26 1 1 bulk copy long numeric *1:2 RESTORE
12927 100 116 2 1 1 replace registers MOD GROUP 3
12928 126 116 16 0 3 leave master routine >PROGRAM
12929 128 129 32 1 1 bulk copy long numeric LOC 3 OF SWITCH
12930 100 129 32 0 0 Halt TABLE ENTRY
12931 100 6 0 0 Halt
12932 100 0 0 0 Halt MR 1
12933 100 0 0 0 Halt
12934 100 0 0 0 Halt MR 2
12935 100 0 0 0 Halt
12936 100 0 0 0 Halt MR 3
12937 100 0 0 0 Halt
12938 128 26 1 1 bulk copy long numeric *1£2 RESTORE
12939 100 118 2 1 1 replace registers MOD GROUP 3
12940 126 118 16 0 3 leave master routine >PROGRAM
12941 128 129 44 1 1 bulk copy long numeric LOC 3 OF SWITCH
12942 100 129 44 0 0 Halt TABLE ENTRY
12943 100 6 0 0 Halt
12944 100 0 0 0 Halt MR1
12945 100 0 0 0 Halt
12946 100 0 0 0 Halt MR2
12947 100 0 0 0 Halt
12948 100 0 0 0 Halt MR3
12949 100 0 0 0 Halt
12950 128 26 1 1 bulk copy long numeric *382 RESTORE
12951 100 120 2 1 1 replace registers MOD GROUP 3
12952 126 120 16 0 3 leave master routine >PROGRAM
12953 128 129 56 1 1 bulk copy long numeric LOC 3 OF SWITCH
12954 100 129 56 0 0 Halt TABLE ENTRY
12955 100 6 0 0 Halt
12956 100 0 0 0 Halt MR1
12957 100 0 0 0 Halt
12958 100 0 0 0 Halt MR2
12959 100 0 0 0 Halt
12960 100 0 0 0 Halt MR3
12961 100 0 0 0 Halt
12962 128 26 1 1 bulk copy long numeric *392 RESTORE
12963 100 122 2 1 1 replace registers MOD GROUP 3
12964 126 122 16 0 3 leave master routine >PROGRAM
12965 128 129 68 1 1 bulk copy long numeric LOC 3 OF SWITCH
12966 100 129 68 0 0 Halt TABLE ENTRY
12967 100 6 0 0 Halt
12968 100 0 0 0 Halt MR1
12969 100 0 0 0 Halt
12970 100 0 0 0 Halt MR2
12971 100 0 0 0 Halt
12972 100 0 0 0 Halt MR3
12973 100 0 0 0 Halt
12974 128 26 1 1 bulk copy long numeric *4.2 RESTORE
12975 100 124 2 1 1 replace registers MOD GROUP 3
12976 126 124 16 0 3 leave master routine >PROGRAM
12977 128 129 80 1 1 bulk copy long numeric LOC 3 OF SWITCH
12978 100 129 80 0 0 Halt TABLE ENTRY
12979 100 6 0 0 Halt
12980 100 0 0 0 Halt MR 1
12981 100 0 0 0 Halt
Source image: P1020651.JPG
12982 100 0 0 0 Halt MR 2
12983 100 0 0 0 Halt
12984 100 0 0 0 Halt MR 3
12985 100 0 0 0 Halt
12986 128 26 1 1 bulk copy long numeric *5Ю2 RESTORE
12987 100 126 2 1 1 replace registers MOD GROUP 3
12988 126 126 16 0 3 leave master routine >PROGRAM
12989 128 129 92 1 1 bulk copy long numeric LOC 3 OF SWITCH
12990 100 129 92 0 0 Halt TABLE ENTRY
12991 100 6 0 0 Halt
12992 100 0 0 0 Halt MR 1
12993 100 0 0 0 Halt
12994 100 0 0 0 Halt MR 2
12995 100 0 0 0 Halt
12996 100 0 0 0 Halt MR 3
12997 100 0 0 0 Halt
13000 CONST 130 130 1 MASTER ROUTINE SPECIAL CHAPTER
13002 (D)0; W/L'S FOR OPEN
13004 0; OUTPUT FILE
13006 0;
13008 0;
13010 0;
13012 0;
13014 0;
13016 0;
13018 0;
13020 0;
13022 0;
13024 (D)0; W/L'S FOR COMMENT
13026 0;
13028 0;
13030 0;
13032 0;
13034 0;
13036 0;
13038 0;
13040 0;
13042 0;
13044 0;
13046 0;
13048 0;
13050 0;
13100 PROCR 131 131 DUMMY HEADINGS FOR DESCRIPTION OF USES OF WL'S IN SPECIAL CHAPS
13101 NOTES ALSO IS THE REMAINDER OF THE MASTER'S SPECIAL CHAP
13200 PROCR 132 132 (1)IND MT O/P D/B (2)IND PRINTER W/E
13201 NOTES 156 156 (3)S/R LINK PT O/P BLOCK S/R (4)IND OPEN M/T I/P REEL
13202 100 0 0 0 Halt
13300 PROCR 133 133 (1)W/E IND PT O/P (2)RTE TYPE DURING PRINTER W/E
13301 NOTES 157 157 (3)RTE TYPE DURING SNT COMMENT
13302 100 0 0 0 Halt
13400 PROCR 134 134 (1)SR LINK DEALING WITH OPT 8-PT/CARD INPUT=RETURN ADDRESS
13401 NOTES 158 IND IN OPEN MT I/P REEL
13402 100 0 0 0 Halt
13500 PROCR 135 135 CH CH RT FOR MULTI-CHANNEL LOADING
13501 NOTES 159
13502 100 0 0 0 Halt
13600 PROCR 136 136 MAIN'DB HAS OCCURRED'IND-SET JUST BEFORE THE DB IS TO BE DEALT WI
13601 NOTES 160 EXTRACTED FROM LIST OF DB BY CHANNEL/ROUTE
13602 100 0 0 0 Halt
Source image: P1020652.JPG
13700 PROCR 137 137 COPY OF SR LINK'STEP BACK(A)BLOCKS,FWD 1 BLOCK'
13701 NOTES 161
13702 100 0 0 0 Halt
13800 PROCR 138 138 RETURN LINK SET UP BEFORE ENTERING MISALIGNMENT FAILURE S/R
13801 NOTES 162 162
13802 100 0 0 0 Halt
13900 PROCR 139 139 COPY OF ASL DURING OPEN MT OUTPUT REEL
13901 NOTES 163 163
13902 100 0 0 0 Halt
14000 PROCR 140 140 IND THAT'CHANGE DECK'IN PROGRESS
14001 NOTES 164 USED ONLY DURING REOPENING MT FILE
14002 100 0 0 0 Halt
14100 PROCR 141 141 COPY OF SR LINK'RUN FWD,STEP FWD.READ'SR
14101 NOTES 165 RE-OPENING MT FILE
14102 100 0 0 0 Halt
14200 PROCR 142 142 COPY OF LINK INK IN'READ AND TEST BLOCK'SR
14201 NOTES 166
14202 100 0 0 0 Halt
14300 PROCR 143 143 CTR FOR'NUMBER OF ATTEMPTS'WHEN RE-READING/WRITING MT DB
14301 NOTES 167
14302 100 0 0 0 Halt
14400 PROCR 144 144 COPY OF SR LINKS IN'OPEN MT IN','OPEN MT OUT'
14401 NOTES 168 AND'READ,TEST SENTINEL'FOR PT/CARD INPUT
14402 100 0 0 0 Halt
14500 PROCR 145 145 (1)S/R LINK REQUEST T/W FOR OPTIONS AND REQUEST MR FOR OVERLAY OR
14501 NOTES 169 169 (2)START OF COMMENT(3)BLOCK CTR FOR CHANGE REEL IN STEP
14502 100 0 0 0 Halt
14600 PROCR 146 146 OPTION 13-'CHANGE MT DECK':BLOCK SERIAL TO BE ALIGNED ON AFTERWAR
14601 NOTES 170
14602 100 0 0 0 Halt
14700 PROCR 147 147 COPY OF 162 SET UP BEFORE*2
14701 NOTES 171
14702 100 0 0 0 Halt
14800 PROCR 148 148 COPY OF 183 DURING OPTION 13
14801 NOTES 172
14802 100 0 0 0 Halt
14900 PROCR 149 149 S/R LINK FOR ALIGNMENT FAILURE-BLOCK 6 TEST
14901 NOTES 173 173 ALIGNMENT FAILURE-REREAD AND SER COMMENT
14902 100 0 0 0 Halt
15000 PROCR 150 150 INTERCODE ROUTE TYPE WHEN DEALING WITH DB ON MT
15001 NOTES 174 WHEN TYPE IN SWITCH IS ALTERED TO BECOME SR LINK
15002 100 0 0 0 Halt
15100 PROCR 151 151 IND WITHIN'MT ALIGNMENT FAILURE'GIVING USE OF ROUTE
15101 NOTES 175 0=INPUT,2=OUTPUT AT PRESENT MOMENT
15102 100 0 0 0 Halt
15200 PROCR 152 152 WL FOR'SWITCH 101'ORDERS IN TYPING COMMENTS
15201 NOTES 176 26/0/0 ORDERS OR'CLEAR A'ORDER
15202 100 0 0 0 Halt
15300 PROCR 153 153 COUNTER N USED IN VARIOUS STEP BACK
Source image: P1020654.JPG
15301 NOTES 177 177 AND STEP FORWARD ROUTINES
15302 100 0 0 0 Halt
15400 PROCR 154 154 178,179=FIRST WORD OF MT BLOCK FOR REWRITING
15401 NOTES 178 IN DB ON MT OUTPUT
15402 100 0 0 0 Halt
15500 PROCR 155 155 SEE 178
15501 NOTES 179
15502 100 0 0 0 Halt
15600 PROCR 156 156 (1)IND PP DURING RUN FORWARD AND BACK 0=FORWARD 15=BACKWARDS
15601 NOTES 180 180 (2) CTR M=NO BLOCKS TO BE STEPPED BACK IN STEP BACK ROUT
15602 100 0 0 0 Halt
15700 PROCR 157 157 (1)CTR QQ=NO TIMES DIRECTION CHANGED DURING RUN FORWARD AND BACK
15701 NOTES 181 181 (2) IND N FOR STEP FORWARD OR BACK ZERO=O/P NON ZERO=1/P
15702 100 0 0 0 Halt
15800 PROCR 158 158 WORD 6 OF MT BLOCK IN OPEN FILE=PRESUMED SPOOL NUMBER
15801 NOTES 182 FROM BLOCK AFTER'RUN FWD+STEP FWD+READ'
15802 100 0 0 0 Halt
15900 PROCR 159 159 COPY OF LINK IN'ALIGNMENT FAILURE'SR-MT
15901 NOTES 183 COPY OF LINK IN P/T O/P SR
15902 100 0 0 0 Halt
16000 PROCR 160 160 DEC MT BLOCK NO FOUND,FOR'SER'COMMENT IN MT ALIGNMENT FAILURE
16001 NOTES 184
16002 100 0 0 0 Halt
16100 PROCR 161 161 BINARY CTR OF ATTEMPTS AT REREADING
16101 NOTES 185 BECAUSE OF MT SERIAL FAILURE
16102 100 0 0 0 Halt
16200 PROCR 162 162 NUMBER OF BLOCKS STEPPED BACK IN AN ATTEMPT TO REALIGN
16201 NOTES 186 186 DURING ALIGNMENT FAILURE S/R
16202 100 0 0 0 Halt
16300 PROCR 163 163 INDICATOR SET BEFORE*2
16301 NOTES 187 187 USED IN OPTION 13
16302 100 0 0 0 Halt
16400 PROCR 164 164 NON-ZERO IF PT O/P IS IN NON-STD MODE
16401 NOTES 188 ONLY 1 SUCH FILE PERMITTED PER PROGRAM
16402 100 0 0 0 Halt
16500 PROCR 165 165 OPEN FILE INDICATOR IN OPTION 13
16501 NOTES 189 189
16502 100 0 0 0 Halt
16600 PROCR 166 166 190,191,ANNEX FOR P/T O/P(P/T O/P ASSEMBLER)
16601 NOTES 190 USED IN INTERRUPTIBLE COUNT 500 MS
16602 100 0 0 0 Halt
16700 PROCR 167 167 SEE 190
16701 NOTES 191 191
16702 100 0 0 0 Halt
16800 PROCR 168 168 P/T O/P W/L WORD MODIFIER
16801 NOTES 192 192
16802 100 0 0 0 Halt
16900 PROCR 169 169 P/T O/P W/L CHARACTER MODIFIER(GP ASSEMBLER)
16901 NOTES 193 193
16902 100 0 0 0 Halt
Source image: P1020655.JPG
17000 PROCR 170 170 P/T O/P W/L CONTENTS OF 64+R
17001 NOTES 194 194
17002 100 0 0 0 Halt
17100 PROCR 171 171 P/T O/P W/L FILE IDENTITY
17101 NOTES 195 195
17102 100 0 0 0 Halt
17200 PROCR 172 172 P/T O/P W/L REEL COUNTER
17201 NOTES 196 196
17202 100 0 0 0 Halt
17300 PROCR 173 173 S/R LINK WRITE FINIS BLOCK,WRITE END OF TAPE INFORMATION
17301 NOTES 197
17302 100 0 0 0 Halt
17400 CONST 174 174 0 WORKING LOCATIONS-OMIT SPACES
17402 (B)0; *5:Ю OUT MODIFIER
17403 4128; OUT MODIFIER
17404 0; SPARE
17405 8; PACK IN MODIFIER
17406 4118; INDICATOR SPACES
17407 0; INDICATOR L/E'S
17500 PROCR 175 175 LOG REQUEST QUEUE
17502 100 0 0 0 Halt OPTION REQ
17503 100 0 0 0 Halt OPTION OUTSTANDING INDICATOR
17504 100 0 0 0 Halt MASTER REQ
17505 100 106 2 0 0 Halt
17506 100 0 0 0 Halt PROG 1 REQ
17507 100 111 2 0 0 Halt
17508 100 0 0 0 Halt *1.2 PROG 2 REQ
17509 100 113 2 0 0 Halt
17510 100 0 0 0 Halt *1:2 PROG 3 REQ
17511 100 115 2 0 0 Halt
17512 100 0 0 0 Halt *1£2 PROG 4 REQ
17513 100 117 2 0 0 Halt
17514 100 0 0 0 Halt *382 PROG 5 REQ
17515 100 119 2 0 0 Halt
17516 100 0 0 0 Halt *392 PROG 6 REQ
17517 100 121 2 0 0 Halt
17518 100 0 0 0 Halt *4.2 PROG 7 REQ
17519 100 123 2 0 0 Halt
17520 100 0 0 0 Halt *5Ю2 PROG 8 REQ
17521 100 125 2 0 0 Halt
17600 PROCR 176 176 REQUEST TYPEWRITER FOR OPTIONS
17601 NOTES RADIX B
17602 100 0 0 0 Halt LINK
17603 106 176 2 0 0 select (N) STORE LINK
17604 124 3 0 1 modify address of next
17605 102 169 0 0 transfer (A) to N
17606 106 175 3 0 0 select (N) TEST OPTION
17607 127 176 19 0 1 jump A != Z >YES OUTSTANDING
17608 126 359 2 0 0 enter subroutine >RESTORE SI=3
17609 106 210 3 0 0 select (N)
17610 102 175 3 0 0 transfer (A) to N SET OPTION OUTSTANDING INDICATOR
17611 126 177 2 0 0 enter subroutine >REQUEST T/W
17612 124 104 6 1 3 store indicators SET UP (P)
17613 125 8191 1 1 clear indicators CLEAR I1-I13
17614 125 128 1 0 set indicators SET I8
17615 106 210 3 0 0 select (N)
17616 102 103 2 0 0 transfer (A) to N SET LL1
17617 124 3 0 1 modify address of next
17618 126 169 0 1 leave subroutine >LEAVE S/R
Source image: P1020656.JPG
17607>17619 124 176 6 0 2 select literal and division
17620 102 42 0 1 transfer (A) to N
17621 126 360 2 0 0 enter subroutine >SET SI=5
39210>17622 124 2 0 1 modify address of next
17623 124 9 1 0 unconditional jump >SI+9
17700 PROCR 177 177 REQUEST TYPEWRITER
17701 NOTES RADIX B
17702 100 0 0 0 Halt LINK
17703 126 179 2 0 0 enter subroutine >SEARCH LOG QUEUE S/R
17704 106 177 2 0 0 select (N) SET REQUEST WITH LINK
17705 102 175 4 0 3 transfer (A) to N
17706 106 9 0 1 select (N) SET SPI=2
17707 102 7 0 1 transfer (A) to N
20115>17708 106 104 5 0 0 select (N) SET L6=1
17709 102 103 27 0 0 transfer (A) to N
17710 124 103 7 1 0 unconditional jump >HEAD OF QUEUE
17800 PROCR 178 178 RESET REQUEST
10329>17802 106 175 2 0 3 select (N) STORE RETURN LINK
17803 102 103 19 0 0 transfer (A) to N
17804 102 175 2 0 3 transfer (A) to N RESET REQUEST
17805 106 6 0 0 select (N) TEST ANSWER
17806 127 180 2 0 0 jump A = Z >YES TO OPTION
17807 125 0 1 2 interrogate indicators
17808 124 6 0 1 modify address of next
17809 124 175 3 0 1 modify address of next
17810 126 36 1 1 set modification register SET UP MR1
17811 126 103 19 0 1 leave subroutine >RETURN
17900 PROCR 179 179 SEARCH LOG REQUEST QUEUE
17902 100 0 0 0 Halt LINK
17903 101 0 1 3 select literal address CLEAR MODIFIER
17904 102 106 9 0 0 transfer (A) to N
17905 126 106 9 1 3 set modification register MR3 START/END LOG QUEUE
17910>17906 106 2 0 0 select (N) TEST NEXT ENTRY IN
17907 105 175 5 0 3 subtract (N) from (A) LOG QUEUE FOR THIS PROGRAM
17908 127 179 12 0 0 jump A = Z >YES
17909 125 2 0 3 step on and test TEST END OF QUEUE
17910 124 179 6 1 0 unconditional jump >NO NEXT ENTRY
17911 124 208 19 1 0 unconditional jump
17908>17912 126 179 2 0 1 leave subroutine >LEAVE S/R
18000 PROCR 180 180 TYPEWRITER ANSWER TO OPTIONS
18001 NOTES RADIX B PREPARE TO OUTPUT
17806>18002 126 234 2 0 0 enter subroutine >S/R H
18003 101 197 2 1 3 select literal address SELECT TABLE-START LOCN.
18004 128 102 6 1 2 edit fixed field formats SET UP COMMENT IN T/W ANNEXE
18100 PROCR 181 181 TYPEWRITER PREPARE TO OUTPUT
18101 NOTES RADIX B
20308>
20609>
20729>
20818>
24019>
33514>
33612>
45221>
45515>
45835>
47808>
53503>18102 106 108 26 0 0 select (N) SET L1=1
18103 102 103 10 0 0 transfer (A) to N
18104 106 103 20 0 0 select (N) SET L5=1
18105 102 182 24 0 0 transfer (A) to N *293
Source image: P1020657.JPG
18106 101 102 4 1 3 select literal address
18107 103 104 8 0 0 copy (A) to N SET UP '(64+R)'
18108 102 104 9 0 0 transfer (A) to N
18109 101 4118 1 3 select literal address *5:Ю*292 SET UP
18110 103 174 2 0 0 copy (A) to N MODIFIERS FOR PICK UP
18111 102 174 6 1 0 transfer (A) to N INDICATOR
18112 101 8 1 3 select literal address
18113 102 174 5 0 0 transfer (A) to N MODIFIER FOR PACK IN
18114 101 3 1 3 select literal address TEST OMIT CATEGORY SET
18115 126 332 2 0 0 enter subroutine
18116 127 181 19 0 0 jump A = Z >DON'T OMIT
18117 106 182 63 0 0 select (N) SET UP SWITCH
18118 124 181 20 1 0 unconditional jump
18116>18119 106 182 62 0 0 select (N)
18118>18120 102 182 26 0 0 transfer (A) to N
18121 102 154 1 0 transfer (A) to N *5:Ю*292
18122 106 212 14 1 0 select (N) *262 SET IND MOD REG 10/0
18123 102 198 8 1 0 transfer (A) to N
18124 101 3 1 3 select literal address *5:Ю OMIT CATEGORY
18125 126 332 2 0 0 enter subroutine TEST SET
18126 127 181 29 0 0 jump A = Z >DON'T OMIT
18127 106 182 14 0 0 select (N) SET UP SWITCH
18128 124 181 30 1 0 unconditional jump
18126>18129 106 181 42 0 0 select (N)
18128>18130 102 182 5 0 0 transfer (A) to N *5:Ю
18131 100 198 2 1 2 replace (B) by (N) BITS 1-6 IN EACH OCTET
18132 124 104 9 0 1 modify address of next COLLATE WORD TO BE OUTPUT
18133 115 0 1 0 collate and add
18134 102 198 10 1 0 transfer (A) to N *262 STORE
18135 124 154 0 2 select literal and division *293743 SET UP ASL
18136 124 100 37 0 1 modify address of next
18137 102 64 0 0 transfer (A) to N
18138 106 209 4 0 0 select (N)
18139 105 100 37 0 0 subtract (N) from (A) SET SL=1
18140 102 103 9 0 0 transfer (A) to N
18141 124 103 9 1 0 unconditional jump >TEST ROUTE
18142 124 182 14 1 0 unconditional jump *262*5:9
18143 124 182 78 1 0 unconditional jump *££0*££2*293
18144 102 182 2 0 0 transfer (A) to N *293293
18145 124 182 2 1 0 unconditional jump *292293
18146 106 182 2 0 0 select (N) *291293
18147 103 166 2 1 0 copy (A) to N *743
18148 106 166 2 1 0 select (N) *743743
18149 102 166 2 1 0 transfer (A) to N *743743743*293743
18200 PROCR 182 182 TYPEWRITER MAIN OUTPUT LOOP
18201 NOTES RADIX B
18145>
10027>
10025>18202 106 198 10 1 0 select (N) *262 SELECT COLLATED WORD SWITCH L5
18203 124 198 8 0 1 modify address of next
18204 118 4120 0 0 shift logical CHARACTER TO BE OUTPUT IN
18205 118 8 0 0 shift logical *5:Ю ***** ALIGN TO Q1
18206 118 4120 0 0 shift logical ALIGN TO Q1
18207 103 154 1 0 copy (A) to N *743 STORE WORD
18208 127 182 88 0 0 jump A = Z >SPACE
18209 101 61 1 2 subtract literal address IS A N/E
18210 127 182 88 0 0 jump A = Z >YES
18211 101 1 1 3 select literal address
18212 102 182 87 0 0 transfer (A) to N SET INDICATOR
18213 106 154 1 0 select (N) *5:Ю*743743
18292>
18142>18214 118 8 0 0 shift logical 833-38
18215 102 154 1 0 transfer (A) to N *743743743
18216 124 100 37 0 1 modify address of next OUTPUT
18217 119 0 0 0 output
Source image: P1020658.JPG
18294>18218 102 182 95 0 0 transfer (A) to N *5:9
18219 123 2 0 0 step on and test STEP AND TEST INDIRECT MOD REGISTER
18220 100 198 8 0 0 Halt
18221 124 184 4 1 0 unconditional jump >UPDATE ASSEMBLER TABLE
18222 101 15 0 1 prepare for digit collation TEST END OF BLOCK
18223 115 198 10 1 0 collate and add *262 COLLATE WORD JUST OUTPUT
18254>
18624>
10318>
10314>18224 124 104 9 0 1 modify address of next *292
18225 106 0 1 0 select (N) TO BE OUTPUT
18226 124 174 2 0 1 modify address of next *5:Ю *****
18227 118 0 1 0 shift logical ALIGN CHARACACTER
18228 118 2 1 3 shift binary TO BITS 1-6 OF
18229 101 0 1 3 select literal address REGISTER A
18230 118 6 1 3 shift binary
18231 127 183 2 0 0 jump A = Z >ZERO
18232 101 30 1 2 subtract literal address
18233 127 183 9 0 0 jump A = Z >L/E
18234 101 31 1 2 subtract literal address
18235 127 183 2 0 0 jump A = Z >N/E
18236 101 1 1 2 subtract literal address
18237 127 183 7 0 0 jump A = Z >B/E
18238 101 62 1 1 add literal address
18308>18239 103 174 6 1 0 copy (A) to N SET INDICATOR
18306>
18314>
18323>18240 101 3 0 1 prepare for digit collation SET B
18241 124 174 5 0 1 modify address of next ALIGN CHARACTER
18242 118 0 1 0 shift logical
18243 114 154 1 0 replace selected bits PACK IN CHARACTER
18244 106 182 64 0 0 select (N) STEP PACK IN
18245 107 174 5 0 0 augment (N) by (A) MODIFIER
18303>18246 123 2 0 0 step on and test STEP PICK UP
18247 100 174 2 0 0 Halt MODIFIER
18248 124 182 53 1 0 unconditional jump >NEXT CHARACTER
18249 101 2 1 3 select literal address
18250 107 104 9 0 0 augment (N) by (A) WORD MODIFIER
18251 101 4118 1 3 select literal address RESET PICK UP
18252 102 174 2 0 0 transfer (A) to N MODIFIER
18248>18253 106 174 5 0 0 select (N) TEST END OF O/P WORD
18254 127 182 24 0 2 jump A >= Z >NO
18255 124 100 37 0 1 modify address of next OUTPUT WORD
18256 119 0 0 0 output
18257 101 8 1 3 select literal address RESET MODIFIER
18258 102 174 5 0 0 transfer (A) to N
18259 106 174 7 0 0 select (N) TEST SECOND L/E
18260 127 184 2 0 3 jump A < Z >YES
18261 124 184 4 1 0 unconditional jump UPDATE ASSEMBLER TABLE
18262 124 182 65 1 0 unconditional jump
18263 124 174 2 0 1 modify address of next
18264 116 2 0 0 Invalid *5:Ю
18262>18265 102 154 1 0 transfer (A) to N
18266 126 402 2 0 0 enter subroutine >TEST FOR B/E
18267 124 182 84 1 0 unconditional jump >B/E FOUND
18268 124 100 37 0 1 modify address of next OUTPUT
18269 119 0 0 0 output
18270 125 0 1 2 interrogate indicators DRAIN
18271 100 109 20 0 2 replace (B) by (N)
18272 115 154 1 0 collate and add *292
18273 101 7710 1 2 subtract literal address TEST FOR 2 L/E'S IN LAST WORD
18274 127 184 2 0 0 jump A = Z >YES
18275 106 212 6 0 0 select (N) STEP INDIRECT MOD TOO/P NEXT WORD
18276 107 104 9 0 0 augment (N) by (A)
18277 125 0 1 2 interrogate indicators
18143>18278 102 198 8 0 0 transfer (A) to N *262
Source image: P1020659.JPG
18279 100 198 2 1 2 replace (B) by (N) BITS 1-6 IN EACH OCTET
18280 124 104 9 0 1 modify address of next COLLATE WORD TO BE OUTPUT
18281 115 0 1 0 collate and add
18282 102 198 10 1 0 transfer (A) to N *262 STORE
18283 124 184 4 1 0 unconditional jump >UPDATE ASSEMBLER TABLE
18267>18284 115 198 6 1 0 collate and add *292 COLLATE OUT?
18285 114 154 1 0 replace selected bits
18286 124 402 11 1 0 unconditional jump *292
18287 100 0 0 0 Halt *262*5:Ю
18210>
18208>18288 106 182 87 0 0 select (N) TEST INDICATOR SET
18289 127 182 93 0 0 jump A = Z NO
18290 101 0 1 3 select literal address SET INDICATOR
18291 102 182 87 0 0 transfer (A) to N ZERO
18292 124 182 14 1 0 unconditional jump OUTPUT CHARACTER
18289>18293 101 1 1 3 select literal address INDICATOR FOR
18294 124 182 18 1 0 unconditional jump
18295 100 0 0 0 Halt *262*5:Ю
18300 PROCR 183 183 CONT
18235>
18231>18302 106 174 6 0 0 select (N) *5:Ю*292 TEST FIRST SPACE OR N/E
18303 127 182 46 0 0 jump A = Z >NO
18319>18304 101 0 1 3 select literal address SET INDICATOR
18305 102 174 6 0 0 transfer (A) to N
18306 124 182 40 1 0 unconditional jump >OUTPUT SPACE
18237>18307 101 29 1 3 select literal address SELECT?
18308 124 182 39 1 0 unconditional jump >OUTPUT?
18233>18309 106 174 7 0 0 select (N) TEST FIRST L/E
18310 127 183 15 0 1 jump A != Z >NO
18311 101 1 1 3 select literal address SET L/E INDICATOR
18312 102 174 7 0 0 transfer (A) to N
18313 101 30 1 3 select literal address L/E
18314 124 182 40 1 0 unconditional jump >
18310>18315 106 174 5 0 0 select (N)
18316 127 183 20 0 0 jump A = Z
18317 106 182 64 0 0 select (N)
18318 107 174 2 0 0 augment (N) by (A)
18319 124 183 4 1 0 unconditional jump >OUTPUT SPACE
18316>18320 101 1 1 2 subtract literal address
18321 103 174 7 0 0 copy (A) to N >OUTPUT L/E
18322 101 30 1 3 select literal address
18323 124 182 40 1 0 unconditional jump >OUTPUT L/E
18400 PROCR 184 184 TYPEWRITER PROCEDURE AT END OF WORD
18401 NOTES RADIX B
18274>
18260>18402 106 103 21 0 0 select (N) SET L5=2
18403 102 182 24 0 0 transfer (A) to N *293293
18512>
18283>
18261>
18221>18404 100 210 10 0 2 replace (B) by (N) SET(MR3)=8*CH NO
18405 115 100 37 0 0 collate and add
18406 102 6 1 0 transfer (A) to N
18407 106 182 95 0 0 select (N) *262*5:Ю TEST O/P THIS TIME
18408 127 103 9 0 1 jump A != Z *262*5:Ю >TEST ROUTE
18409 106 100 37 1 0 select (N) UPDATE ASSEMBLER TABLE
18410 102 252 2 1 3 transfer (A) to N
18411 124 103 9 1 0 unconditional jump >TEST ROUTE
18500 PROCR 185 185 TYPEWRITER END OF BLOCK ROUTINE
18501 NOTES RADIX B
10321>18502 106 103 3 0 0 select (N) SELECT LL2 TEST COMMAND HAS
18503 127 103 23 0 0 jump A = Z >NO BEEN IGNORED
18504 125 0 1 2 interrogate indicators SET LL2=0
Source image: P1020660.JPG
18505 102 103 3 0 0 transfer (A) to N
18506 101 105 4 1 3 select literal address SELECT START LOCN OF COMMENT
18507 103 104 8 0 0 copy (A) to N SET UP (64+R)
18508 102 104 9 0 0 transfer (A) to N
18718>18509 106 103 20 0 0 select (N) SET L5=1
18510 102 182 24 0 0 transfer (A) to N *293293
18511 102 182 95 0 0 transfer (A) to N *5:9*262 CLEAR CHARACTER O/P INDICATOR
18512 124 184 4 1 0 unconditional jump *293 >UPDATE ASSEMBLER TABLE
18600 PROCR 186 186 TYPEWRITER ROUTE CLOSED ROUTINE
18601 NOTES RADIX B
10826>
10310>18602 124 104 7 1 3 store indicators SET UP (Q)
18603 106 182 24 0 0 select (N) *291293
18604 102 103 19 0 0 transfer (A) to N
18605 105 212 5 0 0 subtract (N) from (A) SET L1=2
18606 107 103 10 0 0 augment (N) by (A)
18607 106 103 22 0 0 select (N) SET L5=3
18608 102 182 24 0 0 transfer (A) to N *293293
18609 124 186 14 1 0 unconditional jump >
18610 125 4095 1 2 interrogate indicators I1-I12 TEST IF OP HAS
18611 101 3840 1 2 subtract literal address B9-B12 STACKED INDS
18612 127 103 9 0 0 jump A = Z >NO, TEST ROUTE
18613 102 103 3 0 0 transfer (A) to N SET LL2
18609>18614 125 8191 1 1 clear indicators I1-I13
18615 125 3840 1 0 set indicators I9-I12
18616 124 103 9 1 0 unconditional jump >TEST ROUTE
10322>18617 106 108 26 0 0 select (N) SET L1=1
18618 102 103 10 0 0 transfer (A) to N
18619 106 103 19 0 0 select (N) RESET L5 AT PREVIOUS SETTING
18620 102 182 24 0 0 transfer (A) to N *293293
18621 125 8191 1 1 clear indicators I1-I13
18622 124 104 7 0 1 modify address of next RESET (I)=(Q)
18623 125 0 1 0 set indicators
18624 124 182 24 1 0 unconditional jump *292293
18700 PROCR 187 187 TYPEWRITER DOUBTFUL BLOCK ROUTINE
18701 NOTES RADIX B
27504>18702 125 2048 1 2 interrogate indicators TEST I12 SET
18703 127 187 7 0 0 jump A = Z >NO
18704 125 8191 1 1 clear indicators CLEAR I1-I13
18705 124 104 7 0 1 modify address of next RESET (I)=(Q)
18706 125 0 1 0 set indicators
18703>18707 106 103 18 0 0 select (N) SET SLAS=1
18708 102 103 14 0 0 transfer (A) to N
18709 106 198 4 1 0 select (N) L/E FOR O/P
18710 102 154 1 0 transfer (A) to N *293743
18711 124 100 37 0 1 modify address of next
18712 119 0 0 0 output
18713 106 104 8 0 0 select (N) SET UP(64+R)
18714 105 212 6 0 0 subtract (N) from (A)
18715 102 104 9 0 0 transfer (A) to N
18716 106 108 26 0 0 select (N) SET L1=1
18717 102 103 10 0 0 transfer (A) to N
18718 124 185 9 1 0 unconditional jump >
18719 100 477 8 0 0 Halt *££0*££2*41‼
18720 100 477 8 0 0 Halt *09‼08‼07‼5:‼69‼68‼67‼66‼6Ю‼86‼86‼
18721 127 199 19 0 1 jump A != Z *163 >NO
18722 124 477 8 1 0 unconditional jump *14‼
18723 126 385 2 0 0 enter subroutine *163163
18724 127 202 2 0 0 jump A = Z *463163 >YES
18725 105 221 38 0 0 subtract (N) from (A) *85‼
18800 CONST 188 188 1 ROUTE NUMBER AND TYPE
18802 (D)0;
Source image: P1020661.JPG
18900 PROCR 189 189 MAGNETIC FILE DETAILS
19000 CONST 190 190 1 MAGNETIC TAPE FILE DETAILS
19002 (D)0; BLOCK COUNTER
19004 0;
19006 0;
19008 0;
19010 0; *222
19012 0;
19014 0;
19016 0;
19018 0; *232
19020 0;
19022 0;
19024 0;
19026 0; *242
19028 0;
19030 0;
19032 0; *222*232*242
19034 0; REEL COUNTER
19036 0;
19038 0;
19040 0;
19042 0; *222
19044 0;
19046 0;
19048 0;
19050 0; *232
19052 0;
19054 0;
19056 0;
19058 0; *242
19060 0;
19062 0;
19064 0; *222*232*242
19066 0; PROGRAMME NUMBER
19068 0;
19070 0;
19072 0;
19074 0; *222
19076 0;
19078 0;
19080 0;
19082 0; *232
19084 0;
19086 0;
19088 0;
19090 0; *242
19092 0;
19094 0;
19096 0; *222*232*242
19098 0; FILE IDENTITY
19100 CONST 191 191 1 MAG TAPE FILE DETAILS CONTD
19102 (D)0;
19104 0;
19106 0;
19108 0; *222
19110 0;
19112 0;
19114 0;
19116 0; *232
19118 0;
19120 0;
19122 0;
19124 0; *242
Source image: P1020662.JPG
19126 0;
19128 0;
19130 0; *222*232*242
19132 0; RUN+RERUN NUMBER
19134 0;
19136 0;
19138 0;
19140 0; *222
19142 0;
19144 0;
19146 0;
19148 0; *232
19150 0;
19152 0;
19154 0;
19156 0; *242
19158 0;
19160 0;
19162 0; *222*232*242
19164 0; *01Ю HIGH DENSITY INDICATORS
19166 0;
19168 0;
19170 0;
19172 0; *222
19174 0;
19176 0;
19178 0;
19180 0; *232
19182 0;
19184 0;
19186 0;
19188 0; *242
19190 0;
19192 0;
19194 0;
19200 CONST 192 192 1 MAG TAPE FILE DETAILS CONT
19202 (D)0; *51Ю
19204 0;
19206 0;
19208 0;
19210 0; *222
19212 0;
19214 0;
19216 0;
19218 0; *232
19220 0;
19222 0;
19224 0;
19226 0; *242
19228 0;
19230 0;
19232 0;
19300 CONST 193 193 1 DB COUNTS
19302 (D)0; *8£Ю DB'S
19304 0;
19306 0;
19308 0;
19310 0; *222
19312 0;
19314 0;
19316 0;
19318 0; *232
19320 0;
19322 0;
Source image: P1020663.JPG
19324 0; *222*232
19326 0; O/P BLOCK COUNTS
19328 0;
19330 0;
19332 0;
19334 0; *222
19336 0;
19338 0;
19340 0;
19342 0; *232
19344 0;
19346 0;
19348 0; *222*232
19350 0; SPOOL NOS
19352 0;
19354 0;
19356 0;
19358 0; *222
19360 0;
19362 0;
19364 0;
19366 0; *232
19368 0;
19370 0;
19372 0; *222*232
19400 CONST 194 194 1 MAG TAPE DETAILS
19402 (D)0; *3:Ю
19404 0;
19406 0;
19408 0;
19410 0;
19412 0;
19414 0;
19416 0;
19418 0;
19420 0;
19422 0;
19424 0;
19426 0;
19428 0;
19430 0;
19432 0;
19434 0;
19436 0;
19438 0;
19440 0;
19442 0;
19444 0;
19446 0;
19448 0;
19450 0;
19452 0;
19454 0;
19456 0;
19458 0;
19460 0;
19462 0;
19464 0;
19500 CONST 195 195 1 MAG TAPE DETAILS
19502 (D)0; *3:Ю
19504 0;
19506 0;
19508 0;
19510 0;
Source image: P1020664.JPG
19512 0;
19514 0;
19516 0;
19518 0;
19520 0;
19522 0;
19524 0;
19526 0;
19528 0;
19530 0;
19532 0;
19534 0;
19536 0;
19538 0;
19540 0;
19542 0;
19544 0;
19546 0;
19548 0;
19550 0;
19552 0;
19554 0;
19556 0;
19558 0;
19560 0;
19562 0;
19564 0;
19600 CONST 196 196 1 RELEASED TAPES LIST
19602 (D)0;
19604 0;
19606 0;
19608 0;
19610 0;
19612 0;
19614 0;
19616 0;
19618 0;
19620 0;
19622 0;
19624 0;
19626 0;
19628 0; *4:24ЮЮ
19630 0;
19632 0;
19634 0;
19636 0;
19638 0;
19640 0;
19642 0;
19644 0;
19646 0;
19648 0;
19700 TABLE 197 197 1
19701 NOTES
19702 214 8 0 0 2 0 5 0 0 0 0 0 0 O,P,T,SP,SP
19704 211 22 0 0 2 0 2 0 3 0 0 0 1 3 SP,L/E,L/E
19800 CONST 198 198 1 LONG CONSTANTS FOR TYPEWRITER
19802 (D)3£3£3£3£3£;
19804 1.; L/E
19806 5:5:5:5:5:; *291 QUERIES
19808 0; *262 IND MOD REG
19810 0; COLLATED WORD
Source image: P1020665.JPG
19900 PROCR 199 199 OPERATOR INTERVENTION
19901 NOTES RADIX B DETERMINE GROUP
10326>19902 101 0 127 1 2 subtract literal address TEST I1>I7 SET
19903 127 103 27 0 0 jump A = Z >YES
19904 101 127 1 1 add literal address
19905 102 222 2 0 0 transfer (A) to N STORE INDICATOR SETTING
19906 124 185 1 3 store indicators STORE(I)
19907 126 107 8 1 1 set modification register SET (MR1) FOR M/R SWITCH
19908 106 103 2 0 0 select (N) TEST OPTION
19909 127 199 14 0 1 jump A != Z >YES OUTSTANDING
19910 106 175 2 1 0 select (N) TEST OPTION IN PROGRESS
19911 127 199 22 0 0 jump A = Z >NO
19912 125 6143 1 1 clear indicators CLEAR I1-I11 I13
19913 124 199 20 1 0 unconditional jump
19909>19914 125 1792 1 2 interrogate indicators TEST OPTION
48323>19915 125 6143 1 1 clear indicators CLEAR I1-I11 I13
19916 127 200 2 0 0 jump A = Z *163 >YES
19917 105 221 43 0 0 subtract (N) from (A) *16Ю OPTIONS NOT ACCEPTED
19918 127 200 2 0 2 jump A >= Z *16Ю DURING UPTIME DELAY
18721>19919 125 128 1 0 set indicators SET I8
19940>
19990>
19913>19920 102 103 3 0 0 transfer (A) to N SET C ION INDICATOR
19921 124 103 7 1 0 unconditional jump >HEAD OF QUEUE
19911>19922 106 487 2 0 0 select (N) TEST IF ALLOCATION
19923 127 199 41 0 0 jump A = Z >NO IS BEING PERFORMED
19924 106 222 2 0 0 select (N)
19925 101 1281 1 2 subtract literal address TEST GP 5 FN 1
19926 127 199 38 0 1 jump A != Z >NO
19927 106 108 12 0 0 select (N) *14Ю
19928 102 106 13 0 0 transfer (A) to N *14Ю
19929 125 6143 1 1 clear indicators CLEAR I1-I11,I13
19930 125 127 1 0 set indicators SET I1-I7
19931 106 460 51 0 0 select (N) *142 TEST READING C/D
19932 127 199 37 0 0 jump A = Z >NO
19933 106 222 18 0 0 select (N) YES RESTORE ASL
19934 124 222 20 0 1 modify address of next
19935 102 64 0 0 transfer (A) to N
19936 102 460 51 0 0 transfer (A) to N *142
19932>19937 124 295 2 1 0 unconditional jump *14‼ >
19926>19938 125 6143 1 1 clear indicators CLEAR INDICATORS
19939 125 127 1 0 set indicators SET I1>I7
19940 124 199 20 1 0 unconditional jump >
19923>19941 125 1792 1 2 interrogate indicators TEST GROUP 0
19942 127 199 49 0 0 jump A = Z >YES
19943 106 108 12 0 0 select (N) SET M/R SWITCH
19944 102 106 13 0 0 transfer (A) to N NON-INT
19945 125 1792 1 2 interrogate indicators GROUP NO.
19946 118 4126 0 0 shift logical
19947 103 199 78 0 0 copy (A) to N
19948 101 8 1 2 subtract literal address *5£+*12+ 0000500005
19942>19949 125 6143 1 1 clear indicators CLEAR I1-I11,I13
19950 125 127 1 0 set indicators SET I1-I7
19951 127 477 8 0 2 jump A >= Z >REJECT
19952 106 222 2 0 0 select (N) STORE COMMAND
19953 103 233 7 0 0 copy (A) to N
19954 102 487 2 0 0 transfer (A) to N SET ALLOCATOR LINK
19955 101 5 0 1 prepare for digit collation *16Ю
19956 115 222 2 0 0 collate and add
19957 101 514 1 2 subtract literal address
19958 127 199 67 0 0 jump A = Z
19959 101 2 1 2 subtract literal address
19960 127 199 67 0 0 jump A = Z >2/0/4
19961 101 512 1 2 subtract literal address
19962 127 199 67 0 0 jump A = Z >4/0/4
19963 101 2 1 1 add literal address
Source image: P1020666.JPG
19964 127 199 67 0 0 jump A = Z >4/0/2
19965 125 0 1 2 interrogate indicators
19966 124 199 76 1 0 unconditional jump
19964>
19962>
19960>
19958>19967 106 221 34 0 0 select (N)
19968 127 199 76 0 0 jump A = Z >UPTIME NOT IN
19969 106 108 11 0 0 select (N) SET M/R SWITCH
19970 102 106 13 0 0 transfer (A) to N INT
19971 126 379 2 0 0 enter subroutine >CLOSE RT
19972 127 103 7 0 3 jump A < Z >PRIORITY QUEUE DELAY
19973 126 380 2 0 0 enter subroutine >SET EVERYTHING BACK
19974 106 108 12 0 0 select (N)
19975 102 106 13 0 0 transfer (A) to N *16Ю
19968>
19966>19976 124 199 78 0 1 modify address of next
19977 126 199 78 0 1 leave subroutine
19978 100 0 0 0 Halt
19979 100 503 2 0 0 Halt *09‼08‼07‼5:‼69‼68‼67‼66‼6Ю‼86‼86‼
19980 100 516 2 0 0 Halt >GROUP2
19981 100 523 2 0 0 Halt *41‼ >GROUP 3
19982 100 524 2 0 0 Halt >GROUP 4
19983 100 477 8 0 0 Halt *5£Ю*12Ю >GROUP 5 REJECT
19984 100 532 2 0 0 Halt >GROUP 6 SET ROUTE AVAILABLE
19985 100 532 2 0 0 Halt *5£Ю*12Ю >GROUP 7 WITHDRAW ROUTE
48935>19986 125 3855 1 2 interrogate indicators *40Ю*41Ю
19987 101 769 1 2 subtract literal address TEST STORE DUMP
19988 127 463 2 0 0 jump A = Z >YES
19989 125 6143 1 1 clear indicators CLEAR I1-I11,I13
19990 124 199 20 1 0 unconditional jump >SET C IGN INDICATOR
20000 PROCR 200 200 GROUP D (1)
20001 NOTES RADIX B TEST SELECTED OPTIONS
19918>
19916>20002 106 222 4 0 0 select (N) SET(MR1)FOR LAST
20003 102 2 1 0 transfer (A) to N PROG.TO OFFER OPTIONS
20004 101 213 12 1 3 select literal address
20005 112 222 2 0 0 convert CONVERT OPT NO TO BINARY
20006 103 222 3 0 0 copy (A) to N TESTIF OPTION CHOICE
20007 101 16 1 2 subtract literal address IS OUT OF RANGE
20008 127 203 2 0 2 jump A >= Z >REJECT
20009 101 15 1 1 add literal address
20010 102 222 6 0 0 transfer (A) to N
20011 106 210 8 0 0 select (N) FORM BIT
20012 124 222 6 0 1 modify address of next CORRESPONDING TO
20013 118 0 0 3 shift binary CHOSEN OPTION
20014 118 4118 1 0 shift logical
20015 115 41 0 1 collate and add TEST CHOSEN OPTION
20016 127 203 2 0 0 jump A = Z >REJECT ALLOWED
20017 124 104 6 0 0 modify address of next SET INDICATORS WITH (P)
20018 125 0 1 0 set indicators
20019 101 512 1 2 subtract literal address *46Ю TEST'DEFER OPTION'
20020 127 202 7 0 0 jump A = Z *46Ю*463163 >YES
20021 106 222 3 0 0 select (N)
20022 104 43 0 1 add (N) to (A) FORM & STORE LOCN. CONTAINING S/C
20023 102 222 3 0 0 transfer (A) to N ADDRESS CORRESPONDING TO CHOSEN OPTION
20024 101 16 0 1 prepare for digit collation
20025 115 38 0 1 collate and add TEST IF SWITCH TO BE
20026 127 201 2 0 0 jump A = Z >YES SET AT 4
20027 124 222 3 0 1 modify address of next SET LINK FOR SI=1
20028 106 0 0 0 select (N)
20029 101 267 2 1 2 subtract literal address
20030 104 209 12 0 0 add (N) to (A)
20031 102 31 0 1 transfer (A) to N
20032 102 45 0 1 transfer (A) to N CLEAR ASSOCIATED TIME
Source image: P1020667.JPG
20033 106 209 4 0 0 select (N) SET SI=1
20034 105 30 0 1 subtract (N) from (A)
20035 124 201 7 1 0 unconditional jump >
20100 PROCR 201 201 GROUP O(2)
20101 NOTES RADIX B OUTPUT COMMENT ETC.
20026>20102 124 222 3 0 1 modify address of next SET LINK FOR SI=4
20103 106 0 0 0 select (N)
20104 115 43 0 1 collate and add
20105 102 44 0 1 transfer (A) to N
20106 106 35 0 1 select (N) SET SI=4
20035>20107 102 7 0 1 transfer (A) to N *163163 CONVERT OPT NO TO
20108 106 222 2 0 0 select (N) ALPHA
20109 103 222 3 1 0 copy (A) to N
20110 106 222 2 1 0 select (N)
20213>20111 101 15 0 1 prepare for digit collation FILL Q1-4
20112 114 214 8 1 0 replace selected bits PACK CHOSEN OPTION (ALPHA)>
20113 102 175 2 1 0 transfer (A) to N SET REQ & CLEAR OPT OUTSTANDING IND
20114 102 103 2 0 0 transfer (A) to N CLEAR LL1
20115 124 177 8 1 0 unconditional jump >SET L6=1
20200 PROCR 202 202 GROUP O (3)
20201 NOTES RADIX B DEFER OPTIONS
18724>20202 106 221 43 0 0 select (N) *16Ю TEST UPTIME STOPPED
20203 127 202 7 0 2 jump A >= Z >NO
20204 106 2 0 0 select (N) TEST OPT FOR
20205 126 386 2 0 0 enter subroutine *85‼
20206 127 203 2 0 0 jump A = Z *16Ю >YES REJECT
20203>
20020>20207 106 8 0 1 select (N) *46Ю SET S=3
20208 102 7 0 1 transfer (A) to N
20209 126 347 2 0 0 enter subroutine >ASSOC. TIME S/R
20210 101 202 14 1 3 select literal address
20211 102 42 0 1 transfer (A) to N
20212 101 84 1 3 select literal address 'D'
20213 124 201 11 1 0 unconditional jump
20214 124 270 2 0 2 select literal and division *464 00004
20215 102 42 0 1 transfer (A) to N RESET LINK FOR SI=3
20216 102 45 0 1 transfer (A) to N CLEAR ASSOC. TIME
20217 101 16 0 1 prepare for digit collation Q5B TEST M/R OPTION
20218 115 38 0 1 collate and add
20219 127 205 21 0 0 jump A = Z >NO
20220 124 2 0 1 modify address of next SET(MR1)FOR
20221 126 36 1 1 set modification register COMMERCIAL PROG.
20222 124 290 2 1 0 unconditional jump >I/P O/P CONTROL
20300 PROCR 203 203 OPERATOR INTERVENTION REJECTION
20301 NOTES RADIX B
29585>
20206>
20016>
20008>20302 125 128 1 0 set indicators SET I8,REJECT
20303 126 177 2 0 0 enter subroutine > REQUEST T/W
20304 101 4 1 3 select literal address OPTIONS
20305 126 234 2 0 0 enter subroutine >S/R H
20306 124 216 20 0 2 select literal and division EDIT COMMENT
20307 128 102 6 1 2 edit fixed field formats
20308 124 181 2 1 0 unconditional jump >LOG ROUTINE
20400 PROCR 204 204 ENTRY FOR PROGRAMME UNLOAD
20401 NOTES RADIX B
20402 124 212 2 1 1 set modification group *££0*££2*49‼
20403 100 212 2 0 3 set radix *09‼06‼ SET BINARY
20404 126 385 2 0 0 enter subroutine *163
20405 101 1 1 2 subtract literal address *££2*46‼
10007>20406 106 209 6 0 0 select (N) *49‼ 26/0/1 2 RESTORE(9)
Source image: P1020668.JPG
20407 102 9 0 0 transfer (A) to N *49Ю
20408 124 212 2 1 1 set modification group *49Ю SET MOD GP 0
20409 126 250 2 0 0 enter subroutine *599 >STORE MG3 S/R
20410 126 238 2 0 0 enter subroutine *09‼06‼ >AUGMENT TIME SPENT
20411 124 3 0 1 modify address of next *60Ю TEST TRIAL
20412 106 11 0 0 select (N)
20413 124 233 45 0 1 modify address of next
20414 127 0 0 1 jump A != Z *60Ю >YES
20415 126 462 2 0 0 enter subroutine >REQUEST M/R
20416 106 179 0 0 select (N) UNLOAD/ABDON INDICATOR
20417 124 295 17 1 0 unconditional jump >UNLOAD
20500 PROCR 205 205 PROGRAMMED OFFER OF OPTIONS
20501 NOTES RADIX B
10005>20502 124 212 2 1 1 set modification group SET MOD. GP. 0
20503 102 38 0 1 transfer (A) to N STORE ALARM NO
20504 118 10 1 0 shift logical
20505 102 41 0 1 transfer (A) to N STORE NO OF OPTIONS
20506 124 2 0 1 modify address of next STORE RETURN VALUES
20507 100 30 1 0 copy registers OF (A)(B) & (C)IN SI
20508 100 212 2 0 3 set radix 0 SET(C)BINARY
20509 126 250 2 0 0 enter subroutine *599 >STORE MG3 S/R
20510 106 209 6 0 0 select (N) *49Ю 26/0/1 2 RESTORE (9)
20511 102 9 0 0 transfer (A) to N *49Ю
20512 106 210 8 0 0 select (N)
20513 124 2 0 1 modify address of next
20514 124 41 0 1 modify address of next
20515 118 0 0 3 shift binary
20516 101 511 1 1 add literal address *46‼
20517 102 41 0 1 transfer (A) to N OF ALLOWABLE OPTIONS
20518 106 100 4 0 0 select (N)
20519 102 43 0 1 transfer (A) to N 1ST OPTION
20520 126 238 2 0 0 enter subroutine *099 >AUGMENT TIME SPENT
20219>20521 126 176 2 0 0 enter subroutine >REQUEST D/D IN PROG
20600 PROCR 206 206 PROGRAMMED OFFER OF OPTIONS (2)
20601 NOTES RADIX B
20602 106 2 0 0 select (N) START OF SWITCH STORE START OF SW
20603 102 222 4 0 0 transfer (A) to N W/L OF LAST PROGRAMME TO
20604 106 38 1 1 select (N) OFFER OPTIONS
20605 102 222 8 1 0 transfer (A) to N ALARM NO/PROG IDENT.NO
20606 126 234 2 0 0 enter subroutine >S/R H
20607 124 216 28 0 2 select literal and division FORM COMMENT
20608 128 102 6 1 2 edit fixed field formats
20609 124 181 2 1 0 unconditional jump >OUTPUT COMMENT
20700 PROCR 207 207 TYPE
20701 NOTES RADIX B
10011>20702 124 212 2 1 1 set modification group SET MOD. GROUP 0
20703 124 3 0 1 modify address of next STORE ANNEXE START IN SP. CHAPTER
20704 102 169 0 0 transfer (A) to N
20705 126 250 2 0 0 enter subroutine *599 SET MOD GP 3
20706 106 100 10 0 0 select (N) STORE LINK
20707 102 44 0 1 transfer (A) to N
20708 106 209 6 0 0 select (N) *49Ю 26/0/1 2 RESTORE (9)
20709 102 9 0 0 transfer (A) to N *49Ю
20710 126 238 2 0 0 enter subroutine *099 >AUGMENT TIME SPENT
20711 126 177 2 0 0 enter subroutine >REQUEST T/W
20712 126 234 2 0 0 enter subroutine >EDIT TIME
20713 126 212 2 1 3 set modification register SET MRR3 =24/0
20714 100 198 2 1 2 replace (B) by (N) BITS 1-6 IN EACH QUARTET
20715 118 4122 1 0 shift logical
20724>20716 124 3 0 1 modify address of next COPY COMMENT TO ANNEXE
20717 124 169 0 1 modify address of next
20718 106 0 1 3 select (N)
20719 102 102 6 1 3 transfer (A) to N
Source image: P1020669.JPG
20720 115 102 6 1 3 collate and add TEST END OF COMMENT
20721 101 7710 1 2 subtract literal address
20722 127 207 27 0 0 jump A = Z >YES
20723 125 2 0 3 step on and test
20724 124 207 16 1 0 unconditional jump >
20725 106 211 22 1 0 select (N) SET L/E'S IN LAST WORD
20726 102 102 28 1 0 transfer (A) to N
20722>20727 106 35 0 1 select (N) SET SI=4
20728 102 7 0 1 transfer (A) to N *163
20729 124 181 2 1 0 unconditional jump >OUTPUT COMMENT
20800 PROCR 208 208 MASTER ROUTINE
20801 NOTES RADIX B INTERNAL IMPOSSIBILITY
29580>
29613>20802 101 121 1 3 select literal address CODE LETTER Z
29643>
32711>
32823>
45233>
45517>
45720>
45837>
47622>20803 102 221 4 0 0 transfer (A) to N
20804 126 107 8 1 1 set modification register SET(MR1)FOR M/R SWITCH
20805 100 212 2 0 3 set radix SET BINARY
20806 126 177 2 0 0 enter subroutine >REQUEST T/W
20807 106 177 3 0 0 select (N)
20808 102 103 23 0 0 transfer (A) to N AMEND END OF LOG ROUTINE
20809 101 4 1 3 select literal address
20810 126 234 2 0 0 enter subroutine >S/R H
20811 106 214 30 1 0 select (N) X,X,X,N/E,N/E
20812 102 102 6 1 0 transfer (A) to N
20813 106 221 4 0 0 select (N)
20814 118 8 0 0 shift logical SET UP COMMENT
20815 101 15 0 1 prepare for digit collation FILL Q1>48
20816 115 211 22 1 0 collate and add
20817 102 102 8 1 0 transfer (A) to N
20818 124 181 2 1 0 unconditional jump >LOG ROUTINE
17911>
10013>20819 100 4095 0 0 Halt HALT
20820 124 141 1 0 unconditional jump >INDEPENDENT STORE PRINT
20821 100 226 0 0 0 Halt *££0*££2*106
20822 124 452 2 1 0 unconditional jump *££2*343 (25)IN 150,OVERFLOW
20900 PROCR 209 209 INSTRUCTION CONSTANTS
20901 NOTES RADIX B
20902 106 157 0 0 select (N) *09Ю*3+Ю START TIMINGS
20903 124 265 2 1 0 unconditional jump *09Ю*3+Ю
20904 126 0 1 0 test route N1 LOG, I/P O/P, REPORT S/R
20905 126 8 0 3 leave master routine SET TAG 15 S/R
20906 126 2 0 1 leave subroutine SET TAG 15 S/R
20907 124 456 2 1 0 unconditional jump *343 (25)IN 150,OVERFLOW
20908 124 240 20 1 0 unconditional jump REPORT S/R
20909 124 265 3 1 0 unconditional jump REPORT S/R,STOP TIMINGS
20910 113 227 2 0 0 divide uniform radix *106 USED IN ISU ALLOCATOR & S/R G
20911 113 226 2 0 0 divide uniform radix (124) IN ISU, ALLOCAS/RG
20912 101 0 0 0 table look up OP INT, P/T O/P
20913 126 8 0 1 leave subroutine *499 MICR
20914 106 8 0 0 select (N) *59Ю RETURN FROM PL5MOD GROUP BLISTERS
20915 106 212 20 1 0 select (N) /ABANDON PROGRAMME
20916 104 6 0 1 add (N) to (A) DO
20917 124 103 4 1 0 unconditional jump DO
20918 102 44 0 0 transfer (A) to N ABANDON PROGRAMME
20919 124 103 7 1 0 unconditional jump DO DO
20920 126 44 0 3 leave master routine
20921 106 129 6 1 0 select (N) *59Ю
Source image: P1020670.JPG
21000 CONST 210 210 0 SHORT CONSTANTS
21002 (D)01£££; UNLOAD STORAGE
21003 66666; DECIMAL RADIX
21004 08000; *££0*££1*3:‼4£‼ ALT RTE INDIC
21005 04000; *3:‼4£‼ ALT RTE INDIC
21006 £0000; LOADER
21007 .1000; 158 IN Q5)-(15 IN Q4)
21008 00001; 1
21009 66Ю66; CLOCK RADIX
21010 000£8; COLLATE CH.NO
21011 65536; CONVERSION TABLE CONSTANT
21012 66668; RADIX FOR ROUTES
21013 50000; CONST FOR XERONIC SKIP WORD AND FOR PTS
21014 .0080; A.S.L. FOR PRINTER W/E
21015 (D)0; *66Ю
21016 0;
21017 07008;
21100 CONST 211 211 1 LONG CONSTANTS
21102 (D)££££££££££;
21104 1000000000; STACK MINUS ZERO
21106 4£4£4£4£41; SENTINELTYPE 1
21108 6£6£6£6£6£; R/M'S
21110 6‼6‼6‼6‼6‼; %%%%%
21112 7171717171; /////
21114 1212121212; BBBBB
21116 5£5£5£5£5£; FAULTY BLOCK MARKER
21118 1£1£1£1£1£; FAULTY BLOCK MARKER
21120 1.00000000; L/E IN TOP SEXTET FOR OPEN FILE
21122 5.5.5.5.5.; L/E'S
21124 0009000000; *££0*££2*1£3
21126 0006000000; *1:3
21128 0003000000; *1.3
21130 000+000000; *383
21132 0012000000; *4.3
21134 0015000000; *5Ю3
21136 000£000000; *££2*393
21200 CONST 212 212 1 MOD REGISTER CONSTANTS
21202 (D)0001800000; 24:0 LOG ROUTINE LOAD S/R
21204 0000800000; 8:0 STORE DUMP
21206 0001400002; 20:2 2 USED VARIOUS PLACES
21208 0018000000; *1.3*1:3*1£3*383*393*4.3*5Ю3
21210 0003000000; 48:0 RTI PTS ASSOCIATED TIME
21212 + ; 12=0T/W&P/T I/P
21214 Ю ; 10=0 T/W&P/T O/P
21216 000‼000080; *3:9
21218 0000000000; *109 S.A.W W/L
21220 000060001Ю; *599 MOD GROUP TABLE ENTRY
21300 CONST 213 213 1 CONVERSION TABLES
21302 (D)0000000001; BINARY>DECIMAL
21304 0000000016;
21306 0000000256;
21308 0000004096;
21310 0000065536;
21312 0000000001; DECIMAL>BINARY
21314 000000000Ю;
21316 0000000064;
21318 000000 3.8;
21320 0000000001; SECONDS>MINUTES
21322 0000000016;
21324 0000000416;
21326 0000006816;
21328 0000000001; BINARY>OCTARY
Source image: P1020671.JPG
21330 0000000020;
21332 0000000320;
21400 CONST 214 214 1 ALPHA CONSTANTS
21402 (A) Ю; *££0*££1*353
21404 (A) *; *353
21406 (A)INEFF; *2£9
21408 OPT ;
21410 (D)7.(A) (D)7.; B/E,SP,SP,SP,B/E
21412 (A)P Q(D)7:7:; P,SP,Q,N/E,N/E
21414 (D)0514808000; A8/08000
21416 (A)C REJ;
21418 O REJ;
21420 GP FN;
21422 (D)5.7:7:5.7:; L/E,N/E,N/E,L/E,N/E.
21424 5.7:7:6£; L/E N/E N/E R/S
21426 (A)LOST ;
21428 RC ;
21430 (A)XXX (D)7:; X,X,X,SP,N/E
21432 (A)NO CD;
21434 OFLOW;
21436 L%OUT; *££0*££1*353
21438 L'OUT; *353
21440 RTI ;
21442 DB ;
21444 WE ;
21446 CHECK; *2.9669
21448 ZZZ ;
21450 LOP ;
21452 LIP ;
21454 ABDON;
21456 END;
21458 R T I;
21460 DUMP ; *41Ю
21462 (A)END(D)5.5.; *41Ю
21464 (A)HIGH; *011
21466 (A)INDEX;
21468 CHAPT;
21470 O%LAY; *££0*££1*353
21472 O'LAY; *353
21474 DUMP ; *41Ю*14Ю
21476 ABAND;
21478 ONED ; *41Ю*14Ю
21480 (D)5.5.;
21482 (A)SER ; *509
21484 (A)U A ; *3Ю1
21486 (A)LET ; *139
21488 (A)REJEC;
21490 CHD ; *5+9
21492 (A)* 4 ; *779
21500 CONST 215 215 1 MORE ALPHA CONSTANTS
21502 (A)PAUSE; *0:9
21504 (A)PR CH; *0‼9
21506 (A)WDRAW; *129
21508 AVAIL; *129
21510 (A)REOPE; *0:9
21512 (A)RUNCH; *0+9
21514 (A)ROUCH; *119
21516 (A)NEW ;
21518 DOUBT;
21520 (A)CARD ; *669
21522 STORE; *679
21524 (A)CH (D)007:; *68Ю
21526 (D)6940674000; *68Ю
21528 (A)TAPE ; *69Ю
Source image: P1020672.JPG
21530 UNLOA;
21532 (A)DED(D)5.5.;
21534 (A)REWOU;
21536 (A)ND (D)5.5.; *69Ю
21538 (A)PREFE; *86Ю
21540 R GP ;
21542 R SP ; *86Ю
21544 (A)SHORT; *4ЮЮ
21546 (A)LONG; *4ЮЮ
21548 (A)TMS ; *8£9
21600 TABLE 216 216 1 OFLOW, OREJ, ENTER, END, PROG ALARM EDIT TABLES
21601 NOTES
21602 214 34 0 0 2 0 5 0 0 0 0 0 0 *342 O,F,L,O,W
21604 214 22 0 0 2 0 1 1 0 0 0 0 0 N/E
21606 221 2 0 0 0 0 5 0 0 0 0 0 0 PROG NO
21608 214 22 0 0 2 0 1 1 0 0 0 0 0 N/E
21610 222 12 0 0 1 0 Ю 0 0 0 2 0 0 (A)
21612 222 14 0 0 1 0 Ю 0 2 0 2 0 0 (B)
21614 221 3 0 0 0 0 1 0 2 0 0 0 0 DIVISION NO OF LINK
21616 221 3 0 0 0 0 4 1 1 3 0 0 0 LOCATION WITHIN DIV
21618 211 22 0 0 2 0 2 0 4 0 0 0 1 *342 L/E'S
21620 214 18 0 0 2 0 5 0 0 0 0 0 0 O.SP.R.E.J
21622 214 12 0 0 2 0 2 3 0 0 0 0 0 N/E, N/E
21624 222 2 0 0 0 0 2 3 0 1 0 0 0 OPT NO
21626 211 22 0 0 2 0 2 0 4 0 0 0 1 4 SP,L/E,L/E
21628 214 4 0 0 2 0 1 4 0 0 0 0 0 ASTERISK
21630 222 8 0 0 0 0 3 2 1 1 0 0 0 ALARM NO
21632 214 12 0 0 2 0 1 4 0 0 0 0 0 N/E
21634 222 9 0 0 0 0 5 0 0 0 0 0 0 PROG NO
21636 211 22 0 0 2 0 2 0 2 0 0 0 1 2 SP,L/E,L/E
21700 TABLE 217 217 1 L'OUT
21701 NOTES
21702 0 0 0 0 2 0 0 0 2 0 0 0 0 *££0*££2*31‼ T 1
21704 0 180 0 0 2 0 2 3 0 0 0 0 0 *££2*583 T 1
21706 214 38 0 0 2 0 5 0 0 0 0 0 0 *342 L',O.U,T
21708 214 22 0 0 2 0 1 1 0 0 0 0 0 N/E
21710 221 2 0 0 0 0 5 0 0 0 0 0 0 PROG NO
21712 214 22 0 0 2 0 1 1 0 0 0 0 0 N/E
21714 222 12 0 0 0 0 1 0 2 0 0 0 0 DIVISION NO(COMPT 16)
21716 222 12 0 0 0 0 4 1 1 3 0 0 0 LOCATION WITHIN DIV
21718 222 13 0 0 0 0 1 0 2 0 0 0 0 DIV NO OF LEP
21720 222 13 0 0 0 0 4 1 1 3 0 0 0 LOCATION WITHIN DIV
21722 222 14 0 0 0 0 1 0 2 0 0 0 0 DIV NO(COMPT 1)
21724 222 14 0 0 0 0 4 1 1 3 0 0 0 LOCATION WITHIN DIV
21726 211 22 0 0 2 0 2 0 2 0 0 0 1 *342 L/E'S
21728 214 26 0 0 2 0 5 0 0 0 0 0 0 L,O,S,T, SP (OR O'LAY)
21730 214 22 0 0 2 0 1 1 0 0 0 0 0 N/E
21732 221 8 0 0 0 0 5 0 0 0 0 0 0 PROG NO
21734 211 22 0 0 2 0 2 0 2 0 0 0 1 2 SP,L/E,L/E
21736 0 156 0 0 0 0 2 2 0 0 0 0 0 *31‼234 T 1
21738 214 12 0 0 2 0 1 4 2 0 0 0 1 ///// SP,SP N/E
21740 105 4 0 0 2 0 1 0 0 0 0 0 0 R/S
21742 0 156 0 0 0 0 2 2 0 0 0 0 0 *31‼*583 2 DIGS T 1
21744 214 12 0 0 2 0 1 4 1 0 0 0 1 ///// SP N/E
21746 0 156 0 0 0 0 4 0 0 0 0 0 0 *31‼*6‼9 T 1
21748 214 12 0 0 2 0 1 4 0 0 0 0 1 *6‼9 N/E SUM
21800 TABLE 218 218 1 DATA HANDLING TABLES
21801 NOTES
21802 0 26 0 0 0 0 6 0 0 0 0 0 0 ///// STORE GP 3 REG
21804 211 5 0 0 0 0 2 0 0 0 0 0 0 STACK MINUS ZERO
21806 222 12 0 0 0 0 6 0 0 0 0 0 0 ///// RESTORE GP 3 REG
21808 211 22 0 0 2 0 2 0 1 0 0 0 1 /////SP,L/E,L/E
21810 226 2 0 0 0 0 0 0 1 0 0 0 0 *019 T 7
Source image: P1020673.JPG
21900 TABLE 219 219 4
21902 225 6 0 0 2 1 0 0 0 0 0 0 1 CONTROL DATA
22000 CONST 220 220 1 INPUT/OUTPUT CONSTANTS
22002 (D)0000700000; (A)
22004 000000003+; (B)READ CD
22006 666Ю600000; MINS & SECS RADIX,(C)
22008 0002600000; (A)
22010 00004£££££; (B),RUN ON M/T
22012 0080000000; BIT 12,(C)
22100 CONST 221 221 1 GENERAL W/L'S
22102 (D)0; TO BE USED ONLY NON-INTERRUPTIBLY
22104 0; (ALLOC LINK SET) C REJ. XXX, O'LAY, ETC.
22106 0; PROG SWITCH DURING OVERLAY
22108 0; (ALLOC LINK SET) PROG ID IN ALLOC&OLAY
22110 0; ROUCH
22112 0; O'LAY: ITEM 13 USED BY INTERX PRIORITIES
22114 0; USED IN ALIGNMENT FAILURE
22116 0; IND MOD REG FOR LOAD S/R
22118 0; IND MOD REG FOR LOAD S/R
22120 (D)7654321; *££0*££2*5Ю3
22122 (D)654321; *4.3
22124 (D)54321; *393
22126 (D)4321; *383
22128 (D)321; *1£3
22130 (D)21; *1:3
22132 (D)1; *££2*063*1.3
22134 ; *16Ю
22136 ; 2.3
22138 ; 1ST PROGM
22140 ; *859
22142 ;
22144 ; 1ST/2ND
22146 ; 3RD/4TH
22148 ; 5TH/6TH
22150 ; 7TH/8TH
22200 CONST 222 222 1 W/L'S FOR OP INT
22202 (D)0; IND SETTING/BIN OPT NO
22204 0; W/L/USED IN CHD
22206 0; W/L/TRIALS IND IN ALLOC
22208 0; W/L
22210 0; PROG NO/PROG SL NO AFTER C.D. GP2
22212 0; STORAGE GP3 REGISTERS
22214 0; (A) (B) (C) IN O'FLOW
22216 0; W/L'S IN L''OUT
22218 0; ORIG 64+R DURING C.D. / W/L
22220 0; (A) FOR C.D.
22222 0; (B) FOR C.D.
22224 0; (C) FOR C.D./ S/R G
22300 CONST 223 223 0 COUNTERS & INDICATORS
22302 (D)00000; *063 TIMING IND
22303 00000; ALLOC & O'LAY
22400 CONST 224 224 0 MULTI-CHANNEL LOADING LIST
22402 (D)0; CH/RT
22403 ; RT TYPE
22404 ; PROGM
22405 ; SERIAL
22406 ; LT.CHAPT
22407 ; IDENTIFIER
22408 ; *57Ю
22409 ;
Source image: P1020674.JPG
22410 ;
22411 ;
22412 ;
22413 ;
22414 ;
22415 ;
22416 ;
22417 ;
22418 ;
22419 ;
22420 ;
22421 ;
22422 ;
22423 ;
22424 ;
22425 ;
22426 ;
22427 ;
22428 ;
22429 ;
22430 ;
22431 ;
22432 ;
22433 ;
22434 ;
22435 ;
22436 ;
22437 ; *57Ю
22500 CONST 225 225 1 MULTI-CHANNEL WL'S
22502 (D)0; NORMAL ALLOC CH/RT
22504 ;
22506 ; TRIAL
22508 ; (A)
22510 ; (B)
22512 ; CH CH RT
22514 ; RT TYPE IN ASL
22516 ; MOD REG
22600 TABLE 226 226 1
22601 NOTES
22602 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22604 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22606 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22608 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22610 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22612 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22614 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22616 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22618 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22620 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22622 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22624 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22626 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22628 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22630 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22632 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22634 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22636 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22638 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22640 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22642 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22644 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22646 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22648 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22650 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
Source image: P1020675.JPG
22652 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22654 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22656 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22658 226 7 0 0 0 0 0 0 3 0 0 0 0 /////
22700 TABLE 227 227 1
22701 NOTES
22702 0 0 0 0 0 0 0 0 0 0 0 0 0 *102 T 1
22704 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22706 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22708 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22710 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22712 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22714 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22716 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22718 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22720 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22722 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22724 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22726 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22728 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22730 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22732 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22734 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22736 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22738 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22740 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22742 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22744 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22746 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22748 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22750 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22752 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22754 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22756 0 0 0 0 0 0 0 0 0 0 0 0 0 /////
22758 227 7 0 0 0 0 0 0 3 0 0 0 0 /////
22800 CONST 228 228 1 UNPACKED INPUT
22802 (D)0;
22804 0;
22806 0;
22808 0;
22810 0;
22812 0;
22814 0;
22816 0;
22818 0;
22820 0;
22822 0;
22824 0;
22900 CONST 229 229 1 M/R TABLES TAG,MOD GP AND FP
22902 (D)87654321; *1.3*1:3*1£3*383*393*4.3*5Ю3
22904 0; *3Ю1*3‼9
23000 PROCR 230 230 M/R STORE TABLE
23002 100 4097 1 0 copy registers
23003 101 108 2 0 0 table look up
23004 115 8191 1 3 collate and add
23005 115 8191 1 3 collate and add
23006 115 8191 1 3 collate and add *1.2
23007 115 8191 1 3 collate and add
23008 115 8191 1 3 collate and add *1:2
23009 115 8191 1 3 collate and add
23010 115 8191 1 3 collate and add *1£2
23011 115 8191 1 3 collate and add
Source image: P1020676.JPG
23012 115 8191 1 3 collate and add *382
23013 115 8191 1 3 collate and add
23014 115 8191 1 3 collate and add *392
23015 115 8191 1 3 collate and add
23016 115 8191 1 3 collate and add *4.2
23017 115 8191 1 3 collate and add
23018 115 8191 1 3 collate and add *5Ю2
23019 115 8191 1 3 collate and add *1.2*1:2*1£2*382*392*4.2*5Ю2
23020 115 8191 1 3 collate and add
23021 115 8191 1 3 collate and add
23022 100 0 0 0 Halt *££0*££2*3‼‼*01‼*3.3*04‼*14‼*42‼*46‼*31‼
23023 100 0 0 0 Halt *41‼*3Ю3*14‼*3:‼*60‼
23024 100 217 28 0 0 Halt *343 OFLOW EDIT TABLE
23025 100 455 14 0 0 Halt *34‼ RETURN ADD FOR TROFL
23026 100 1 0 0 Halt *443
23027 100 9 0 0 Halt *62‼
23028 100 4 0 0 Halt *2.+62‼
23100 CONST 231 231 1 M/R STORE TABLE
23102 (D)0; SET UP BY I.S.U.
23104 0200002000;
23106 0200004000;
23108 0200006000;
23110 0200008000;
23112 020000Ю000;
23114 020000+000;
23116 020000.000;
23118 0000010000;
23120 ££££££££££;
23200 CONST 232 232 1 M/R 2ND STORE TABLE
23202 (D)0200008000; *3Ю2*3‼Ю
23204 020000Ю000;
23206 020000+000;
23208 020000.000;
23210 0000010000;
23212 ££££££££££;
23214 ££££££££££;
23216 ££££££££££;
23218 ££££££££££;
23220 ££££££££££; *3Ю2*3‼Ю
23222 (D)0000000000; (A)ON ENTRY TO PROG
23224 0000000000; (B)ON ENTRY TO PROG
23300 PROCR 233 233 ALLOCATOR PARAMETER TABLE
23301 NOTES RADIX
23302 100 0 0 0 Halt ZERO
23303 100 0 0 0 Halt 13-BIT START OF LOADING SYSTEM
23304 100 0 0 0 Halt 15-BIT START OF LOADING SYSTEM
23305 100 233 2 0 0 Halt START OF THIS LIST
23306 100 229 2 0 0 Halt START OF M/R TABLES
23307 100 0 0 0 Halt ALLOCATE COMMAND/ZERO
23308 100 247 2 0 0 Halt LOAD NEXT CHAPTER S/R
23309 100 236 2 0 0 Halt READ NEXT BLOCK S/R
23310 100 235 2 0 0 Halt UPDATE SWITCH S/R
23311 100 243 2 0 0 Halt RETURN ADDRESS AFTER LOADING
23312 100 222 12 0 0 Halt LOCATION WHERE (MOD GP 3) IS STORED
23313 100 60 0 0 Halt PSEUDOROUTE FOR ROUTE 0
23314 100 252 2 0 0 Halt START OF USE OF ASSEMBER TABLE
23315 100 208 3 0 0 Halt XXX COMMENT
23316 100 484 3 0 0 Halt REJECT ALLOCATION COMMENT
23317 100 270 2 0 0 Halt *464 R/C LINK 00004
23318 100 190 34 0 0 Halt START OF REEL COUNTERS
23319 100 177 2 0 0 Halt REQUEST T/W S/R
23320 100 102 6 0 0 Halt START OF T/W ANNEXE
23321 100 234 2 0 0 Halt EDIT TIME S/R
Source image: P1020677.JPG
23322 100 181 2 0 0 Halt ENTRY TO LOG ROUTINE
23323 100 499 2 0 0 Halt *01‼ NOT HIGH DENSITY IF ZERO
23324 100 191 64 0 0 Halt *01‼ 45/90K INDICATORS
23325 117 496 66 0 0 special select 64-(CONTROL DATA LIST START)FOR 45K
23326 100 0 0 0 Halt PROG TAPE ROUTE
23327 100 1 0 0 Halt *31‼ CLOCK=1,ZERO=NO CLOCK
23328 100 0 0 0 Halt *544*443 DUMPS PRINT 2
23329 108 9 0 0 merge constant length *2.+62‼*2.+*62‼ 0000000004
23330 100 1 0 0 Halt 0=ISSUE 4 MASTER,1=ISSUE 6 OR LATER
23331 100 230 2 0 0 Halt START OF PRIORITY TABLE
23332 100 231 2 0 0 Halt START OF STORE TABLE
23333 100 232 2 0 0 Halt *3Ю3*3‼‼ START OF SECOND STORE TABLE
23334 116 64 0 0 Invalid *3:‼ MORE THAN 8 CHANNELS
23335 100 1 0 0 Halt *3.3*04‼ CARDS OR P/T INDICATOR
23336 100 295 17 0 0 Halt RETURN ADDRESS FOR PTS ABDON/END
23337 100 190 2 0 0 Halt PTS=PROG CHANNEL BLOCK CTRS
23338 100 190 98 0 0 Halt PTS=FILE IDENTITIES+REWIND INDS
23339 100 464 20 0 0 Halt *41‼ RETURN ADD FROM START OF STORE DUMP
23340 100 246 16 0 0 Halt RETURN TO RELEASE MR SWITCH
23341 100 216 2 0 0 Halt *343 OFLOW EDIT TABLE
23342 100 246 10 0 0 Halt RETURN ADD FOR O'LAY (END)
23343 100 452 20 0 0 Halt *34‼ RETURN ADD FOR TROFL
23344 100 474 2 0 0 Halt 'SET TAG 15' SUBROUTINE
23345 100 0 0 0 Halt Q1-4=ABS PTS START,Q5=2XCHAP
23346 100 0 0 0 Halt TRIAL IN PROGRESS IND-START OF SWITCH
23347 100 246 24 0 0 Halt *60‼ RETURN ADD FOR O'LAY(START)
23348 100 0 0 0 Halt START OF SECOND STORE AREA
23349 100 1 0 0 Halt *80+
23350 100 0 0 0 Halt SPECIAL CHAP INCREMENT IN CMR
23351 100 130 2 0 0 Halt END OF PRIORITY QUEUE
23352 100 462 2 0 0 Halt 'REQUEST MASTER SWITCH'SUBROUTINE
23353 100 296 6 0 0 Halt *14‼ LOCN OF 'OPTA' SWITCH-PTS OVERLAY
23354 100 468 12 0 0 Halt *41‼
23355 100 175 3 0 0 Halt 'OPT OUTSTANDING'WL'S FOR PTS
23356 100 176 12 0 0 Halt
23357 100 0 0 0 Halt WL=INDEX IDENTIFIER M/CODE START
23400 PROCR 234 234 SUB ROUTINE H
23401 NOTES RADIX B TO EDIT TIME AND RIBBON SHIFT
23402 100 0 0 0 Halt LINK
23403 127 234 7 0 0 jump A = Z *6‼9 >ZERO
23412>23404 101 217 36 1 1 add literal address TABLE START
23405 128 102 4 1 2 edit fixed field formats
23406 126 234 2 0 1 leave subroutine >LEAVE S/R
23403>23407 106 234 18 0 0 select (N) *6‼Ю COUNTER
23408 101 1 1 2 subtract literal address SUBTRACT 1
23409 103 234 18 0 0 copy (A) to N COPY
23410 127 234 13 0 0 jump A = Z >ZERO
23411 125 0 1 2 interrogate indicators CLEAR(A)
23412 124 234 4 1 0 unconditional jump >
23410>23413 101 217 46 1 3 select literal address TABLE START
23414 128 102 4 1 2 edit fixed field formats
23415 101 15 1 3 select literal address
23416 102 234 18 0 0 transfer (A) to N TRANSFER
23417 126 234 2 0 1 leave subroutine LEAVE S/R
23418 100 15 0 0 Halt *6‼Ю
23500 PROCR 235 235 SUB-ROUTINE X
23501 NOTES RADIX B TO UPDATE SWITCH
23502 100 0 0 0 Halt
23503 101 0 0 1 prepare for digit collation CLEAR B
23504 106 7 0 3 select (N) TEST IF DESTINATION
23505 105 9 0 3 subtract (N) from (A) SWITCH SET AT 2
23506 127 235 9 0 1 jump A != Z >NO
23507 106 9 0 2 select (N) AMEND SEQUENCE
23508 102 7 0 3 transfer (A) to N CHANGES IN SWITCH
Source image: P1020678.JPG
23506>23509 106 9 0 2 select (N)
23510 102 9 0 3 transfer (A) to N
23511 106 20 0 2 select (N)
23512 102 20 0 3 transfer (A) to N
23513 126 235 2 0 1 leave subroutine >LEAVE S/R
23600 PROCR 236 236 SUB-ROUTINE BB
23601 NOTES RADIX B TO READ A BLOCK FROM M/T
23602 100 0 0 0 Halt LINK
23603 106 212 10 1 0 select (N) *10Ю SET UP
23604 102 212 18 1 0 transfer (A) to N *10Ю MODIFIER
23616>
23620>23605 100 220 2 1 1 replace registers
23606 104 233 26 0 0 add (N) to (A) RTE NO
23607 126 100 2 0 0 enter subroutine >READ
23608 126 350 2 0 0 enter subroutine *10Ю TEST RTE
23609 126 314 2 0 0 enter subroutine >TEST A1=BLOCK CTR
23610 127 236 21 0 0 jump A = Z
23611 101 0 1 3 select literal address CLEAR A
23612 126 331 2 0 0 enter subroutine >STEP COUNTER BY-1
23613 123 1 0 0 step on and test TEST 48 ATTEMPTS
23614 100 212 18 0 0 Halt
23615 124 236 17 1 0 unconditional jump >TRY AND FIND THIS BLOCK
23616 124 236 5 1 0 unconditional jump >REALIGN ON PREVIOUS BLOCK
23615>23617 124 188 2 0 1 modify address of next SET UP LAST
23618 106 190 2 0 0 select (N) BLOCK NUMBER TO
23619 102 1 1 3 transfer (A) to N AVOID SERIAL FAILURE
23620 124 236 5 1 0 unconditional jump *10Ю >TRY AGAIN
23610>23621 124 124 0 1 modify address of next UNPACK
23622 106 56 1 0 select (N)
23623 128 228 2 1 0 bulk copy alpha to short
23624 124 210 3 1 1 set modification group SET MOD GROUP 3
23625 126 236 2 0 1 leave subroutine >LEAVE S/R
23700 PROCR 237 237 INPUT/OUTPUT S/R
23701 NOTES RADIX B ALLOC AND OVERLAY
23702 100 0 0 0 Halt LINK
23703 118 5 0 0 shift logical
23704 104 233 26 0 0 add (N) to (A) RTE NO
23705 125 4096 1 1 clear indicators SET NON-INT
23706 126 100 2 0 0 enter subroutine >
23707 126 237 2 0 1 leave subroutine >LEAVE S/R
23800 PROCR 238 238 AUGMENT TIME SPENT IN PROGRAMME S/R
23802 100 0 0 0 Halt *09Ю06Ю
23803 100 210 3 0 3 set radix *3+Ю
23804 106 157 0 0 select (N)
23805 107 46 1 1 augment (N) by (A) *3+Ю
23806 100 212 2 0 3 set radix SET BINARY
23807 126 238 2 0 1 leave subroutine *09Ю06Ю
23808 115 228 3 0 0 collate and add *££0*££2*3Ю3*3‼‼
23809 124 242 83 1 0 unconditional jump *363 >NO,REJECT
23810 124 477 8 1 0 unconditional jump *363363
23900 PROCR 239 239 TEST SENTINEL TYPE 5 S/R
23902 100 0 0 0 Halt
23903 124 212 2 1 1 set modification group MGO
23904 106 228 2 0 0 select (N) TEST SENTINEL BLOCK
23905 105 211 2 0 0 subtract (N) from (A)
23906 127 239 12 0 1 jump A != Z >NO
23907 101 1 0 1 prepare for digit collation
23908 106 228 3 0 0 select (N) *3Ю3*3‼‼
23909 101 5 1 2 subtract literal address
23910 127 242 15 0 0 jump A = Z *3Ю2*3‼Ю NOT ALLOWED ON 326
23911 101 80 1 2 subtract literal address *3Ю2*3‼Ю
23906>23912 126 239 2 0 1 leave subroutine
Source image: P1020679.JPG
24000 PROCR 240 240 REPORT REQUIRED PROG NOT ON FILE
24001 NOTES RADIX B
24155>
24422>
24524>24002 101 27 1 3 select literal address IN W/L
24003 126 237 2 0 0 enter subroutine >CLOSE FILE
24004 126 177 2 0 0 enter subroutine >REQUEST T/W
24005 101 4 1 3 select literal address
24006 126 234 2 0 0 enter subroutine >S/R H
24007 124 214 26 0 2 select literal and division SET EDIT TABLE FOR LOST
24008 102 217 28 0 0 transfer (A) to N
24009 124 217 28 0 2 select literal and division FORM COMMENT
24010 128 102 6 1 2 edit fixed field formats
24011 106 209 4 0 0 select (N) 26/1/0/0/0
24012 105 233 26 0 0 subtract (N) from (A) RTE NO
24013 102 106 14 0 0 transfer (A) to N SET M/R SWITCH=1
24014 106 209 8 0 0 select (N)
24015 102 106 24 0 0 transfer (A) to N AMEND S/C AT END OF
24016 126 347 2 0 0 enter subroutine *469 >ASSOC TIME SR SI=1 CODING
24017 106 233 26 0 0 select (N) *59Ю
24018 102 30 0 1 transfer (A) to N *59Ю
24019 124 181 2 1 0 unconditional jump >LOG ROUTINE
20908>24020 106 209 9 0 0 select (N)
24021 102 106 24 0 0 transfer (A) to N RESET S/C
24022 124 225 16 0 1 modify address of next *579
24023 102 224 4 1 0 transfer (A) to N CLEAR IDENTITY OF LAST PROGRAM USED
24024 124 245 2 1 0 unconditional jump >
24100 PROCR 241 241 ALLOCATION AND OVERLAY
24101 NOTES RADIX B SUB-ROUTINE A: OPEN FILE IF NECESSARY
24102 100 0 0 0 Halt LINK
24103 101 0 1 3 select literal address *5+Ю CLEAR CHANGE DECK
24104 124 3 0 3 modify address of next INDICATOR
24105 102 164 0 0 transfer (A) to N *5+Ю
24106 124 241 10 0 2 select literal and division SET UP PSEUDO
24107 101 267 2 1 2 subtract literal address ROUTE TYPE
24108 104 209 12 0 0 add (N) to (A)
24109 126 237 2 0 0 enter subroutine >TEST RTE DEALING WITH D/B
24110 100 210 3 0 3 set radix AUGMENT BLOCK
24111 124 233 26 0 1 modify address of next TEST FIRST TIME ANY
24112 106 190 2 0 0 select (N) PROG TAPE LOADED
24113 127 241 17 0 0 jump A = Z >YES
24114 101 1 1 3 select literal address COUNTER
24115 124 233 26 0 1 modify address of next
24116 107 190 2 0 0 augment (N) by (A)
24113>24117 100 212 2 0 3 set radix
24124>24118 124 233 26 0 1 modify address of next STEP FORWARD
24119 119 0 1 3 step on/set manual
24120 126 351 2 0 0 enter subroutine >TEST ROUTE NOTING D/B
24121 124 233 26 0 1 modify address of next TEST CORRECT BLOCK
24122 124 64 0 1 modify address of next NUMBER
24123 106 1 1 0 select (N)
24124 127 241 18 0 3 jump A < Z >NO, PROBABLY FBM
24125 124 233 26 0 1 modify address of next
24126 105 190 2 0 0 subtract (N) from (A)
24127 127 241 30 0 1 jump A != Z >NO, NOT FBM
24128 124 241 2 0 1 modify address of next
24129 124 1 1 0 unconditional jump >LEAVE S/R+1
24127>24130 124 233 26 0 1 modify address of next
24131 104 190 2 0 0 add (N) to (A) TEST<BLOCK 7
24132 101 7 1 2 subtract literal address
24133 127 241 38 0 3 jump A < Z >YES
24134 101 3841 1 3 select literal address SET REEL COUNTER=£:1
24135 124 233 26 0 1 modify address of next
24136 102 190 34 0 0 transfer (A) to N
Source image: P1020680.JPG
24137 126 241 2 0 1 leave subroutine >LEAVE S/R
24133>24138 125 0 1 2 interrogate indicators CLEAR REEL COUNTER
24139 124 233 26 0 1 modify address of next
24140 102 190 34 0 0 transfer (A) to N
24141 100 214 14 1 2 replace (B) by (N)
24142 101 17 1 3 select literal address
24143 126 237 2 0 0 enter subroutine >OPEN FILE
24144 118 4119 0 0 shift logical
24145 101 1 1 2 subtract literal address TEST A1
24146 127 241 57 0 0 jump A = Z >YES
24147 101 1 1 2 subtract literal address TEST A2
24148 127 241 57 0 0 jump A = Z >YES
24149 101 1 1 2 subtract literal address TEST A3
24150 127 241 57 0 0 jump A = Z >YES
24151 101 3 1 2 subtract literal address TEST A6
24152 127 241 57 0 0 jump A = Z >YES
24153 124 245 18 0 2 select literal and division
24154 105 241 2 0 0 subtract (N) from (A)
24155 127 240 2 0 0 jump A = Z >YES:'LOST'
24156 124 491 12 1 0 unconditional jump *363363
24152>
24150>
24148>
24146>24157 126 241 2 0 1 leave subroutine >LEAVE S/R
24200 PROCR 242 242 ALLOCATION AND OVERLAY
24201 NOTES RADIX B SUB-ROUTINE B:LOCATE PROGRAMME
24202 100 0 0 0 Halt LINK
24214>24203 100 220 8 1 1 replace registers RUN FORWARD
24204 104 233 26 0 0 add (N) to (A)
24205 126 100 2 0 0 enter subroutine >
24206 126 236 2 0 0 enter subroutine *101 >READ
24207 124 212 2 1 1 set modification group MOD GP 0
24208 124 124 0 1 modify address of next TEST INDEX BLOCK
24209 106 6 1 0 select (N)
24210 105 214 66 1 0 subtract (N) from (A)
24211 127 242 16 0 0 jump A = Z >YES
24212 104 214 66 1 0 add (N) to (A) TEST'DOUBT'
24213 105 215 18 1 0 subtract (N) from (A)
24214 127 242 3 0 0 jump A = Z >YES
24226>
24256>
23910>24215 124 242 82 1 0 unconditional jump *363 >NO,REJECT
24211>24216 124 124 0 1 modify address of next STORE IDENTIFIER
24217 106 11 1 0 select (N)
24218 124 225 16 0 1 modify address of next *579
24219 102 224 7 0 0 transfer (A) to N
24240>24220 126 236 2 0 0 enter subroutine >S/R B8
24221 124 212 2 1 1 set modification group MG 0
24222 126 212 2 1 3 set modification register SET (MR3)=24/0
24239>24223 101 0 0 1 prepare for digit collation CLEAR B
24224 106 228 2 0 3 select (N) TEST PROG 10=£5
24225 105 211 2 0 0 subtract (N) from (A)
24226 127 242 15 0 0 jump A = Z
24227 106 228 2 1 3 select (N) TEST REQUIRED PROG
24228 124 225 16 0 1 modify address of next *579
24229 103 224 4 1 0 copy (A) to N 1D AND SERIAL
24230 105 221 8 1 0 subtract (N) from (A)
24231 127 242 41 0 0 jump A = Z >YES
24232 118 4123 1 0 shift logical *70Ю
24233 105 228 3 0 3 subtract (N) from (A)
24234 127 242 41 1 0 jump AB = Z
24235 106 221 8 0 0 select (N)
24236 105 213 2 0 0 subtract (N) from (A) FIRST PROGM WANTED
24237 127 242 41 0 0 jump A = Z *70Ю
24252>24238 125 4 0 3 step on and test
Source image: P1020681.JPG
24239 124 242 23 1 0 unconditional jump
24240 124 242 20 1 0 unconditional jump
24237>
24234>
24231>24241 106 228 4 0 3 select (N) TEST PASS IND=4
24242 105 220 11 0 0 subtract (N) from (A)
24243 127 242 51 0 1 jump A != Z >NOT,REJECT IF TRIALS ALLOC
24244 100 220 3 0 2 replace (B) by (N) *60Ю
24245 115 233 26 0 0 collate and add PTS ROUTE
24246 101 7 1 2 subtract literal address
24247 127 242 57 0 1 jump A != Z
24248 106 228 5 0 3 select (N) STORE INDEX IDENTIFIER
24249 102 233 57 0 0 transfer (A) to N *60Ю =PARA 55
24250 124 242 57 1 0 unconditional jump
24243>24251 104 212 6 0 0 add (N) to (A) TEST INDICATOR=2
24252 127 242 38 0 1 jump A != Z >NO,CONTINUE SEARCH
24253 100 220 3 0 2 replace (B) by (N) *60Ю
24254 115 233 26 0 0 collate and add
24255 101 7 1 2 subtract literal address
24256 127 242 15 0 0 jump A = Z *60Ю
24250>
24247>24257 124 10 0 2 select literal and division FORM UP IDENTIFIER FOR RUNNING
24258 118 5 0 0 shift logical
24259 104 228 5 0 3 add (N) to (A)
24260 102 221 4 1 0 transfer (A) to N
24261 106 228 5 0 3 select (N) TEST CORRECT PLACE
24262 124 225 16 0 1 modify address of next *579 ON TAPE
24263 105 224 7 0 0 subtract (N) from (A)
24264 124 225 16 0 1 modify address of next *579
24265 107 224 7 0 0 augment (N) by (A)
24266 127 242 74 0 0 jump A = Z >YES
24267 127 242 70 0 3 jump A < Z >RUN BACK
24268 124 38 0 2 select literal and division
24269 124 242 71 1 0 unconditional jump
24540>
24267>24270 124 36 0 2 select literal and division
24269>24271 100 221 4 1 2 replace (B) by (N)
24272 126 237 2 0 0 enter subroutine >RUN FWD/BACK
24273 124 242 75 1 0 unconditional jump *109
24276>
24279>
24266>24274 126 236 2 0 0 enter subroutine >S/R BB
24273>24275 126 239 2 0 0 enter subroutine > TEST SENTINEL TYPE 5
24276 127 242 74 0 1 jump A != Z >NO
24277 106 228 2 0 0 select (N)
24278 105 220 10 0 0 subtract (N) from (A)
24279 127 242 74 0 1 jump A != Z >NO
24280 124 242 2 0 1 modify address of next
24281 124 1 1 0 unconditional jump >LEAVE S/R+1
24215>24282 101 81 1 3 select literal address *361 CODE LETTER A
23809>24283 126 242 2 0 1 leave subroutine >LEAVE S/R
24300 PROCR 243 243 RETURN FROM P.L.S. AFTER LOADING
24301 NOTES RADIX B
24302 124 27 0 1 modify address of next STORE NO OF CHAPS LOADED
24303 106 4 0 0 select (N)
24304 124 225 16 0 1 modify address of next *579
24305 102 224 6 0 0 transfer (A) to N
24306 124 225 16 0 1 modify address of next *57Ю
24307 106 224 2 0 0 select (N)
24308 124 27 0 1 modify address of next STORE ROUTE IN SPECIAL CHAPT
24309 102 159 0 0 transfer (A) to N *57Ю
24310 126 26 1 2 set modification register SET(MR2)AT START OF SWITCH
24311 123 28 0 3 select tag *59Ю TEST MOD
24312 101 14 1 2 subtract literal address GROUP 3 ALLOCATED
24313 127 243 43 0 0 jump A = Z >NO
Source image: P1020682.JPG
24314 106 209 15 0 0 select (N) SET UP 6/0/0 8
24315 102 2 0 2 transfer (A) to N ACTION IN 2 OF SWITCH
24316 106 4 0 0 select (N) FORM MODIFIER TO
24317 101 111 2 1 2 subtract literal address GIVE THIS SWITCHES
24318 118 4127 1 0 shift logical W/L'S
24319 118 2 1 3 shift binary
24320 102 6 0 0 transfer (A) to N
24321 106 209 21 0 0 select (N) SET UP 6/1/0 IN
24322 104 6 0 0 add (N) to (A) SWITCH
24323 102 26 0 2 transfer (A) to N
24324 106 129 5 0 3 select (N) SET UP 28/1/1 W/L'S
24325 103 3 0 2 copy (A) to N IN 3 OF SWITCH
24326 104 209 16 0 0 add (N) to (A) 24/1/0 TO BLISTER SPACE IN
24327 102 28 0 2 transfer (A) to N 28 OF SWITCH
24328 106 4 0 2 select (N) *09Ю06Ю*09Ю062 TEST TIMINGS ON
24329 127 243 34 0 2 jump A >= Z *09Ю06Ю >YES
24330 106 28 0 2 select (N) SET UP 26/0/3
24331 102 27 0 2 transfer (A) to N IN 27 OF SWITCH
24332 106 209 17 0 0 select (N) SET UP 24/1/0 TO TOP OF PQ
24333 102 4 0 2 transfer (A) to N *09Ю062
24329>24334 106 209 17 0 0 select (N) SET UP 24/1/0 TO TOP OF PQ
24335 102 6 0 2 transfer (A) to N IN 4 OF SWITCH
24336 106 3 0 2 select (N)
24337 127 243 42 0 2 jump A >= Z
24338 102 243 41 0 0 transfer (A) to N
24339 106 243 76 0 0 select (N)
24340 118 5 0 0 shift logical
24341 100 0 0 0 Halt
24337>24342 101 0 1 3 select literal address
24313>24343 123 26 1 0 copy into tag SET TAG 0 IN MOD
24344 123 30 1 0 copy into tag GROUP 3
24345 123 28 1 0 copy into tag *59Ю
24346 106 176 23 0 0 select (N)
24347 124 26 0 1 modify address of next FORM SI=4 LINK
24348 101 14 1 2 subtract literal address
24349 103 35 0 2 copy (A) to N
24350 102 7 0 2 transfer (A) to N SET SI=4
24351 124 27 0 1 modify address of next *60Ю TEST TRIAL
24352 106 11 0 0 select (N) *60Ю
24353 127 246 14 0 0 jump A = Z >NO
24354 106 26 0 0 select (N) *60Ю SET TRIALS IND
24355 102 233 46 0 0 transfer (A) to N
24356 126 480 2 0 0 enter subroutine
24357 106 218 6 1 0 select (N) RESTORE MOD GROUP 3
24358 128 26 0 0 bulk copy short numeric
24359 106 106 16 0 0 select (N) SET M/R SWITCH AT 2
24360 102 106 14 0 0 transfer (A) to N
24361 124 24 0 2 select literal and division SET LAST CHAP READ AT 24
24362 124 225 16 0 1 modify address of next *579
24363 102 224 6 0 0 transfer (A) to N
24364 106 222 7 0 0 select (N) TRIAL DATA IND
24365 124 233 45 0 1 modify address of next
24366 124 4 1 0 unconditional jump >PTS
24367 124 233 45 0 1 modify address of next *££0*££1*49‼ LINK UP FROM
10015>24368 124 2 0 1 modify address of next *49‼ STORE (ABC)
24369 100 30 1 0 copy registers *49Ю
24370 106 209 6 0 0 select (N) 26/0/1 2 RESTORE(9)
24371 102 9 0 0 transfer (A) to N
24372 124 2 0 1 modify address of next RESTORE (ABC)
24373 100 30 1 1 replace registers
24374 124 233 45 0 1 modify address of next *49Ю LINK UP FROM
24375 124 5 1 0 unconditional jump *60Ю >PTS
24376 102 6 0 0 transfer (A) to N *599
24377 127 244 23 0 0 jump A = Z *££0*££2*57‼
24378 124 244 25 1 0 unconditional jump *14‼
24379 127 245 12 0 0 jump A = Z *573 >NO
Source image: P1020684.JPG
24380 127 244 25 0 0 jump A = Z *££2*14‼57‼
24400 PROCR 244 244 ENTRY FOR OVERLAY.
24401 NOTES RADIX B
10009>24402 124 212 2 1 1 set modification group SET MOD GROUP 0
24403 124 2 0 1 modify address of next
24404 100 30 1 0 copy registers
24405 126 250 2 0 0 enter subroutine *599 >STORE MOD GROUP 3 S/R
24406 106 209 6 0 0 select (N) *49Ю 26/0/1 2 RESTORE (9)
24407 102 9 0 0 transfer (A) to N *49Ю
24408 106 100 8 0 0 select (N) STORE DETAILS IN
24409 102 44 0 1 transfer (A) to N SWITCH
24410 126 238 2 0 0 enter subroutine *099 >AUGMENT TIME SPENT
24411 126 462 2 0 0 enter subroutine >REQUEST M/R FOR OVERLAY
24412 106 221 34 0 0 select (N) *16Ю
37915>24413 127 244 17 0 0 jump A = Z *14‼57‼*57‼ >UPTIME NOT IN
24414 126 379 2 0 0 enter subroutine >CLOSE RT
24415 127 103 7 0 3 jump A < Z >DELAY STILL IN PROCESS
24416 126 380 2 0 0 enter subroutine *16Ю SET EVERYTHING BACK
24413>24417 124 3 0 1 modify address of next *57Ю
24418 106 159 0 0 select (N) SELECT AND STORE CH RT FROM SPECIAL CHAP
24419 103 233 26 0 0 copy (A) to N
24420 126 249 2 0 0 enter subroutine >S/R-SEARCH LIST FOR RT
24421 124 244 23 1 0 unconditional jump *14‼ >RT FOUND IN LIST
24422 124 240 2 1 0 unconditional jump *57Ю >'LOST'
24421>
24377>24423 106 212 6 0 0 select (N) *14Ю SET OPT A SWITCH AT2
24424 102 296 6 0 0 transfer (A) to N *14Ю
24380>
24378>24425 125 127 1 0 set indicators *579169
24426 106 37 0 1 select (N) START OF LAST CH.
24427 102 4 1 0 transfer (A) to N
24428 106 30 0 1 select (N) TEST IF OVERLAYING
24429 105 4 0 2 subtract (N) from (A) CHPT IS AN INITIAL
24430 127 244 33 0 3 jump A < Z >YES CHPT
24431 106 210 8 0 0 select (N)
24432 107 30 0 1 augment (N) by (A)
24430>24433 106 12 1 2 select (N) PROG ID & SL NO
24434 102 221 8 1 0 transfer (A) to N
24435 106 30 0 1 select (N)
24436 102 221 13 0 0 transfer (A) to N
24437 124 270 2 0 2 select literal and division *464 00004
24438 102 42 0 1 transfer (A) to N
24439 106 9 0 1 select (N) SET SI=2
24440 102 7 0 1 transfer (A) to N
24441 106 2 1 0 select (N) STORE (MR1)
24442 102 221 6 1 0 transfer (A) to N
24443 126 107 8 1 1 set modification register SET (MR1) FOR M/R
24444 124 214 72 0 2 select literal and division SET EDIT TABLE FOR O'LAY
24445 102 217 28 0 0 transfer (A) to N
24446 124 217 28 0 2 select literal and division EDIT COMMENT INTO SP CHAP
24447 124 3 0 1 modify address of next
24448 128 130 1 2 edit fixed field formats
24449 124 3 0 1 modify address of next
24450 124 130 0 2 select literal and division
24451 123 168 0 2 enter master routine >TYPE
24500 PROCR 245 245 OVERLAY 2
24501 NOTES RADIX B
24024>24502 100 220 3 0 2 replace (B) by (N)
24503 124 221 7 0 1 modify address of next *60Ю TEST PROGRAM UNDER TRIAL
24504 106 11 0 0 select (N)
24505 127 245 11 0 0 jump A = Z *573 >NO
24506 106 220 3 0 0 select (N) *572 SET BITS 1-3
24507 114 233 26 0 0 replace selected bits *572 OF PROG ROUTE
24508 124 233 45 0 1 modify address of next
Source image: P1020685.JPG
24509 124 0 1 0 unconditional jump *60Ю >PTS
24510 125 0 1 2 interrogate indicators *572*601
24505>24511 114 233 26 0 0 replace selected bits *572
24379>24512 106 209 10 0 0 select (N) SET UP A.S.L'S
24513 124 233 26 0 1 modify address of next
24514 102 64 0 0 transfer (A) to N
24515 106 209 11 0 0 select (N)
24516 102 124 0 0 transfer (A) to N
24517 126 241 2 0 0 enter subroutine >S/R A
24518 124 245 23 1 0 unconditional jump >FILE HAS BEEN OPENED
24519 106 221 8 1 0 select (N) TEST LAST PROG READ
24520 124 225 16 0 1 modify address of next *579 WAS THIS PROG
24521 105 224 4 1 0 subtract (N) from (A)
24522 127 245 26 0 0 jump A = Z >YES
24518>24523 126 242 2 0 0 enter subroutine >S/R B
24524 124 240 2 1 0 unconditional jump >'LOST'
24525 124 245 44 1 0 unconditional jump >
24631>
24522>24526 106 221 13 0 0 select (N) TEST THIS CHAP=
24527 124 225 16 0 1 modify address of next *579 LAST CHAPT LOADED+1
24528 105 224 6 0 0 subtract (N) from (A)
24529 101 1 1 2 subtract literal address
24530 127 245 41 0 0 jump A = Z >YES
24531 127 245 44 0 2 jump A >= Z >YES TEST THIS CHAP>LAST
24532 124 225 16 0 1 modify address of next *579
24533 106 224 7 0 0 select (N)
24534 118 4123 1 0 shift logical SET UP PROG'S IDENTIFIER
24535 124 10 0 2 select literal and division
24536 118 5 1 0 shift logical
24537 102 221 4 1 0 transfer (A) to N
24538 124 245 24 0 2 select literal and division SET LINK IN S/R B
24539 102 242 2 0 0 transfer (A) to N
24540 124 242 70 1 0 unconditional jump >S/R B
24530>24541 100 210 8 0 2 replace (B) by (N)
24542 124 40 0 2 select literal and division
24543 126 237 2 0 0 enter subroutine >STEP BACK
24548>
24551>
24554>
24632>
24531>
24525>24544 126 236 2 0 0 enter subroutine >S/R BB
24545 124 124 0 1 modify address of next TEST CHAPTER
24546 106 12 1 0 select (N) HEADING BLOCK
24547 105 214 68 1 0 subtract (N) from (A)
24548 127 245 44 0 1 jump A != Z >NO
24549 106 228 4 1 0 select (N) TEST CORRECT PROG
24550 105 221 8 1 0 subtract (N) from (A) IDENTITY AND
24551 127 245 44 0 1 jump A != Z >NO SERIAL NO
24552 106 228 2 0 0 select (N) TEST IF REQUIRED
24553 105 221 13 0 0 subtract (N) from (A) CHAPTER
24554 127 245 44 0 1 jump A != Z >NO
24555 106 108 12 0 0 select (N) SET M/R SWITCH
24556 102 106 13 0 0 transfer (A) to N NON-INT
24557 106 218 2 1 0 select (N) STORE GP 3 REGS
24558 128 222 12 0 0 bulk copy short numeric
24559 124 212 2 1 1 set modification group RESET MOD GP 0
24560 126 221 6 1 2 set modification register SET (MR2) FOR PROG
24561 106 32 0 2 select (N) OVERLAYED CH NO
24562 104 32 0 2 add (N) to (A) SET MR2 FOR START OF
24563 104 37 0 2 add (N) to (A) START OF LAST CH CH TO BE OVERLAYED
24564 102 28 1 0 transfer (A) to N
24565 124 210 3 1 1 set modification group SET MOD GP3
24566 124 3 0 2 select literal and division *14Ю SET OPT A SWITCH AT 3
24567 102 296 6 0 0 transfer (A) to N *14Ю
24568 106 18 0 2 select (N) START OF CH
Source image: P1020686.JPG
24569 103 28 1 0 copy (A) to N SET (MR2)=START CH
24570 126 247 2 0 0 enter subroutine >LOAD S/R
24600 PROCR 246 246 OVERLAY (3)
24601 NOTES RADIX B
24602 106 221 13 0 0 select (N) STORE NO OF CHAP LOADED
24603 124 225 16 0 1 modify address of next *579
24604 102 224 6 0 0 transfer (A) to N
24605 124 221 7 0 1 modify address of next *60Ю TESTPROG
24606 106 11 0 0 select (N) UNDER TRIAL
24607 127 246 10 0 0 jump A = Z >NO
24608 124 233 45 0 1 modify address of next
24609 124 7 1 0 unconditional jump *60Ю >PTS
24607>24610 124 212 2 1 1 set modification group 0 SET MOD GROUP 0
24611 126 221 6 1 2 set modification register SET (MR2) FOR PROG
24612 106 35 0 2 select (N)
24613 102 7 0 2 transfer (A) to N SET SI=4
24353>24614 106 218 6 1 0 select (N) RESTORE GROUP 3 REGISTERS
24615 128 26 0 0 bulk copy short numeric
46815>24616 126 107 8 1 1 set modification register SET (MR1) FOR M/R (NEEDED FOR PTS)
24617 106 106 16 0 0 select (N) SET M/R SWITCH AT 2
24618 102 106 14 0 0 transfer (A) to N
24619 100 220 3 0 2 replace (B) by (N) *60Ю BITS 1-3
24620 106 220 3 0 0 select (N) 7
24621 114 233 26 0 0 replace selected bits *60Ю RESET ROUTE IN CASE OF PTS
24622 126 480 2 0 0 enter subroutine
24623 124 103 7 1 0 unconditional jump >HEAD OF QUEUE
24624 102 221 2 0 0 transfer (A) to N *60Ю RETURN FROM PTS(START)
24625 106 209 10 0 0 select (N)
24626 124 233 26 0 1 modify address of next
24627 102 64 0 0 transfer (A) to N
24628 106 209 11 0 0 select (N)
24629 102 124 0 0 transfer (A) to N
24630 106 221 2 0 0 select (N)
24631 127 245 26 0 0 jump A = Z >ALIGNED AT END OF CHAP
24632 124 245 44 1 0 unconditional jump >ALIGNED AT START OF PROG
24700 PROCR 247 247 LOAD SUB-ROUTINE
24701 NOTES RADIX B LOAD NEXT CHAPTER
24702 100 0 0 0 Halt LINK
24703 102 221 5 0 0 transfer (A) to N STORE START OF PARAMETER TABLE
24704 101 16 0 1 prepare for digit collation *60Ю TEST PTS
24705 115 247 2 0 0 collate and add LOADED
24706 127 247 9 0 0 jump A = Z >NO
24707 106 4 0 0 select (N)
24708 124 247 10 1 0 unconditional jump *60Ю >
24706>24709 106 28 0 0 select (N) SET IND MOD REG 1 AT
24708>24710 102 221 16 1 0 transfer (A) to N START OF CHAPTER
24741>24711 126 236 2 0 0 enter subroutine >S/R BB
24712 106 212 2 1 0 select (N) SET IND MOD REG 2 AT
24713 102 221 18 1 0 transfer (A) to N 24:0
24740>24714 124 221 18 0 1 modify address of next STORE NEXT WORD
24715 106 228 2 1 0 select (N)
24716 103 221 2 1 0 copy (A) to N
24717 105 210 6 0 0 subtract (N) from (A) TEST FOR END OF
24718 127 247 42 0 0 jump A = Z >YES CHAPTER
24719 104 210 7 0 0 add (N) to (A) TEST FOR MINUS ZERO
24720 127 248 2 0 0 jump A = Z >YES
24721 125 0 1 2 interrogate indicators TEST FOR PARAMETER
24722 101 4 0 1 prepare for digit collation IN Q3
24723 115 221 2 0 0 collate and add
24724 127 248 6 0 1 jump A != Z >YES
24725 106 221 5 0 0 select (N) FORM ABSOLUTE LOCATION OF PARAMETER
24726 107 221 2 0 0 augment (N) by (A)
24727 106 221 3 0 0 select (N) TEST INFORMATION
24728 127 247 32 0 3 jump A < Z >YES IS NEGATIVE
Source image: P1020687.JPG
24729 124 221 2 0 1 modify address of next ADD PARAMETER VALUE
24730 104 0 0 0 add (N) to (A)
24731 124 247 34 1 0 unconditional jump
24728>24732 124 221 2 0 1 modify address of next SUBTRACT PARAMETER VALUE
24733 105 0 0 0 subtract (N) from (A)
24731>24734 124 221 16 0 1 modify address of next STORE IN CHAPTER
24735 102 0 0 0 transfer (A) to N
24805>
24818>24736 123 1 0 0 step on and test
24737 100 221 16 0 0 Halt
24821>24738 123 2 0 0 step on and test
24739 100 221 18 0 0 Halt
24740 124 247 14 1 0 unconditional jump >DEAL WITH NEXT LOCATION
24741 124 247 11 1 0 unconditional jump >READ AND UNPACK NEXT BLOCK
24718>24742 126 247 2 0 1 leave subroutine >LEAVE S/R
24800 PROCR 248 248 LOAD SUB-ROUTINE CONT
24801 NOTES RADIX B
24720>24802 106 218 4 1 0 select (N) STACK MINUS ZERO
24803 124 221 16 0 1 modify address of next
24804 128 0 1 0 bulk copy alpha to short
24805 124 247 36 1 0 unconditional jump >
24724>24806 101 3840 1 2 subtract literal address TEST FOR 15 IN Q3
24807 127 248 19 0 0 jump A = Z >YES
24808 106 221 3 0 0 select (N) STORE WORD IN CHAPTER
24809 124 221 16 0 1 modify address of next
24810 102 0 0 0 transfer (A) to N
24811 100 212 6 0 2 replace (B) by (N) FORM AND PACK
24812 110 221 2 0 0 multiply and add ENTRY POINT
24813 118 4126 0 0 shift logical TO 3B M/R
24814 101 158 1 1 add literal address
24815 100 210 2 0 2 replace (B) by (N)
24816 124 221 16 0 1 modify address of next
24817 114 0 0 0 replace selected bits
24818 124 247 36 1 0 unconditional jump >
24807>24819 106 221 3 0 0 select (N) STEP ON STACKING LOCATION COUNTER
24820 107 221 16 0 0 augment (N) by (A)
24821 124 247 38 1 0 unconditional jump >
24822 100 0 0 0 Halt *££0*££2*14‼*42‼*46‼*5+‼
24823 127 264 27 0 1 jump A != Z *163 >NO
24824 100 285 45 0 0 Halt *0138Ю‼ (12)RE-READ
24900 PROCR 249 249 SET INDIRECT MR AND SEARCH MULTI-ROUTE LOADING,LIST
24902 100 0 0 0 Halt *57Ю
24903 102 108 27 0 0 transfer (A) to N STORE A
24904 101 36 1 3 select literal address SET INDIRECT MR=36:0
24905 102 225 17 0 0 transfer (A) to N
24906 102 225 16 0 0 transfer (A) to N
24913>24907 106 108 27 0 0 select (N) SELECT A
24908 124 225 16 0 1 modify address of next SEARCH LIST
24909 105 224 2 0 0 subtract (N) from (A)
24910 127 249 16 0 0 jump A = Z >AVAIL
24911 123 6 0 0 step on and test STEP MOD BY 6
24912 100 225 16 0 0 Halt
24913 124 249 7 1 0 unconditional jump >DO NEXT SEARCH
24914 124 249 2 0 1 modify address of next >LEAVE S/R+1 END OF MOD
24915 124 1 1 0 unconditional jump
24910>24916 126 249 2 0 1 leave subroutine *57Ю >LEAVE SR
25000 PROCR 250 250 STORE MOD GROUP 3 S/R
25002 100 0 0 0 Halt *59Ю STORE MOD
25003 100 212 2 0 3 set radix SET BINARY
25004 106 3 0 1 select (N) GROUP 3
25005 127 250 9 0 2 jump A >= Z >NOT 28/1/1
25006 102 250 8 0 0 transfer (A) to N
25007 106 212 20 1 0 select (N)
Source image: P1020688.JPG
25008 128 129 8 1 1 bulk copy long numeric FORMED BULK COPY ORDER
25005>25009 126 250 2 0 1 leave subroutine >LEAVE S/R
25100 PROCR 251 251 USE OF ASSEMBLER TABLE
25200 CONST 252 252 1 USE OF ASSEMBLER TABLE
25202 (D)£££££ ; CH0 LAST RT NO & TYPE
25204 0; CH0 DB INDICATORS
25206 0; CH3 RT 0 1ST WD
25208 0; CH3 RT 0 2ND WD
25210 £££££ ; CH1 LAST RT NO & TYPE
25212 0; CH1 DB INDICATORS
25214 0; CH3 RT 1 1ST WD
25216 0; CH3 RT 1 2ND WD
25218 £££££ ; CH2 LAST RT NO & TYPE
25220 0; CH2 DB INDICATORS
25222 0; CH3 RT 2 1ST WD
25224 0; CH3 RT 2 2ND WD
25226 £££££ ; CH3 LAST RT NO & TYPE
25228 0; CH3 DB INDICATORS
25230 0; CH3 RT 3 1ST WD
25232 0; CH3 RT 3 2ND WD
25234 £££££ ; CH4 LAST RT NO & TYPE
25236 0; CH4 DB INDICATORS
25238 0; CH3 RT 4 1ST WD
25240 0; CH3 RT 4 2ND WD
25242 £££££ ; CH5 LAST RT NO & TYPE
25244 0; CH5 DB INDICATORS
25246 0; CH3 RT 5 1ST WD
25248 0; CH3 RT 5 2ND WD
25250 £££££ ; CH6 LAST RT NO & TYPE
25252 0; CH6 DB INDICATORS
25254 0; CH3 RT 6 1ST WD
25256 0; CH3 RT 6 2ND WD
25258 £££££ ; CH7 LAST RT NO & TYPE
25260 0; CH7 DB INDICATORS
25262 0; CH3 RT 7 1ST WD
25264 0; CH3 RT 7 2ND WD
25266 0; *02Ю3:Ю4£Ю*53Ю0ЮЮ3:Ю4£Ю
25268 0; RT 19/18 PROG NO
25270 0; RT 17/16 FILE ID
25272 0; *53Ю0ЮЮ3:Ю4£Ю
25274 0; RT 25/24 PROG NO
25276 0; RT 27/26 PROG NO
25278 0; RT 25/24 FILE ID
25280 0; RT 27/26 FILE ID
25282 0; *53Ю0ЮЮ3:Ю4£Ю
25284 0; RT 19/18 REEL NO
25286 0; PADDING
25288 0; *53Ю0ЮЮ3:Ю4£Ю
25290 0; RT 25/24 REEL NO
25292 0; RT 27/26 REEL NO
25300 CONST 253 253 1 P/T I/P(CH2)W/L'S
25302 (D)0; *53Ю0ЮЮ3:Ю4£Ю
25304 0; 2ND WORD
25306 0; RT 1
25308 0;
25310 0; RT 2
25312 0;
25314 0; RT 3
25316 0;
25400 CONST 254 254 1 40-COL CARD READER W/L'S
25402 (A); *16Ю0ЮЮ3:Ю4£Ю
25404 ; RT 4 2ND WORD
Source image: P1020689.JPG
25406 ; RT5 1ST WORD
25408 ; RT5 2ND WORD
25410 ; RT6 1ST WORD
25412 ; RT6 2ND WORD
25414 ; RT7 1ST WORD
25416 ; RT7 2ND WORD
25500 CONST 255 255 1 P/TI/P(CH2)W/L'S
25600 CONST 256 256 1 PADDING
25602 (D)0; *3:Ю4£Ю
25604 0;
25700 CONST 257 257 1 CHANNEL 16 ETC
25702 (D)£££££ ; *3:Ю4£Ю CH 16
25704 0; CH16 DB INDS
25706 0;
25708 0;
25710 £££££ ; CH17
25712 0;
25714 0;
25716 0;
25718 £££££ ; CH18
25720 0;
25722 0;
25724 0;
25726 £££££ ; CH19
25728 0;
25730 0;
25732 0;
25734 £££££ ; CH20
25736 0;
25738 0;
25740 0;
25742 £££££ ; CH21
25744 0;
25746 0;
25748 0;
25800 CONST 258 258 1 MISC WL'S AND CONSTANTS
25802 (A)*(D)00410000; *:SP:1:SP:SP
25804 (D)0; COL 1
25806 0; COL 2&6
25808 0; COL 3
25810 0; COL 4
25812 0; COL 5
25814 0001+00080; BULK COPY FOR LOG
25816 2001+00000; BULK CLEAR FOR PRINTER W/E
25818 0; (MR2)
25820 8000000000;
25822 0; LIB CARD SERIAL NUMBER, ROUTE BEING REWO
25824 (A)SNT? ;
25826 HDG ;
25828 FINIS;
25830 (D)7Ю(A)END(D)7‼; (END)
25832 0; USED IN ABANDON S/R
25900 CONST 259 259 1 MATRIX FOR LIBRARIAN CARDS
25902 (D)0; *25Ю*05Ю
25904 0;
25906 0;
25908 0;
25910 0;
25912 0;
25914 0;
25916 0;
Source image: P1020690.JPG
25918 0;
25920 0;
25922 0;
25924 0;
25926 0;
25928 0;
25930 0;
25932 0;
25934 0;
25936 0;
25938 0;
25940 0;
25942 0;
25944 0;
25946 0;
25948 0;
25950 0;
25952 0;
26000 CONST 260 260 1 W/L'S FOR P/T O/P
26002 (D)0; *05Ю CARD O/P ANNEXE
26004 ;
26006 ;
26008 ; *05Ю
26010 (D)0001000024; *259*059 LIB CRD
26012 (D)0; '(64+R)'
26014 0; INDIRECT MODIFIER
26016 3£00000000;
26018 7.00000000;
26020 0; REEL NO. FILE IDENTITY
26022 0; W/L
26024 7.7.7.7.7.;
26026 3.00000000;
26100 TABLE 261 261 1
26101 NOTES
26102 258 4 0 0 2 0 3 0 0 0 0 0 0 COMMENT
26104 258 7 0 0 0 0 3 2 0 1 0 0 0 ROUTE NUMBER
26106 102 2 0 0 2 0 1 0 1 0 0 0 0 SP,TAB
26108 258 6 0 0 0 0 5 0 0 0 0 0 0 COL 2
26110 211 22 0 0 2 0 2 0 0 0 0 0 1 /////L/E,L/E
26112 258 4 0 0 2 0 3 0 0 0 0 0 0 COMMENT
26114 258 7 0 0 0 0 3 2 0 1 0 0 0 ROUTE NUMBER
26116 102 2 0 0 2 0 1 0 1 0 0 0 0 SP,TAB
26118 258 6 0 0 0 0 5 0 0 0 0 0 0 COL 2
26120 102 2 0 0 2 0 1 0 1 0 0 0 0 SP,TAB
26122 258 8 0 0 0 0 5 0 0 3 0 0 0 COL 3
26124 102 2 0 0 2 0 1 0 1 0 0 0 0 SP,TAB
26126 258 10 0 0 2 0 5 0 0 0 0 0 0 COLUMN 4
26128 211 22 0 0 2 0 2 0 1 0 0 0 1 SP,L/E L/E
26130 258 4 0 0 2 0 3 0 0 0 0 0 0 COMMENT
26132 258 7 0 0 0 0 3 2 0 1 0 0 0 ROUTE NUMBER
26134 102 2 0 0 2 0 1 0 1 0 0 0 0 SP TAB
26136 258 6 0 0 0 0 5 0 0 0 0 0 0 COL 2
26138 102 2 0 0 2 0 1 0 1 0 0 0 0 SP TAB
26140 258 8 0 0 2 0 5 0 0 0 0 0 0 COL 3
26142 102 2 0 0 2 0 1 0 1 0 0 0 0 SP TAB
26144 258 10 0 0 2 0 5 0 0 0 0 0 0 COL 4
26146 102 2 0 0 2 0 1 0 0 0 0 0 0 TAB
26148 258 12 0 0 0 0 5 0 0 5 0 0 0 COL 5
26150 211 22 0 0 2 0 2 0 0 0 0 0 1 L/E,L/E
26152 102 74 0 0 0 0 5 0 0 4 0 0 1 *679
26154 258 12 0 0 0 0 5 0 0 0 0 0 1 *8£9
26200 TABLE 262 262 1
26201 NOTES
Source image: P1020691.JPG
26202 258 4 0 0 2 0 3 0 0 0 0 0 0 COMMENT
26204 258 7 0 0 0 0 3 2 0 1 0 0 0 ROUTE NUMBER
26206 102 2 0 0 2 0 1 0 0 0 0 0 0 TAB
26208 258 6 0 0 0 0 5 0 0 0 0 0 0 COL 2
26210 102 2 0 0 2 0 1 0 0 0 0 0 0 TAB
26212 258 8 0 0 0 0 5 0 0 0 0 0 0 COL 3
26214 102 2 0 0 2 0 1 0 1 0 0 0 0 SP,TAB
26216 258 10 0 0 0 0 5 0 0 0 0 0 0 COL 4
26218 102 2 0 0 2 0 1 0 2 0 0 0 0 2 SP,TAB
26220 258 12 0 0 2 0 5 0 0 0 0 0 0 COL 5
26222 211 22 0 0 2 0 2 0 0 0 0 0 1 L/E,L/E
26224 211 22 0 0 2 0 2 0 0 0 0 0 1 *3£Ю*712 SUM
26226 258 23 0 0 0 0 3 2 2 1 0 0 0 *3£Ю*712 LIB NO
26228 258 23 0 0 0 0 3 2 2 1 0 0 0 *71Ю*3£9 LIB NO
26230 211 22 0 0 2 0 2 0 0 0 0 0 1 SUM
26232 260 20 0 0 0 0 5 0 5 0 0 0 0 REEL PROGM 10
26234 258 23 0 0 0 0 3 2 2 1 0 0 0 *71Ю*3£9 LIB NO
26236 214 24 0 0 2 0 4 1 3 0 0 0 1 /////3SP L/E N/E N/E R/S
26300 PROCR 263 263 W.L'S FOR OPTIONS AND ZZZ COMMENT
26301 NOTES RADIX
26302 101 0 0 3 interchange area addresses CONSTANT
26303 100 295 2 0 0 Halt *14‼ (1)ABANDON
26304 100 410 9 0 0 Halt (2)ALARM TYPE 3
26305 100 416 2 0 0 Halt (3)
26306 100 289 8 0 0 Halt (4) ALARM TYPE 2
26307 100 289 6 0 0 Halt (5)
26308 100 289 4 0 0 Halt (6)
26309 100 289 2 0 0 Halt (7)
26310 100 106 11 0 0 Halt *42‼ (8) ALARM TYPE 1
26311 100 280 32 0 0 Halt *42‼ (9)
26312 100 290 2 0 0 Halt *46‼ (10)REOFFER OPTIONS
26313 100 286 37 0 0 Halt (11)RE-WRITE
26314 100 285 5 0 0 Halt *0138Ю‼ (12)RE-READ
26315 100 291 2 0 0 Halt *5+‼ (13)CHANGE DECKS
26316 100 263 25 0 0 Halt *77Ю (14)ZZZ08
26317 100 442 34 0 0 Halt *77Ю (15)CONTINUE RUN FWD
26437>
26438>
26704>
26714>
26724>
26750>
27254>
44753>
44754>
44755>
44807>
44912>
44914>
10012>26318 126 312 2 0 0 enter subroutine >ZZZ01
30238>
37808>26319 126 312 2 0 0 enter subroutine > 02
27713>
28403>
28410>
30035>
37308>
40608>26320 126 312 2 0 0 enter subroutine > 03
42117>26321 126 312 2 0 0 enter subroutine > 04
44413>
44417>
44605>
44606>26322 126 312 2 0 0 enter subroutine > 05
44510>
44707>26323 126 312 2 0 0 enter subroutine > 06
44538>
Source image: P1020692.JPG
44720>26324 126 312 2 0 0 enter subroutine > 07
44214>26325 126 312 2 0 0 enter subroutine > 08
27010>
45019>26326 126 312 2 0 0 enter subroutine > 09
43605>26327 126 312 2 0 0 enter subroutine >10
26328 100 210 3 0 3 set radix *££0*££2*063
26329 106 157 0 0 select (N) *063063
26400 PROCR 264 264 SET UP SI
26401 NOTES RADIX B
10016>26402 101 267 2 1 2 subtract literal address PSEUDOROWTETYPE PROGRAMMED
26403 102 31 0 1 transfer (A) to N TEST ROUTE
26404 124 252 2 0 2 select literal and division USE OF ASSR TABLE
26405 102 32 0 1 transfer (A) to N
26406 106 209 6 0 0 select (N) *49Ю
26407 102 9 0 0 transfer (A) to N *49Ю
26408 106 3 0 1 select (N) *59Ю STORING MOD GROUP 3
26409 127 264 31 0 2 jump A >= Z TEST 28/1/1
26410 126 250 2 0 0 enter subroutine *59Ю STORE MOD GROUP 3 S/R
26411 124 264 31 1 0 unconditional jump
10003>26412 124 212 2 1 1 set modification group SET MOD GROUP 0
26413 124 2 0 1 modify address of next STORE (AB) IN SI
26414 100 30 1 0 copy registers
26415 106 3 0 1 select (N) *59Ю STORING MOD GROUP 3
26416 127 264 20 0 2 jump A >= Z >NOT 28/1/1
26417 102 264 19 0 0 transfer (A) to N
26418 106 212 20 1 0 select (N)
26419 128 129 8 1 1 bulk copy long numeric *59Ю
26416>26420 106 100 2 0 0 select (N) SET UP LINK IN SI
26421 102 44 1 1 transfer (A) to N SET ASSOC TIME=0
26422 106 209 6 0 0 select (N) *49Ю 26/0/1 2 RESTORE (9)
26423 102 9 0 0 transfer (A) to N *49Ю
26424 106 31 0 1 select (N) *169199
26425 101 48 1 2 subtract literal address *19Ю TEST SELECT REEL COUNTER
26426 127 449 2 0 0 jump A = Z *19Ю >YES
24823>26427 101 1 1 2 subtract literal address *16Ю*19+ 0000000049
26428 124 2 0 1 modify address of next TEST UPTIME POCKET SELECT
26429 127 12 0 0 jump A = Z *16Ю >YES-UPTIME
28808>
35110>
42105>
42742>26430 126 338 2 0 0 enter subroutine SET SI=1
26411>
26409>26431 124 2 0 1 modify address of next *063 OBEY TEST ROUTE(SET DECIMAL)
26432 124 7 1 0 unconditional jump *063063 >51+7 (6/0/0/0/157)
26433 107 46 1 1 augment (N) by (A) *09Ю06Ю
26434 100 212 2 0 3 set radix SET (C) FOR BINARY
35211>26435 124 2 0 1 modify address of next
26436 124 7 1 0 unconditional jump *09Ю06Ю
26437 124 263 18 1 0 unconditional jump *££0*££2*03‼*02‼*04‼*05‼*19‼*1‼‼*30‼*2.‼
26438 124 263 18 1 0 unconditional jump *49‼*16‼*56‼82‼*82‼*81‼
26439 124 436 11 1 0 unconditional jump *1Ю‼ M/T INPUT
26440 124 268 2 1 0 unconditional jump *££2*1Ю‼1Ю‼
26500 PROCR 265 265 FORM INTERCHANGE AREA ADDRESSES
26501 NOTES RADIX B
20903>
11826>
11002>26502 119 56 0 1 input one block/reset timer *099069*3+9 RESET MILLISECOND TIMER
20909>
12519>
12319>
12119>
11919>
11719>
11519>
11319>
11119>
Source image: P1020693.JPG
10624>26503 103 188 2 1 0 copy (A) to N
26504 118 6 0 3 shift binary FORM INSTRUCTION SWITCH SAS 20000
26600 PROCR 266 266 NB THE PRECEDING ORDER IS'SWITCH SAS'SET AT'26/0/0>DB:DETECT
26601 NOTES DURING'SET DB IND'IF DB FOUND IN'TEST ROUTE'IN PROG SWITCH
42167>26602 104 32 0 1 add (N) to (A) *4£2*3:2 PSEUDO ROUTE
26603 104 263 2 0 0 add (N) to (A) *4£2*3:2 1/0/3 ORDER
26604 124 188 3 0 1 modify address of next RTE TYPE 1-48*OR*SR LINK-THIS ADDRESS+1
26700 PROCR 267 267 SWITCH SI
26701 NOTES RADIX B
26702>26702 124 267 2 1 0 unconditional jump
26703 124 405 2 1 0 unconditional jump *03‼*3:4*4£4 P/T O/P 3 3
26704 124 263 18 1 0 unconditional jump ZZZ COMMENT
26705 124 388 2 1 0 unconditional jump *05‼*3:4*4£4 DEC O/P 4 4
26706 124 390 2 1 0 unconditional jump *3:4*4£4 PRINTER 3 3
26707 124 373 2 1 0 unconditional jump *02‼*3:4*4£4 P/T I/P 3 3
26708 124 375 2 1 0 unconditional jump *04‼ CARD I/P
26709 124 420 2 1 0 unconditional jump *3:4*4£4 M/T I/P 3 3
26710 124 433 2 1 0 unconditional jump *3:4*4£4 M/T O/P 3 3
26711 124 390 2 1 0 unconditional jump *3:4*4£4 PRINTER 3 3
26712 124 395 2 1 0 unconditional jump *30‼*4£4*3:4 AUTOLEC3 3
26713 124 401 2 1 0 unconditional jump *03‼ P/T O/P OPEN FILE
26714 124 263 18 1 0 unconditional jump ZZZ COMMENT
26715 124 387 2 1 0 unconditional jump *05‼ DEC CARD OUTPUT
26716 124 269 4 1 0 unconditional jump PRINTER
26717 124 364 2 1 0 unconditional jump *02‼ P/T INPUT
26718 124 366 2 1 0 unconditional jump *04‼ DEC CARD INPUT
26719 124 409 2 1 0 unconditional jump MAG TAPE INPUT
26720 124 424 2 1 0 unconditional jump MAG TAPE OUTPUT
26721 124 269 4 1 0 unconditional jump PRINTER
26722 124 394 2 1 0 unconditional jump *30‼ AUTOLECTOR
26723 124 408 2 1 0 unconditional jump *03‼ P/T OUTPUT CLOSE FILE
26724 124 263 18 1 0 unconditional jump ZZZ COMMENT
26725 124 391 2 1 0 unconditional jump *05‼ DEC CARD OUTPUT
26726 124 268 2 1 0 unconditional jump PRINTER
26727 124 383 2 1 0 unconditional jump *1Ю‼1Ю‼*02‼ P/T INPUT
26728 124 383 2 1 0 unconditional jump *1Ю‼1Ю‼*04‼ DEC CARD INPUT
26729 124 423 2 1 0 unconditional jump *1Ю‼ MAG TAPE INPUT
26730 124 436 2 1 0 unconditional jump MAG TAPE OUTPUT
26731 124 268 2 1 0 unconditional jump PRINTER
26732 124 268 2 1 0 unconditional jump *30‼ AUTOLECTOR
26733 124 424 2 1 0 unconditional jump MAG TAPE OUTPUT OPEN FILE
26734 124 409 2 1 0 unconditional jump MAG TAPE INPUT 32
26735 124 437 2 1 0 unconditional jump CURRENT USE O/P REWIND
26736 124 437 4 1 0 unconditional jump CURRENT USE I/P 34
26737 124 438 4 1 0 unconditional jump CURRENT USE O/P RUN BACK
26738 124 438 11 1 0 unconditional jump CURRENT USE I/P 36
26739 124 438 2 1 0 unconditional jump CURRENT USE I/P RUN FORWARD
26740 124 438 2 1 0 unconditional jump CURRENT USE I/P 38
26741 124 444 4 1 0 unconditional jump O/P>O/P STEP BACK
26742 124 443 2 1 0 unconditional jump I/P>I/P 40
26743 124 446 4 1 0 unconditional jump *1‼‼ FUTURE USE O/P STEP FORWARD
26744 124 446 2 1 0 unconditional jump *1‼‼ FUTURE USE I/P 42
26745 124 444 2 1 0 unconditional jump O/P>I/P STEP BACK
26746 124 443 4 1 0 unconditional jump I/P>O/P 44
26747 124 434 2 1 0 unconditional jump >MAG TAPE OUTPUT CLOSE REEL
26748 124 422 2 1 0 unconditional jump MAG TAPE INPUT 46
26749 124 448 2 1 0 unconditional jump SET REEL NUMBER
26750 124 263 18 1 0 unconditional jump >ZZZ01 SELECT 48
26751 124 378 2 1 0 unconditional jump *16Ю49Ю56Ю82Ю81Ю81Ю*16‼ UPT POCKET SEL
26752 124 397 2 1 0 unconditional jump *49Ю56Ю81Ю82Ю*49‼ MICR INPUT
26753 124 398 2 1 0 unconditional jump *49‼ MICR POCKET SELECT
Source image: P1020694.JPG
26754 124 396 2 1 0 unconditional jump *49‼ MICR OPEN FILE
26755 124 400 2 1 0 unconditional jump *56‼82‼ DATA TRANS OPEN FILE
26756 124 399 2 1 0 unconditional jump *56‼82‼ DATA TRANS READ
26757 124 269 4 1 0 unconditional jump *81Ю82Ю*81‼ OPEN 5-8 HOLE P/T
26758 124 268 2 1 0 unconditional jump *81‼ CLOSE 5-8 HOLE P/T
26759 124 390 2 1 0 unconditional jump *81‼*3:4 OUTPUT 0000000003
26760 124 389 2 1 0 unconditional jump *82‼ NHKG OUTPUT
26761 124 269 4 1 0 unconditional jump *82‼ NHKG OPEN
26762 124 391 7 1 0 unconditional jump *82‼ NHKG CLOSE
26800 PROCR 268 268 UPDATE USE OF ASSEMBLER TABLE ETC.
26801 NOTES RADIX
39108>
40804>
40814>
26758>
26732>
26731>
26726>
26440>26802 124 188 2 0 1 modify address of next
26803 119 0 1 2 unload SET ROUTE TO MANUAL OR UNLOAD
26804 106 211 2 0 0 select (N)
26805 102 188 3 0 0 transfer (A) to N SET RT TYPE AT £5
43618>26806 106 188 2 0 0 select (N)
26807 126 299 2 0 0 enter subroutine >CLEAR D/B INDICATOR
37322>
37325>
37520>
39008>
39011>
39507>
39717>
42017>
43319>
43723>
44624>26808 126 349 2 0 0 enter subroutine >UPDATE ASSEMBLER TABLE
26907>
37517>
37803>
37805>
38322>
39010>
39926>
40516>
40632>
40913>
42155>
42157>
42210>
43714>
43927>
44615>
44632>
45053>
10030>26809 124 2 0 1 modify address of next RESTORE MOD GROUP
26810 124 29 1 1 set modification group
26811 124 2 0 1 modify address of next *59Ю STORE ABC
26812 100 30 1 0 copy registers
26813 124 2 0 1 modify address of next PREPARE FOR ENTRY
26814 106 26 0 0 select (N) TO SWITCH
26815 102 268 16 0 0 transfer (A) to N
26816 100 0 0 0 Halt *59Ю
26817 124 2 0 1 modify address of next
26818 124 28 1 0 unconditional jump > COMMERCIAL PROG.
26900 PROCR 269 269 UPDATE ASSEMBLER TABLE:SET UP (AB)
Source image: P1020695.JPG
26901 NOTES RADIX B
38706>
39404>
39607>
40007>26902 102 188 3 0 0 transfer (A) to N STORE RTE TYPE
36426>26903 126 349 2 0 0 enter subroutine >UPDATE USE OF ASSEMBLER TABLE
40105>
40116>
26761>
26757>
26721>
26716>26904 106 40 0 1 select (N) SET(A)=RUN NUMBER
26905 118 4127 0 0 shift logical
44815>
44909>
44918>26906 100 212 2 0 2 replace (B) by (N) SET (B)=0
26907 124 268 9 1 0 unconditional jump >RESET MOD GP
27000 PROCR 270 270 ROUTE CLOSED ROUTINE
27001 NOTES RADIX B
27002 106 209 4 0 0 select (N) *462 LARGE AND NEGATIVE
27003 102 45 0 1 transfer (A) to N *462 SET PROG TIME TO INHIBIT'RC'COMMENT
27004 126 347 2 0 0 enter subroutine *469 SET PROG TIME 3 MINS AHEAD OF CLOCK
27005 106 270 17 0 0 select (N)
27006 124 3 0 1 modify address of next SET SETTING FOR S101
27007 102 176 0 0 transfer (A) to N TO TEST ROUTE
27008 106 30 0 1 select (N) *13Ю TEST RTE 7/7
27009 101 175 1 2 subtract literal address *3:+ 00023
27010 127 263 26 0 0 jump A = Z *13Ю >YES,ZZZ COMMENT
27011 106 214 28 1 0 select (N) SET RC FOR COMMENT
27012 102 258 4 1 0 transfer (A) to N
27013 126 356 2 0 0 enter subroutine >SET UP PROGRAMME NO
27014 101 4 1 3 select literal address
27015 126 345 2 0 0 enter subroutine >EDIT TIME SET UP RTE NO
27016 124 282 11 1 0 unconditional jump >OUTPUT COMMENT
27017 126 338 2 0 0 enter subroutine
27100 PROCR 271 271 DOUBTFUL BLOCK: PREPARATION
27101 NOTES RADIX B
27102 100 0 0 0 Halt LINK=SI+11
27103 124 271 2 0 1 modify address of next SET UP (MR1)
27104 106 25 1 0 select (N)
27105 102 2 1 0 transfer (A) to N
27106 100 210 10 0 2 replace (B) by (N) SET (MR3)=8*CH NO
27107 115 30 0 1 collate and add
27108 126 272 2 0 0 enter subroutine >SET D/B INDICATOR
27109 124 271 2 0 1 modify address of next
27110 124 1 1 0 unconditional jump >SI+12
27200 PROCR 272 272 SET DOUBTFUL BLOCK INDICATOR
27202 100 0 0 0 Halt LINK
27203 102 6 1 0 transfer (A) to N SET (MR3) = 8 * CH NO
27204 100 220 3 0 2 replace (B) by (N) STORE RTE NO IN W/L
27205 115 252 2 0 3 collate and add
27206 102 109 2 0 0 transfer (A) to N
27207 101 1 0 1 prepare for digit collation
27208 106 252 3 0 3 select (N) *16Ю TEST BEFORE POCKET
27209 101 49 1 2 subtract literal address SELECT ON UPTIME
27210 127 272 50 0 0 jump A = Z *16Ю >YES SPURIOUS
27211 106 252 3 0 3 select (N) *49Ю
27212 101 50 1 2 subtract literal address TEST MICR READ
27213 127 284 2 0 0 jump A = Z >YES
27214 101 1 1 2 subtract literal address TEST MICR WRITE
27215 127 284 2 0 0 jump A = Z *49Ю >YES
27216 106 31 0 1 select (N) *56Ю82Ю
27217 101 54 1 2 subtract literal address
Source image: P1020696.JPG
27218 124 2 0 3 modify address of next
27219 127 12 0 0 jump A = Z >YES
27220 106 31 0 1 select (N)
27221 101 267 2 1 1 add literal address
27222 101 399 24 1 2 subtract literal address
27223 118 6 0 0 shift logical
27224 127 284 2 0 0 jump A = Z *56Ю82Ю
27225 106 252 3 0 3 select (N) *82Ю D/B LINK
27226 101 58 1 2 subtract literal address MANDATORY
27227 127 284 2 0 0 jump A = Z *82Ю
27228 106 31 0 1 select (N) *81Ю 5-8 HOLE OUTPUT
27229 101 57 1 2 subtract literal address
27230 127 284 2 0 0 jump A = Z *81Ю >YES
27231 106 252 3 0 3 select (N) *83Ю
27232 101 5 1 2 subtract literal address
27233 127 272 37 0 1 jump A != Z >NOT P/T INPUT
27234 106 33 0 1 select (N)
27235 101 1 1 2 subtract literal address
27236 127 272 50 0 0 jump A = Z *83Ю 8-HOLE P/T SPURIOUS
27233>27237 106 252 3 0 3 select (N)
27238 105 211 2 0 0 subtract (N) from (A)
27239 127 272 52 0 0 jump A = Z >YES
27240 106 252 3 0 3 select (N) TEST RT TYPE 0
27241 127 272 43 0 1 jump A != Z >NO
27242 124 11 0 2 select literal and division SET RTE TYPE 11
27241>27243 124 109 2 0 1 modify address of next
27244 118 0 1 0 shift logical SET RT TYPE AS D/B INDICATOR
27245 114 252 4 1 3 replace selected bits
27246 106 103 15 0 0 select (N) SET SAS=2
27247 102 265 4 0 0 transfer (A) to N
27248 106 108 25 0 0 select (N) SET SLAS=2
27249 102 103 14 0 0 transfer (A) to N
27236>
27210>27250 106 211 2 0 0 select (N) CLEAR ASSEMBLER TABLE
27251 102 252 3 0 3 transfer (A) to N
27239>27252 126 272 2 0 1 leave subroutine
27253 100 0 0 0 Halt *££0*££2
27254 124 263 18 1 0 unconditional jump *03‼*02‼*04‼*05‼*30‼*2.‼
27255 127 279 34 0 0 jump A = Z *42‼
27256 127 285 61 0 0 jump A = Z *43‼
27257 101 280 8 1 3 select literal address *66‼
27258 126 351 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
27259 127 285 45 0 1 jump A != Z *013 >NO
27260 127 279 34 0 2 jump A >= Z *42Ю42‼ >NO
27261 124 282 7 1 0 unconditional jump *2.286‼ PRINTER 4
27300 PROCR 273 273 DOUBTFUL BLOCK : DETECTION
27302 100 0 0 0 Halt LINK
27303 100 210 10 0 2 replace (B) by (N) SET (MR3)=8*CH NO
27304 102 109 2 0 0 transfer (A) to N
27305 115 109 2 0 0 collate and add
27306 102 6 1 0 transfer (A) to N
27307 100 220 3 0 2 replace (B) by (N) STORE 'RTE NO WITHIN CH'
27308 115 109 2 0 0 collate and add
27309 102 109 2 0 0 transfer (A) to N
27310 101 1 0 1 prepare for digit collation TEST D/B INDICATOR
27311 124 109 2 0 1 modify address of next SET FOR THIS ROUTE
27312 118 0 1 0 shift logical
27313 115 252 4 1 3 collate and add
27314 127 276 5 0 0 jump A = Z >NO
27400 PROCR 274 274 DOUBTFUL BLOCK : INITIATION
27402 118 1 0 0 shift logical
27403 114 252 4 1 3 replace selected bits CLEAR D/B INDICATOR
27404 118 109 2 1 2 scale denominator
27405 118 4120 0 0 shift logical SET SDB AT ROUTE TYPE
Source image: P1020697.JPG
27406 103 109 19 0 0 copy (A) to N
27407 101 2 1 2 subtract literal address TEST T/W
27408 127 274 14 0 0 jump A = Z >YES
27409 101 9 1 2 subtract literal address TEST NOTE DB
27410 127 274 14 0 0 jump A = Z >YES
27411 106 188 3 0 0 select (N)
27412 124 3 0 1 modify address of next
27413 102 174 0 0 transfer (A) to N
27410>
27408>27414 102 109 2 0 0 transfer (A) to N
27419>27415 124 109 2 0 1 modify address of next TEST ALL
27416 104 252 4 1 0 add (N) to (A) ENTRIES ZERO
27417 123 8 0 0 step on and test
27418 100 109 2 0 0 Halt
27419 124 274 15 1 0 unconditional jump
27420 127 274 31 0 1 jump A != Z >NO
27421 101 128 1 3 select literal address *3:Ю
27422 102 212 16 0 0 transfer (A) to N
27427>27423 124 212 16 0 1 modify address of next
27424 104 252 4 1 0 add (N) to (A)
27425 123 8 0 0 step on and test
27426 100 212 16 0 0 Halt
27427 124 274 23 1 0 unconditional jump
27428 127 274 31 0 1 jump A != Z *3:Ю
27429 106 108 24 0 0 select (N) 18/0/36 RESET SWITCH SAS
27430 102 265 4 0 0 transfer (A) to N
27428>
27420>27431 124 109 19 0 1 modify address of next
27500 PROCR 275 275 DOUBTFUL BLOCK SWITCH
27502>27502 124 275 2 1 0 unconditional jump SWITCH SDB
27503 124 277 2 1 0 unconditional jump *03‼ P/T O/P
27504 124 187 2 1 0 unconditional jump TYPEWRITER 2
27505 124 282 7 1 0 unconditional jump *05‼ CARD OUTPUT 3
27506 124 282 2 1 0 unconditional jump *2.286‼ PRINTER 4
27507 124 279 4 1 0 unconditional jump *429*02‼ P/T INPUT 5
27508 124 279 9 1 0 unconditional jump *421*02‼ P/T INPUT 5
27509 124 279 7 1 0 unconditional jump *421*04‼
27510 124 279 2 1 0 unconditional jump *429*04‼ CARD INPUT 6
27511 124 285 2 1 0 unconditional jump M/T INPUT 7
27512 124 286 2 1 0 unconditional jump M/T OUTPUT 8
27513 124 282 7 1 0 unconditional jump SPECIAL PRINTER 9
27514 124 284 2 1 0 unconditional jump *30‼ AUTOLECTOR 10
27600 PROCR 276 276 NOTE D/B
27602 106 210 3 0 0 select (N) 11
27603 124 3 0 1 modify address of next SET D/B IND IN SP CH
27604 102 160 0 0 transfer (A) to N
27314>27605 106 188 2 1 0 select (N)
27606 118 6 0 3 shift binary
27607 126 273 2 0 1 leave subroutine >
27700 PROCR 277 277 PAPER TAPE OUTPUT DOUBTFUL BLOCK
27503>27702 106 31 0 1 select (N) *03Ю
27703 101 267 2 1 1 add literal address TEST D/B GENUINE
27704 101 404 10 1 2 subtract literal address
27705 105 209 12 0 0 subtract (N) from (A)
27706 127 288 2 0 1 jump A != Z >NO
27707 126 339 2 0 0 enter subroutine SET (MR3)=(3)
27708 106 188 0 3 select (N) *28Ю TEST NON STD
27709 127 277 22 0 0 jump A = Z >NO
27710 106 194 0 3 select (N) RESET(64+R)
27711 102 192 0 3 transfer (A) to N
27712 106 33 0 1 select (N) TEST LINK
27713 127 263 20 0 0 jump A = Z >NO ZZZ COMMENT
27714 101 15 0 1 prepare for digit collation RETURN TO PROGRAMME
Source image: P1020698.JPG
27715 114 44 0 1 replace selected bits BY LINK
27716 106 214 42 1 0 select (N) SET UP DB FOR COMMENT
27717 102 258 4 1 0 transfer (A) to N
27718 126 361 2 0 0 enter subroutine >SET UP PART OF COMMENT
27719 106 291 4 0 0 select (N) SET SETTING OF
27720 102 176 0 3 transfer (A) to N S101 TO TEST ROUTE
27721 124 282 11 1 0 unconditional jump >OUTPUT COMMENT
27709>27722 101 0 1 3 select literal address *28Ю
27723 100 210 10 0 2 replace (B) by (N) *73Ю*74Ю
27724 115 188 2 0 0 collate and add TEST CHANNEL 6
27725 101 48 1 2 subtract literal address
27726 127 277 47 0 0 jump A = Z *73Ю*74Ю >YES P/T O/P ASS
27733>
27739>27727 124 3 0 3 modify address of next *73Ю GP ASSEMBLER
27728 124 190 0 2 select literal and division
27729 124 188 2 0 3 modify address of next
27730 102 64 0 0 transfer (A) to N
27731 106 260 26 1 0 select (N)
27732 126 278 2 0 0 enter subroutine >OUTPUT S/R
27733 127 277 27 0 1 jump A != Z >D/B OCCURED
27734 101 10 1 3 select literal address SET COUNTER FOR
27742>27735 102 192 0 3 transfer (A) to N NUMBER OF DB MARKS
27736 101 31 1 3 select literal address
27737 118 8 0 0 shift logical
27738 126 278 2 0 0 enter subroutine >OUTPUT S/R
27739 127 277 27 0 1 jump A != Z >D/B OCCURED
27740 106 192 0 3 select (N)
27741 101 2 1 2 subtract literal address
27742 127 277 35 0 1 jump A != Z >NEXT D/B INDICATOR
27745>27743 106 260 26 1 0 select (N)
27744 126 278 2 0 0 enter subroutine >OUTPUT S/R
27745 127 277 43 0 1 jump A != Z *73Ю >D/B OCCURRED
27746 124 277 59 1 0 unconditional jump *739*749
27750>
27754>
27726>27747 106 260 18 1 0 select (N) *74Ю P/T ASSEMBLER
27748 102 154 1 0 transfer (A) to N SET UP WORD
27749 126 278 2 0 0 enter subroutine >OUTPUT S/R
27750 127 277 47 0 1 jump A != Z >D/B OCCURED
27751 106 211 16 1 0 select (N) SET FAULTY BLOCK MARKER
27752 102 154 1 0 transfer (A) to N SET UP WORD
27753 126 278 2 0 0 enter subroutine >OUTPUT S/R
27754 127 277 47 0 1 jump A != Z >D/B OCCURED
27758>27755 106 260 18 1 0 select (N) B/E
27756 102 154 1 0 transfer (A) to N SET UP WORD
27757 126 278 2 0 0 enter subroutine >OUTPUT S/R
27758 127 277 55 0 1 jump A != Z *74Ю >D/B OCCURRED
27746>27759 106 214 42 1 0 select (N) SET DB FOR COMMENT
27760 102 258 4 1 0 transfer (A) to N
27761 124 277 63 0 2 select literal and division
27762 124 282 10 1 0 unconditional jump >OUTPUT COMMENT
27763 126 339 2 0 0 enter subroutine >SET(MR3)=(3)
27764 106 194 0 3 select (N) RESET(64+R)
27765 102 192 0 3 transfer (A) to N
27766 106 174 0 3 select (N) RESTORE RTE TYPE
27767 102 31 0 1 transfer (A) to N
27768 102 174 0 3 transfer (A) to N CLEAR W/L
27769 124 403 6 1 0 unconditional jump >O/P BLOCK S/R
27800 PROCR 278 278 PAPER TAPE OUTPUT DOUBTFUL BLOCK OUTPUT S/R
27802 100 0 0 0 Halt *03Ю LINK
27803 102 190 1 3 transfer (A) to N *739 STORE WORD
27804 124 188 2 0 1 modify address of next OUTPUT
27805 119 0 0 0 output
27806 126 352 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
27807 126 339 2 0 0 enter subroutine SET(MR3)=(3)
Source image: P1020699.JPG
27808 106 160 0 3 select (N) TEST D/B OCCURED
27809 126 278 2 0 1 leave subroutine >
27900 PROCR 279 279 D/B, P/T & CARD INPUT
27901 NOTES RADIX B OFFER OPTIONS
27510>27902 101 280 6 1 3 select literal address *42Ю*66‼
27903 124 279 5 1 0 unconditional jump >
27507>27904 101 280 2 1 3 select literal address
27903>27905 124 3 0 1 modify address of next
27906 102 158 0 0 transfer (A) to N *42Ю
27509>27907 101 6 1 3 select literal address *422*04Ю
27908 124 279 10 1 0 unconditional jump *04Ю
27508>27909 101 5 1 3 select literal address *029
27908>27910 102 280 44 0 0 transfer (A) to N *422
27911 124 3 0 1 modify address of next PROG SP CHAP START
27912 106 174 0 0 select (N)
27913 101 7 1 2 subtract literal address READING?
27914 127 279 26 0 2 jump A >= Z *42Ю42‼ >NO
27915 106 33 0 1 select (N) TEST IF LINK SPECIFIED IN Q6-10 B
27916 127 279 26 0 0 jump A = Z *42‼ >NO
28206>
28570>27917 101 15 0 1 prepare for digit collation
27918 114 44 0 1 replace selected bits
27919 106 214 42 1 0 select (N) SET 'DB' FOR COMMENT
27920 102 258 4 1 0 transfer (A) to N
27921 126 361 2 0 0 enter subroutine >SET UP PART OF COMMENT
27922 106 270 17 0 0 select (N) SET SETTING OF S101
27923 124 3 0 1 modify address of next TO TEST ROUTE
27924 102 176 0 0 transfer (A) to N
27925 124 282 11 1 0 unconditional jump >OUTPUT COMMENT
27916>
27914>27926 106 258 2 1 0 select (N) *42Ю SET UP ALARM 1
27927 102 258 4 1 0 transfer (A) to N
27928 126 362 2 0 0 enter subroutine >SET RTE TO MANUAL ETC
27929 126 345 2 0 0 enter subroutine >EDIT TIME
27930 124 897 0 2 select literal and division *14+46+*14+*46+ 003840089600385
27931 102 41 0 1 transfer (A) to N PERMISSIBLE OPTIONS
27932 101 261 2 1 3 select literal address SELECT TABLE START LOCN.
27933 124 335 2 1 0 unconditional jump *42Ю
27260>
27255>27934 101 280 2 1 3 select literal address *422
27935 124 282 10 1 0 unconditional jump
28000 PROCR 280 280 *42 OPTIONS 8 & 9
28001 NOTES RADIX B
28002 126 329 2 0 0 enter subroutine > READ
28003 126 352 2 0 0 enter subroutine *42Ю*09‼06‼ TEST RTE NOTING D/B
28004 125 0 1 2 interrogate indicators *66Ю
28005 124 280 7 1 0 unconditional jump
28006 106 210 15 0 0 select (N)
28005>28007 102 210 16 0 0 transfer (A) to N *66Ю
28008 126 341 2 0 0 enter subroutine
28009 102 2 1 3 transfer (A) to N CLEAR SECOND WORD OF ANNEXE
28010 126 329 2 0 0 enter subroutine >READ
28011 126 352 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
28012 126 341 2 0 0 enter subroutine >SET (MR3)=(64+R)
28013 126 344 2 0 0 enter subroutine >S/R WW
28014 124 210 16 0 1 modify address of next *669
28015 106 0 1 3 select (N) TEST ALIGNMENT CORRE
28016 124 109 2 0 1 modify address of next
28017 105 252 6 1 0 subtract (N) from (A)
28018 127 281 2 0 1 jump A != Z >NO
28019 124 210 16 0 1 modify address of next *669
28020 106 2 1 3 select (N)
28021 124 109 2 0 1 modify address of next
28022 105 252 8 1 0 subtract (N) from (A)
Source image: P1020700.JPG
28023 127 281 2 0 1 jump A != Z >NO
28024 106 188 2 0 0 select (N) *16Ю
28025 105 100 33 0 0 subtract (N) from (A) TEST UPTIME*UPTIME ROUTE SMALL
28026 127 280 32 0 2 jump A >= Z >NO
28027 126 378 12 0 0 enter subroutine
28028 124 280 32 1 0 unconditional jump >ACCEPTED
28029 106 32 0 1 select (N) MEANT TO REJECT?
28030 127 281 2 0 1 jump A != Z >RE OFFER OPTIONS >NO
28031 126 378 6 0 0 enter subroutine *16Ю 44 OF SWITCH
28028>
28026>28032 126 341 2 0 0 enter subroutine >SET (MR3)=(64+R)
28033 102 2 1 3 transfer (A) to N CLEAR SECOND WORD OF ANNEXE
28034 126 329 2 0 0 enter subroutine >READ
28035 124 3 0 1 modify address of next
28036 106 158 0 0 select (N) TEST IF P/T
28037 101 280 2 1 2 subtract literal address
28038 127 280 40 0 0 jump A = Z
28039 106 210 8 0 0 select (N) SET UP ROUTE TYPE
28038>28040 101 5 1 1 add literal address
28041 124 287 52 1 0 unconditional jump *42Ю
28042 106 280 44 0 0 select (N) *422
28043 124 287 52 1 0 unconditional jump
28044 100 0 0 0 Halt *422
28100 PROCR 281 281 ALIGNMENT INCORRECT FOR OPTION 8
28101 NOTES RADIX B
28030>
28023>
28018>28102 126 339 2 0 0 enter subroutine *42Ю
28103 126 344 2 0 0 enter subroutine >S/R WW
28104 124 109 2 0 1 modify address of next SET FIRST TWO WORDS FOR COMMENT
28105 106 252 6 1 0 select (N)
28106 102 258 8 1 0 transfer (A) to N
28107 124 109 2 0 1 modify address of next
28108 106 252 8 1 0 select (N)
28109 102 258 10 1 0 transfer (A) to N
28110 106 214 42 1 0 select (N) SETDB/ FOR COMMENT
28111 102 258 4 1 0 transfer (A) to N
28112 106 158 0 3 select (N) SELECT RETURN LINK
28113 126 362 2 0 0 enter subroutine > SET RTE TO MANUAL
28114 124 370 8 1 0 unconditional jump >OUTPUT COMMENT
28200 PROCR 282 282 DOUBTFUL BLOCK:PRINTER
28201 NOTES RADIX B
27506>28202 106 33 0 1 select (N) *2.286Ю TEST IF LINK SPECIFIED
28203 105 30 0 1 subtract (N) from (A) *54Ю44Ю
28204 127 282 7 0 0 jump A = Z
28205 106 33 0 1 select (N) *54Ю44Ю
28206 127 279 17 0 1 jump A != Z *2.286Ю >YES
28204>
27513>
27505>
27261>28207 106 214 42 1 0 select (N) SET DB/ FOR COMMENT
28208 102 258 4 1 0 transfer (A) to N
28209 101 283 2 1 3 select literal address
32010>
37408>
40620>
27935>
27762>28210 126 362 2 0 0 enter subroutine >SET RTE TO MANUAL ETC
37103>
38311>
38316>
38320>
45051>
27925>
27721>
Source image: P1020701.JPG
27016>28211 124 261 2 0 2 select literal and division SELECT TABLE START
28212 124 336 2 1 0 unconditional jump >OUTPUT COMMENT
28300 PROCR 283 283 PRINTER:ROUTINE AFTER D/B
28301 NOTES RADIX B
28302 126 330 2 0 0 enter subroutine >WRITE
28303 101 4 1 3 select literal address *2.486+ 00009
28304 124 287 52 1 0 unconditional jump >END ROUTINE
28400 PROCR 284 284 DOUBTFUL BLOCK-AUTOLECTOR & CHEQUE SORTER
39918>
27514>
27230>
27227>
27224>
27215>
27213>28402 106 33 0 1 select (N) *30Ю49Ю56Ю81Ю82Ю82Ю
28403 127 263 20 0 0 jump A = Z >NO ZZZ COMMENT
30037>28404 101 15 0 1 prepare for digit collation RETURN TO PROGRAM
28405 114 44 0 1 replace selected bits BY LINK
28406 106 35 0 1 select (N) SET SI=4
28407 102 7 0 1 transfer (A) to N
28408 106 33 0 1 select (N) ENSURE LINK NOT
28409 105 39 0 1 subtract (N) from (A) BOGUS
28410 127 263 20 0 0 jump A = Z >OPEN FILE,ZZZ COMMENT
28411 124 397 15 1 0 unconditional jump >RETURN TO PROGM
28500 PROCR 285 285 DOUBTFUL BLOCK:M/T INPUT
28501 NOTES RADIX B
42132>
27511>28502 126 314 2 0 0 enter subroutine TEST A1=BLOCK COUNTER
28503 127 288 2 0 1 jump A != Z >NO TO END ROUTINE
28504 124 285 45 1 0 unconditional jump *019 STEP BACK 50/8 BLOCK
28515>
28548>28505 106 212 6 0 0 select (N)
28506 126 306 2 0 0 enter subroutine >
28559>
29350>28507 126 342 2 0 0 enter subroutine *019
28577>28508 126 329 2 0 0 enter subroutine >READ
28509 126 343 2 0 0 enter subroutine *019
28510 126 352 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
28511 124 3 0 1 modify address of next TEST D/B IND SET
28512 106 160 0 0 select (N)
28513 127 285 29 0 0 jump A = Z *43‼
28514 126 358 2 0 0 enter subroutine >STEP CTR OF TRIES=C
28515 127 285 5 0 1 jump A != Z *013 >NO
28516 124 3 0 1 modify address of next TEST RTE TYPE 7
28517 106 174 0 0 select (N)
28518 101 7 1 2 subtract literal address
28519 127 285 23 0 1 jump A != Z >NO
28520 106 33 0 1 select (N) TEST LINK TO BE AMEN
28521 127 285 23 0 0 jump A = Z >NO
28522 127 285 65 0 2 jump A >= Z > YES
28521>
28519>28523 125 0 1 2 interrogate indicators
28524 124 3 0 1 modify address of next
28525 102 175 0 0 transfer (A) to N
28526 101 6145 1 3 select literal address *14+5++*14+*5++ 020480614402049
28668>28527 102 41 0 1 transfer (A) to N
28528 124 294 2 1 0 unconditional jump >OFFER OPTIONS
28513>28529 106 214 42 1 0 select (N) *43Ю SET UP'DB'
28530 102 258 4 1 0 transfer (A) to N
28531 126 361 2 0 0 enter subroutine >SET UP PART OF COMMENT
28532 106 109 8 1 0 select (N) SET UP I/P:1
28533 102 258 10 1 0 transfer (A) to N
Source image: P1020702.JPG
28534 101 285 63 1 3 select literal address SET UP LINK FOR SI=5
28729>28535 126 363 2 0 0 enter subroutine > & SETTING OF S101
28536 124 3 0 1 modify address of next SET UP NO OF ATTEMPTS
28537 106 167 0 0 select (N)
28538 100 210 3 0 3 set radix *519
28539 107 258 10 1 0 augment (N) by (A)
28540 100 212 2 0 3 set radix *519
28541 125 0 1 2 interrogate indicators
28542 124 3 0 1 modify address of next CLEAR COUNTER C
28543 102 167 0 0 transfer (A) to N
28544 124 432 11 1 0 unconditional jump *43Ю
28504>
27259>28545 124 188 2 0 1 modify address of next *01Ю TEST<52/10 BLOCKS
28546 106 190 2 0 0 select (N)
28547 101 82 1 2 subtract literal address *8Ю4 00010
28548 127 285 5 0 3 jump A < Z >YES
28549 101 50 1 3 select literal address *8Ю4 00008
28550 126 306 2 0 0 enter subroutine >STEP BACK 50 BLOCKS,FORWARD 1
28551 126 339 2 0 0 enter subroutine >SET(MR3)=(3)
28552 101 48 1 3 select literal address *8Ю4 COUNTER 00006
28560>28553 102 177 0 3 transfer (A) to N
28554 126 355 2 0 0 enter subroutine STEP FORWARD
28555 126 352 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
28556 126 339 2 0 0 enter subroutine >SET(MR3)=(3)
28557 106 177 0 3 select (N) STEP COUNTER BY
28558 105 210 8 0 0 subtract (N) from (A) MINUS ONE AND
28559 127 285 7 0 0 jump A = Z >YES TEST END
28560 124 285 53 1 0 unconditional jump *01Ю
27256>28561 124 3 0 1 modify address of next *432 CLEAR COUNTER
28562 102 167 0 0 transfer (A) to N *432
28563 101 7 1 3 select literal address
28564 124 287 52 1 0 unconditional jump
28522>28565 101 7 1 3 select literal address
28566 102 31 0 1 transfer (A) to N RESET RTE TYPE 7 IN SI+31
28567 124 3 0 1 modify address of next
28568 102 167 0 0 transfer (A) to N CLEAR ATTEMPTS COUNTER
28569 106 33 0 1 select (N)
28570 124 279 17 1 0 unconditional jump > AMEND LINK
28571 127 287 33 0 0 jump A = Z *££0*££2*43‼
28572 127 286 48 0 0 jump A = Z *01‼01‼
28573 127 293 36 0 0 jump A = Z *01Ю01‼
28574 127 287 30 0 1 jump A != Z *51‼ >OMIT
28575 126 351 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
28576 127 425 25 0 0 jump A = Z *43‼43‼*51‼51‼ >BLOCK 7
28577 124 285 8 1 0 unconditional jump *01901‼
28600 PROCR 286 286 DOUBTFUL BLOCK:M/T OUTPUT
28601 NOTES RADIX B
27512>28602 126 341 2 0 0 enter subroutine >SET (MR3)=(64+R)
28603 124 188 2 0 1 modify address of next TEST BLOCK 7
28604 106 190 2 0 0 select (N)
28605 101 7 1 2 subtract literal address
28606 127 286 11 0 1 jump A != Z >NO
28607 106 6 0 0 select (N) TEST FINISHED
28608 118 4124 0 0 shift logical OPENING FILE
28609 101 14 1 2 subtract literal address
28610 127 288 2 0 1 jump A != Z >YES IGNORE O/B
28606>28611 106 0 1 3 select (N) STORE A1
28612 124 3 0 1 modify address of next
28613 102 178 1 0 transfer (A) to N
28614 126 331 2 0 0 enter subroutine
28615 101 3 1 3 select literal address STEP BACK 3 BLOCKS
28623>28616 126 306 2 0 0 enter subroutine >FORWARD 1
28617 126 355 2 0 0 enter subroutine >STEP FORWARD
28618 126 352 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
28619 124 3 0 1 modify address of next TEST D/B OCCURRED
Source image: P1020703.JPG
28620 106 160 0 0 select (N)
28621 127 286 24 0 0 jump A = Z >NO
28622 101 2 1 3 select literal address
28623 124 286 16 1 0 unconditional jump >TRY AGAIN
28676>
28681>
28694>
28621>28624 126 314 2 0 0 enter subroutine >TEST A1=BLOCK CTR
28625 127 286 69 0 1 jump A != Z >NO
28626 126 339 2 0 0 enter subroutine >SET(MR3)=3
28627 102 171 0 3 transfer (A) to N CLEAR OPTION INDICATOR
28628 102 186 0 3 transfer (A) to N
28689>28629 126 321 2 0 0 enter subroutine >
28630 126 341 2 0 0 enter subroutine >SET MR3=(64+R)
28631 106 211 16 1 0 select (N) SET A1=FAULTY BLOCK WORD
28632 102 0 1 3 transfer (A) to N
28633 124 3 0 3 modify address of next PACK
28634 106 178 1 0 select (N)
28635 101 15 0 1 prepare for digit collation
28636 114 0 1 3 replace selected bits
28663>28637 126 341 2 0 0 enter subroutine >SET (MR3) = (64+R)
28638 124 3 0 1 modify address of next
28639 106 179 1 0 select (N)
28640 105 220 3 0 0 subtract (N) from (A)
28641 127 286 48 0 0 jump A = Z >BLOCK 7
28642 106 2 1 3 select (N) TEST A2=R/M'S
28643 105 211 8 1 0 subtract (N) from (A)
28644 127 286 47 0 0 jump A = Z *01‼01‼
28645 124 1 0 2 select literal and division AUGMENT 2ND WORD
28646 107 3 1 3 augment (N) by (A)
28644>28647 126 342 2 0 0 enter subroutine *019 >SET ASL FOR HI-D
28641>
28572>28648 126 330 2 0 0 enter subroutine WRITE
28649 126 343 2 0 0 enter subroutine *019
28650 126 352 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
28651 100 210 3 0 3 set radix *8£Ю SET DECIMAL
28652 101 1 1 3 select literal address AUGMENT
28653 124 188 2 0 1 modify address of next DB'S
28654 107 193 2 0 0 augment (N) by (A) COUNT
28655 100 212 2 0 3 set radix *8£Ю SET BINARY
28656 124 3 0 1 modify address of next TEST D/B IND SET
28657 106 160 0 0 select (N)
28658 127 287 2 0 0 jump A = Z *43‼
28659 101 1 1 3 select literal address *43Ю*51Ю STEP DB'S COUNTER
28660 124 188 2 0 3 modify address of next
28661 107 192 2 0 0 augment (N) by (A) *43Ю*51Ю
28662 126 358 2 0 0 enter subroutine >STEP COUNTER C
28663 127 286 37 0 1 jump A != Z >NO TEST C=6
28664 106 212 6 0 0 select (N)
28665 124 3 0 1 modify address of next
28666 102 175 0 0 transfer (A) to N
28667 101 5121 1 3 select literal address *14+5++*14+*5++ 010240512001025
28668 124 285 27 1 0 unconditional jump >
28625>28669 126 315 2 0 0 enter subroutine >TEST A1 FOR FBM
28670 124 286 82 1 0 unconditional jump >FMB FOUND
28671 126 339 2 0 0 enter subroutine >SET(MR3)=3
28672 101 286 24 1 3 select literal address STORE RETURN LOCATION
28673 102 162 0 3 transfer (A) to N
28674 126 323 2 0 0 enter subroutine
28675 126 316 2 0 0 enter subroutine >ALIGNMENT FAILURE
28676 124 286 24 1 0 unconditional jump >
28677 126 318 2 0 0 enter subroutine >TEST BLOCK 6
28678 124 291 27 1 0 unconditional jump >OPEN REEL
28679 126 317 2 0 0 enter subroutine >REREAD
28680 126 319 2 0 0 enter subroutine >STEP ATTEMPTS COUNTER
28681 124 286 24 1 0 unconditional jump >
Source image: P1020704.JPG
28670>28682 101 3 0 1 prepare for digit collation
28683 126 339 2 0 0 enter subroutine SET(MR3)=3
28684 115 179 1 3 collate and add CORRECTLY FOR REWRIT
28685 102 221 2 0 0 transfer (A) to N
28686 126 341 2 0 0 enter subroutine (MR3)=(64+R)
28687 115 1 1 3 collate and add
28688 105 221 2 0 0 subtract (N) from (A)
28689 127 286 29 0 0 jump A = Z >YES
28690 101 3 1 3 select literal address
28691 126 306 2 0 0 enter subroutine >STEP BACK(3)FORWARD 1
28692 126 355 2 0 0 enter subroutine >STEP FORWARD
28693 126 352 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
28694 124 286 24 1 0 unconditional jump >
28700 PROCR 287 287 DB/COMMENT:M/T OUTPUT
28701 NOTES RADIX B
29347>
28658>28702 106 214 42 1 0 select (N) *43Ю SET UP'DB'
28703 102 258 4 1 0 transfer (A) to N
28704 126 345 2 0 0 enter subroutine >EDIT TIME, SET UP ROUTE NUMBER
28705 126 356 2 0 0 enter subroutine >SET UP PROGRAMME NUMBER
28706 124 3 0 1 modify address of next SET UP BLOCK NUMBER
28707 106 179 1 0 select (N)
28708 102 258 8 0 0 transfer (A) to N
28709 126 188 2 1 3 set modification register *519
28710 101 1 1 3 select literal address *5:Ю OMIT CATEGORY
28711 126 332 2 0 0 enter subroutine >TEST CATEGORY SET
28712 127 287 16 0 0 jump A = Z *5:Ю*51‼ >EVERY D/B
28713 106 192 2 0 3 select (N) *51Ю TEST COUNTER
28714 101 11 1 2 subtract literal address REACHED 12
28715 127 287 30 0 3 jump A < Z >NOT 12
28712>28716 100 210 3 0 3 set radix CONVERT AND
28717 101 213 2 1 3 select literal address
28718 112 192 2 0 3 convert FOR COMMENT
28719 102 258 11 1 0 transfer (A) to N CONVERT TO ALPHA
28720 106 258 10 1 0 select (N)
28721 101 64 1 2 subtract literal address
28722 100 212 2 0 3 set radix
28723 124 3 0 3 modify address of next
28724 102 167 0 0 transfer (A) to N
28725 102 192 2 0 3 transfer (A) to N *51Ю
28726 106 109 10 1 0 select (N) SET UP O/P:1
28727 102 258 10 1 0 transfer (A) to N
28728 124 287 30 0 2 select literal and division
28729 124 285 35 1 0 unconditional jump > OUTPUT 'DB'
28715>
28574>28730 106 30 1 1 select (N) SET UP ROUTE NO AND TYPE
28731 102 188 2 1 0 transfer (A) to N
28732 126 359 2 0 0 enter subroutine *43Ю
28571>28733 124 3 0 1 modify address of next *4315195:9 CLEAR COUNTER
28734 102 167 0 0 transfer (A) to N *4315195:9
28735 126 341 2 0 0 enter subroutine >SET(MR3)=(64+R)
28736 124 3 0 1 modify address of next RESTORE A1
28737 106 178 1 0 select (N)
28738 102 0 1 3 transfer (A) to N
28739 106 210 8 0 0 select (N)
28740 126 333 2 0 0 enter subroutine >STEP BLOCK CNTR BY 1
28741 126 352 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
28742 126 188 2 1 2 set modification register *01Ю
28743 100 210 8 0 2 replace (B) by (N) SET(B)
28744 124 3 0 1 modify address of next
28745 106 179 1 0 select (N) TEST BLOCK 7
28746 105 220 3 0 0 subtract (N) from (A)
28747 127 287 49 0 0 jump A = Z >YES
28748 126 342 2 0 0 enter subroutine *01Ю
28747>28749 126 330 2 0 0 enter subroutine >WRITE
Source image: P1010150.JPG
28750 126 343 2 0 0 enter subroutine *019
28751 106 212 5 0 0 select (N) SET RTE TYPE 8
28564>
28304>
28043>
28041>28752 103 188 3 0 0 copy (A) to N
28753 126 349 2 0 0 enter subroutine >UPDATE ASSEMELER TABLE
28754 126 359 2 0 0 enter subroutine >SET SI=4, RESTORE LINK FOR SI=3
28800 PROCR 288 288 DOUBTFUL BLOCK:END ROUTINE
28801 NOTES RADIX B
28610>
28503>
27706>28802 126 339 2 0 0 enter subroutine >SET (MR3) = (3)
28803 106 174 0 3 select (N) RESTORE RTE TYPE
28804 127 288 6 0 1 jump A != Z
28805 106 188 3 0 0 select (N)
29130>
28804>28806 102 31 0 1 transfer (A) to N
28807 102 174 0 3 transfer (A) to N CLEAR W/L
28808 124 264 30 1 0 unconditional jump >
28900 PROCR 289 289 OPTIONS 4,5,6 & 7
28901 NOTES RADIX B
28902 124 4 0 2 select literal and division SELECT 4
28903 124 289 7 1 0 unconditional jump >
28904 101 3 1 3 select literal address SELECT 3
28905 124 289 7 1 0 unconditional jump >
28906 106 212 6 0 0 select (N) SELECT 2
28905>
28903>28907 126 306 2 0 0 enter subroutine STEP BACK(A)BLOCKS FORWARD 1
28908 126 339 2 0 0 enter subroutine >SET (MR3)=(3)
28909 106 171 0 3 select (N) TEST REALIGNING
28910 101 286 24 1 2 subtract literal address
28911 127 289 26 0 0 jump A = Z >YES
28912 100 210 8 0 2 replace (B) by (N) *01Ю SET(B)
28913 126 188 2 1 2 set modification register SET(MR2)=R
28914 106 190 2 0 2 select (N) TEST BLOCK SIX OR
28915 101 8 1 2 subtract literal address SEVEN
28916 127 289 18 0 3 jump A < Z >YES
28917 126 342 2 0 0 enter subroutine *01Ю
28916>28918 126 329 2 0 0 enter subroutine >READ
28919 126 343 2 0 0 enter subroutine *019
28920 106 164 0 3 select (N) *5+Ю TEST IF CHD
28921 127 289 27 0 1 jump A != Z *5+Ю >YES
28922 101 7 1 3 select literal address SET RTE TYPE
28928>28923 102 188 3 0 0 transfer (A) to N
28924 106 171 0 3 select (N)
28925 124 351 5 1 0 unconditional jump > UPDATE ASSEMBLER TABLE
28911>28926 126 355 2 0 0 enter subroutine >STEP FORWARD
28921>28927 125 0 1 2 interrogate indicators
28928 124 289 23 1 0 unconditional jump >CLEAR ASSEMBLER TABLE
29000 PROCR 290 290 OPTION 10:REOFFER OPTIONS
29001 NOTES RADIX B
20222>29002 125 0 1 2 interrogate indicators *46Ю DRAIN
29003 126 346 2 0 0 enter subroutine >EDIT TIME
29004 124 335 4 1 0 unconditional jump >OFFER OPTIONS
29100 PROCR 291 291 OPTION 13
29102 124 291 6 0 2 select literal and division *5+Ю
29103 126 362 2 0 0 enter subroutine >UNLOAD
29104 126 338 2 0 0 enter subroutine >SET SI=1
29105 124 462 11 1 0 unconditional jump >SI+1
29106 126 339 2 0 0 enter subroutine >SET(MR3)=(3)
29107 106 164 0 3 select (N)
Source image: P1010151.JPG
29108 127 292 15 0 1 jump A != Z >YES
29109 106 187 0 3 select (N) TEST CHANGE DECKS IN MISALIGNMENT
29110 127 291 20 0 0 jump A = Z >NO
29111 126 322 2 0 0 enter subroutine TEST ALIGNING FROM O/P
29112 124 291 18 1 0 unconditional jump >NO
29113 106 212 6 0 0 select (N)
29119>29114 102 175 0 3 transfer (A) to N
29115 106 183 0 3 select (N)
29116 102 172 0 3 transfer (A) to N
29117 124 292 8 1 0 unconditional jump >CHANGE DECKS
29112>29118 125 0 1 2 interrogate indicators
29119 124 291 14 1 0 unconditional jump >
29110>29120 126 340 2 0 0 enter subroutine >SET(MR3)=R
29121 124 3 0 1 modify address of next TEST IF I/P
29122 106 175 0 0 select (N)
29123 127 291 33 0 1 jump A != Z >NO
29124 106 190 2 0 3 select (N)
29125 101 9 1 2 subtract literal address TEST D/B IN OPEN
29126 127 292 2 0 2 jump A >= Z *5+Ю >NO CHANGE DECKFILE
29135>
30834>
28678>29127 126 339 2 0 0 enter subroutine >SET (MR3)=(3)
29128 101 291 31 1 3 select literal address SET UP PSEUDO RTE TYPE
29129 101 267 2 1 2 subtract literal address
29130 124 288 6 1 0 unconditional jump >END ROUTINE
29131 126 339 2 0 0 enter subroutine >SET(MR3)=(3)
29132 124 307 12 1 0 unconditional jump >
29123>29133 106 190 2 0 3 select (N) *5+Ю TEST D/B IN
29134 101 6 1 2 subtract literal address OPEN FILE
29135 127 291 27 0 3 jump A < Z >YES
29200 PROCR 292 292 CHANGE DECKS(1)
29126>29202 126 339 2 0 0 enter subroutine *5+Ю SET(MR3)=(3)
29203 106 175 0 3 select (N) TEST IF I/P
29204 127 292 8 0 0 jump A = Z >YES
29205 124 188 2 0 1 modify address of next STORE BLOCK COUNTER
29206 106 190 2 0 0 select (N)
29207 124 292 13 1 0 unconditional jump >
29204>
29117>29208 124 188 2 0 1 modify address of next
29209 106 190 2 0 0 select (N) STORE BLOCK COUNTER
29210 100 210 3 0 3 set radix MINUS ONE SET DECIMAL
29211 105 210 8 0 0 subtract (N) from (A)
29212 100 212 2 0 3 set radix SET BINARY
29207>29213 103 170 0 3 copy (A) to N
29214 102 164 0 3 transfer (A) to N SET INDICATOR FOR OPEN REEL
29108>29215 106 175 0 3 select (N) TEST IF I/P
29216 127 292 28 0 1 jump A != Z >NO
29217 106 170 0 3 select (N) TEST BLOCK NO
29218 101 8 1 2 subtract literal address <8
29219 127 292 26 0 2 jump A >= Z >NO
29220 124 188 2 0 1 modify address of next
29221 119 0 0 3 run forward RUN FORWARD
29222 126 352 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
29223 126 355 2 0 0 enter subroutine >STEP FORWARD
29224 126 352 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
29225 124 292 42 1 0 unconditional jump >
29219>29226 126 410 2 0 0 enter subroutine >OPEN INPUT REEL
29227 124 292 42 1 0 unconditional jump >
29216>29228 106 170 0 3 select (N)
29229 101 6 1 2 subtract literal address
29230 127 292 36 0 1 jump A != Z >NOT BLOCK 7
29231 124 188 2 0 1 modify address of next TEST IF OPENING FILE
29232 106 64 0 0 select (N)
29233 118 4124 0 0 shift logical
29234 101 14 1 2 subtract literal address
Source image: P1010152.JPG
29235 127 425 22 0 0 jump A = Z *51‼51‼*43‼43‼
29230>29236 126 425 2 0 0 enter subroutine >OPEN OUTPUT REEL
29237 106 170 0 3 select (N)
29238 101 7 1 2 subtract literal address
29239 127 292 42 0 1 jump A != Z > NOT BLOCK 8
29240 101 2 1 3 select literal address
29241 126 306 2 0 0 enter subroutine STEP BACK 2 FORWARD 1
42675>
29239>
29227>
29225>29242 126 339 2 0 0 enter subroutine >SET(MR3)=(3)
29243 106 170 0 3 select (N)
29244 124 188 2 0 1 modify address of next SET UP BLOCK
29245 103 190 2 0 0 copy (A) to N COUNTER
29246 100 210 3 0 3 set radix DECIMAL STEP FORWARD
29247 101 9 1 2 subtract literal address SUB 9 (BLOCK COUNTER)-9
29262>29248 100 212 2 0 3 set radix BINARY BLOCKS
29249 127 292 63 0 0 jump A = Z >BLOCK 9 OR END OF STEP FORWARD
29250 127 292 63 0 3 jump A < Z >BLOCK<9
29251 102 177 0 3 transfer (A) to N STORE COUNTER IN C+177
29257>29252 126 342 2 0 0 enter subroutine *019 SET ASL FOR HIGH DENSITY
29253 126 355 2 0 0 enter subroutine STEP FORWARD
29254 126 343 2 0 0 enter subroutine *019 CLEAR BIT 1 ASL
29255 126 352 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
29256 126 315 2 0 0 enter subroutine TEST A1 FOR FBM'S
29257 124 292 52 1 0 unconditional jump >YES DON'T COUNT THIS BLOCK
29258 126 339 2 0 0 enter subroutine SET (MR3)=(3)
29259 106 177 0 3 select (N) COUNTER
29260 100 210 3 0 3 set radix DECIMAL
29261 101 1 1 2 subtract literal address SUB 1
29262 124 292 48 1 0 unconditional jump >TEST ZERO
29279>
29282>
29311>
29250>
29249>29263 126 314 2 0 0 enter subroutine >TEST A1=BLOCK COUNTER
29264 127 293 12 0 0 jump A = Z >YES
29265 127 293 2 0 3 jump A < Z TEST A1<BLOCK COUNTE>YES
29266 126 315 2 0 0 enter subroutine >TEST A1 FOR FBM
29267 124 293 51 1 0 unconditional jump >FBM FOUND
29268 126 355 2 0 0 enter subroutine
29269 126 352 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
29270 126 314 2 0 0 enter subroutine > TEST A1<BLOCK COUNTER
29271 127 293 12 0 0 jump A = Z >YES
29272 127 293 2 0 3 jump A < Z TEST A1<BLOCK COUNTER >YES
29273 101 2 1 3 select literal address STEP BACK2
29274 126 306 2 0 0 enter subroutine FORWARD 1
29275 101 292 63 1 3 select literal address STORE RETURN LOCATION
29276 124 3 0 1 modify address of next
29277 102 162 0 0 transfer (A) to N
29278 126 316 2 0 0 enter subroutine >ALIGNMENT FAILURE
29279 124 292 63 1 0 unconditional jump >
29280 126 317 2 0 0 enter subroutine >REREAD
29281 126 319 2 0 0 enter subroutine >STEP ATTEMPTS COUNTER
29282 124 292 63 1 0 unconditional jump >
29300 PROCR 293 293 CHANGE DECKS(2)
29353>
29272>
29265>29302 126 339 2 0 0 enter subroutine *5+Ю SET(MR3)=(3)
29303 102 185 0 3 transfer (A) to N CLEAR ATTEMPTS CTR
29304 106 170 0 3 select (N) *01Ю TEST BLOCK<8
29305 101 8 1 2 subtract literal address
29306 127 293 8 0 3 jump A < Z >YES
29307 126 342 2 0 0 enter subroutine *01Ю SET(MR2)=R FOR 90K
29306>29308 126 355 2 0 0 enter subroutine >STEP FORWARD
Source image: P1010153.JPG
29309 126 343 2 0 0 enter subroutine *019
29356>29310 126 352 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
29311 124 292 63 1 0 unconditional jump >
29271>
29264>29312 126 339 2 0 0 enter subroutine >SET(MR3)=3
29313 102 171 0 3 transfer (A) to N CLEAR INDICATORS
29314 102 186 0 3 transfer (A) to N
29315 106 187 0 3 select (N) TEST CHANGE DECKS
29316 127 293 39 0 0 jump A = Z >NO IN ALIGNMENT FAILURE
29317 106 175 0 3 select (N) TEST IF I/P
29318 127 293 35 0 0 jump A = Z *01Ю01‼
29319 126 355 2 0 0 enter subroutine >STEP FORWARD
29338>29320 106 210 8 0 0 select (N)
29321 126 333 2 0 0 enter subroutine STEP BLOCK COUNTER BY 1
29322 126 339 2 0 0 enter subroutine >SET(MR3)=(3)
29323 102 173 0 3 transfer (A) to N CLEAR INDICATOR
29324 102 164 0 3 transfer (A) to N TEST IN OPEN FILE
29325 106 175 0 3 select (N)
29326 127 293 32 0 1 jump A != Z >O/P
29327 106 170 0 3 select (N)
29328 101 8 1 2 subtract literal address
29329 127 293 32 0 3 jump A < Z
29330 106 181 0 3 select (N) TEST ALIGNING FROM
29331 127 421 39 0 0 jump A = Z >NO S FWD OR BACK FOR I/
29329>
29326>29332 126 352 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
29333 124 3 0 1 modify address of next
29334 126 172 0 1 leave subroutine >LEAVE SR
29318>29335 126 342 2 0 0 enter subroutine *019
28573>29336 126 329 2 0 0 enter subroutine >READ
29337 126 343 2 0 0 enter subroutine *019
29338 124 293 20 1 0 unconditional jump >
29316>29339 126 321 2 0 0 enter subroutine >'SER'COMMENT IF REQUIRED
29340 126 339 2 0 0 enter subroutine >SET(MR3)=(3)
29341 102 167 0 3 transfer (A) to N CLEAR D/B ATTEMPTS CTR
29342 102 164 0 3 transfer (A) to N
29343 106 175 0 3 select (N) TEST IF I/P
29344 127 293 48 0 0 jump A = Z >YES
29345 126 341 2 0 0 enter subroutine >SET(MR3)=(64+R)
29346 102 2 1 3 transfer (A) to N CLEAR SECOND WORD
29347 124 287 2 1 0 unconditional jump *43‼
29344>29348 106 210 8 0 0 select (N)
29349 126 333 2 0 0 enter subroutine >STEP BLOCK CTR. BY ONE
29350 124 285 7 1 0 unconditional jump *01901‼
29267>29351 124 3 0 1 modify address of next TEST IF INDICATOR
29352 106 186 0 0 select (N) SET
29353 127 293 2 0 0 jump A = Z
29354 101 2 1 3 select literal address STEP BACK 2
29355 126 306 2 0 0 enter subroutine >FORWARD 1
29356 124 293 10 1 0 unconditional jump *5+Ю >
29400 PROCR 294 294 OFFER OPTIONS FOR M/T DOUBTFUL BLOCK
28528>29402 126 339 2 0 0 enter subroutine >SET(MR3)=(3)
29403 106 164 0 3 select (N) *5+Ю TEST IF IN CH DECKS
29404 127 320 7 0 1 jump A != Z *5+Ю >YES
29405 106 258 2 1 0 select (N) SETUPALARMONE
29406 102 258 4 1 0 transfer (A) to N
29407 102 187 0 3 transfer (A) to N CLEAR COUNTER C
29408 102 167 0 3 transfer (A) to N
29409 126 361 2 0 0 enter subroutine >SET UP PART OF COMMENT
29410 106 175 0 3 select (N) TEST IF I/P
29411 127 294 15 0 0 jump A = Z >YES
29412 124 3 0 1 modify address of next SET UP STORED
29413 106 179 1 0 select (N) BLOCK NUMBER
29414 102 258 8 0 0 transfer (A) to N
29411>29415 124 3 0 1 modify address of next SET UP I/P:1
Source image: P1010154.JPG
29416 124 175 0 1 modify address of next OR O/P:1
29417 106 109 8 1 0 select (N)
29418 102 258 10 1 0 transfer (A) to N
29419 101 69 1 3 select literal address SET UP SIX ATTEMPTS
29420 107 258 10 1 0 augment (N) by (A)
29421 101 261 12 1 3 select literal address SELECT TABLE START
29422 124 335 2 1 0 unconditional jump >OFFER OPTIONS
29500 PROCR 295 295 OPTION 1=ABANDON PROGRAMME
29501 NOTES RADIX B
19937>29502 106 30 0 1 select (N) *14Ю SET UP RTE NO
29503 102 188 2 0 0 transfer (A) to N
29504 106 39 0 1 select (N) TEST M/R OR PTS
29505 105 107 11 0 0 subtract (N) from (A)
29506 127 296 2 0 0 jump A = Z >YES
29614>29507 124 3 0 1 modify address of next *60Ю TEST A TRIAL
29508 106 11 0 0 select (N)
29509 127 295 16 0 0 jump A = Z >NO
29510 126 473 2 0 0 enter subroutine *459 RESTORE 07 DETAILS
29511 106 108 10 0 0 select (N)
29512 124 233 26 0 1 modify address of next RESTORE A.S.L.
29513 102 64 0 0 transfer (A) to N
29514 124 233 45 0 1 modify address of next
29515 124 6 1 0 unconditional jump *60Ю
29509>29516 126 462 2 0 0 enter subroutine *14Ю >REQUEST M/R
29640>
29707>
51715>
20417>29517 102 106 2 0 0 transfer (A) to N SET INDICATOR
29518 101 2 1 3 select literal address RESET ABANDON/UNLOAD INDICATOR
29519 102 179 0 0 transfer (A) to N
29520 124 2 0 1 modify address of next
29521 124 37 0 1 modify address of next
29522 102 16 0 0 transfer (A) to N
29523 106 39 0 1 select (N) SET UP PROGRAM NO
29524 102 221 12 0 0 transfer (A) to N
29525 126 298 2 0 0 enter subroutine >CLEAR D/B INDICATORS
29526 106 221 34 0 0 select (N) *16Ю TEST UPTIME IN
29527 127 295 41 0 0 jump A = Z >NO
29528 106 221 38 0 0 select (N)
29529 105 2 0 0 subtract (N) from (A)
29530 127 295 41 0 1 jump A != Z *851 >NO
29531 127 295 34 0 1 jump A != Z *859 >NO
29532 102 221 38 1 0 transfer (A) to N CLEAR INDICATORS
29533 124 295 38 1 0 unconditional jump *85Ю
29531>29534 106 221 40 0 0 select (N)
29535 105 2 0 0 subtract (N) from (A)
29536 127 295 41 0 1 jump A != Z 2ND SET
29537 102 221 40 1 0 transfer (A) to N *85Ю
29533>29538 106 221 34 0 0 select (N) DECREASE NO OF UPTIME PROGS
29539 101 2 1 2 subtract literal address COUNTER BY 2
29540 102 221 34 0 0 transfer (A) to N *16Ю
29536>
29530>
29527>29541 106 3 0 1 select (N) *59Ю TEST PROGRAM USES MOD GROUP 3
29542 127 295 63 0 2 jump A >= Z >NO
29543 106 209 14 0 0 select (N) SET UP 6/0/0 IN 2 OF SWITCH
29544 102 2 0 1 transfer (A) to N
29545 106 0 0 1 select (N) 100/1/0 ACTION
29546 101 8191 1 1 add literal address TURN INTO
29547 101 1 1 1 add literal address 100/1/1 ACTION
29548 102 26 0 1 transfer (A) to N
29549 106 209 18 0 0 select (N) FORM 2/0/0 44 IN 3 OF SWITCH
29550 104 2 0 0 add (N) to (A)
29551 102 3 0 1 transfer (A) to N
29552 106 209 19 0 0 select (N) FORM UP 24/1/0 IN 6 OF SWITCH
Source image: P1010155.JPG
29553 102 6 0 1 transfer (A) to N
29554 106 209 20 0 0 select (N) FORM UP 26/0/3 IN 28 OF SWITCH
29555 105 2 0 0 subtract (N) from (A)
29556 102 28 0 1 transfer (A) to N
29557 106 4 0 1 select (N) *09Ю06Ю*06209Ю TEST TIMINGS ON
29558 127 295 63 0 2 jump A >= Z *09Ю06Ю >YES
29559 106 6 0 1 select (N)
29560 102 4 0 1 transfer (A) to N
29561 106 28 0 1 select (N)
29562 102 27 0 1 transfer (A) to N *59Ю*06209Ю
29558>
29542>29563 106 9 0 1 select (N) CLOSE PROG SWITCH FIRMLY
29564 102 7 0 1 transfer (A) to N
29565 124 106 2 0 1 modify address of next AMEND EDIT TABLE FOR
29566 124 214 54 0 2 select literal and division ABDON'OR'END'
29567 102 482 2 0 0 transfer (A) to N
29568 124 106 2 0 1 modify address of next
29569 124 295 70 1 0 unconditional jump
29569>29570 106 9 0 1 select (N) CORRUPT SI+35 TO PREVENT
29571 102 35 0 1 transfer (A) to N SWITCH BEING OPENED
29572 126 179 2 0 0 enter subroutine >SEARCH LOG QUEUE S/R
29573 124 176 12 0 2 select literal and division TEST OPTION OUTSTANDING
29574 105 175 4 0 3 subtract (N) from (A) FOR THIS PROG
29575 127 295 77 0 1 jump A != Z >NO
29576 102 175 3 0 0 transfer (A) to N CLEAR OPT OUTSTANDING INDICATOR
29575>29577 102 175 4 0 3 transfer (A) to N CLEAR A
29578 102 175 4 0 3 transfer (A) to N CLEAR LOG REQUEST
29579 124 475 2 1 0 unconditional jump >END ROUTINE
29580 124 208 2 1 0 unconditional jump *££0*££2*41‼ >XXX COMMENT
29581 127 301 5 0 3 jump A < Z *28‼ >NO
29582 127 302 2 0 3 jump A < Z *03‼ >NO
29583 127 301 5 0 2 jump A >= Z *28‼033 >NO
29584 127 296 33 0 0 jump A = Z *57‼
29585 124 203 2 1 0 unconditional jump *60‼
29586 124 477 8 1 0 unconditional jump *363
29587 126 351 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
29588 127 302 2 0 2 jump A >= Z *03‼03‼ >NO
29600 PROCR 296 296 ABANDON OPTION: DURING A MASTER ROUTINE OPERATION
29601 NOTES RADIX B
29506>29602 124 3 0 1 modify address of next *14Ю
29603 102 164 0 0 transfer (A) to N
29604 124 296 6 0 1 modify address of next
29605 124 296 7 1 0 unconditional jump
29606 100 0 0 0 Halt SWITCH
29605>29607 124 296 25 1 0 unconditional jump (S)=0 ALLOC PREP
29608 124 296 15 1 0 unconditional jump (S)=1 ALLOC & LOADING
29609 124 297 4 1 0 unconditional jump (S)=2 O'LAY PREP
29610 124 297 2 1 0 unconditional jump (S)=3 O'LAY
29611 124 297 8 1 0 unconditional jump *41‼
29612 124 297 10 1 0 unconditional jump (S)=5 READING CONTROL DATA
29613 124 208 2 1 0 unconditional jump (S)=6 >XXX COMMENT
29614 124 295 7 1 0 unconditional jump *60‼ TRIAL SETTING (5)=7
29608>29615 106 218 6 1 0 select (N) RESTORE GP 3 REGISTERS
29616 128 26 0 0 bulk copy short numeric
29617 123 26 1 0 copy into tag *59Ю SET TAG 0
29618 123 30 1 0 copy into tag IN MOD GROUP 3
29619 123 28 1 0 copy into tag *59Ю
29620 106 233 7 0 0 select (N) TEST ALLOCATED YET
29621 127 296 27 0 0 jump A = Z *57‼ >YES
29622 125 0 1 2 interrogate indicators TEST IF ANY PROGRAMM
29623 126 479 2 0 0 enter subroutine >S/R M* STILL AWAITING
29624 124 484 2 1 0 unconditional jump >NO,REJECT COMMENT UNLOADING
29607>29625 101 86 1 3 select literal address *363 CODE LETTER F
29626 124 491 11 1 0 unconditional jump *361 C REG COMMENT
29621>29627 106 233 26 0 0 select (N) *57Ю CH CH RT
Source image: P1010156.JPG
29628 126 249 2 0 0 enter subroutine >FIND RT IN LIST
29629 124 296 31 1 0 unconditional jump >FOUND
29630 124 296 41 1 0 unconditional jump >INTERNAL IMPOSSIBILITY
29629>29631 101 0 1 3 select literal address
29632 124 225 16 0 1 modify address of next *57Ю
29584>29633 102 224 4 1 0 transfer (A) to N CLEAR IS LAST PROG LOCATED
29634 106 221 8 0 0 select (N)
29635 126 479 2 0 0 enter subroutine >S/R M*
29636 124 296 42 1 0 unconditional jump >NOT FOUND
29637 124 4 0 1 modify address of next
29638 124 230 3 0 1 modify address of next
29639 126 36 1 1 set modification register SET MR1 FOR PROG
29640 124 295 17 1 0 unconditional jump >ABANDON PROGRAM
29630>29641 101 2 1 3 select literal address 'M'
29636>29642 101 98 1 1 add literal address 'K'
29643 124 208 3 1 0 unconditional jump >XXX COMMENT
29700 PROCR 297 297 ABANDON OPTION: DURING OVERLAY, STORE DUMP, OR READING CD
29701 NOTES RADIX B
29610>29702 106 218 6 1 0 select (N) *14Ю
29703 128 26 0 0 bulk copy short numeric
29609>29704 106 209 9 0 0 select (N) RESET M/R SWITCH
29705 102 106 24 0 0 transfer (A) to N IN CASE OF LOST
29706 126 221 6 1 1 set modification register SET(MR1)FOR PROG
29707 124 295 17 1 0 unconditional jump >ABANDON PROGRAM
29611>29708 124 214 74 0 2 select literal and division *41Ю
29709 124 468 6 1 0 unconditional jump *41Ю >TYPE COMMENT
29612>29710 106 222 18 0 0 select (N) RESTORE (64+R)
29711 124 222 20 0 1 modify address of next
29712 102 64 0 0 transfer (A) to N
29713 106 222 19 0 0 select (N) *01Ю TEST READING FILES BLOCK
29714 127 297 17 0 0 jump A = Z *01Ю >YES
29715 101 84 1 3 select literal address CODE LETTER D
29716 124 498 5 1 0 unconditional jump >NO CD COMMENT
29714>29717 106 499 2 0 0 select (N) *01Ю TEST ISSUE 6 PLS
29718 101 535 2 1 2 subtract literal address READING CD
29719 127 297 22 0 3 jump A < Z >NO
29720 124 296 25 0 2 select literal and division FRIG RETURN LINK
29721 102 499 2 0 0 transfer (A) to N
29719>29722 126 459 2 0 1 leave subroutine >CLEAR UP S/R G
29800 PROCR 298 298 CLEAR D/B INDICATORS FOR PROGM'S ROUTES
29802 100 0 0 0 Halt
29803 126 354 2 0 0 enter subroutine >SET(MR3)
29837>29804 106 34 1 3 select (N) TEST RELEASED
29805 127 298 36 0 3 jump A < Z >YES
29806 118 4118 1 0 shift logical *52Ю
29817>
29820>29807 118 1 1 0 shift logical ROUTE OR ALT RT TYPE
29808 127 298 18 0 0 jump A = Z >ZERO
29809 102 221 2 0 0 transfer (A) to N STORE
29810 118 2 1 0 shift logical
29811 125 0 1 2 interrogate indicators
29812 118 2 1 0 shift logical STORE ROUTE OR
29813 102 221 3 0 0 transfer (A) to N ALTERNATE ROUTE
29814 106 221 2 0 0 select (N) RESTORE ROUTE TYPE
29815 124 221 3 0 1 modify address of next IN 64+R
29816 102 64 0 0 transfer (A) to N
29817 124 298 7 1 0 unconditional jump >CONTINUE
29808>29818 118 4 1 0 shift logical
29819 125 0 1 2 interrogate indicators
29820 127 298 7 1 1 jump AB != Z >AB NON-ZERO CONTINUE
29821 105 34 1 3 subtract (N) from (A) SET ENTRY NEGATIVE
29822 102 34 1 3 transfer (A) to N *52Ю
29823 101 3 0 1 prepare for digit collation
29824 125 0 1 2 interrogate indicators *521
Source image: P1010157.JPG
29825 115 34 0 3 collate and add
29826 126 299 2 0 0 enter subroutine >CLEAR A D/B INDICATOR
29827 125 0 1 2 interrogate indicators
29828 101 3 0 1 prepare for digit collation TEST THIS ROUTE
29829 115 34 0 3 collate and add IN ASSEMBLER TABLE
29830 124 258 32 0 1 modify address of next
29831 105 252 2 0 0 subtract (N) from (A)
29832 127 298 36 0 1 jump A != Z >NO
29833 106 211 2 0 0 select (N)
29834 124 258 32 0 1 modify address of next SET RTE TYPE £5
29835 102 252 3 0 0 transfer (A) to N
29832>
29805>29836 125 2 0 3 step on and test TEST END OF TABLE
29837 124 298 4 1 0 unconditional jump >NO
29838 126 298 2 0 1 leave subroutine >YES
29900 PROCR 299 299 CLEAR D/B INDICATOR
29902 100 0 0 0 Halt LINK
29903 118 4127 1 0 shift logical STORE 8*CH
29904 118 1 1 3 shift binary
29905 118 3 0 3 shift binary
29906 102 258 32 0 0 transfer (A) to N
29907 118 3 1 3 shift binary STORE RTE
29908 102 258 33 0 0 transfer (A) to N
29909 101 1 0 1 prepare for digit collation CLEAR D/B INDICATOR
29910 124 258 33 0 1 modify address of next
29911 118 0 1 0 shift logical
29912 124 258 32 0 1 modify address of next
29913 114 252 4 1 0 replace selected bits
29914 126 299 2 0 1 leave subroutine >
30000 PROCR 300 300 WARNING OF END ROUTINE
30001 NOTES RADIX B
30002 100 0 0 0 Halt LINK=SI+12
30003 124 300 2 0 1 modify address of next SET (MR1) WITH PROG LINK
30004 126 24 1 1 set modification register
30005 106 31 0 1 select (N) *56Ю82Ю TEST DATA
30006 101 54 1 2 subtract literal address TRANS READ
30007 124 2 0 3 modify address of next
30008 127 9 0 0 jump A = Z *56Ю82Ю >NEXT PROG
30009 106 31 0 1 select (N) *16Ю TEST CARD READ
30010 101 6 1 2 subtract literal address
30011 127 381 2 0 0 jump A = Z >UPTIME MANUAL S/R
30012 101 10 1 2 subtract literal address OPEN FILE/CARD
38027>
38103>30013 124 2 0 1 modify address of next
30014 127 18 0 0 jump A = Z *16Ю >RC ROUTINE
30015 106 30 1 1 select (N) SET UP ROUTE NO. & TYPE
30016 102 188 2 1 0 transfer (A) to N
30017 106 188 3 0 0 select (N) *56Ю82Ю TEST IF FROM
30018 101 267 2 1 1 add literal address SECIND TEST
30019 101 399 24 1 2 subtract literal address ROUTE OF
30020 118 6 0 0 shift logical DATA TRANS
30021 127 300 38 0 1 jump A != Z >NO
30022 124 300 52 1 0 unconditional jump *56Ю82Ю
30023 106 188 3 0 0 select (N) *81Ю 5-8 HOLE P/T
30024 101 57 1 2 subtract literal address
30025 127 300 38 0 1 jump A != Z *81Ю
30026 106 188 3 0 0 select (N) *49Ю TEST MICR READ
30027 101 50 1 2 subtract literal address
30028 127 300 52 0 0 jump A = Z >YES BEFORE READ ORDER
30029 106 188 3 0 0 select (N) TEST IF FROM
30030 101 267 2 1 1 add literal address SECOND TEST
30031 101 397 13 1 2 subtract literal address ROUTE
30032 118 6 0 0 shift logical
30033 127 300 38 0 1 jump A != Z *49Ю
Source image: P1010158.JPG
30034 106 33 0 1 select (N) *49Ю81Ю
30035 127 263 20 0 0 jump A = Z >NO,ZZZ COMMENT SPECIFIED
30036 104 210 8 0 0 add (N) to (A) AUGMENT LINK BY 1
30037 124 284 4 1 0 unconditional jump *49Ю81Ю
30033>
30025>
30021>30038 106 188 2 0 0 select (N) TEST IF M/T
30039 101 128 1 2 subtract literal address *3:Ю
30040 127 301 2 0 3 jump A < Z *3:Ю*03‼*28‼ >NO
30041 101 24 1 2 subtract literal address *3:2*224*234 000000000800016
30042 127 301 2 0 2 jump A >= Z *3:2*03‼03‼*28‼033 >NO
30043 106 188 3 0 0 select (N) TEST RTE TYPE 8
30044 101 8 1 2 subtract literal address
30045 127 305 2 0 0 jump A = Z >YES RTE TYPE 8
30046 101 40 1 2 subtract literal address TEST RTE TYPE 48
30047 127 300 52 0 0 jump A = Z >YES
30048 125 0 1 2 interrogate indicators CLEAR W/E INDICATOR
30049 101 16 0 1 prepare for digit collation
30050 124 188 2 0 1 modify address of next
30051 114 190 34 0 0 replace selected bits
30219>
30047>
30028>
30022>30052 126 300 2 0 1 leave subroutine >SI+12
30100 PROCR 301 301 WARNING OF END:P/T OUTPUT
30042>
30040>30102 125 0 1 2 interrogate indicators *03Ю*28Ю
30103 101 1 0 1 prepare for digit collation TEST PAPER TAPE
30104 115 188 3 0 0 collate and add *28Ю OUTPUT 23202
29583>
29581>30105 106 188 3 0 0 select (N) *281
30106 105 210 8 0 0 subtract (N) from (A) TEST RTE TYPE 1
30107 127 302 2 0 1 jump A != Z >NO
30108 105 210 2 0 0 subtract (N) from (A)
30109 124 3 0 1 modify address of next SET W/E INDICATOR
30110 102 157 0 0 transfer (A) to N
30111 126 300 2 0 1 leave subroutine >SI+12
30200 PROCR 302 302 WARNING OF END:PRINTER
30201 NOTES RADIX B FOR ALTERATION IN HARDWARE
30107>
29588>
29582>30202 106 188 3 0 0 select (N) TEST ROUTE TYPE
30203 101 4 1 2 subtract literal address *2.4 00009
30204 127 302 20 0 0 jump A = Z >4OR9
30205 101 10 1 2 subtract literal address
30206 127 304 2 0 0 jump A = Z >14 OR 19
30207 101 10 1 2 subtract literal address
30208 127 302 20 0 0 jump A = Z *86Ю >29
30209 101 5 1 1 add literal address
30210 127 302 20 0 0 jump A = Z >24
30211 101 10 1 1 add literal address
30212 127 304 2 0 0 jump A = Z >14
30213 101 10 1 1 add literal address *86Ю
30214 127 302 20 0 0 jump A = Z >24 OR 29
30215 106 188 3 0 0 select (N) *54Ю44Ю
30216 101 267 2 1 1 add literal address
30217 101 390 10 1 2 subtract literal address TEST SINGLE ANNEX WORKING
30218 105 209 12 0 0 subtract (N) from (A) *54Ю44Ю
30219 127 300 52 0 1 jump A != Z >NO TO SI+12
30214>
30210>
30208>
30204>30220 106 188 3 0 0 select (N) STORE ROUTE TYPE IN SPECIAL CHAPTER
30221 124 3 0 1 modify address of next
Source image: P1010159.JPG
30222 102 157 0 0 transfer (A) to N
30223 124 3 0 1 modify address of next *2.Ю CLEAR INDICATOR
30224 102 156 0 0 transfer (A) to N *2.Ю
30225 124 303 2 0 2 select literal and division RETURN LOCATION
30226 126 362 2 0 0 enter subroutine >SET RTE TO MANUAL, ETC.
30227 126 341 2 0 0 enter subroutine >SET (MR3)=(64+R)
30228 124 3 0 1 modify address of next *86Ю
30229 106 157 0 0 select (N)
30230 101 4 1 2 subtract literal address
30231 127 302 58 0 0 jump A = Z
30232 101 20 1 2 subtract literal address
30233 127 302 58 0 0 jump A = Z *86Ю
30243>
30252>30234 125 2 0 3 step on and test *2.Ю TEST IF MULTI-FORM
30235 124 6 0 1 modify address of next TEST ANNEXE LIM WD BLOCK
30236 123 0 0 3 select tag
30237 101 15 1 2 subtract literal address
30238 127 263 19 0 0 jump A = Z >YES, ZZZ COMMENT
30239 124 6 0 1 modify address of next
30240 100 0 1 2 replace (B) by (N)
30248>30241 118 2 1 3 shift binary TEST END OF WORD
30242 125 0 1 2 interrogate indicators
30243 127 302 34 1 0 jump AB = Z >YES
30244 118 6 1 3 shift binary
30245 101 62 1 2 subtract literal address TEST B/E
30246 127 302 58 0 0 jump A = Z >YES >NO
30247 101 32 1 1 add literal address TEST L/E
30248 127 302 41 0 1 jump A != Z >NO
30249 125 2 0 3 step on and test TEST TRACK 8
30250 100 220 13 0 2 replace (B) by (N)
30251 115 0 0 3 collate and add
30252 127 302 34 0 0 jump A = Z >NO
30253 124 188 2 0 1 modify address of next STORE ASL YES
30254 106 64 0 0 select (N) AS INDICATOR
30255 124 3 0 1 modify address of next
30256 102 156 0 0 transfer (A) to N
30257 106 214 46 1 0 select (N) *2.Ю
30404>
30246>
30233>
30231>30258 102 258 8 1 0 transfer (A) to N
30259 106 214 44 1 0 select (N) 'WE'
30260 102 258 4 1 0 transfer (A) to N
30261 124 370 7 1 0 unconditional jump >OUTPUT COMMENT
30300 PROCR 303 303 WARNING OF END:PRINTER
30301 NOTES RADIX B CONT.
30302 126 339 2 0 0 enter subroutine >SET(MR3)=(3)
30303 106 156 0 3 select (N) *2.Ю TEST MULTI-FORM
30304 127 303 27 0 0 jump A = Z >NO
30305 106 258 16 1 0 select (N) BULK CLEAR 128-155 OF SPECIAL CHAPTER
30306 124 3 0 1 modify address of next
30307 128 128 1 1 bulk copy long numeric
30308 106 214 44 1 0 select (N) 'WE'
30309 102 132 1 3 transfer (A) to N
30310 106 214 46 1 0 select (N) 'CHECK'
30311 103 136 1 3 copy (A) to N
30312 103 144 1 3 copy (A) to N
30313 102 152 1 3 transfer (A) to N
30314 106 214 10 1 0 select (N) B/E WD
30315 102 154 1 3 transfer (A) to N
30316 106 210 14 0 0 select (N) SET UP A.S.L.
30317 104 3 0 0 add (N) to (A)
30318 124 188 2 0 1 modify address of next
30319 102 64 0 0 transfer (A) to N
30320 126 330 2 0 0 enter subroutine >WRITE
Source image: P1010160.JPG
30321 126 352 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
30322 126 339 2 0 0 enter subroutine >SET (MR3)=(3)
30323 106 156 0 3 select (N) RESTORE ASL
30324 124 188 2 0 1 modify address of next
30325 102 64 0 0 transfer (A) to N
30326 102 156 0 3 transfer (A) to N *2.Ю CLEAR IND
30304>30327 126 330 2 0 0 enter subroutine >WRITE
30328 101 4 1 3 select literal address *2.486+ 00009
30329 102 188 3 0 0 transfer (A) to N
30330 106 157 0 3 select (N) ORIGINAL ROUTE TYPE
30331 124 351 7 1 0 unconditional jump >TEST ROUTE DEALING WITH D/B
30400 PROCR 304 304 WARNING OF END PRINTER
30401 NOTES RADIX B OPEN FILE
30212>
30206>30402 124 267 21 0 2 select literal and division RETURN LINK
30403 126 362 2 0 0 enter subroutine >SET RTE TO MANUAL, ETC.
30404 124 302 58 1 0 unconditional jump >COMMENT
30500 PROCR 305 305 WARNING OF END
30501 NOTES RADIX B MAGNETIC TAPE OUTPUT
30045>30502 126 340 2 0 0 enter subroutine >SET (MR3)=R
30503 101 16 0 1 prepare for digit collation TEST W/E INDICATOR
30504 115 190 34 0 3 collate and add SET
30505 127 305 13 0 1 jump A != Z >YES
30506 106 210 6 0 0 select (N) SET W/E INDICATOR
30507 114 190 34 0 3 replace selected bits
30508 106 33 0 1 select (N) TEST IF LINK TO BE
30509 127 428 35 0 0 jump A = Z >NO AMENDED
30510 101 15 0 1 prepare for digit collation
30511 114 44 0 1 replace selected bits
30512 124 428 35 1 0 unconditional jump >SI + 12
30505>30513 105 210 6 0 0 subtract (N) from (A) TEST IF INDICATOR
30514 127 305 18 0 1 jump A != Z >YES IS.
30515 105 209 12 0 0 subtract (N) from (A) SET INDICATOR AS .
30516 107 190 34 0 3 augment (N) by (A)
30517 124 428 35 1 0 unconditional jump >SI+12
30514>30518 126 350 2 0 0 enter subroutine >TEST ROUTE DEALING WITH D/B
30519 126 435 2 0 0 enter subroutine >SET UP END OF REEL SENTINEL
30520 126 310 2 0 0 enter subroutine >WRITE END OF TAPE INF
30521 126 334 2 0 0 enter subroutine >STEP REEL COUNTER
30522 126 357 2 0 0 enter subroutine >COUNT 500 M. SECS
30523 126 451 2 0 0 enter subroutine *8£9
30524 126 324 2 0 0 enter subroutine >UNLOAD. NEW TAPE
30525 126 425 2 0 0 enter subroutine >OPEN OUTPUT REEL
30526 126 351 2 0 0 enter subroutine *££0*££2*09‼06‼
30527 126 385 2 0 0 enter subroutine *163
30528 102 185 0 3 transfer (A) to N *5+‼ CLEAR ATTEMPTS COUNTER
30600 PROCR 306 306 STEP BACK (A) BLOCKS, FORWARD 1 BLOCK
30601 NOTES RADIX B
30602 100 0 0 0 Halt LINK
30603 124 3 0 1 modify address of next SET UP CNTR
30604 102 177 0 0 transfer (A) to N
30605 106 306 2 0 0 select (N)
30606 124 3 0 1 modify address of next STORE LINK
30607 102 161 0 0 transfer (A) to N
30608 126 357 2 0 0 enter subroutine >COUNT 500 MILLISECS
30616>30609 124 188 2 0 1 modify address of next STEP BACK
30610 119 0 1 0 step back
30611 126 352 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
30612 126 339 2 0 0 enter subroutine SET(MR3)=3
30613 106 177 0 3 select (N) SELECT CNTR
30614 105 210 8 0 0 subtract (N) from (A) SUBT 1 TEST COUNTER=0
30615 103 177 0 3 copy (A) to N STORE CNTR
30616 127 306 9 0 1 jump A != Z >NO
Source image: P1010161.JPG
30617 126 357 2 0 0 enter subroutine >COUNT 500 MILLISECS
30618 126 355 2 0 0 enter subroutine >STEP FORWARD
30619 126 352 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
30620 124 3 0 1 modify address of next
30621 126 161 0 1 leave subroutine > LEAVE S/R
30700 PROCR 307 307 RUN FORWARD STEP FORWARD & READ
30701 NOTES RADIX B
30702 100 0 0 0 Halt
30703 126 339 2 0 0 enter subroutine >SET (MR3)=(3)
30704 106 164 0 3 select (N) *8£Ю TEST OPT 13
30705 127 307 10 0 1 jump A != Z >YES
30706 124 188 2 0 1 modify address of next CLEAR DB COUNT
30707 102 193 2 0 0 transfer (A) to N
30708 124 188 2 0 1 modify address of next CLEAR O/P COUNT
30709 102 193 26 0 0 transfer (A) to N *8£Ю
30705>30710 106 307 2 0 0 select (N)
30711 102 165 0 3 transfer (A) to N
29132>30712 125 0 1 2 interrogate indicators DRAIN
30713 102 157 0 3 transfer (A) to N CLEAR INDICATORS
30714 102 158 0 3 transfer (A) to N
30715 126 340 2 0 0 enter subroutine >SET (MR3)=R
30716 100 210 6 0 2 replace (B) by (N) TEST IF THIS REEL
30717 115 190 98 0 3 collate and add HAS BEEN REWOUND
30718 127 307 22 0 0 jump A = Z >NO
30719 125 0 1 2 interrogate indicators CLEAR REWIND IND
30720 114 190 98 0 3 replace selected bits
30721 126 357 2 0 0 enter subroutine >COUNT 500 MILLISECS
30718>30722 124 188 2 0 1 modify address of next RUN FORWARD
30723 119 0 0 3 run forward
30724 126 343 2 0 0 enter subroutine *019 CLEAR BIT 1 OF ASL
30725 126 351 2 0 0 enter subroutine >TEST RTE NOTING D/B
30726 126 355 2 0 0 enter subroutine > STEP FORWARD
30727 126 351 2 0 0 enter subroutine >TEST RTE NOTING D/B
30728 101 5 1 3 select literal address
30729 124 188 2 0 1 modify address of next SET BLOCK CNTR=5
30730 102 190 2 0 0 transfer (A) to N
30731 126 308 2 0 0 enter subroutine >READ, TEST BLOCK
30732 126 341 2 0 0 enter subroutine >SET MR3=64+R
30733 106 7 1 3 select (N)
30734 124 188 2 0 1 modify address of next *8£Ю STORE
30735 103 193 50 0 0 copy (A) to N *8£Ю SPOOL NO
30736 124 3 0 1 modify address of next
30737 102 182 0 0 transfer (A) to N
30738 124 3 0 1 modify address of next
30739 126 165 0 1 leave subroutine > LEAVE S/R
30800 PROCR 308 308 READ & TEST BLOCK
30801 NOTES RADIX B
30802 100 0 0 0 Halt LINK
30803 106 210 8 0 0 select (N)
30804 126 333 2 0 0 enter subroutine >STEP BLOCK CNTR
30805 126 339 2 0 0 enter subroutine >SET (MR3)=(3)
30806 106 308 2 0 0 select (N) STORE LINK
30807 102 166 0 3 transfer (A) to N
30842>30808 126 329 2 0 0 enter subroutine > READ
30809 126 343 2 0 0 enter subroutine *019 CLEAR BIT 1 OF ASL
30810 106 164 0 3 select (N) *5+Ю TEST CHD
30811 127 308 38 0 1 jump A != Z *5+Ю >YES
30812 101 7 1 3 select literal address SET RTE TYPE 7
30813 102 188 3 0 0 transfer (A) to N
30814 126 350 2 0 0 enter subroutine >TEST RTE DEALING WITH D/B
30832>
30837>
30839>30815 126 314 2 0 0 enter subroutine >TEST A1=BLOCK COUNTER
30816 127 308 25 0 1 jump A != Z >NO
Source image: P1010162.JPG
30817 126 339 2 0 0 enter subroutine >SET(MR3)=(3)
30818 102 171 0 3 transfer (A) to N CLEAR OPTION INDICATOR
30819 102 186 0 3 transfer (A) to N CLEAR INDICATOR
30820 106 187 0 3 select (N) TEST CHD INDICATOR
30821 127 308 23 0 1 jump A != Z >YES
30822 126 321 2 0 0 enter subroutine >
30821>30823 124 3 0 1 modify address of next
30824 126 166 0 1 leave subroutine > LEAVE S/R
30816>30825 126 315 2 0 0 enter subroutine >TEST A1 FOR FBM
30826 124 308 40 1 0 unconditional jump >FBM FOUND
30827 101 308 15 1 3 select literal address SELECT RETURN LOCATION
30828 124 3 0 1 modify address of next
30829 102 162 0 0 transfer (A) to N
30830 126 323 2 0 0 enter subroutine >TEST OPTION INDICATOR
30831 126 316 2 0 0 enter subroutine >ALIGNMENT FAILURE
30832 124 308 15 1 0 unconditional jump >
30833 126 318 2 0 0 enter subroutine >TEST BLOCK 6
30834 124 291 27 1 0 unconditional jump >
30835 126 317 2 0 0 enter subroutine >REREAD
30836 126 319 2 0 0 enter subroutine >STEP ATTEMPTS COUNTER
30837 124 308 15 1 0 unconditional jump >
30846>
30811>30838 126 352 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
30839 124 308 15 1 0 unconditional jump >
30826>30840 126 339 2 0 0 enter subroutine >SET (MR3)=(3)
30841 106 186 0 3 select (N) TEST ALREADY STEPPED BACK DURING
30842 127 308 8 0 0 jump A = Z REALIGNMENT >NO READ NEXT BLOCK
30843 101 3 1 3 select literal address
30844 126 306 2 0 0 enter subroutine >STEP BACK 3,FORWARD 1
30845 126 329 2 0 0 enter subroutine >READ
30846 124 308 38 1 0 unconditional jump >
30900 PROCR 309 309 WRITE 'FINIS' BLOCK
30901 NOTES RADIX B
30902 100 0 0 0 Halt LINK
30903 126 341 2 0 0 enter subroutine >SET (MR3)=(64+R)
30904 106 210 8 0 0 select (N) STEP BLOCK COUNTER
30905 126 333 2 0 0 enter subroutine >
30906 124 188 2 0 1 modify address of next SELECT BLOCK CNTR
30907 106 190 2 0 0 select (N)
30908 102 1 1 3 transfer (A) to N 1ST WORD
30909 106 211 8 1 0 select (N) SELECT R/M WORD
30910 102 2 1 3 transfer (A) to N 2ND WORD
30911 106 258 28 1 0 select (N) SELECT 'FINIS'
30912 102 4 1 3 transfer (A) to N 3RD WORD
30913 106 214 10 1 0 select (N) SELECT B/E WORD
30914 102 6 1 3 transfer (A) to N 4TH WORD
30915 126 342 2 0 0 enter subroutine *019 SET(MR3)=(64+R)FOR 90K
30916 126 330 2 0 0 enter subroutine >WRITE
30917 126 343 2 0 0 enter subroutine *019
30918 106 309 2 0 0 select (N) STORE LINK
30919 124 3 0 1 modify address of next
30920 102 197 0 0 transfer (A) to N
30921 106 212 5 0 0 select (N) SET RTE TYPE 8
30922 102 188 3 0 0 transfer (A) to N
30923 126 350 2 0 0 enter subroutine >TEST RTE, DEALING WITH D/B
30924 126 341 2 0 0 enter subroutine >SET (MR3)=(64+R)
30925 106 211 6 1 0 select (N) SELECT SENTINEL TYPE 3
30926 104 212 6 0 0 add (N) to (A)
30927 124 3 0 1 modify address of next
30928 126 197 0 1 leave subroutine >LEAVE S/R
31000 PROCR 310 310 WRITE END OF TAPE INFORMATION
31001 NOTES RADIX B
31002 100 0 0 0 Halt
31003 102 0 1 3 transfer (A) to N SET 1ST WORD AT SENTINEL TYPE
Source image: P1010163.JPG
31004 106 210 8 0 0 select (N) STEP BLOCK COUNTER
31005 126 333 2 0 0 enter subroutine >
31006 124 188 2 0 1 modify address of next SELECT BLOCK COUNTER
31007 106 190 2 0 0 select (N)
31008 102 5 1 3 transfer (A) to N 3RD WORD
31009 126 342 2 0 0 enter subroutine *019*8Ю9
31010 126 330 2 0 0 enter subroutine >WRITE
31011 126 343 2 0 0 enter subroutine *019*8Ю9
31012 106 310 2 0 0 select (N) STORE LINK
31013 124 3 0 1 modify address of next
31014 102 197 0 0 transfer (A) to N
31015 106 212 5 0 0 select (N) SET RTE TYPE 8
31016 102 188 3 0 0 transfer (A) to N
31017 126 350 2 0 0 enter subroutine >TEST RTE DEALING WITH D/B
31018 126 341 2 0 0 enter subroutine >SET (MR3)=(64+R)
31019 106 258 30 1 0 select (N) SELECT (END)
31020 103 0 1 3 copy (A) to N 1ST WORD
31021 102 2 1 3 transfer (A) to N 2ND WORD
31022 126 342 2 0 0 enter subroutine *019*8Ю9
31023 126 330 2 0 0 enter subroutine >WRITE
31024 126 343 2 0 0 enter subroutine *019*8Ю9
31025 126 351 2 0 0 enter subroutine >TEST RTE NOTING D/B
31026 125 0 1 2 interrogate indicators
31027 126 331 2 0 0 enter subroutine >AUGMENT BLOCK CTR BY-1
31028 124 3 0 1 modify address of next
31029 126 197 0 1 leave subroutine >LEAVE S/R
31100 PROCR 311 311 SET UP FILE I.D. FOR M/T COMMENT
31101 NOTES RADIX B
31102 100 0 0 0 Halt LINK
31103 126 340 2 0 0 enter subroutine >SET (MR3)=R
31104 106 190 98 0 3 select (N) SET UP FILE ID/
31105 118 2 0 0 shift logical
31106 101 113 1 1 add literal address
31107 118 4 0 0 shift logical
31108 102 258 12 1 0 transfer (A) to N
31109 101 3 0 1 prepare for digit collation COLLATE REEL NO
31110 115 190 34 0 3 collate and add
31111 118 4127 1 0 shift logical
31112 118 1 0 0 shift logical
31113 118 1 1 0 shift logical
31114 126 311 2 0 1 leave subroutine > LEAVE S/R
31200 PROCR 312 312 ZZZ COMMENT
31201 NOTES RADIX B
31202 100 0 0 0 Halt LINK
31203 101 4 1 3 select literal address
31204 126 361 2 0 0 enter subroutine >EDIT TIME, SET UP PROG. NO.
31205 106 258 7 0 0 select (N) SET UP RTE NO
31206 102 258 8 0 0 transfer (A) to N
31207 106 214 48 1 0 select (N) SET UP 'ZZZ'
31208 102 258 4 1 0 transfer (A) to N
31209 106 312 2 0 0 select (N) SET UP CODE NUMBER
31210 101 263 18 1 2 subtract literal address
31211 102 258 7 0 0 transfer (A) to N *131
31212 103 258 7 0 0 copy (A) to N *13Ю
31213 101 9 1 2 subtract literal address TEST 22209
31214 127 312 16 0 1 jump A != Z >NO
31215 102 258 8 0 0 transfer (A) to N CLEAR ROUTE NO
31214>31216 125 0 1 2 interrogate indicators *13Ю
31217 102 188 3 0 0 transfer (A) to N
31218 126 349 2 0 0 enter subroutine > CLEAR ASSEMBLER TABLE
31219 106 438 2 0 0 select (N) STORE SETTING OF S101
31220 124 3 0 1 modify address of next
31221 102 176 0 0 transfer (A) to N
31222 124 432 10 1 0 unconditional jump >OUTPUT COMMENT
Source image: P1010164.JPG
31300 PROCR 313 313 IDENTIFICATION FAILURE
31301 NOTES RADIX B
31913>
32308>31302 106 162 0 3 select (N) RETURN LOCN
31303 102 171 0 3 transfer (A) to N
31304 126 341 2 0 0 enter subroutine >SET(MR3)=(64+R)
31305 106 1 1 3 select (N) SET UP ACTUAL BLOCK NO
31306 102 258 10 0 0 transfer (A) to N
31307 106 108 31 1 0 select (N) SET UP ALARM TYPE 2
31308 102 258 4 1 0 transfer (A) to N
31309 126 361 2 0 0 enter subroutine >EDIT TIME,SET UP PROG NO
31310 124 4217 0 2 select literal and division *14+5++*14+*5++ 001200421600121
31311 102 41 0 1 transfer (A) to N
31312 102 258 12 1 0 transfer (A) to N CLEAR COL 5
31313 101 262 2 1 3 select literal address SELECT TABLE START LOCATION
31314 124 335 2 1 0 unconditional jump >OFFER OPTIONS
31400 PROCR 314 314 TEST A1=BLOCK CTR
31402 100 0 0 0 Halt LINK
31403 126 341 2 0 0 enter subroutine >SET MR3=(64+R)
31404 106 1 1 3 select (N) ACTUAL BLOCK NO
31405 124 188 2 0 1 modify address of next
31406 105 190 2 0 0 subtract (N) from (A) EXPECTED
31407 126 314 2 0 1 leave subroutine
31500 PROCR 315 315 TEST FOR FBM S/R
31502 100 0 0 0 Halt LINK
31503 126 341 2 0 0 enter subroutine >SET MR3=64+R
31504 106 0 1 3 select (N)
31505 118 4118 1 0 shift logical
31511>31506 118 2 1 0 shift logical
31507 101 95 1 2 subtract literal address TEST CHARACTER IS FB
31508 127 315 10 0 1 jump A != Z >NO
31509 126 315 2 0 1 leave subroutine >LEAVE S/R
31508>31510 125 0 1 2 interrogate indicators
31511 127 315 6 1 1 jump AB != Z
31512 124 315 2 0 1 modify address of next
31513 124 1 1 0 unconditional jump >FBM NOT FOUND
31600 PROCR 316 316 ALIGNMENT FAILURE S/R
31602 100 0 0 0 Halt LINK
31603 106 316 2 0 0 select (N) STORE LINK IN
31604 124 3 0 1 modify address of next SPECIAL CHAPTER
31605 102 183 0 0 transfer (A) to N
31606 126 341 2 0 0 enter subroutine >SET MR3=64+R
31607 124 3 0 1 modify address of next TEST ATTEMPTS COUNTER
31608 106 185 0 0 select (N) ZERO
31609 127 316 13 0 1 jump A != Z >NO
31610 106 1 1 3 select (N) STORE ACTUAL BLOCK NO
31611 124 3 0 1 modify address of next
31612 102 184 0 0 transfer (A) to N
31609>31613 124 188 2 0 1 modify address of next TEST EXPECTED BLOCK
31614 106 190 2 0 0 select (N) >ACTUAL BLOCK
31615 100 210 3 0 3 set radix SET DECIMAL
31616 105 1 1 3 subtract (N) from (A)
31617 127 316 51 0 0 jump A = Z >A1=BLOCK COUNTER
31618 127 316 36 0 3 jump A < Z >NO
31619 101 8 1 2 subtract literal address TEST DIFFERENCE <8
31620 127 316 54 0 2 jump A >= Z > NO
31621 101 7 1 1 add literal address
31622 100 212 2 0 3 set radix SET BINARY
31623 127 316 32 0 0 jump A = Z >
31631>31624 124 3 0 1 modify address of next
31625 102 177 0 0 transfer (A) to N
31626 126 355 2 0 0 enter subroutine >STEP FORWARD
Source image: P1010165.JPG
31627 126 352 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
31628 124 3 0 1 modify address of next TEST ALIGNED
31629 106 177 0 0 select (N) CORRECTLY
31630 105 210 8 0 0 subtract (N) from (A)
31631 127 316 24 0 1 jump A != Z >NO
31647>
31623>31632 126 322 2 0 0 enter subroutine >TEST O/P OR I/P
31633 124 316 48 1 0 unconditional jump >I/P
31634 126 355 2 0 0 enter subroutine >STEP FORWARD
31635 124 316 49 1 0 unconditional jump >
31618>31636 106 1 1 3 select (N) EXPECTED <ACTUAL
31637 124 188 2 0 1 modify address of next
31638 105 190 2 0 0 subtract (N) from (A)
31639 101 8 1 2 subtract literal address TEST DIFFERENCE <8
31640 127 316 54 0 2 jump A >= Z >NO
31641 101 10 1 1 add literal address
31642 100 212 2 0 3 set radix SET BINARY
31643 127 316 54 0 3 jump A < Z >CRAZY BLOCK NO
31644 124 3 0 1 modify address of next SET INDICATOR
31645 103 186 0 0 copy (A) to N
31646 126 306 2 0 0 enter subroutine >STEP BACK DIFFERENCE
31647 124 316 32 1 0 unconditional jump >
31816>
31633>31648 126 329 2 0 0 enter subroutine >READ
31635>31649 126 352 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
31650 126 319 2 0 0 enter subroutine >STEP ATTEMPTS COUNTER
31617>31651 100 212 2 0 3 set radix SET BINARY
31652 124 3 0 1 modify address of next
31653 126 183 0 1 leave subroutine >LEAVE S/R
31643>
31640>
31620>31654 100 212 2 0 3 set radix SET BINARY
31655 124 316 2 0 1 modify address of next
31656 124 1 1 0 unconditional jump >LEAVE S/R+1
31700 PROCR 317 317 ALIGNMENT FAILURE(11)-REREAD
31702 100 0 0 0 Halt LINK
31703 106 317 2 0 0 select (N) STORE LINK IN
31704 124 3 0 1 modify address of next SPECIAL CHAPTER
31705 102 173 0 0 transfer (A) to N
31706 106 212 6 0 0 select (N)
31707 126 306 2 0 0 enter subroutine >STEP BACK 2,FORWARD 1
31708 126 322 2 0 0 enter subroutine >TEST I/P OR O/P
31709 124 317 14 1 0 unconditional jump >
31710 126 355 2 0 0 enter subroutine >STEP FORWARD
31715>31711 126 352 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
31712 124 3 0 1 modify address of next
31713 126 173 0 1 leave subroutine >LEAVE S/R
31709>31714 126 329 2 0 0 enter subroutine >READ
31715 124 317 11 1 0 unconditional jump >
31800 PROCR 318 318 ALIGNMENT FAILURE(111)-BLOCK 6 TEST
31802 100 0 0 0 Halt LINK
31803 106 318 2 0 0 select (N) STORE LINK IN
31804 124 3 0 1 modify address of next SPECIAL CHAPTER
31805 102 173 0 0 transfer (A) to N
31806 124 188 2 0 1 modify address of next TEST EXPECTED BLOCK=
31807 106 190 2 0 0 select (N)
31808 101 6 1 2 subtract literal address
31809 127 318 26 0 1 jump A != Z >NO
31810 126 319 2 0 0 enter subroutine >STEP ATTEMPTS COUNTER
31811 106 185 0 3 select (N) TEST IF REWOUND ONCE ALREADY
31812 105 212 6 0 0 subtract (N) from (A)
31813 127 318 17 0 1 jump A != Z >NO
31814 126 329 2 0 0 enter subroutine >READ
31815 126 352 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
Source image: P1010166.JPG
31816 124 316 48 1 0 unconditional jump >ALIGNMENT FAILURE
31813>31817 126 357 2 0 0 enter subroutine >COUNT 500 MILLISECS
31818 126 352 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
31819 124 188 2 0 1 modify address of next REWIND
31820 119 0 1 1 rewind
31821 106 210 6 0 0 select (N)
31822 124 188 2 0 1 modify address of next SET REWIND INDICATOR
31823 107 190 98 0 0 augment (N) by (A) TO COUNT 500 MILLI-SECS
31824 124 3 0 1 modify address of next
31825 126 173 0 1 leave subroutine >LEAVE S/R
31809>31826 124 318 2 0 1 modify address of next
31827 124 1 1 0 unconditional jump >LEAVE S/R+1
31900 PROCR 319 319 STEP ATTEMPTS COUNTER S/R
31902 100 0 0 0 Halt LINK
31903 126 339 2 0 0 enter subroutine >SET(MR3)=(3)
31904 106 185 0 3 select (N) STEP ATTEMPTS COUNTER
31905 104 210 8 0 0 add (N) to (A)
31906 103 185 0 3 copy (A) to N
31907 101 6 1 2 subtract literal address TEST COUNTER IS SIX
31908 127 319 10 0 0 jump A = Z >YES
31909 126 319 2 0 1 leave subroutine >LEAVE S/R
31908>31910 126 320 2 0 0 enter subroutine *5+‼ CLEAR C+185 TEST IF IN OPT 13
31911 106 210 8 0 0 select (N) SET INDICATOR
31912 102 187 0 3 transfer (A) to N
31913 124 313 2 1 0 unconditional jump
32000 PROCR 320 320 CLEAR 185 AND TEST IF IN CHANGE DECKS
32002 100 0 0 0 Halt *5+Ю
32003 102 185 0 3 transfer (A) to N
32004 106 164 0 3 select (N) TEST IN OPT 13
32005 127 320 7 0 1 jump A != Z >YES
32006 126 320 2 0 1 leave subroutine
32005>
29404>32007 106 214 90 1 0 select (N) SET UP'CMD'
32008 102 258 4 1 0 transfer (A) to N
32009 101 291 6 1 3 select literal address SELECT RETURN LINK
32010 124 282 10 1 0 unconditional jump >UNLOAD-OUTPUT COMMENT
32100 PROCR 321 321 COMMENT ON ALIGNMENT FAILURE CURED
32102 100 0 0 0 Halt LINK
32103 101 2 1 3 select literal address *50Ю*5:Ю
32104 126 332 2 0 0 enter subroutine TEST CATEGORY SET
32105 127 321 28 0 1 jump A != Z *5:Ю >NO COMMENT
32106 106 321 2 0 0 select (N) STORE
32107 124 3 0 1 modify address of next LINK
32108 102 173 0 0 transfer (A) to N
32109 124 3 0 1 modify address of next TEST ATTEMPTS COUNTE
32110 106 185 0 0 select (N) ZERO
32111 127 321 24 0 0 jump A = Z >YES
32112 106 214 82 1 0 select (N) SET UP 'SER'
32113 102 258 4 1 0 transfer (A) to N
32114 126 361 2 0 0 enter subroutine >SET UP PART OF COMMENT
32115 102 258 12 1 0 transfer (A) to N CLEAR COL 5
32116 124 3 0 1 modify address of next SET UP FOUND SERIAL NO
32117 106 184 0 0 select (N)
32118 102 258 10 0 0 transfer (A) to N
32119 124 3 0 1 modify address of next CLEAR ATTEMPTS CTR
32120 102 185 0 0 transfer (A) to N
32121 124 321 23 0 2 select literal and division
32122 124 426 63 1 0 unconditional jump >
32123 126 359 2 0 0 enter subroutine >SET SI=4,RESTORE LINK FOR SI=3
32111>32124 106 30 1 1 select (N) STORE RTE NUMBER AND
32125 102 188 2 1 0 transfer (A) to N TYPE
32126 124 3 0 1 modify address of next
32127 126 173 0 1 leave subroutine *50Ю
Source image: P1010167.JPG
32105>32128 125 0 1 2 interrogate indicators
32129 124 3 0 1 modify address of next
32130 102 185 0 0 transfer (A) to N CLEAR ATTEMPTS COUNTER
32131 126 321 2 0 1 leave subroutine
32200 PROCR 322 322 TEST ALIGNING FROM O/P S/R
32202 100 0 0 0 Halt LINK
32203 126 339 2 0 0 enter subroutine SET(MR3)=(3)
32204 106 162 0 3 select (N) TEST ALIGNING FROM
32205 101 286 24 1 2 subtract literal address M/T O/P DB
32206 127 322 21 0 0 jump A = Z >YES
32207 101 286 24 1 1 add literal address *5+Ю TEST ALIGNING FROM
32208 101 292 63 1 2 subtract literal address CHANGE DECKS
32209 127 322 13 0 1 jump A != Z >NO
32210 106 175 0 3 select (N) TEST IF O/P
32211 127 322 21 0 1 jump A != Z *5+Ю >YES
32218>
32220>32212 126 322 2 0 1 leave subroutine >LEAVE S/R
32209>32213 106 162 0 3 select (N) *5+Ю TEST ALIGNING FROM
32214 101 446 8 1 2 subtract literal address *1‼Ю STEP FORWARD
32215 127 322 19 0 0 jump A = Z >YES
32216 101 446 8 1 1 add literal address *1‼Ю TEST ALIGNING FROM
32217 101 444 45 1 2 subtract literal address STEP BACK
32218 127 322 12 0 1 jump A != Z >NO
32215>32219 106 181 0 3 select (N) TEST O/P
32220 127 322 12 0 1 jump A != Z *5+Ю >NO
32211>
32206>32221 124 322 2 0 1 modify address of next
32222 124 1 1 0 unconditional jump >LEAVE S/R+1
32300 PROCR 323 323 TEST OPTION INDICATOR S/R
32302 100 0 0 0 Halt LINK
32303 124 3 0 1 modify address of next TEST OPTION
32304 106 171 0 0 select (N) INDICATOR SET
32305 127 323 9 0 0 jump A = Z >NO
32306 126 339 2 0 0 enter subroutine SET(MR3)=(3)
32307 126 320 2 0 0 enter subroutine *5+‼ CLEAR C+185 TEST IF IN OPT 13
32308 124 313 2 1 0 unconditional jump
32305>32309 126 323 2 0 1 leave subroutine >LEAVE S/R
32400 PROCR 324 324 UNLOAD CALL FOR NEW TAPE
32401 NOTES RADIX B
32402 100 0 0 0 Halt LINK
32403 106 324 2 0 0 select (N)
32404 126 362 2 0 0 enter subroutine >UNLOAD ETC.
42207>32405 126 326 2 0 0 enter subroutine *179 ALTERNATE ROUTES
41065>32406 106 215 16 1 0 select (N) SET UP'NEW'
32407 102 258 4 1 0 transfer (A) to N
32408 101 4 1 3 select literal address
32409 126 345 2 0 0 enter subroutine >EDIT TIME, SET UP RTE NO
32410 126 311 2 0 0 enter subroutine >
32411 102 258 8 0 0 transfer (A) to N STORE REEL NO
32412 124 432 10 1 0 unconditional jump >OUTPUT COMMENT
32500 PROCR 325 325 ALTERNATE PAPER TAPE ROUTES
32501 NOTES RADIX B
32502 100 0 0 0 Halt *02Ю*18Ю88Ю
32503 126 327 2 0 0 enter subroutine *18Ю >ALTERNATE ROUTES
32504 124 325 6 1 0 unconditional jump >
32505 126 325 2 0 1 leave subroutine *18Ю
53139>
32504>32506 126 212 12 1 3 set modification register SET (MR3)=12:0
32521>32507 124 221 3 0 1 modify address of next COPY FILE DETAILS
32508 106 252 50 0 3 select (N) *53+3:+ 00042
32509 124 188 2 0 1 modify address of next
32510 102 252 50 0 3 transfer (A) to N *53+3:+ 00042
Source image: P1010168.JPG
32511 124 221 3 0 1 modify address of next *53Ю0ЮЮ3:Ю
32512 106 252 54 0 0 select (N) *53+3:+ 00046
32513 124 188 2 0 1 modify address of next
32514 102 252 54 0 0 transfer (A) to N *53+3:+ 00046
32515 124 221 3 0 1 modify address of next
32516 106 252 66 0 0 select (N) *53+3:+ 00058
32517 124 188 2 0 1 modify address of next
32518 102 252 66 0 0 transfer (A) to N *53+3:+ 00058
32519 126 325 2 0 1 leave subroutine *53Ю0ЮЮ3:Ю
32520 125 4 0 3 step on and test TEST ALL DETAILS COP
32521 124 325 7 1 0 unconditional jump >NO
32522 126 325 2 0 1 leave subroutine >LEAVE S/R
32600 PROCR 326 326 ALTERNATE MAGNETIC TAPE ROUTES
32601 NOTES RADIX B
32602 100 0 0 0 Halt *17Ю LINK
32603 126 327 2 0 0 enter subroutine >ALTERNATE ROUTES
32604 124 326 6 1 0 unconditional jump >
32605 126 326 2 0 1 leave subroutine
32604>32606 126 108 18 1 3 set modification register SET (MR3)
32612>32607 124 221 3 0 1 modify address of next COPY FILE DETAILS
32608 106 190 2 0 3 select (N)
32609 124 188 2 0 1 modify address of next
32610 102 190 2 0 3 transfer (A) to N
32611 125 32 0 3 step on and test *244*234*224 000240001600008
32612 124 326 7 1 0 unconditional jump >NO
32613 126 326 2 0 1 leave subroutine > LEAVE S/R
32700 PROCR 327 327 ALTERNATE ROUTES
32701 NOTES RADIX B
32702 100 0 0 0 Halt *17Ю18Ю LINK
32703 106 39 0 1 select (N) TEST M/R
32704 105 230 2 0 0 subtract (N) from (A)
32705 127 327 33 0 0 jump A = Z >YES
32706 126 353 2 0 0 enter subroutine >SELECT RTE NO FROM LAST CHAPTER
32707 127 327 12 0 0 jump A = Z >YES TEST REQ'D ENTRY
32708 125 2 0 3 step on and test TEST END OF TABLE
32709 124 353 4 1 0 unconditional jump *17Ю18Ю >NO
45013>32710 101 87 1 3 select literal address CODE LETTER G
32711 124 208 3 1 0 unconditional jump > OUTPUT XXX COMMENT
32707>32712 101 12 0 1 prepare for digit collation *17Ю18Ю
32713 115 34 0 3 collate and add TEST ALT. RTE. ALLOC
32714 105 210 5 0 0 subtract (N) from (A)
32715 127 327 33 0 0 jump A = Z >NO
32716 106 34 0 3 select (N) INTERCHANGE ROUTE NUMBERS
32717 118 5 0 0 shift logical
32718 104 35 0 3 add (N) to (A)
32719 102 34 1 3 transfer (A) to N
32720 101 3 0 1 prepare for digit collation
32721 115 34 0 3 collate and add
32722 126 328 2 0 0 enter subroutine >S/R
32723 124 188 2 0 1 modify address of next
32724 106 64 0 0 select (N) SET UP NEW (64+R)
32725 124 221 2 0 1 modify address of next
32726 102 64 0 0 transfer (A) to N
32727 106 188 2 0 0 select (N) STORE RTE NUMBER
32728 102 221 3 0 0 transfer (A) to N
32729 106 221 2 0 0 select (N)
32730 103 30 0 1 copy (A) to N SET UP RTE NO IN SI & 137/2
32731 102 188 2 0 0 transfer (A) to N
32732 126 327 2 0 1 leave subroutine > LEAVE S/R
32715>
32705>32733 124 327 2 0 1 modify address of next
32734 124 1 1 0 unconditional jump >
32800 PROCR 328 328 CHANGE ROUTE NUMBERS IN PARAMETER LISTS
Source image: P1010169.JPG
32802 100 0 0 0 Halt *17Ю18Ю11Ю13Ю LINK
32803 102 221 2 0 0 transfer (A) to N STORE NEW RTE NUMBER
32804 106 6 0 0 select (N) SET (MR3) = O/PSN OF RTE IN LIST
32805 105 3 0 0 subtract (N) from (A)
32806 118 4119 1 0 shift logical
32807 113 212 6 0 0 divide uniform radix
32808 102 6 1 0 transfer (A) to N
32809 106 3 0 0 select (N) SET (MR2) = START OF LAST CHAP +
32810 103 4 0 0 copy (A) to N 2 * (NO OF CHAPS INITIALLY -1)/START OF
32811 105 212 6 0 0 subtract (N) from (A)
32812 102 5 0 0 transfer (A) to N
32813 106 4 0 2 select (N)
32814 104 4 0 2 add (N) to (A)
32815 107 5 0 0 augment (N) by (A)
32816 104 210 8 0 0 add (N) to (A) SET (MR3) = 0/NO OF CHAPS INITIALLY +
32828>32817 104 20 0 2 add (N) to (A) POSN OF RTE IN LIST + 1 + START OF CTH
32818 107 6 0 0 augment (N) by (A)
32819 106 0 0 3 select (N) TEST CORRECT RTE NO
32820 105 188 2 0 0 subtract (N) from (A)
32821 127 328 24 0 0 jump A = Z >YES
32822 101 86 1 3 select literal address SELECT CODE LETTER 'F'
32823 124 208 3 1 0 unconditional jump >XXX COMMENT
32821>32824 106 221 2 0 0 select (N) SUBSTITUTE NEW RTE NO
32825 102 0 0 3 transfer (A) to N
32826 105 20 0 2 subtract (N) from (A) SUBTRACT START OF CTH CHAP
32827 125 2 0 2 step on and test TEST ALL CHAPTERS
32828 124 328 17 1 0 unconditional jump >NO AMENDED
32829 126 328 2 0 1 leave subroutine >LEAVE S/R
32900 PROCR 329 329 READ
32901 NOTES RADIX B
32902 100 0 0 0 Halt LINK
32903 124 188 2 0 1 modify address of next READ
32904 119 0 0 1 input one block/reset timer
32905 126 329 2 0 1 leave subroutine > LEAVE S/R
33000 PROCR 330 330 WRITE
33001 NOTES RADIX B
33002 100 0 0 0 Halt LINK
33003 124 188 2 0 1 modify address of next WRITE
33004 119 0 0 0 output
33005 126 330 2 0 1 leave subroutine >LEAVE S/R
33100 PROCR 331 331 STEP BLOCK COUNTER BY-1
33102 100 0 0 0 Halt
33103 100 210 3 0 3 set radix SET DECIMAL
33104 101 1 1 2 subtract literal address
33105 126 333 2 0 0 enter subroutine >STEP COUNTER
33106 126 331 2 0 1 leave subroutine >LEAVE S/R
33200 PROCR 332 332 TEST OMIT CATEGORY
33202 100 0 0 0 Halt *5:Ю
33203 102 221 2 0 0 transfer (A) to N STORE CATEGORY NO
33204 100 210 8 0 2 replace (B) by (N) ALIGN ON
33205 124 221 2 0 1 modify address of next CATEGORY SETTING
33206 118 0 1 3 shift binary
33207 115 508 20 0 0 collate and add COLLATE CATEGORY
33208 126 332 2 0 1 leave subroutine >LEAVE S/R
33300 PROCR 333 333 STEP BLOCK COUNTER BY (A)
33301 NOTES RADIX B
33302 100 0 0 0 Halt LINK
33303 100 210 3 0 3 set radix SET DECIMAL
33304 124 188 2 0 1 modify address of next RTE. NO.
33305 107 190 2 0 0 augment (N) by (A) M/T FILE DETAILS BLOCK COUNTER
33306 100 212 2 0 3 set radix SET BINARY
Source image: P1010170.JPG
33307 126 333 2 0 1 leave subroutine > LEAVE S/R
33400 PROCR 334 334 STEP REEL COUNTER BY 1
33401 NOTES RADIX B
33402 100 0 0 0 Halt LINK
33403 106 210 8 0 0 select (N)
33404 100 210 3 0 3 set radix
33405 124 188 2 0 1 modify address of next
33406 107 190 34 0 0 augment (N) by (A)
33407 100 212 2 0 3 set radix
33408 126 334 2 0 1 leave subroutine >LEAVE S/R
33500 PROCR 335 335 OFFER OPTIONS
33501 NOTES RADIX B
41523>
44233>
31314>
29422>
27933>33502 124 3 0 1 modify address of next EDIT INTO SPECIAL CHAP
33503 128 130 1 2 edit fixed field formats
29004>33504 126 176 2 0 0 enter subroutine >REQUEST T/W FOR OPTIONS
33505 106 258 14 1 0 select (N) SELECT TABLE ENTRY
33506 104 3 0 0 add (N) to (A)
33507 128 102 4 1 1 bulk copy long numeric BULKCOPY TO T/W ANNEXE
33508 101 263 2 1 3 select literal address SET UP LOCN BEFORE 1ST OPTION
33509 102 43 0 1 transfer (A) to N
33510 106 2 0 0 select (N) SET (913/2)=SI+0
33511 102 222 4 0 0 transfer (A) to N
33512 106 210 6 0 0 select (N) SET 15 IN Q5 OF (SI+38)
33513 102 38 0 1 transfer (A) to N
33514 124 181 2 1 0 unconditional jump >OUTPUT COMMENT
33600 PROCR 336 336 OUTPUT COMMENT
33601 NOTES RADIX B
37010>
43212>
45127>
28212>33602 124 3 0 1 modify address of next SET UP COMMENT IN SPCHAPTER
33603 128 130 1 2 edit fixed field formats
41442>
42673>33604 126 177 2 0 0 enter subroutine >REQUEST T/W
33605 106 258 14 1 0 select (N) SELECT TABLE ENTRY
33606 104 3 0 0 add (N) to (A)
33607 128 102 4 1 1 bulk copy long numeric BULK COPY TO T/W ANNEXE
33608 124 3 0 1 modify address of next
33609 106 176 0 0 select (N) SET SWITCH S101
33610 102 336 11 0 0 transfer (A) to N
33611 100 0 0 0 Halt SWITCH S 101
33612 124 181 2 1 0 unconditional jump >OUTPUT COMMENT
33700 PROCR 337 337 NB PREVIOUS ORDER IS'SWITCH 101',EITHER'25/1/0 0'IF'ZZZ'COMMENT
33701 NOTES OR'26/0/0'TO'SET SI=1'OR'SET SI=5'
33800 PROCR 338 338 SET SI=1
33801 NOTES RADIX B
33802 100 0 0 0 Halt LINK
33803 106 209 4 0 0 select (N)
33804 105 30 0 1 subtract (N) from (A)
33805 102 7 0 1 transfer (A) to N *163
33806 126 338 2 0 1 leave subroutine >LEAVE S/R
33900 PROCR 339 339 SET (MR3)=(3)
33901 NOTES RADIX B
33902 100 0 0 0 Halt LINK
33903 106 3 0 0 select (N)
33904 102 6 1 0 transfer (A) to N
Source image: P1010171.JPG
33905 126 339 2 0 1 leave subroutine >LEAVE S/R
34000 PROCR 340 340 SET(MR3)=R
34001 NOTES RADIX B
34002 100 0 0 0 Halt LINK
34003 106 188 2 0 0 select (N)
34004 102 6 1 0 transfer (A) to N
34005 126 340 2 0 1 leave subroutine >LEAVE S/R
34100 PROCR 341 341 SET (MR3)=(64+R)
34101 NOTES RADIX B
34102 100 0 0 0 Halt LINK
34103 124 188 2 0 1 modify address of next
34104 106 64 0 0 select (N)
34105 102 6 1 0 transfer (A) to N
34106 126 341 2 0 1 leave subroutine >LEAVE S/R
34200 PROCR 342 342 SET(64+R)FOR HIGH DENSITY
34202 100 0 0 0 Halt *01Ю
34203 126 188 2 1 2 set modification register SET(MR2)=R
34204 100 210 8 0 2 replace (B) by (N) SET(B)
34205 106 191 64 0 2 select (N)
34206 114 64 0 2 replace selected bits
34207 126 342 2 0 1 leave subroutine >LEAVE S/R
34300 PROCR 343 343 CLEAR BIT 1 OF ASL IF HIGH DENSITY
34302 100 0 0 0 Halt *01Ю
34303 125 0 1 2 interrogate indicators
34304 100 210 8 0 2 replace (B) by (N) SET(B)=1
34305 124 188 2 0 1 modify address of next
34306 114 64 0 0 replace selected bits CLEAR BIT 1
34307 126 343 2 0 1 leave subroutine
34400 PROCR 344 344 SUBROUTINE WW
34402 100 0 0 0 Halt *42Ю
34403 125 0 1 2 interrogate indicators
34404 100 220 3 0 2 replace (B) by (N)
34405 115 188 2 0 0 collate and add
34406 102 109 2 0 0 transfer (A) to N *16Ю53Ю0ЮЮ
34407 106 188 2 0 0 select (N)
34408 118 1 0 3 shift binary
34409 118 4127 0 0 shift logical
34410 101 3 1 2 subtract literal address
34411 127 344 16 0 0 jump A = Z >YES
34412 106 109 2 0 0 select (N)
34413 118 2 0 3 shift binary SET W/L=4R+88
34414 101 88 1 1 add literal address *0Ю+53+3:+ 00056
34415 124 344 18 1 0 unconditional jump
34411>34416 106 109 2 0 0 select (N) *16Ю53Ю0ЮЮ
34417 118 3 0 3 shift binary SET W/L=8R
34415>34418 102 109 2 0 0 transfer (A) to N
34419 126 344 2 0 1 leave subroutine
34500 PROCR 345 345 EDIT TIME SET UP RTE NO
34501 NOTES RADIX
34502 100 0 0 0 Halt LINK
34503 126 346 2 0 0 enter subroutine >EDIT TIME
34504 100 210 12 0 3 set radix SET (C)=66668
34505 101 213 28 1 3 select literal address SELECT TABLE START LOCN
34506 112 30 0 1 convert CONVERT RTE NUMBER
34507 100 212 2 0 3 set radix RESET(C)BINARY
34508 102 258 7 0 0 transfer (A) to N
34509 126 345 2 0 1 leave subroutine >LEAVE S/R
34600 PROCR 346 346 EDIT TIME R/S IF REQ INTO SP CHPT
34601 NOTES RADIX B
Source image: P1010172.JPG
34602 100 0 0 0 Halt LINK
34603 101 217 36 1 1 add literal address
34604 124 3 0 1 modify address of next
34605 128 128 1 2 edit fixed field formats
34606 126 346 2 0 1 leave subroutine >LEAVE S/R
34607 103 0 0 0 copy (A) to N *££0*££2*2£‼
34608 126 212 2 1 3 set modification register *4:3
34609 126 385 2 0 0 enter subroutine *163
34610 126 351 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
34611 125 0 1 2 interrogate indicators *3:3*4£3
34612 127 367 31 0 0 jump A = Z *16‼
34700 PROCR 347 347 SET ASSOC TIME=CURRENT TIME+3 MIN
34701 NOTES 0
34702 100 0 0 0 Halt *46Ю
34703 100 210 9 0 3 set radix *31Ю SET(C)=66Ю6.6
34704 106 347 2 0 0 select (N) *6£Ю
34705 101 270 5 1 2 subtract literal address
34706 127 347 9 0 1 jump A != Z
34707 106 45 0 1 select (N)
34708 127 347 14 0 0 jump A = Z *6£Ю
34706>34709 106 156 0 0 select (N) SELECT CURRENT TIME
34710 104 212 11 0 0 add (N) to (A) ADD 48(=3MIN)
34711 102 45 0 1 transfer (A) to N SET ASSOC TIME
34712 100 212 2 0 3 set radix RESET (C) BINARY
34713 126 347 2 0 1 leave subroutine LEAVE S/R
34708>34714 106 156 0 0 select (N) *6£Ю
34715 101 2 1 1 add literal address
34716 102 45 0 1 transfer (A) to N
34717 100 212 2 0 3 set radix SET BINARY
34718 124 127 11 1 0 unconditional jump *31Ю*6£Ю
34719 106 156 0 0 select (N) *312
34720 104 347 23 0 0 add (N) to (A) ADD 3 MIN
34721 102 45 0 1 transfer (A) to N
34722 126 347 2 0 1 leave subroutine
34723 100 3808 0 1 Invalid *2£‼ CONSTANT
34800 PROCR 348 348 CLEAR RTE TYPE AND D/B INDICATOR
34801 NOTES RADIX B
34802 100 0 0 0 Halt LINK
34803 125 0 1 2 interrogate indicators
34804 102 188 3 0 0 transfer (A) to N CLEAR RTE TYPE
34805 124 3 0 1 modify address of next
34806 102 160 0 0 transfer (A) to N
34807 126 348 2 0 1 leave subroutine >LEAVE S/R
34900 PROCR 349 349 UPDATE USE OF ASSEMBLER TABLE
34901 NOTES RADIX B
34902 100 0 0 0 Halt LINK
34903 125 0 1 2 interrogate indicators DRAIN
34904 100 210 10 0 2 replace (B) by (N) SET (B)=56
34905 115 188 2 0 0 collate and add SET(MR3)=8*CH.NO
34906 102 6 0 0 transfer (A) to N
34907 106 188 2 1 0 select (N) UPDATE TABLE
34908 102 252 2 1 3 transfer (A) to N
34909 126 349 2 0 1 leave subroutine >LEAVE S/R
35000 PROCR 350 350 TEST RTE DEALING WITH D/B
35001 NOTES RADIX B TIMINGS ON
35002 100 0 0 0 Halt LINK
35003 106 350 2 0 0 select (N) SELECT LINK
35004 124 351 5 1 0 unconditional jump
35100 PROCR 351 351 TEST ROUTE NOTING D/B
35101 NOTES RADIX B TIMINGS ON
35102 100 0 0 0 Halt LINK
Source image: P1010173.JPG
35103 126 348 2 0 0 enter subroutine >CLEAR RTE TYPE AND D/B INDICATOR
35104 106 351 2 0 0 select (N) SELECT LINK
35004>
28925>35105 101 267 2 1 2 subtract literal address SET UP PSEUDO ROUTE TYPE IN SI
35106 104 209 12 0 0 add (N) to (A)
36559>
37606>
42141>
30331>35107 102 31 0 1 transfer (A) to N
35108 126 349 2 0 0 enter subroutine > UPDATE ASSEMBLER TABLE
35109 102 45 0 1 transfer (A) to N SET ASSOC. TIME=0
35110 124 264 30 1 0 unconditional jump > SET SI=1, TEST RTE
35200 PROCR 352 352 TEST RTE NOTING D/B
35201 NOTES RADIX B TIMINGS OFF
35202 100 0 0 0 Halt *09Ю06Ю
35203 126 348 2 0 0 enter subroutine >CLEAR RTE TYPE AND D/B INDICATOR
35204 106 352 2 0 0 select (N) SELECT LINK
35205 101 267 2 1 2 subtract literal address SET UP PSEUDO ROUTE TYPE
35206 104 209 12 0 0 add (N) to (A) IN SI+31
35207 102 31 0 1 transfer (A) to N
35208 126 349 2 0 0 enter subroutine UPDATE ASSEMBLER TABLE
35209 102 45 0 1 transfer (A) to N SET ASS TIME=0
35210 126 338 2 0 0 enter subroutine >SET SI=1
35211 124 264 35 1 0 unconditional jump >SI+7
35300 PROCR 353 353 SELECT RTE NOS FROM LAST CHAPTER
35301 NOTES RADIX B
35302 100 0 0 0 Halt *11Ю13Ю17Ю18Ю
35303 126 354 2 0 0 enter subroutine >SET (MR3)=START OF LC+2*NO OF FILES/STA
45012>
52972>
32709>35304 125 0 1 2 interrogate indicators COLLATE RTE NO FROM LIST
35305 101 3 0 1 prepare for digit collation
35306 115 34 0 3 collate and add
35307 105 188 2 0 0 subtract (N) from (A)
35308 126 353 2 0 1 leave subroutine > LEAVE S/R
35400 PROCR 354 354 SET (MR3)=START OF LC+2*NO OF FILES/START OF LC SUBROUTINE
35402 100 0 0 0 Halt
35403 106 3 0 0 select (N)
35404 103 6 0 0 copy (A) to N
35405 104 5 0 3 add (N) to (A)
35406 104 5 0 3 add (N) to (A)
35407 102 7 0 0 transfer (A) to N
35408 126 354 2 0 1 leave subroutine
35500 PROCR 355 355 STEP FORWARD
35501 NOTES RADIX B
35502 100 0 0 0 Halt LINK
35503 124 188 2 0 1 modify address of next STEP FORWARD
35504 119 0 1 3 step on/set manual
35505 126 355 2 0 1 leave subroutine > LEAVE S/R
35600 PROCR 356 356 SET UP PROGRAMME NUMBER
35601 NOTES RADIX B
35602 100 0 0 0 Halt LINK
35603 106 39 0 1 select (N)
35604 102 258 6 0 0 transfer (A) to N
35605 126 356 2 0 1 leave subroutine > LEAVE S/R
35700 PROCR 357 357 COUNT 500 MILLISECS
35701 NOTES RADIX B
35702 100 0 0 0 Halt LINK
35703 106 487 2 0 0 select (N) *5.Ю*3+Ю*092*062
35704 127 357 28 0 1 jump A != Z *3Ю1
Source image: P1010174.JPG
35705 127 357 29 0 1 jump A != Z *3Ю9
35706 126 339 2 0 0 enter subroutine SET(MR3)=(3)
35707 106 357 2 0 0 select (N) STORE LINK
35708 102 190 0 3 transfer (A) to N
35709 106 157 0 0 select (N)
35710 102 191 0 3 transfer (A) to N
35721>35711 124 357 13 0 2 select literal and division FOR SI=5 LINK
35712 124 462 9 1 0 unconditional jump
35713 100 210 3 0 3 set radix DECIMAL
35714 106 157 0 0 select (N)
35715 124 3 0 1 modify address of next
35716 105 191 0 0 subtract (N) from (A)
35717 127 357 19 0 2 jump A >= Z
35718 104 209 12 0 0 add (N) to (A) 10,000
35717>35719 101 384 1 2 subtract literal address
35720 100 212 2 0 3 set radix BIN
35721 127 357 11 0 3 jump A < Z >NOT TIME YET
35722 126 359 2 0 0 enter subroutine >SET SI=4,RESTORE LINK FOR SI=3
35723 106 30 1 1 select (N) RESTORE RT. TYPE
35724 102 188 2 1 0 transfer (A) to N
35725 126 351 2 0 0 enter subroutine TEST ROUTE NOTING D/B
35726 124 3 0 1 modify address of next
35727 126 190 0 1 leave subroutine *5.Ю*3+Ю*092*062
35704>35728 106 357 33 0 0 select (N) *3Ю1
35705>35729 101 2143 1 3 select literal address *3Ю9*2‼4*2+4*2:4 00000028390485402000
35731>35730 101 1 1 2 subtract literal address
35731 127 357 30 0 1 jump A != Z
35732 126 357 2 0 1 leave subroutine
35733 100 6192 0 3 set radix *3Ю1
35800 PROCR 358 358 STEP COUNTER C
35801 NOTES RADIX B
35802 100 0 0 0 Halt LINK
35803 124 3 0 1 modify address of next STEP COUNTER C
35804 106 167 0 0 select (N)
35805 104 210 8 0 0 add (N) to (A)
35806 124 3 0 1 modify address of next
35807 103 167 0 0 copy (A) to N
35808 101 6 1 2 subtract literal address
35809 126 358 2 0 1 leave subroutine > LEAVE S/R
35900 PROCR 359 359 SET SI=4, RESTORE LINK FOR SI=3
35901 NOTES RADIX B
35902 100 0 0 0 Halt LINK
35903 124 270 2 0 2 select literal and division *464 00004
35904 102 42 0 1 transfer (A) to N
35905 106 35 0 1 select (N) SET SI=4
35906 102 7 0 1 transfer (A) to N *163
35907 126 359 2 0 1 leave subroutine >LEAVE S/R
36000 PROCR 360 360 SET SI=5
36001 NOTES RADIX B
36002 100 0 0 0 Halt LINK
36003 106 35 0 1 select (N)
36004 104 212 6 0 0 add (N) to (A)
36005 102 7 0 1 transfer (A) to N *163
36006 126 360 2 0 1 leave subroutine > LEAVE S/R
36100 PROCR 361 361 SET UP PART OF ALARM & DB/COMMENT
36101 NOTES RADIX B
36102 100 0 0 0 Halt LINK
36103 126 345 2 0 0 enter subroutine >EDIT TIME, SET UP RTE NO
36104 126 356 2 0 0 enter subroutine >SET UP PROG NO
36105 124 188 2 0 1 modify address of next SET UP EXPECTED BLOCK NO
36106 106 190 2 0 0 select (N)
36107 102 258 8 0 0 transfer (A) to N
Source image: P1010175.JPG
36108 126 361 2 0 1 leave subroutine > LEAVE S/R
36200 PROCR 362 362 SET ROUTE TO MANUAL OR UNLOAD
36201 NOTES RADIX B
36202 100 0 0 0 Halt LINK
36203 101 267 2 1 2 subtract literal address SET PSEUDO RTE TYPE
36204 102 31 0 1 transfer (A) to N
36205 106 211 3 0 0 select (N)
36206 102 188 3 0 0 transfer (A) to N UPDATE ASSEMBLER TABLE
36207 126 349 2 0 0 enter subroutine >CLEAR ASSEMBLER TABLE
36208 124 188 2 0 1 modify address of next SET RTE TO MANUAL ORUNLOAD
36209 119 0 1 2 unload
36210 126 347 2 0 0 enter subroutine *469 SET PROG TIME 3 MINS AHEAD OF CLOCK
36211 106 270 17 0 0 select (N)
36212 124 3 0 1 modify address of next SET SETTING FOR S101
36213 102 176 0 0 transfer (A) to N TO TEST ROUTE
36214 101 4 1 3 select literal address
36215 126 345 2 0 0 enter subroutine >EDIT TIME, SET UP RTE. NO.
36216 126 356 2 0 0 enter subroutine >SET UP PROG NO
36217 126 362 2 0 1 leave subroutine >LEAVE S/R
36300 PROCR 363 363 SET LINK FOR SI=5 & SETTING FOR S101
36301 NOTES RADIX B
36302 100 0 0 0 Halt LINK
36303 102 42 0 1 transfer (A) to N SET LINK FOR SI=5
36304 106 176 21 0 0 select (N)
36305 124 3 0 1 modify address of next SET SETTING FOR S101
36306 102 176 0 0 transfer (A) to N
36307 126 363 2 0 1 leave subroutine > LEAVE S/R
36400 PROCR 364 364 *07 OPEN PAPER TAPE INPUT FILE
36401 NOTES RADIX B
26717>36402 106 210 8 0 0 select (N) *02Ю SET REEL CNTR=1
36403 124 188 2 0 1 modify address of next
36404 102 252 66 0 0 transfer (A) to N *53+0Ю+3:+*53+3:+ 0005000058
36405 126 367 2 0 0 enter subroutine >READ, TEST SENTINEL
36406 126 368 2 0 0 enter subroutine >TEST REEL NO
36407 127 370 2 0 1 jump A != Z >HDG COMMENT TEST REEL CNTR=Ю
36408 126 369 2 0 0 enter subroutine > TEST CORRECT FILE
36409 127 370 2 0 1 jump A != Z >HDG COMMENT LETTER & SUITE NO
36410 106 3 1 3 select (N) STORE PROG NO
36411 124 188 2 0 1 modify address of next
36412 102 252 50 0 0 transfer (A) to N *53+3:+ 00042
36413 106 5 0 3 select (N) STORE FILE ID
36414 124 188 2 0 1 modify address of next
36415 102 252 54 0 0 transfer (A) to N *53+3:+ 00046
36416 101 3 0 1 prepare for digit collation STORE REEL NO
36417 115 5 1 3 collate and add
36418 124 188 2 0 1 modify address of next
36419 102 252 66 0 0 transfer (A) to N *53+0Ю+3:+*53+3:+ 0005000058
36420 126 377 2 0 0 enter subroutine *429 STORE FIRST TWO WORD
36421 101 5 1 3 select literal address *02Ю SELECT RTE TYPE
36608>36422 102 188 3 0 0 transfer (A) to N *02Ю04Ю
36423 124 3 0 1 modify address of next
36424 102 168 0 0 transfer (A) to N CLEAR(168)
36425 126 329 2 0 0 enter subroutine > READ
36426 124 269 3 1 0 unconditional jump >UPDATE ASSEMBLER TABLE
36500 PROCR 365 365 UNLOAD:OPEN PAPER TAPE I/P REEL
36501 NOTES RADIX B
37329>36502 101 365 35 1 3 select literal address *02Ю
36503 126 362 2 0 0 enter subroutine >UNLOAD ETC
36504 126 325 2 0 0 enter subroutine *189 >ALTERNATE ROUTES
36505 106 215 16 1 0 select (N) SET UP'NEW'
36506 102 258 4 1 0 transfer (A) to N
36507 101 4 1 3 select literal address
Source image: P1010176.JPG
36508 126 345 2 0 0 enter subroutine >EDIT TIME, SET UP RTE NO
36509 126 340 2 0 0 enter subroutine >SET (MR3)=R
36510 106 252 54 0 3 select (N) *53+3:+ FILE ID 00046
36511 118 1 0 0 shift logical
36512 101 49 1 1 add literal address
36513 118 4 0 0 shift logical
36514 102 258 10 1 0 transfer (A) to N
36515 106 252 66 0 3 select (N) *53+0Ю+3:+*53+3:+ 0005000058 RL CTR=Ю?
36516 101 10 1 2 subtract literal address
36517 127 365 33 0 0 jump A = Z >YES
36518 106 252 66 0 3 select (N) *53+0Ю+3:+*53+3:+ 0005000058 RL CTR=99
36519 100 210 3 0 3 set radix
36520 101 153 1 2 subtract literal address
36521 127 365 31 0 0 jump A = Z >YES
36522 101 154 1 1 add literal address STEP REEL COUNTER
36532>36523 100 212 2 0 3 set radix
36524 103 252 66 0 3 copy (A) to N *53+0Ю+3:+*53+3:+ 0005000058
36525 102 258 19 1 0 transfer (A) to N SET UP REEL NO
36526 106 258 18 1 0 select (N)
36534>36527 107 258 10 1 0 augment (N) by (A)
36528 106 252 50 0 3 select (N) *53+3:+ 00042
36529 102 258 8 0 0 transfer (A) to N
36530 124 432 11 1 0 unconditional jump >OUTPUT COMMENT
36521>36531 106 210 8 0 0 select (N) SET REEL CNTR=-1
36532 124 365 23 1 0 unconditional jump >
36517>36533 101 4112 1 3 select literal address SET-? FOR COMMENT
36534 124 365 27 1 0 unconditional jump >
36535 126 367 2 0 0 enter subroutine >READ, TEST SENTINEL
36536 126 368 2 0 0 enter subroutine >TEST REEL NO
36537 127 371 2 0 1 jump A != Z >HDG COMMENT TEST REEL CNTR=Ю
36538 115 5 1 3 collate and add STORE REEL NO
36539 124 188 2 0 1 modify address of next
36540 102 252 66 0 0 transfer (A) to N *53+0Ю+3:+*53+3:+ 0005000058
36541 106 3 1 3 select (N) TEST CORRECT PROG NO
36542 124 188 2 0 1 modify address of next
36543 105 252 50 0 0 subtract (N) from (A) *53+3:+ 00042
36544 127 371 2 0 1 jump A != Z >HDG COMMENT
36545 106 5 0 3 select (N) TEST CORRECT FILE ID
36546 124 188 2 0 1 modify address of next
36547 105 252 54 0 0 subtract (N) from (A) *53+3:+ 00046
36548 127 371 2 0 1 jump A != Z >HDG COMMENT
36549 124 3 0 1 modify address of next
36550 102 168 0 0 transfer (A) to N CLEAR(168)
36551 106 365 60 0 0 select (N) CLEAR FIRST
36552 118 5 0 0 shift logical EIGHT LOCATIONS
36553 124 188 2 0 1 modify address of next
36554 124 64 1 2 modify address of next
36555 128 0 0 0 bulk copy short numeric
36556 126 329 2 0 0 enter subroutine >READ
36557 101 5 1 3 select literal address SET UP RTE TYPE
36558 103 188 3 0 0 copy (A) to N
36559 124 351 7 1 0 unconditional jump > TEST RTE, DEALING WITH D/B
36560 102 8 0 0 transfer (A) to N
36600 PROCR 366 366 OPEN CARD INPUT FILE
36601 NOTES RADIX B
26718>36602 126 367 2 0 0 enter subroutine *04Ю READ,TEST SENTINEL
36603 126 369 2 0 0 enter subroutine > TEST FILE LETTER &
36604 127 370 2 0 1 jump A != Z >HDG COMMENT SUITE NO
36605 106 210 15 0 0 select (N) *669
36606 126 377 2 0 0 enter subroutine *429 STORE FIRST 2 WORDS
36607 101 6 1 3 select literal address SELECT RTE TYPE
36608 124 364 22 1 0 unconditional jump >
36700 PROCR 367 367 READ, TEST ROUTE, TEST SENTINEL
36701 NOTES RADIX B
Source image: P1010177.JPG
36702 100 0 0 0 Halt LINK
36703 106 367 2 0 0 select (N)
36704 124 3 0 1 modify address of next
36705 102 168 0 0 transfer (A) to N
36706 126 329 2 0 0 enter subroutine >READ
36707 124 3 0 1 modify address of next *04Ю*02Ю
36708 106 168 0 0 select (N)
36709 101 366 3 1 2 subtract literal address
36710 127 367 30 0 0 jump A = Z *02Ю*04Ю*16‼
36711 101 5 1 3 select literal address *02+ 00006
36732>36712 102 188 3 0 0 transfer (A) to N
36713 126 351 2 0 0 enter subroutine TEST ROUTE NOTING D/B
36714 124 3 0 1 modify address of next TEST D/B
36715 106 160 0 0 select (N) OCCURRED
36716 127 367 20 0 0 jump A = Z >NO
36717 126 419 2 0 0 enter subroutine >SET UP HDG
36718 106 214 42 0 0 select (N) SET UP D/B
36719 124 370 6 1 0 unconditional jump >
36716>36720 126 341 2 0 0 enter subroutine >SET (MR3)=(64+R)
36721 106 0 1 3 select (N)
36722 105 211 12 1 0 subtract (N) from (A) TEST SENTINEL BLOCK
36723 127 372 2 0 1 jump A != Z >NO, 'SNT?' COMMENT
36724 101 4 0 1 prepare for digit collation TEST SENTINEL
36725 115 5 1 3 collate and add TYPE 1
36726 101 256 1 2 subtract literal address
36727 127 372 2 0 1 jump A != Z >NO, 'SNT?' COMMENT
36728 124 3 0 1 modify address of next
36729 126 168 0 1 leave subroutine >LEAVE S/R
36710>36730 126 384 2 0 0 enter subroutine *169 TEST UPTIME
34612>36731 101 6 1 3 select literal address SELECT RT
36732 124 367 12 1 0 unconditional jump >TEST RTE
36800 PROCR 368 368 TEST REEL NUMBER
36801 NOTES RADIX B
36802 100 0 0 0 Halt *02Ю LINK
36803 101 3 0 1 prepare for digit collation TEST REEL NO=Ю
36804 115 5 1 3 collate and add
36805 105 213 14 0 0 subtract (N) from (A)
36806 127 368 11 0 0 jump A = Z >YES
36807 104 213 14 0 0 add (N) to (A) TEST CORRECT REEL NO
36808 124 188 2 0 1 modify address of next
36809 105 252 66 0 0 subtract (N) from (A) *53+0Ю+3:+*53+3:+ 0005000058
36810 127 368 13 0 1 jump A != Z >NO
36806>36811 124 368 2 0 1 modify address of next LEAVE S/R BY LINK+1
36812 124 1 1 0 unconditional jump >
36810>36813 124 188 2 0 1 modify address of next TEST REEL CNTR=Ю
36814 106 252 66 0 0 select (N) *53+0Ю+3:+*53+3:+ 0005000058
36815 105 213 14 0 0 subtract (N) from (A)
36816 126 368 2 0 1 leave subroutine > LEAVE S/R
36900 PROCR 369 369 TEST FILE LETTER & SUITE NUMBER
36901 NOTES RADIX B
36902 100 0 0 0 Halt LINK
36903 101 768 0 1 prepare for digit collation COLLATE FILE LETTER
36904 115 4 1 3 collate and add
36905 101 28 0 1 prepare for digit collation COLLATE SUITE NO.
36906 115 3 1 3 collate and add
36907 102 258 4 1 0 transfer (A) to N NEGATE (A)
36908 115 33 0 1 collate and add
36909 118 6 0 0 shift logical
36910 115 32 0 1 collate and add
36911 105 258 4 1 0 subtract (N) from (A)
36912 126 369 2 0 1 leave subroutine > LEAVE S/R
37000 PROCR 370 370 HDG COMMENT OPEN P/T I/P FILE
37001 NOTES RADIX B
36604>
36409>
Source image: P1010178.JPG
36407>37002 126 419 2 0 0 enter subroutine >SET UP HDG
37003 101 12 0 1 prepare for digit collation SET UP FILE LETTER
37004 115 33 0 1 collate and add
37005 118 6 0 0 shift logical
37204>
41445>
36719>37006 102 258 8 1 0 transfer (A) to N
30261>37007 102 258 11 1 0 transfer (A) to N
28114>37008 102 258 12 1 0 transfer (A) to N CLEAR COL 5
37009 124 261 30 0 2 select literal and division
37010 124 336 2 1 0 unconditional jump >OUTPUT COMMENT
37100 PROCR 371 371 HDG COMMENT:OPEN P/T INPUT REEL
37101 NOTES RADIX B
36548>
36544>
36537>37102 126 419 2 0 0 enter subroutine *02Ю >SET UP HDG
37103 124 282 11 1 0 unconditional jump >OUTPUT COMMENT
37200 PROCR 372 372 HDG COMMENT:NO SENTINEL
37201 NOTES RADIX B
36727>
36723>37202 126 419 2 0 0 enter subroutine >SET UP HDG
37203 106 258 24 1 0 select (N) SET UP SNT?
37204 124 370 6 1 0 unconditional jump >OUTPUT COMMENT
37300 PROCR 373 373 PAPER TAPE INPUT
37301 NOTES RADIX
26707>37302 102 373 12 0 0 transfer (A) to N *02Ю*4£1*3:1
37303 125 0 1 2 interrogate indicators *6693:94£9
37304 126 377 2 0 0 enter subroutine *429 STORE FIRST 2 WORDS
37305 126 341 2 0 0 enter subroutine *422
37306 106 0 1 3 select (N) *422
37307 105 211 16 1 0 subtract (N) from (A) TEST F8M
37308 127 263 20 0 0 jump A = Z >YES
37309 105 211 14 1 0 subtract (N) from (A) SUBT SENTINEL MINUS FAULTY BLOCK WORD
37310 127 373 26 0 0 jump A = Z >YES TEST SENTINEL BLOCK
37311 126 430 2 0 0 enter subroutine *3:94£9 IAA
37312 100 0 0 0 Halt *4£1*3:1
37313 125 0 1 2 interrogate indicators CLEAR 2ND WORD
37314 124 188 2 0 1 modify address of next OF ANNEXE
37315 124 64 0 1 modify address of next
37316 102 2 1 0 transfer (A) to N
37317 106 33 0 1 select (N) *83Ю
37318 101 1 1 2 subtract literal address
37319 127 373 23 0 1 jump A != Z >NOT 8-HOLE
37320 124 188 2 0 1 modify address of next
37321 119 0 1 1 rewind READ
37322 124 268 8 1 0 unconditional jump *83Ю >UPDATE ASS TABLE
37319>37323 124 188 2 0 1 modify address of next READ
37324 119 0 0 1 input one block/reset timer
37325 124 268 8 1 0 unconditional jump >UPDATE ASSEMBLER TABLE
37310>37326 101 4 0 1 prepare for digit collation SET(B)=0.0.£.0.0
37327 115 5 1 3 collate and add COLLATE SENTINEL TYPE IN Q3
37328 101 512 1 2 subtract literal address SUBTRACT 2 IN Q3 TEST SENTINEL TYPE 2
37329 127 365 2 0 0 jump A = Z >OPEN NEXT I/P TAPE
37400 PROCR 374 374 SET UP SENTINEL:INPUT
37512>37402 106 188 3 0 0 select (N) STORE RTE TYPE
37403 124 3 0 1 modify address of next
37404 102 157 0 0 transfer (A) to N
37405 106 258 24 1 0 select (N) SET UP SNT
37406 102 258 4 1 0 transfer (A) to N
37407 101 376 2 1 3 select literal address
Source image: P1010179.JPG
37408 124 282 10 1 0 unconditional jump >OUTPUT
37500 PROCR 375 375 CARD INPUT
37501 NOTES RADIX B
26708>37502 102 375 15 0 0 transfer (A) to N *04Ю*3:3*4£3
37503 126 382 2 0 0 enter subroutine *16Ю TEST W/E IND
37504 127 381 12 0 0 jump A = Z *859 >EXTRA READ
37505 127 381 18 0 0 jump A = Z *16Ю*851 >EXTRA READ
38129>37506 106 210 15 0 0 select (N) *669
37835>37507 126 377 2 0 0 enter subroutine *429 STORE FIRST 2 WORDS
37834>37508 126 341 2 0 0 enter subroutine *422 SET(MR3)=(644R)
37509 106 0 1 3 select (N) *422
37510 127 375 13 0 3 jump A < Z >YES TEST 1ST WORD NEG
37511 105 211 12 1 0 subtract (N) from (A) SUBT SENTINEL WORD TEST SENTINEL BLOCK
37512 127 374 2 0 0 jump A = Z >YES
37510>37513 125 0 1 0 set indicators
37514 126 430 2 0 0 enter subroutine *3:94£9 1AA SIR
37515 100 0 0 0 Halt *4£1*3:1
37516 126 382 2 0 0 enter subroutine *16Ю TEST WIE IND
37517 127 268 9 0 0 jump A = Z *16Ю >PROGM
37518 124 188 2 0 1 modify address of next READ
37519 119 0 0 1 input one block/reset timer
37520 124 268 8 1 0 unconditional jump >
37600 PROCR 376 376 READ AFTER SENTINEL TYPE 3
37601 NOTES RADIX B
37602 126 329 2 0 0 enter subroutine >READ
37603 124 3 0 1 modify address of next
37604 106 157 0 0 select (N)
37605 103 188 3 0 0 copy (A) to N
37606 124 351 7 1 0 unconditional jump >TEST RTE,DEALING WITH D/B
37700 PROCR 377 377 STORE FIRST TWO WORDS S/R
37702 100 0 0 0 Halt *42Ю
37703 102 369 2 0 0 transfer (A) to N *669
37704 126 341 2 0 0 enter subroutine SET(MR3)=(64+R)
37705 126 344 2 0 0 enter subroutine >S/R WW
37706 124 369 2 0 1 modify address of next *669
37707 106 2 1 3 select (N)
37708 124 109 2 0 1 modify address of next
37709 102 252 8 1 0 transfer (A) to N STORE SECOND WORD
37710 124 369 2 0 1 modify address of next *669
37711 106 0 1 3 select (N)
37712 124 109 2 0 1 modify address of next
37713 103 252 6 1 0 copy (A) to N STORE FIRST WORD
37714 106 0 1 3 select (N) *669
37715 126 377 2 0 1 leave subroutine
37800 PROCR 378 378 POCKET-SELECT UPTIME CARD READER
26751>37802 126 378 12 0 0 enter subroutine *16Ю >STACK
37803 124 268 9 1 0 unconditional jump >PROGM
37804 126 378 6 0 0 enter subroutine
37805 124 268 9 1 0 unconditional jump >PROGM
37806 100 0 0 0 Halt
37807 106 33 0 1 select (N) TEST LINK Q6-9
37808 127 263 19 0 0 jump A = Z >MISSING,ZZZ02 COMMENT
37809 101 15 0 1 prepare for digit collation PACK IN 44 OF SWITCH
37810 114 44 0 1 replace selected bits
37811 126 378 6 0 1 leave subroutine
37812 100 0 0 0 Halt
37813 106 32 0 1 select (N)
37814 127 378 17 0 0 jump A = Z >POCKET 2.
37815 106 440 9 0 0 select (N) 19/0/2 INSTRUCTION REJECT
37816 124 378 18 1 0 unconditional jump
37814>37817 106 330 4 0 0 select (N) 19/0/0 INSTRUCTION ACCEPT
37816>37818 102 378 23 0 0 transfer (A) to N
Source image: P1010180.JPG
37819 106 188 2 0 0 select (N) PACK IN ROUTE NO
37820 101 7 0 1 prepare for digit collation PACKING CONST Q1-3
37821 114 378 23 0 0 replace selected bits 19/ / ORDER
37822 114 378 24 0 0 replace selected bits 26/1/0 ORDER
37823 119 0 0 0 output POCKET SELECT
37824 126 0 1 0 test route N1 TEST ROUTE
37825 100 1 0 0 Halt CLOSED
37826 100 2 0 0 Halt ENGAGED
37827 100 3 0 0 Halt DOUBTFUL
37828 124 378 30 1 0 unconditional jump >STATUS 4
37829 126 378 12 0 1 leave subroutine >AVAILABLE
37828>37830 124 378 12 0 1 modify address of next
37831 124 1 1 0 unconditional jump *16Ю >S/R+1
37832 124 379 34 1 0 unconditional jump *££0*££2*85‼
37833 124 380 25 1 0 unconditional jump *85‼85‼
37834 124 375 8 1 0 unconditional jump *66‼42‼
37835 124 375 7 1 0 unconditional jump *66‼
37836 124 390 4 1 0 unconditional jump *3:‼4£‼
37837 105 221 38 0 0 subtract (N) from (A) *85Ю85‼
37900 PROCR 379 379 CLOSE UPTIME ROUTE
37902 100 0 0 0 Halt *16Ю
37903 124 221 38 0 1 modify address of next *852*0:Ю
37904 106 45 0 0 select (N) HAS BEEN PAUSED
37905 127 379 8 0 2 jump A >= Z >NO
37906 124 379 2 0 1 modify address of next YES LEAVE S/R+2
37907 124 2 1 0 unconditional jump *852*0:Ю
37905>37908 106 2 1 0 select (N) STORE 2,3
37909 102 221 36 1 0 transfer (A) to N
37933>37910 124 221 35 0 1 modify address of next *859
37911 106 221 38 0 0 select (N) SELECT START OF SWITCH
37912 127 379 31 0 0 jump A = Z *859
37913 105 221 36 0 0 subtract (N) from (A) TEST O'LAY PROGM
37914 127 379 27 0 0 jump A = Z *859 >YES
37915 127 244 13 0 0 jump A = Z *851 >YES
37920>37916 124 221 35 0 1 modify address of next *859
37921>37917 124 221 39 0 1 modify address of next
37918 126 0 1 0 test route N1 TEST ROUTE
37919 124 379 27 1 0 unconditional jump *85‼ CLOSED
37920 124 379 16 1 0 unconditional jump *859 ENGAGED
37921 124 379 17 1 0 unconditional jump *851 ENGAGED
37922 124 379 24 1 0 unconditional jump DOUBTFUL
37923 124 379 27 1 0 unconditional jump *85‼ W/E
37922>37924 124 221 35 0 1 modify address of next CLOSE ROUTE
37925 124 221 39 0 1 modify address of next
37926 119 0 1 3 step on/set manual
37923>
37919>
37914>37927 101 2 1 3 select literal address *85Ю
37928 104 221 35 0 0 add (N) to (A) ALL UPTIME PROGS DONE?
37929 105 221 34 0 0 subtract (N) from (A)
37930 127 379 34 0 2 jump A >= Z >YES
37912>37931 101 2 1 3 select literal address
37932 107 221 35 0 0 augment (N) by (A) STEP MODIFIER
37933 124 379 10 1 0 unconditional jump *85Ю
37930>
37832>37934 106 221 43 0 0 select (N) BEEN THOUGH SIR BEFORE?
37935 127 379 52 0 1 jump A != Z >YES
37936 126 212 8 1 3 set modification register SET UP MR3 TO STORE 7'S
37949>37937 106 6 0 0 select (N)
37938 101 111 2 1 1 add literal address
37939 126 386 2 0 0 enter subroutine *85Ю85‼ UPTIME?
37940 127 379 46 0 0 jump A = Z >YES
37941 106 111 9 0 3 select (N)
37942 124 221 42 0 1 modify address of next
37943 102 221 44 0 0 transfer (A) to N
Source image: P1010181.JPG
37944 106 111 11 0 3 select (N)
37945 102 111 9 0 3 transfer (A) to N
37940>37946 101 1 1 3 select literal address
37947 107 221 42 0 0 augment (N) by (A) STEP MODIFIER
37948 125 48 0 3 step on and test
37949 124 379 37 1 0 unconditional jump >NEXT SWITCH
37950 106 380 23 0 0 select (N) MAKE RC W/E GO TO END
37951 102 381 3 0 0 transfer (A) to N
37935>37952 106 380 17 0 0 select (N) CORRUPT 160
37953 102 264 31 0 0 transfer (A) to N
37954 106 177 10 0 0 select (N) STOP COMMENTS
37955 102 177 9 0 0 transfer (A) to N
37956 102 221 35 0 0 transfer (A) to N CLEAR COUNTER
37957 102 221 42 0 0 transfer (A) to N CLEAR 7'S MODIFIER
12714>37958 106 104 4 0 0 select (N) SET L6=2 UNSET REQUEST
37959 102 103 27 0 0 transfer (A) to N TYPEWRITER
37960 106 221 43 0 0 select (N) AUGMENT NO TIMES
37961 101 1 1 1 add literal address
37962 103 221 43 0 0 copy (A) to N BEEN THROUGH S/R
37963 101 3 1 2 subtract literal address
37964 126 379 2 0 1 leave subroutine
38000 PROCR 380 380 SET EVERYTHING BACK AFTER ALLOC OR O'LAY WITH UPTIME
38002 100 0 0 0 Halt *16Ю
38003 106 223 2 0 0 select (N) *09Ю062*06Ю09Ю TEST TIMINGS ON
38004 127 380 7 0 0 jump A = Z *09Ю062 >NO
38005 106 333 3 0 0 select (N) YES
38006 124 380 8 1 0 unconditional jump *06Ю09Ю*09Ю062
38004>38007 106 264 28 0 0 select (N) *09Ю062 SET BACK 160
38006>38008 102 264 31 0 0 transfer (A) to N
38009 106 380 27 0 0 select (N) REPLACE RC LINK
38010 102 381 3 0 0 transfer (A) to N
38011 106 221 36 1 0 select (N) REPLACE 2,3
38012 102 2 1 0 transfer (A) to N
38013 106 379 59 0 0 select (N) ALLOW COMMENTS
38014 102 177 9 0 0 transfer (A) to N
38015 102 221 43 0 0 transfer (A) to N
38016 124 380 28 1 0 unconditional jump
38017 124 380 18 1 0 unconditional jump
38017>38018 106 2 0 0 select (N)
38019 126 386 2 0 0 enter subroutine *85Ю85‼ UPTIME?
38020 127 127 11 0 1 jump A != Z >NO PRIORITY QUEUE
38021 124 2 0 1 modify address of next
38022 124 7 1 0 unconditional jump >CONTINUE
38023 124 380 24 1 0 unconditional jump *85‼85‼
38023>38024 127 381 4 0 1 jump A != Z *859 >NOT COMPLETED YET
37833>38025 127 381 9 0 1 jump A != Z *851
38026 124 127 11 1 0 unconditional jump >PRIORITY QUEUE
38027 127 300 13 0 0 jump A = Z
38016>38028 126 212 8 1 3 set modification register
38046>38029 124 221 42 0 1 modify address of next
38030 106 221 44 0 0 select (N)
38031 127 380 42 0 1 jump A != Z >NOT UPTIME
38032 101 1 1 2 subtract literal address SET IND
38033 102 221 43 0 0 transfer (A) to N
38034 106 112 17 0 3 select (N) *85Ю*0:Ю TEST ALREADY CLOSED
38035 127 380 39 0 2 jump A >= Z >NO
38036 125 0 1 2 interrogate indicators
38037 105 112 17 0 3 subtract (N) from (A) SET SWITCH SETTING POSITIVE
38038 124 380 40 1 0 unconditional jump *85Ю*0:Ю
38035>38039 106 111 9 0 3 select (N) STORE SWITCH SETTING
38038>38040 102 112 17 0 3 transfer (A) to N
38041 106 111 11 0 3 select (N) CLOSE PROGRAM
38031>38042 102 111 9 0 3 transfer (A) to N RESTORE 7'S
38043 101 1 1 3 select literal address
38044 107 221 42 0 0 augment (N) by (A)
Source image: P1010182.JPG
38045 125 48 0 3 step on and test
38046 124 380 29 1 0 unconditional jump >NEXT SWITCH
38047 125 0 1 2 interrogate indicators
38048 102 221 42 0 0 transfer (A) to N
38049 102 221 44 1 0 transfer (A) to N CLEAR STORED
38050 102 221 46 1 0 transfer (A) to N SWITCHES
38051 102 221 48 1 0 transfer (A) to N
38052 102 221 50 1 0 transfer (A) to N
38053 126 380 2 0 1 leave subroutine
38100 PROCR 381 381 MANUAL UPTIME S/R
30011>38102 126 382 2 0 0 enter subroutine *16Ю TEST W/E INDICATOR
38103 127 300 13 0 0 jump A = Z >RC ROUTINE
38024>38104 106 381 23 0 0 select (N) *85Ю
38105 127 381 9 0 0 jump A = Z
38106 106 30 0 1 select (N)
38107 102 381 24 0 0 transfer (A) to N
38108 124 381 25 1 0 unconditional jump *85Ю
38105>
38025>38109 106 30 0 1 select (N)
38110 102 381 23 0 0 transfer (A) to N
38111 124 381 25 1 0 unconditional jump
37504>38112 106 30 0 1 select (N) *85Ю
38113 105 381 23 0 0 subtract (N) from (A)
38114 127 381 18 0 0 jump A = Z
38115 125 0 1 2 interrogate indicators
38116 102 381 24 0 0 transfer (A) to N
38117 124 381 19 1 0 unconditional jump *85Ю
38114>
37505>38118 102 381 23 0 0 transfer (A) to N
38117>38119 126 338 2 0 0 enter subroutine SET SI=1
38120 126 329 2 0 0 enter subroutine EXTRA READ
38121 126 349 2 0 0 enter subroutine >UPDATE ASS.TABLE
38122 124 127 11 1 0 unconditional jump
38123 100 0 0 0 Halt INDICATORS
38124 100 0 0 0 Halt *859
38111>
38108>38125 106 30 1 1 select (N)
38126 102 188 2 1 0 transfer (A) to N STORE RT,RT TYPE
38127 106 35 0 1 select (N) CLOSE SWITCH
38128 102 7 0 1 transfer (A) to N
38129 124 375 6 1 0 unconditional jump *66‼42‼*66‼
38200 PROCR 382 382 TEST UPTIME INDICATOR
38202 100 0 0 0 Halt *16Ю
38203 106 30 0 1 select (N) TEST 1ST INDICATOR
38204 105 381 23 0 0 subtract (N) from (A)
38205 127 382 8 0 0 jump A = Z *85Ю
38206 106 30 0 1 select (N) TEST 2ND INDICATOR
38207 105 381 24 0 0 subtract (N) from (A) *85Ю
38205>38208 126 382 2 0 1 leave subroutine
38300 PROCR 383 383 CLOSE P/T & DECIMAL CARD INPUT FILE
38301 NOTES RADIX B
26728>
26727>38302 106 109 6 1 0 select (N) *1ЮЮ SET UP'EDG'
38303 102 258 4 1 0 transfer (A) to N
38304 126 384 2 0 0 enter subroutine *169 TEST PTIME
38305 126 362 2 0 0 enter subroutine >SET ROUTE TO MANUAL, ETC.
38306 124 383 21 0 2 select literal and division
38307 126 363 2 0 0 enter subroutine >SET LINK FOR SI=5,SETTING OF S101
38308 126 341 2 0 0 enter subroutine >SET (MR3)=(64+R)
38309 106 0 1 3 select (N) TEST SENTINEL BLOCK
38310 105 211 12 1 0 subtract (N) from (A)
38311 127 282 11 0 1 jump A != Z *5:1 >NO,EDG COMMENT
38312 127 383 18 0 1 jump A != Z *5:9
Source image: P1010183.JPG
38313 101 4 0 1 prepare for digit collation
38314 115 5 1 3 collate and add
38315 101 768 1 2 subtract literal address
38316 127 282 11 0 1 jump A != Z *5:1 NO,EDG COMMENT
38317 127 383 21 0 0 jump A = Z *5:Ю >YES,TYPE 3
38312>38318 101 4 1 3 select literal address OMIT EDG?
38319 126 332 2 0 0 enter subroutine
38320 127 282 11 0 0 jump A = Z *5:Ю >MAKE COMMENT
38317>38321 126 359 2 0 0 enter subroutine >SET SI=4, RESTORE LINK FOR SI=3
38322 124 268 9 1 0 unconditional jump >RESET MOD GROUP
38400 PROCR 384 384 OPEN & CLOSE CARD FILES FOR UPTIME
38402 100 0 0 0 Halt *16Ю LINK
38403 106 188 2 0 0 select (N) ROUTE NUMBER
38404 105 100 33 0 0 subtract (N) from (A) MIN CD RTE * ASSUMES UPTIME RTE SMALLER
38405 127 384 42 0 2 jump A >= Z >NO
38406 106 188 3 0 0 select (N) *1ЮЮ
38407 101 16 1 2 subtract literal address TEST OPEN
38408 127 384 13 0 0 jump A = Z >YES
38409 124 3 0 1 modify address of next
38410 106 174 0 0 select (N)
38411 101 16 1 2 subtract literal address
38412 127 384 29 0 1 jump A != Z *1ЮЮ >NO
38408>38413 106 2 0 0 select (N)
38414 126 386 2 0 0 enter subroutine *85Ю85‼ TEST PROG
38415 127 384 29 0 0 jump A = Z ALREADY OPENED FILE >NO
38416 101 2 1 3 select literal address
38417 107 221 34 0 0 augment (N) by (A)
38418 106 221 38 0 0 select (N) *85Ю
38419 127 384 21 0 0 jump A = Z >1ST LOCS FREE
38420 101 2 1 3 select literal address
38419>38421 102 378 12 0 0 transfer (A) to N *85Ю
38422 106 2 0 0 select (N)
38423 124 378 12 0 1 modify address of next *859
38424 102 221 38 0 0 transfer (A) to N
38425 106 188 2 0 0 select (N) SELECT RT
38426 124 378 12 0 1 modify address of next *859
38427 102 221 39 0 0 transfer (A) to N
38428 102 378 12 0 0 transfer (A) to N *859
38415>
38412>38429 106 188 2 0 0 select (N) PACK IN RTE NO
38430 101 7 0 1 prepare for digit collation
38431 114 384 38 0 0 replace selected bits 19/0/0 INSTRUCTION
38432 114 384 33 0 0 replace selected bits 26/1/0 INSTRUCTION
38434>
38435>38433 126 0 1 0 test route N1 TEST RTE
38434 124 384 33 1 0 unconditional jump >CLOSED
38435 124 384 33 1 0 unconditional jump >ENGAGED
38436 124 384 38 1 0 unconditional jump >DOUBTFUL
38437 124 384 43 1 0 unconditional jump >STATUS 4
38436>38438 119 0 0 0 output >SELECT POCKET 2
38439 125 0 1 2 interrogate indicators
38440 102 381 23 0 0 transfer (A) to N CLEAR MANUAL INDICATORS
38441 102 381 24 0 0 transfer (A) to N *859
38405>38442 126 384 2 0 1 leave subroutine >AVAILABLE
38437>38443 124 2 0 1 modify address of next
38444 124 18 1 0 unconditional jump >RC ROUTINE
38500 PROCR 385 385 SET UP SI+45 IF UPTIME STOPPED OTHERWISE SI+7
38502 100 0 0 0 Halt *16Ю
38503 102 221 2 0 0 transfer (A) to N STORE SWITCH SETTING
38504 106 221 43 0 0 select (N) TEST UPTIME STOPPED
38505 127 385 9 0 2 jump A >= Z >NO
38506 106 2 0 0 select (N)
38507 126 386 2 0 0 enter subroutine *85Ю85‼
38508 127 385 12 0 0 jump A = Z >YES
Source image: P1010184.JPG
38505>38509 106 221 2 0 0 select (N)
38510 102 7 0 1 transfer (A) to N SET UP SI+7
38511 126 385 2 0 1 leave subroutine >LEAVE S/R
38508>38512 106 221 2 0 0 select (N)
38513 102 45 0 1 transfer (A) to N SET UP SI+45
38514 126 385 2 0 1 leave subroutine >LEAVE S/R
38600 PROCR 386 386 TEST UPTIME
38602 100 0 0 0 Halt *16Ю*85Ю
38603 105 221 38 0 0 subtract (N) from (A)
38604 127 386 7 0 0 jump A = Z
38605 104 221 38 0 0 add (N) to (A)
38606 105 221 40 0 0 subtract (N) from (A)
38604>38607 126 386 2 0 1 leave subroutine
38700 PROCR 387 387 OPEN CARD OUTPUT FILE
38701 NOTES RADIX B
26715>38702 125 0 1 2 interrogate indicators *05Ю
38703 126 392 2 0 0 enter subroutine *259 >S/R LC
38704 124 256 0 2 select literal and division
38705 126 393 2 0 0 enter subroutine >SET UP SENTINEL
38706 124 269 2 1 0 unconditional jump >UPDATE ASSEMBLER TABLE
38800 PROCR 388 388 CARD OUTPUT
26705>38802 102 390 4 0 0 transfer (A) to N *05Ю*3:1*4£1
38803 126 392 2 0 0 enter subroutine *259 >S/R LC
38804 124 390 3 1 0 unconditional jump *3:‼4£‼
38900 PROCR 389 389 NHKG OUTPUT
26760>38902 102 389 3 0 0 transfer (A) to N *82Ю*3:2*4£2
38903 100 0 0 0 Halt *3:2*4£2
38904 126 430 2 0 0 enter subroutine *3:94£9 IAA S/R 37303
38905 126 330 2 0 0 enter subroutine O/P
38906 124 399 4 1 0 unconditional jump
39000 PROCR 390 390 PRINTER OUTPUT
39001 NOTES RADIX B
26759>
26711>
26706>39002 102 390 4 0 0 transfer (A) to N *3:1*4£1
38804>39003 126 430 2 0 0 enter subroutine *3:94£9 1AA SIR
37836>39004 100 0 0 0 Halt *3:1*4£1
39005 126 330 2 0 0 enter subroutine
39006 106 30 0 1 select (N) *54Ю44Ю
39007 105 33 0 1 subtract (N) from (A) TEST SINGLE ANNEX
39008 127 268 8 0 1 jump A != Z >NO UPDATE ASS TABLE
39009 126 350 2 0 0 enter subroutine >TEST ROUTE DEALING WITH W/E OR D/B
39010 124 268 9 1 0 unconditional jump *54Ю44Ю >PROGRAM
39011 124 268 8 1 0 unconditional jump *541*441 >UPDATE USE OF ASS TABLE
39100 PROCR 391 391 CLOSE CARD OUTPUT FILE
39101 NOTES RADIX B
26725>39102 125 0 1 2 interrogate indicators *05Ю
39103 126 392 2 0 0 enter subroutine *259 >S/R LC
39104 124 768 0 2 select literal and division
39105 126 393 2 0 0 enter subroutine >SET UP SENTINEL
39106 102 188 3 0 0 transfer (A) to N
26762>39107 126 350 2 0 0 enter subroutine >TEST RTE DEALING WITH D/B
39108 124 268 2 1 0 unconditional jump >SET ROUTE TO MANUAL
39200 PROCR 392 392 SUBROUTINE LC
39202 100 0 0 0 Halt *25Ю*05Ю
39203 124 188 2 0 1 modify address of next TEST LIB CARD
39204 106 64 0 0 select (N) BEING PROCESSED
39205 118 4124 0 0 shift logical ON THIS ROUTE
39206 101 13 1 2 subtract literal address
Source image: P1010185.JPG
39207 127 392 9 0 0 jump A = Z >YES
39208 126 392 2 0 1 leave subroutine >NO
39207>39209 126 338 2 0 0 enter subroutine >SET SI=1
39210 124 176 22 1 0 unconditional jump >SI+9
39211 124 428 24 1 0 unconditional jump AVOID PUNCHING LIB CARDS IN STORE DUMP.
39212 124 2 0 1 modify address of next PUNCH LIB CARDS OUT OF STORE DUMP.
39300 PROCR 393 393 SET UP SENTINEL
39301 NOTES RADIX B
39302 100 0 0 0 Halt *05Ю
39303 104 214 10 0 0 add (N) to (A) B/E
39304 118 2 0 0 shift logical
39305 102 260 8 1 0 transfer (A) to N
39306 106 33 0 1 select (N) FILE ID
39307 118 1 0 0 shift logical
39308 107 260 9 0 0 augment (N) by (A)
39309 106 211 12 1 0 select (N) SENTINEL WORD
39310 102 260 4 1 0 transfer (A) to N
39311 106 32 0 1 select (N) PROGRAM IDENTITY
39312 102 260 7 1 0 transfer (A) to N
39313 102 260 2 1 0 transfer (A) to N CLEAR FUNCTION WORD
39314 124 260 2 0 2 select literal and division
39315 124 188 2 0 1 modify address of next EDIT
39316 124 64 0 1 modify address of next
39317 129 0 0 0 edit for hollerith output
39318 126 330 2 0 0 enter subroutine >WRITE
39319 124 3 0 2 select literal and division
39320 126 393 2 0 1 leave subroutine >LEAVE S/R
39400 PROCR 394 394 OPEN AUTOLECTOR FILE
26722>39402 126 329 2 0 0 enter subroutine *30Ю >READ
39403 101 10 1 3 select literal address SELECT RTE TYPE
39404 124 269 2 1 0 unconditional jump >UPDATE ASSR TABLE
39500 PROCR 395 395 AUTOLECTOR INPUT
26712>39502 102 395 4 0 0 transfer (A) to N *30Ю*3:1*4£1
39503 126 430 2 0 0 enter subroutine *3:94£9 1AA SIR
39504 100 0 0 0 Halt *3:1*4£1
39505 124 188 2 0 1 modify address of next
39506 119 0 0 1 input one block/reset timer READ
39507 124 268 8 1 0 unconditional jump >
39600 PROCR 396 396 OPEN FILE-CHEQUE READER
26754>39602 106 33 0 1 select (N) *49Ю SET UP ASL
39603 101 15 0 1 prepare for digit collation
39604 124 188 2 0 1 modify address of next
39605 114 64 0 0 replace selected bits
39606 106 211 3 0 0 select (N) CLEAR ASSR TABLE
39607 124 269 2 1 0 unconditional jump *49Ю >UPDATE ASSR TABLE
39700 PROCR 397 397 INPUT-CHEQUE READER
26752>39702 106 32 0 1 select (N) *49Ю READ
39703 124 2 0 1 modify address of next SET ASL ODD
39704 100 32 0 2 replace (B) by (N) OR EVEN ACCORDING
39705 124 188 2 0 1 modify address of next TO LITERAL OF
39706 114 64 0 0 replace selected bits INTERCODE ACTION
39707 124 188 2 0 1 modify address of next
39708 119 0 0 1 input one block/reset timer
39709 125 0 1 2 interrogate indicators CLEAR ASL OF
39710 124 188 2 0 1 modify address of next ROUTE
39711 114 64 0 0 replace selected bits
39712 126 350 2 0 0 enter subroutine >TEST RTE DEALING WITH D/B
39713 106 209 13 0 0 select (N) SET(9) 26/0/18
39714 102 9 0 0 transfer (A) to N *49Ю
39805>
28411>39715 106 211 3 0 0 select (N) *49Ю56Ю30Ю81Ю82Ю82Ю
Source image: P1010186.JPG
39716 102 188 3 0 0 transfer (A) to N
39717 124 268 8 1 0 unconditional jump
39800 PROCR 398 398 POCKET SELECT-CHEQUE READER
26753>39802 124 188 2 0 1 modify address of next *49Ю
39803 119 0 0 0 output
39804 126 350 2 0 0 enter subroutine >TEST RTE DEALING WITH D/B
39805 124 397 15 1 0 unconditional jump >
39900 PROCR 399 399 READ DATA TRANSMISSION
26756>39902 124 188 2 0 1 modify address of next *56Ю82Ю
39903 119 0 0 1 input one block/reset timer
38906>39904 106 211 3 0 0 select (N) *82Ю
39905 102 188 3 0 0 transfer (A) to N UPDATE ASS TABLE
39906 126 349 2 0 0 enter subroutine
39910>39907 124 188 2 0 1 modify address of next TEST ROUTE
39908 126 0 1 0 test route N1
39909 124 399 13 1 0 unconditional jump CLOSED
39910 124 399 7 1 0 unconditional jump ENGAGED
39911 124 399 19 1 0 unconditional jump D/B
39912 124 399 13 1 0 unconditional jump W/E
39921>
39912>
39909>39913 126 357 2 0 0 enter subroutine AVAILABLE 300 SECS
39914 106 399 22 0 0 select (N)
39915 127 399 24 0 0 jump A = Z >NO D/B
39916 101 0 1 3 select literal address
39917 102 399 22 0 0 transfer (A) to N
39918 124 284 2 1 0 unconditional jump >EXIT VIA D/B LINK
39911>39919 101 1 1 3 select literal address SET D/B MARKER
39920 102 399 22 0 0 transfer (A) to N
39921 124 399 13 1 0 unconditional jump
39922 100 0 0 0 Halt *82Ю
39923 126 350 2 0 0 enter subroutine *821 TEST ROUTE DEALING WITH D/B
39915>39924 106 211 3 0 0 select (N) CLEAR ASSR TABLE
39925 102 188 3 0 0 transfer (A) to N
39926 124 268 9 1 0 unconditional jump
40000 PROCR 400 400 OPEN FILE DATA TRANSMISSION
26755>40002 106 33 0 1 select (N) *56Ю82Ю
40003 101 15 0 1 prepare for digit collation TX
40004 124 188 2 0 1 modify address of next
40005 114 64 0 0 replace selected bits
40006 106 211 3 0 0 select (N)
40007 124 269 2 1 0 unconditional jump
40100 PROCR 401 401 OPEN PAPER TAPE FILE
26713>40102 126 339 2 0 0 enter subroutine *03Ю
40103 106 188 3 0 0 select (N) *28Ю TEST NON STANDARD
40104 118 4124 0 0 shift logical
40105 127 269 4 0 1 jump A != Z *28Ю >YES 31202
40106 106 33 0 1 select (N) STORE FILE IDENTITY
40107 102 195 0 3 transfer (A) to N
40108 124 65 0 2 select literal and division SET REEL COUNTER=1
40109 102 196 0 3 transfer (A) to N
40110 126 407 2 0 0 enter subroutine >SET UP SENTINEL BLOCK
40111 124 188 2 0 1 modify address of next STORE ASL
40112 106 64 0 0 select (N)
40113 103 192 0 3 copy (A) to N
40114 102 194 0 3 transfer (A) to N
40115 126 403 2 0 0 enter subroutine >OUTPUT BLOCK
40116 124 269 4 1 0 unconditional jump >PROGM
40200 PROCR 402 402 TEST BLOCK END-TYPING ON PT ASSEMBLER AND NON-STD PT O/P THEREON
40202 100 0 0 0 Halt *29274Ю
40203 106 212 14 1 0 select (N) SET UP INDIRECT MOD REGISTER
Source image: P1010187.JPG
40204 102 260 14 1 0 transfer (A) to N
40205 100 260 16 1 2 replace (B) by (N)
40217>40206 115 154 1 0 collate and add COLLATE WORD TO BE OUTPUT
40207 102 260 22 1 0 transfer (A) to N W/L
40208 115 260 24 1 0 collate and add TEST WORD CONTAINS BLOCK END CHARACTER
40209 105 260 22 1 0 subtract (N) from (A)
40210 127 402 20 0 0 jump A = Z >YES
18286>40211 123 2 0 0 step on and test STEP INDIRECT MOD REGISTER
40212 100 260 14 0 0 Halt
40213 124 402 15 1 0 unconditional jump >
40214 124 402 18 1 0 unconditional jump >
40213>40215 125 0 1 2 interrogate indicators
40216 118 4126 1 0 shift logical
40217 124 402 6 1 0 unconditional jump >TEST NEXT CHARACTER
40214>40218 123 1 0 0 step on and test STEP LINK
40219 100 402 2 0 0 Halt
40210>40220 126 402 2 0 1 leave subroutine >LEAVE S/R
40300 PROCR 403 403 PAPER TAPE OUTPUT BLOCK S/R
40302 100 0 0 0 Halt *03Ю LINK
40303 106 403 2 0 0 select (N) STORE LINK IN SPECIAL CHAPTER
40304 124 3 0 1 modify address of next
40305 102 156 0 0 transfer (A) to N
27769>40306 126 339 2 0 0 enter subroutine >SET(MR3)=(3)
40307 100 210 10 0 2 replace (B) by (N) *73Ю*74Ю
40308 115 188 2 0 0 collate and add TEST CHANNEL 6
40309 101 48 1 2 subtract literal address
40310 127 403 46 0 0 jump A = Z *73Ю*74Ю >YES P/T O/P ASS
40311 124 3 0 3 modify address of next *73Ю GP ASSEMBLER
40312 124 190 0 2 select literal and division LOCATION IN SPECIAL
40313 124 188 2 0 1 modify address of next CHAPTER
40314 102 64 0 0 transfer (A) to N
40338>40315 101 8 1 3 select literal address SET UP MODIFIER
40335>40316 102 193 0 3 transfer (A) to N
40317 101 63 1 3 select literal address FORM COLLATION
40318 124 3 0 3 modify address of next CONSTANT IN
40319 124 193 0 3 modify address of next CORRECT POSITION
40320 118 0 0 0 shift logical
40321 118 4118 1 0 shift logical
40322 124 3 0 3 modify address of next COLLATE NEXT
40323 124 192 0 3 modify address of next CHARACTER
40324 115 0 1 0 collate and add
40326>40325 118 4126 1 0 shift logical ALIGN CHARACTER
40326 127 403 25 0 1 jump A != Z TO CORRECT
40327 118 2 1 0 shift logical POSITION
40328 118 8 0 0 shift logical
40329 103 190 1 3 copy (A) to N STORE WORD
40330 105 260 26 1 0 subtract (N) from (A) TEST B/E
40331 127 403 39 0 0 jump A = Z >YES
40332 126 404 2 0 0 enter subroutine >O/P S/R
40333 106 193 0 3 select (N) TEST END OF WORD
40334 101 2 1 2 subtract literal address
40335 127 403 16 0 2 jump A >= Z >NO
40336 101 2 1 3 select literal address STEP WORD MODIFIER
40337 107 192 0 3 augment (N) by (A)
40338 124 403 15 1 0 unconditional jump >NEXT WORD
40331>40339 106 188 0 3 select (N) TEST NON STANDARD
40340 127 403 42 0 1 jump A != Z >YES
40341 126 404 2 0 0 enter subroutine >O/P S/R
40340>40342 106 194 0 3 select (N) RESET(64+R)
40343 124 188 2 0 3 modify address of next
40344 102 64 0 0 transfer (A) to N *73Ю
40345 124 403 66 1 0 unconditional jump *739*749
40355>
40310>40346 124 3 0 3 modify address of next *74Ю P/T ASSEMBLER
40347 124 192 0 3 modify address of next BE OUTPUT ASSEMBLER
Source image: P1010188.JPG
40348 106 0 1 0 select (N)
40349 102 154 1 0 transfer (A) to N
40350 126 402 2 0 0 enter subroutine >TEST FOR B/E
40351 124 403 56 1 0 unconditional jump >B/E FOUND
40352 126 404 2 0 0 enter subroutine >O/P S/R
40353 101 2 1 3 select literal address STEP INDIRECT
40354 107 192 0 3 augment (N) by (A) WORD MODIFIER
40355 124 403 46 1 0 unconditional jump >NEXT WORD
40351>40356 101 8 1 3 select literal address
40357 105 260 14 0 0 subtract (N) from (A)
40358 102 260 13 0 0 transfer (A) to N
40359 106 154 1 0 select (N) CLEAR CHARACTERS AFTER B/E
40360 124 260 14 0 1 modify address of next
40361 118 4120 0 0 shift logical
40362 124 260 13 0 1 modify address of next
40363 118 0 0 0 shift logical
40364 102 154 1 0 transfer (A) to N
40365 126 404 2 0 0 enter subroutine *74Ю
40345>40366 124 3 0 1 modify address of next
40367 126 156 0 1 leave subroutine >LEAVE S/R
40400 PROCR 404 404 PAPER TAPE OUTPUT S/R
40402 100 0 0 0 Halt *03Ю LINK
40403 106 404 2 0 0 select (N)
40404 102 183 0 3 transfer (A) to N
40405 124 188 2 0 1 modify address of next O/P WORD
40406 119 0 0 0 output
40407 101 1 1 3 select literal address
40408 102 188 3 0 0 transfer (A) to N
40409 126 350 2 0 0 enter subroutine >TEST RTE DEALING WITH D/B
40410 126 339 2 0 0 enter subroutine >SET (MR3)=(3)
40411 124 3 0 3 modify address of next
40412 126 183 0 1 leave subroutine
40500 PROCR 405 405 PAPER TAPE OUTPUT END ROUTINE
26703>40502 102 405 4 0 0 transfer (A) to N *03Ю*3:1*4£1
40503 126 430 2 0 0 enter subroutine *3:94£9 1AA SIR
40504 100 0 0 0 Halt *3:1*4£1
40505 126 339 2 0 0 enter subroutine >SET(MR3)=(3)
40506 124 188 2 0 1 modify address of next STORE ASL
40507 106 64 0 0 select (N)
40508 103 192 0 3 copy (A) to N
40509 102 194 0 3 transfer (A) to N
40510 106 188 3 0 0 select (N) *28Ю TEST IF NON-STAND
40511 118 4124 0 0 shift logical
40512 127 405 14 0 0 jump A = Z >NO
40513 102 188 0 3 transfer (A) to N *28Ю NON STAND P/T
40512>40514 126 403 2 0 0 enter subroutine >OUTPUT BLOCK S/R
40515 106 157 0 3 select (N) TEST W/E OCCURED
40516 127 268 9 0 2 jump A >= Z >NO,RETURN TO PROGM
40600 PROCR 406 406 PAPER TAPE OUTPUT-CHANGE REEL
40602 126 339 2 0 0 enter subroutine *03Ю SET(MR3)=(3)
40603 106 194 0 3 select (N) RESET(64+R)
40604 102 192 0 3 transfer (A) to N
40605 106 188 0 3 select (N) *28Ю TEST IF NON STAND
40606 127 406 13 0 0 jump A = Z >NO
40607 106 33 0 1 select (N) TEST LINK
40608 127 263 20 0 0 jump A = Z >NO ZZZ COMMENT
40609 104 210 8 0 0 add (N) to (A) AUGMENT LINK TO
40610 101 15 0 1 prepare for digit collation RETURN TO PROGRAMME
40611 114 44 0 1 replace selected bits BY LINK+1
40612 124 406 30 1 0 unconditional jump *28Ю >PROGRAM
40606>40613 126 407 2 0 0 enter subroutine >SET UP SENTINEL BLOCK
40614 106 209 12 0 0 select (N) SET SENTINEL TYPE 2
40615 107 4 1 2 augment (N) by (A)
Source image: P1010189.JPG
40616 126 403 2 0 0 enter subroutine >OUTPUT BLOCK S/R
40617 106 215 16 1 0 select (N) SET UP 'NEW'
40618 102 258 4 1 0 transfer (A) to N
40619 101 406 21 1 3 select literal address
40620 124 282 10 1 0 unconditional jump >OUTPUT COMMENT
40621 126 339 2 0 0 enter subroutine SET(MR3)=(3)
40622 100 210 3 0 3 set radix SET DECIMAL
40623 101 1 1 3 select literal address AUGMENT REEL COUNTER
40624 107 197 1 3 augment (N) by (A)
40625 100 212 2 0 3 set radix SET BINARY
40626 106 194 0 3 select (N) RESET(64+R)
40627 102 192 0 3 transfer (A) to N
40628 126 407 2 0 0 enter subroutine >SET UP SENTINEL BLOCK
40629 126 403 2 0 0 enter subroutine >OUTPUT BLOCK S/R
40612>40630 125 0 1 2 interrogate indicators CLEAR W/E INDICATOR
40631 102 157 0 3 transfer (A) to N
40632 124 268 9 1 0 unconditional jump >RETURN TO PROG
40700 PROCR 407 407 SET UP SENTINEL BLOCK
40702 100 0 0 0 Halt *03Ю LINK
40703 124 188 2 0 3 modify address of next SET(MR2)=64+R
40704 126 64 1 2 set modification register
40705 106 211 12 1 0 select (N) SET UP SENTINEL WORD
40706 102 0 1 2 transfer (A) to N
40707 106 39 0 1 select (N) SET UP PROGM NUMBER
40708 102 3 1 2 transfer (A) to N
40709 106 195 0 3 select (N) SET UP FILE IDENTITY
40710 118 2 0 0 shift logical
40711 101 65 1 1 add literal address SENTINEL TYPE 1
40712 118 4 0 0 shift logical
40713 104 196 0 3 add (N) to (A) REEL NUMBER
40714 102 4 1 2 transfer (A) to N
40715 106 260 18 1 0 select (N) SET UP B/E
40716 102 6 1 2 transfer (A) to N
40717 126 407 2 0 1 leave subroutine *03Ю >LEAVE S/R
40800 PROCR 408 408 CLOSE PAPER TAPE OUTPUT FILE
26723>40802 126 339 2 0 0 enter subroutine *03Ю >SET(MR3)=(3)
40803 106 188 0 3 select (N) *28Ю TEST NON STAND
40804 127 268 2 0 1 jump A != Z *28Ю
40805 126 407 2 0 0 enter subroutine >SET UP SENTINEL BLOCK
40806 106 209 12 0 0 select (N) SET SENTINEL TYPE 3
40807 104 209 12 0 0 add (N) to (A)
40808 107 4 1 2 augment (N) by (A)
40809 124 188 2 0 1 modify address of next STORE ASL
40810 106 64 0 0 select (N)
40811 103 192 0 3 copy (A) to N
40812 102 194 0 3 transfer (A) to N
40813 126 403 2 0 0 enter subroutine >OUTPUT BLOCK S/R
40814 124 268 2 1 0 unconditional jump >SET RTE TO MANUAL
40900 PROCR 409 409 OPEN MAGNETIC TAPE INPUT FILE
40901 NOTES RADIX B
26734>
26719>40902 126 410 2 0 0 enter subroutine >OPEN REEL
40903 126 340 2 0 0 enter subroutine >SET (MR3)=R
40904 101 990 0 1 prepare for digit collation SET UP (AB) FOR RETURN TO PROGRAMME
40905 115 40 0 1 collate and add Q1-4 CURRENT RUN NUMBER
40906 118 4123 1 0 shift logical Q6-9 SOURCE RUN NUMBER
40907 115 191 32 0 3 collate and add Q10 SOURCE FILE NO
40908 118 4123 1 0 shift logical
40909 106 190 98 0 3 select (N)
40910 118 9 1 0 shift logical
42405>40911 124 3 0 1 modify address of next SET (B)=SPOOL NO
40912 100 182 0 2 replace (B) by (N)
40913 124 268 9 1 0 unconditional jump >RESET MOD GROUP 40713
Source image: P1010190.JPG
41000 PROCR 410 410 OPEN MAGNETIC TAPE INPUT REEL
41001 NOTES RADIX B
41002 100 0 0 0 Halt LINK
41003 126 339 2 0 0 enter subroutine >SET (MR3)=(3)
41004 106 410 2 0 0 select (N) STORE LINK
41005 102 168 0 3 transfer (A) to N
41608>41006 124 188 2 0 1 modify address of next SET IND IF FILE HAS BEEN
41007 106 190 34 0 0 select (N) OPENED BEFORE
41008 102 156 0 3 transfer (A) to N
41009 126 307 2 0 0 enter subroutine >RUN FORWARD ETC
41010 126 308 2 0 0 enter subroutine >READ TEST BLOCK
41011 126 339 2 0 0 enter subroutine >SET (MR3)=(3)
41012 106 156 0 3 select (N) TEST FILE BEING OPENED FOR FIRST TIME
41013 127 410 26 0 0 jump A = Z >YES
41014 118 4126 1 0 shift logical
41015 101 15 1 2 subtract literal address (TESTX=£)
41016 127 411 52 0 1 jump A != Z >NO
41017 118 4 1 0 shift logical SETX=Y
41018 101 12 0 1 prepare for digit collation
41019 124 188 2 0 1 modify address of next
41020 114 190 34 0 0 replace selected bits
41021 106 188 2 0 0 select (N)
41022 105 233 26 0 0 subtract (N) from (A)
41023 127 410 29 0 1 jump A != Z
41024 126 341 2 0 0 enter subroutine
41025 124 410 43 1 0 unconditional jump
41013>41026 124 257 0 2 select literal and division SET REEL CTR=1:1
41027 124 188 2 0 1 modify address of next
41028 103 190 34 0 0 copy (A) to N
41023>41029 102 158 0 3 transfer (A) to N SET IND 3
41030 126 341 2 0 0 enter subroutine >SET (MR3)=(64+R)
41031 101 28 0 1 prepare for digit collation *48Ю
41032 115 15 1 3 collate and add
41033 102 258 12 0 0 transfer (A) to N TEST CORRECT
41034 115 32 0 1 collate and add SUITE NUMBER
41035 105 258 12 0 0 subtract (N) from (A)
41036 127 414 2 0 1 jump A != Z *48Ю
41037 101 12 0 1 prepare for digit collation TEST CORRECT FILE
41038 115 6 0 3 collate and add LETTER
41039 102 258 12 0 0 transfer (A) to N
41040 115 33 0 1 collate and add
41041 105 258 12 0 0 subtract (N) from (A)
41042 127 414 2 0 1 jump A != Z >NO, HDG COMMENT
41406>
41025>41043 106 15 1 3 select (N) STORE PROGRAMME NO
41044 103 260 20 0 0 copy (A) to N *719 STORE FOR COMMENT
41045 124 188 2 0 1 modify address of next
41046 102 190 66 0 0 transfer (A) to N
41047 106 6 0 3 select (N) STORE FILE IDENTITY
41048 124 188 2 0 1 modify address of next
41049 102 190 98 0 0 transfer (A) to N
41162>41050 106 9 1 3 select (N) STORE RUN AND RE-RUN NUMBERS
41051 124 188 2 0 1 modify address of next
41052 102 191 32 0 0 transfer (A) to N
41053 101 3 0 1 prepare for digit collation TEST CORRECT REEL
41054 124 188 2 0 1 modify address of next NUMBER
41055 115 190 34 0 0 collate and add
41056 105 11 1 3 subtract (N) from (A)
41057 127 415 2 0 1 jump A != Z >NO, OFFER OPTIONS
41058 127 414 43 0 0 jump A = Z *££0*££2*01‼ >YES REJECT
41059 126 212 2 1 3 set modification register *4:34Ю‼ (MR3)=24:0
41060 126 351 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
41061 127 426 62 0 0 jump A = Z *3£‼71‼ >NO
41062 127 426 60 0 0 jump A = Z *3£‼ >NO
41063 127 411 45 0 0 jump A = Z *01‼01‼
Source image: P1010191.JPG
41064 124 426 35 1 0 unconditional jump *5+‼ >NO
41065 124 324 6 1 0 unconditional jump *17‼ >NEW COMMENT
41066 127 442 21 0 0 jump A = Z *773 >OFFER *4
41100 PROCR 411 411 OPEN MAGNETIC TAPE INPUT REEL(2)
41101 NOTES RADIX B
42823>41102 106 17 1 3 select (N) TEST 90K TAPE
41103 105 210 8 0 0 subtract (N) from (A)
41104 127 411 12 0 1 jump A != Z *01‼ >NO
41105 125 0 1 2 interrogate indicators *72Ю
41106 101 7 0 1 prepare for digit collation
41107 115 30 0 1 collate and add CHANNEL 2?
41108 101 32 1 2 subtract literal address
41109 127 411 12 0 1 jump A != Z *72Ю
41110 106 211 6 0 0 select (N) *01Ю
41111 124 411 13 1 0 unconditional jump
41109>
41104>41112 125 0 1 2 interrogate indicators
41111>41113 124 188 2 0 1 modify address of next SET LOW/HIGH DENSITY
41114 102 191 64 0 0 transfer (A) to N *01Ю
41115 124 3 0 1 modify address of next TEST OPENED FOR
41116 106 165 0 0 select (N) INPUT
41117 101 410 10 1 2 subtract literal address
41118 127 428 29 0 1 jump A != Z >NO
41119 126 339 2 0 0 enter subroutine >SET (MR3)=(3)
41120 106 158 0 3 select (N) TEST IND 3
41121 127 411 44 0 0 jump A = Z *01‼01‼
41122 125 0 1 2 interrogate indicators CLEAR IND 3
41123 102 158 0 3 transfer (A) to N
41124 126 341 2 0 0 enter subroutine >SET (MR3)=(64+R)
41125 126 431 2 0 0 enter subroutine >SET UP COMMENT
41126 106 17 1 3 select (N) *01Ю TEST 90K TAPE
41127 127 411 30 0 0 jump A = Z >NO
41128 106 492 14 1 0 select (N) SET UP HIP
41129 124 411 31 1 0 unconditional jump *01Ю
41127>41130 106 214 52 1 0 select (N) SET UP 'LIP'
41129>41131 102 258 4 1 0 transfer (A) to N
41132 126 339 2 0 0 enter subroutine >SET (MR3) = (3)
41133 106 182 0 3 select (N) SET UP TAPE NO
41134 102 258 10 0 0 transfer (A) to N
41135 106 262 32 1 0 select (N) *71Ю SET UP TABLE
41136 102 262 22 1 0 transfer (A) to N FOR PROG IDENTITY
41137 106 262 30 1 0 select (N) *3£Ю
41138 102 262 28 1 0 transfer (A) to N *71Ю*3£Ю
41139 124 411 41 0 2 select literal and division SELECT LINK
41140 124 426 63 1 0 unconditional jump
41141 126 359 2 0 0 enter subroutine >SET SI=4, RESTORE LINK FOR SI=3
41142 106 30 0 1 select (N) RESTORE ROUTE NO
41143 102 188 2 0 0 transfer (A) to N
41121>41144 126 342 2 0 0 enter subroutine *019
41063>41145 126 308 2 0 0 enter subroutine >READ
41146 126 343 2 0 0 enter subroutine *019
42832>41147 126 339 2 0 0 enter subroutine >SET(MR3)=(3)
41148 106 168 0 3 select (N)
41149 102 410 2 0 0 transfer (A) to N
41150 102 168 0 3 transfer (A) to N CLEAR(168)
41151 126 410 2 0 1 leave subroutine
41016>41152 126 341 2 0 0 enter subroutine >SET (MR3)=(64+R)
41153 126 413 2 0 0 enter subroutine >TEST CORRECT SOURCE BLOCK
41154 126 412 2 0 0 enter subroutine > TEST Y>X
41155 127 411 61 0 2 jump A >= Z >NO
41156 106 190 34 0 3 select (N) SET X=Y
41157 118 2 0 0 shift logical
41158 114 190 34 0 3 replace selected bits
41159 124 3 0 1 modify address of next SET IND 3
41160 102 158 0 0 transfer (A) to N
Source image: P1010192.JPG
41155>41161 126 341 2 0 0 enter subroutine >SET(MR3)=(64+R)
41162 124 410 50 1 0 unconditional jump >
41200 PROCR 412 412 FORM X-Y FOR TEST ON REEL COUNTER
41201 NOTES RADIX B
41202 100 0 0 0 Halt LINK
41203 126 340 2 0 0 enter subroutine >SET (MR3) =R
41204 101 3 0 1 prepare for digit collation STORE Y
41205 115 190 34 0 3 collate and add
41206 118 2 1 0 shift logical
41207 102 258 12 0 0 transfer (A) to N
41208 115 190 34 0 3 collate and add FORM X-Y
41209 105 258 12 0 0 subtract (N) from (A)
41210 126 412 2 0 1 leave subroutine >LEAVE S/R
41300 PROCR 413 413 TEST CORRECT SOURCE BLOCK
41301 NOTES RADIX B
41302 100 0 0 0 Halt LINK
41303 106 15 1 3 select (N) TEST CORRECT
41304 103 260 20 0 0 copy (A) to N *719 STORE FOR COMMENT
41305 124 188 2 0 1 modify address of next PROGRAMME NUMBER
41306 105 190 66 0 0 subtract (N) from (A)
41307 127 417 2 0 1 jump A != Z >NO, HDG COMMENT
41308 106 6 0 3 select (N) TEST CORRECT FILE
41309 124 188 2 0 1 modify address of next IDENTITY
41310 105 190 98 0 0 subtract (N) from (A)
41311 127 417 2 0 1 jump A != Z >NO, HDG COMMENT
41312 101 30 0 1 prepare for digit collation TEST CORRECT RUN
41313 115 9 1 3 collate and add NUMBER
41314 102 221 2 0 0 transfer (A) to N
41315 124 188 2 0 1 modify address of next
41316 115 191 32 0 0 collate and add
41317 105 221 2 0 0 subtract (N) from (A)
41318 127 417 2 0 1 jump A != Z >NO, HDG COMMENT
41319 126 413 2 0 1 leave subroutine >LEAVE S/R
41400 PROCR 414 414 HDG COMMENT FOR FIRST OPEN INPUT FILE
41401 NOTES RADIX B
41042>
41036>41402 125 0 1 2 interrogate indicators TEST IF SUITE IS
41403 101 28 0 1 prepare for digit collation 060
41404 115 39 0 1 collate and add
41405 105 108 7 0 0 subtract (N) from (A)
41406 127 410 43 0 0 jump A = Z >YES
41407 126 418 2 0 0 enter subroutine >SET UP BLOCK, UNLOAD
41408 101 28 0 1 prepare for digit collation SET UP SUITE NO
41409 115 32 0 1 collate and add
41410 102 258 8 0 0 transfer (A) to N
41411 101 12 0 1 prepare for digit collation
41412 115 33 0 1 collate and add FORM UP FILE LETTER-/REEL 1
41413 118 2 0 0 shift logical
41414 101 4209 1 1 add literal address -/
41415 118 4 0 0 shift logical
41416 101 65 1 1 add literal address 1
41417 102 258 12 1 0 transfer (A) to N
41709>41418 102 258 10 0 0 transfer (A) to N CLEAR RUN&RERUN NO
41419 106 262 36 1 0 select (N) SET UP LTE
41420 102 262 22 1 0 transfer (A) to N
41421 124 262 2 0 2 select literal and division
41422 124 3 0 1 modify address of next EDIT INTO SP CHAP
41423 128 130 1 2 edit fixed field formats
41424 126 341 2 0 0 enter subroutine >SET (MR3)=(64+R)
41425 106 15 1 3 select (N) SET UP PROG NO
41426 102 258 8 0 0 transfer (A) to N
41427 106 6 1 3 select (N) SET UP FILE 1D/REEL NO
41428 118 2 0 0 shift logical
Source image: P1010193.JPG
41429 101 113 1 1 add literal address /
41430 118 4 0 0 shift logical
41431 104 10 1 3 add (N) to (A) REEL NO
41432 102 258 12 1 0 transfer (A) to N
41433 106 9 1 3 select (N) SET UP RUN & RERUN NO
41434 102 258 10 0 0 transfer (A) to N
41435 106 216 36 1 0 select (N) SET UP LAST TABLE ENTRY
41436 102 262 22 1 0 transfer (A) to N
41437 124 262 10 0 2 select literal and division EDIT INTO SP CHAP
41438 124 3 0 1 modify address of next
41439 128 146 1 2 edit fixed field formats
41440 106 261 10 1 0 select (N) RESTORE LAST TABLE ENTRY
41441 102 262 22 1 0 transfer (A) to N
41442 124 336 4 1 0 unconditional jump >OUTPUT COMMENT
41058>41443 126 418 2 0 0 enter subroutine *012 >SET UP HDG
41444 106 214 64 1 0 select (N) SET UP 45K
41445 124 370 6 1 0 unconditional jump >OUTPUT COMMENT
41500 PROCR 415 415 REEL NUMBER FAILURE
41501 NOTES RADIX B COMMENT AND OFFER OPTIONS
41057>41502 126 418 2 0 0 enter subroutine >SET UP HDG
41503 106 109 4 1 0 select (N) SET UP *,*,3,SP,SP
41504 102 258 4 1 0 transfer (A) to N
41505 126 346 2 0 0 enter subroutine > EDIT TIME
41506 126 311 2 0 0 enter subroutine SET UP REEL NUMBER
41507 104 258 12 1 0 add (N) to (A)
41508 102 258 8 1 0 transfer (A) to N
41509 126 341 2 0 0 enter subroutine SET (MR3=64+R)
41510 101 15 0 1 prepare for digit collation
41511 115 10 0 3 collate and add
41512 104 258 12 1 0 add (N) to (A)
41513 102 258 10 1 0 transfer (A) to N
41514 101 12 0 1 prepare for digit collation
41515 124 188 2 0 1 modify address of next
41516 114 190 34 0 0 replace selected bits SET X=0 IN REEL COUNTER
41517 124 3 0 1 modify address of next SET UP TAPE NUMBER
41518 106 182 0 0 select (N)
41519 102 258 12 1 0 transfer (A) to N
41520 124 519 0 2 select literal and division *14+46+*14+*46+ 000060051800007
41521 102 41 0 1 transfer (A) to N
41522 101 261 30 1 3 select literal address
41523 124 335 2 1 0 unconditional jump >OFFER OPTIONS
41600 PROCR 416 416 OPTIONS 2 AND3
41601 NOTES RADIX B REEL NUMBER FAILURE
41602 126 341 2 0 0 enter subroutine >SET (MR3)=(64+R)
41603 106 11 1 3 select (N) PACK IN ACTUAL REEL NO.
41604 101 3 0 1 prepare for digit collation
41605 124 188 2 0 1 modify address of next
41606 114 190 34 0 0 replace selected bits
41607 126 339 2 0 0 enter subroutine >SET (MR3)=(3)
41608 124 410 6 1 0 unconditional jump >OPEN REEL
41700 PROCR 417 417 HDG COMMENT FOR SUBSEQUENT OPEN REELS
41701 NOTES RADIX B
42817>
41318>
41311>
41307>41702 126 418 2 0 0 enter subroutine >SET UP HDG
41703 126 340 2 0 0 enter subroutine >SET (MR3)=R
41704 106 190 66 0 3 select (N) SET UP PROG NO
41705 102 258 8 0 0 transfer (A) to N
41706 126 311 2 0 0 enter subroutine >SET UP FILE ID
41707 107 258 12 1 0 augment (N) by (A)
41708 106 191 32 0 3 select (N) SET UP RUN & RERUN NOS
41709 124 414 18 1 0 unconditional jump >
Source image: P1010194.JPG
41800 PROCR 418 418 SET UP HDG COMMENT
41801 NOTES RADIX B
41802 100 0 0 0 Halt LINK
41803 126 357 2 0 0 enter subroutine >COUNT 500 M SECS
41804 106 258 26 1 0 select (N) SET UP 'HDG'
41805 102 258 4 1 0 transfer (A) to N
41806 124 3 0 1 modify address of next
41807 106 165 0 0 select (N)
41808 101 1 1 2 subtract literal address RETURN LINK
41809 126 362 2 0 0 enter subroutine >UNLOAD, ETC.
41810 126 418 2 0 1 leave subroutine > LEAVE S/R
41900 PROCR 419 419 SET UP HDG COMMENT (PAPER TAPE OR CARDS)
41902 100 0 0 0 Halt LINK
41903 106 258 26 1 0 select (N) SET UP HDG
41904 102 258 4 1 0 transfer (A) to N
41905 124 367 6 0 2 select literal and division RETURN LINK
41906 126 362 2 0 0 enter subroutine >UNLOAD ETC
41907 126 419 2 0 1 leave subroutine >LEAVE S/R
42000 PROCR 420 420 MAGNETIC TAPE INPUT
42001 NOTES RADIX B
26709>42002 102 420 11 0 0 transfer (A) to N *4£1*3:1
42128>42003 126 314 2 0 0 enter subroutine TEST A1=BLOCK COUNTER
42004 127 421 6 0 1 jump A != Z >NO
42005 126 339 2 0 0 enter subroutine SET(MR3)=(3)
42006 102 171 0 3 transfer (A) to N CLEAR OPTION INDICATOR
42007 102 186 0 3 transfer (A) to N CLEAR INDICATOR
42008 106 185 0 3 select (N) TEST ATTEMPTS COUNTER ZERO
42009 127 421 2 0 1 jump A != Z >NO
42010 126 430 2 0 0 enter subroutine *3:94£9 1AA S/R
42011 100 0 0 0 Halt *4£1*3:1
42012 126 342 2 0 0 enter subroutine *019
42013 126 329 2 0 0 enter subroutine READ
42014 126 343 2 0 0 enter subroutine *019
42015 106 210 8 0 0 select (N) STEP BLOCK COUNTER
42016 126 333 2 0 0 enter subroutine >
42017 124 268 8 1 0 unconditional jump >UPDATE ASSEMBLER TABLE,RETURN TO PROG
42100 PROCR 421 421 MT INPUT:BLOCK NUMBER NOT AS EXPECTED
42101 NOTES RADIX B
42009>42102 126 321 2 0 0 enter subroutine >'SER' COMMENT
42103 101 7 1 3 select literal address
42104 102 31 0 1 transfer (A) to N SET ROUTE TYPE='MT IN'
42105 124 264 30 1 0 unconditional jump >ANOTHER READ ORDER
42004>42106 126 315 2 0 0 enter subroutine >TEST A1 FOR FBM
42107 124 421 33 1 0 unconditional jump >FBM FOUND
42108 106 1 1 3 select (N) TEST A1=SENTINEL
42109 105 211 7 1 0 subtract (N) from (A) TYPE 2
42110 105 210 8 0 0 subtract (N) from (A)
42111 127 421 42 0 0 jump A = Z >YES
42112 105 210 8 0 0 subtract (N) from (A) TEST A1=SENTINEL
42113 127 421 18 0 1 jump A != Z >NO
42114 106 5 1 3 select (N) TEST A3=BL CNTR
42115 124 188 2 0 1 modify address of next
42116 105 190 2 0 0 subtract (N) from (A)
42117 127 263 21 0 0 jump A = Z >YES ZZZ4 COMMENT
42145>
42113>42118 101 421 62 1 3 select literal address SELECT RETURN LOCATION
42119 124 3 0 1 modify address of next
42120 102 162 0 0 transfer (A) to N
42121 126 323 2 0 0 enter subroutine >TEST OPTION LINK
42122 126 316 2 0 0 enter subroutine >ALIGNMENT FAILURE
42123 124 421 26 1 0 unconditional jump
42124 126 317 2 0 0 enter subroutine >REREAD
Source image: P1010195.JPG
42125 126 319 2 0 0 enter subroutine >STEP ATTEMPTS COUNTER
42123>42126 124 3 0 1 modify address of next TEST D/B OCCURRED
42127 106 160 0 0 select (N)
42128 127 420 3 0 0 jump A = Z >NO
42129 101 7 1 3 select literal address
42130 124 3 0 1 modify address of next
42131 102 174 0 0 transfer (A) to N
42132 124 285 2 1 0 unconditional jump >D/B ROUTINE
42107>42133 124 3 0 1 modify address of next TEST INDICATOR SET
42134 106 186 0 0 select (N)
42135 127 421 38 0 0 jump A = Z >NO
42136 101 3 1 3 select literal address STEP BACK 3 BLOCKS
42137 126 306 2 0 0 enter subroutine FORWARD 1
42135>42138 126 329 2 0 0 enter subroutine >READ
29331>42139 101 7 1 3 select literal address
42140 103 188 3 0 0 copy (A) to N
42141 124 351 7 1 0 unconditional jump >TEST ROUTE
42111>42142 106 5 1 3 select (N) TEST A3=BL CNTR
42143 124 188 2 0 1 modify address of next
42144 105 190 2 0 0 subtract (N) from (A)
42145 127 421 18 0 1 jump A != Z >NO
42146 106 39 0 1 select (N) *6+Ю PROG ID
42147 105 210 17 0 0 subtract (N) from (A) 07008
42148 127 421 56 0 1 jump A != Z >NOT 07008
42149 106 258 28 1 0 select (N) FINIS 07008
42150 102 4 1 3 transfer (A) to N
42151 126 430 2 0 0 enter subroutine *4£93:9 IAA FOR FCC
42152 106 420 11 0 0 select (N) *4£2*3:2
42153 102 421 54 0 0 transfer (A) to N IAA
42154 100 0 0 0 Halt *4£2*3:2
42155 124 268 9 1 0 unconditional jump *6+Ю
42148>42156 106 33 0 1 select (N) TEST LINK
42157 127 268 9 0 3 jump A < Z >YES
42158 126 334 2 0 0 enter subroutine >STEP REEL COUNTER
42159 126 357 2 0 0 enter subroutine >COUNT 500 MILLISECS
42160 126 324 2 0 0 enter subroutine >UNLOAD, 'NEW' COMMENT
42161 126 410 2 0 0 enter subroutine >OPEN NEW REEL
42162 101 7 1 3 select literal address SET UP RTE TYPE
42163 103 188 3 0 0 copy (A) to N
42164 102 31 0 1 transfer (A) to N
42165 106 188 2 0 0 select (N)
42166 118 6 0 3 shift binary
42167 124 266 2 1 0 unconditional jump *4£4*3:4 >MAIN PATH 4 4
42200 PROCR 422 422 CLOSE MAGNETIC TAPE INPUT REEL
42201 NOTES RADIX B
43404>
26748>42202 126 334 2 0 0 enter subroutine >STEP REEL COUNTER
42203 126 357 2 0 0 enter subroutine >COUNT 500 M.SECS.
42204 126 362 2 0 0 enter subroutine >UNLOAD
42205 124 422 8 0 2 select literal and division
42206 126 363 2 0 0 enter subroutine >SET LINK FOR SI=5 & SETTING FOR S101
42207 124 324 5 1 0 unconditional jump *17‼
42208 126 359 2 0 0 enter subroutine >SET SI=4, RESTORE LINK FOR SI=3
42209 126 451 2 0 0 enter subroutine *8£9 >TMS COMMENT
42210 124 268 9 1 0 unconditional jump >RESET MOD. GROUP
42300 PROCR 423 423 CLOSE MAGNETIC TAPE INPUT FILE
42301 NOTES RADIX B
26729>42302 126 341 2 0 0 enter subroutine *1ЮЮ >SET(MR3)=(64+R)
42303 106 4 1 3 select (N) TEST 'FINIS' BLOCK
42304 105 258 28 1 0 subtract (N) from (A)
42305 127 436 12 0 0 jump A = Z >YES
42306 106 1 1 3 select (N) TEST SENTINEL TYPE 3
42307 105 211 7 1 0 subtract (N) from (A)
42308 105 212 6 0 0 subtract (N) from (A)
Source image: P1010196.JPG
42309 127 436 12 0 0 jump A = Z >YES
42310 101 4 1 3 select literal address *5:Ю OMIT EDG?
42311 126 332 2 0 0 enter subroutine
42312 127 436 8 0 1 jump A != Z *5:Ю >YES
42313 126 451 2 0 0 enter subroutine *8£9
42314 106 109 6 1 0 select (N) SET UP'EDG'
42315 102 258 4 1 0 transfer (A) to N
42316 126 357 2 0 0 enter subroutine COUNT 500 MILLISECS
42317 126 362 2 0 0 enter subroutine >UNLOAD ETC
42318 124 188 2 0 1 modify address of next SET UP BLOCK NO.
42319 106 190 2 0 0 select (N)
42320 102 258 8 0 0 transfer (A) to N
42321 124 188 2 0 3 modify address of next CLEAR BLOCK COUNTER
42322 102 190 2 0 0 transfer (A) to N
42323 124 188 2 0 1 modify address of next CLEAR REEL COUNTER
42324 102 190 34 0 0 transfer (A) to N
42325 126 326 2 0 0 enter subroutine *179 >ALTERNATE ROUTES
42326 124 383 21 0 2 select literal and division
42327 126 363 2 0 0 enter subroutine >SET LINK FOR SI=5 SETTING OF S101
42328 124 432 10 1 0 unconditional jump >OUTPUT COMMENT
42400 PROCR 424 424 OPEN MAGNETIC TAPE OUTPUT FILE
42401 NOTES RADIX B
26733>
26720>42402 126 425 2 0 0 enter subroutine >OPEN MAG TAPE O/P REEL
42403 106 40 0 1 select (N)
42404 118 4127 0 0 shift logical
42405 124 409 11 1 0 unconditional jump >
42500 PROCR 425 425 OPEN MAGNETIC TAPE OUTPUT REEL
42501 NOTES RADIX B
42502 100 0 0 0 Halt LINK
42503 126 339 2 0 0 enter subroutine >SET(MR3)=(3)
42504 106 425 2 0 0 select (N)
42505 102 168 0 3 transfer (A) to N LINK TO 168 OF SPECIAL CHAP
42506 126 188 2 1 2 set modification register SET(MR2)=R
42507 106 64 0 2 select (N) STORE CURRENT ASL
42508 102 221 2 0 0 transfer (A) to N *5+9
42509 102 163 0 3 transfer (A) to N *5+1
42510 101 14 1 3 select literal address FORM NEW ASL
42511 118 4 0 0 shift logical C+106
42512 104 3 0 0 add (N) to (A)
42513 101 106 1 1 add literal address
42514 105 221 2 0 0 subtract (N) from (A) *5+Ю TEST ALREADY SET UP
42515 127 425 20 0 0 jump A = Z >YES
42516 104 221 2 0 0 add (N) to (A) *5+Ю
42517 102 64 0 2 transfer (A) to N
42518 106 221 2 0 0 select (N) *5+Ю
42519 102 163 0 3 transfer (A) to N *5+Ю
42515>42520 101 15 1 3 select literal address SET TAG 15
42521 123 126 1 3 copy into tag IN LIMIT WORD
29235>42522 101 0 1 3 select literal address *43Ю*51Ю CLEAR DB'S COUNTER
42523 124 188 2 0 3 modify address of next
42524 102 192 2 0 0 transfer (A) to N *43Ю*51Ю
28576>42525 126 307 2 0 0 enter subroutine >RUN FORWARD ETC
42526 124 3 0 1 modify address of next *5+Ю TEST CHD
42527 106 164 0 0 select (N)
42528 127 425 33 0 0 jump A = Z >NO
42529 124 3 0 1 modify address of next
42530 106 189 0 0 select (N) TEST OPEN FILE
42531 127 428 2 0 0 jump A = Z >NO,REOPEN O/P REEL
42532 124 425 38 1 0 unconditional jump *5+Ю YES REWRITE BLOCK 7
42528>42533 126 429 2 0 0 enter subroutine >TEST TAPE RELEASED S/R
42534 124 428 2 1 0 unconditional jump >NO
42535 101 1 1 3 select literal address
42536 124 3 0 1 modify address of next
Source image: P1010197.JPG
42537 102 189 0 0 transfer (A) to N SET OPEN FILE IND(FOR CMD
42532>42538 126 340 2 0 0 enter subroutine >SET (MR3)=R
42539 106 190 34 0 3 select (N) TEST REEL COUNTER
42540 103 221 2 0 0 copy (A) to N
42541 127 425 56 0 0 jump A = Z >YES =0
42542 118 4126 1 0 shift logical TEST X=
42543 101 15 1 2 subtract literal address
42544 127 425 50 0 1 jump A != Z >NO
42545 118 4 1 0 shift logical SET X=Y
42546 101 12 0 1 prepare for digit collation
42547 124 188 2 0 1 modify address of next
42548 114 190 34 0 0 replace selected bits
42549 124 425 58 1 0 unconditional jump >YES
42544>42550 126 412 2 0 0 enter subroutine >FORM X-Y TEST Y>X IN REEL
42551 127 425 64 0 2 jump A >= Z >
42552 106 190 34 0 3 select (N) SET X=Y
42553 118 2 0 0 shift logical
42554 114 190 34 0 3 replace selected bits
42555 124 425 64 1 0 unconditional jump >
42541>42556 124 257 0 2 select literal and division SET REEL COUNTER=1:1
42557 102 190 34 0 3 transfer (A) to N
42549>42558 106 32 0 1 select (N) STORE PROGRAMME NO
42559 102 190 66 0 3 transfer (A) to N
42560 106 33 0 1 select (N) STORE FILE IDENTITY
42561 102 190 98 0 3 transfer (A) to N
42562 106 40 0 1 select (N) STORE RUN & RE-RUN NUMBERS
42563 102 191 32 0 3 transfer (A) to N
42555>
42551>42564 126 341 2 0 0 enter subroutine >SET(MR3)=(64+R)
42600 PROCR 426 426 SET UP LOP COMMENT AND SOURCE BLOCK
42601 NOTES RADIX B
42602 124 7 0 2 select literal and division SET UP XERONIC WORD
42603 124 188 2 0 1 modify address of next
42604 103 190 2 0 0 copy (A) to N
42605 103 1 1 3 copy (A) to N
42606 104 211 20 1 0 add (N) to (A)
42607 102 4 1 3 transfer (A) to N
42608 102 2 1 3 transfer (A) to N CLEAR 2ND WORD
42609 124 188 2 0 1 modify address of next SET UP PROG NO
42610 106 190 66 0 0 select (N)
42611 103 260 20 0 0 copy (A) to N *719 STORE FOR COMMENT
42612 102 15 1 3 transfer (A) to N
42613 106 100 17 0 0 select (N) SET UP DATE
42614 102 13 1 3 transfer (A) to N
42615 106 214 10 1 0 select (N) SET UP B/E WORD
42616 102 18 1 3 transfer (A) to N
42617 126 431 2 0 0 enter subroutine >SET UP FILE, RUN & REEL
42618 124 188 2 0 1 modify address of next *01Ю TEST 90K FILE
42619 106 191 64 0 0 select (N)
42620 127 426 22 0 0 jump A = Z >NO
42621 106 210 8 0 0 select (N) *01Ю
42620>42622 102 17 1 3 transfer (A) to N SET UP 45/90K IND
42623 126 330 2 0 0 enter subroutine >WRITE
42624 126 429 2 0 0 enter subroutine >TEST TAPE RELEASED S/R
42625 124 426 32 1 0 unconditional jump *5+‼ >NO
42631>42626 106 258 10 0 0 select (N) *8:Ю SPOOL NO
42627 105 196 2 0 3 subtract (N) from (A) TEST=NEXT IN LIST
42628 127 426 30 0 1 jump A != Z *8:Ю NO>
42629 102 196 2 0 3 transfer (A) to N DELETE TAPE NO
42628>42630 125 1 0 3 step on and test *8:Ю
42631 124 426 26 1 0 unconditional jump *8:Ю
42625>42632 124 3 0 1 modify address of next *5+Ю TEST IF CHANGE
42633 106 164 0 0 select (N) DECKS
42634 127 426 74 0 1 jump A != Z *5+Ю >YES
41064>42635 101 8 1 3 select literal address SET ROUTE TYPE 8
Source image: P1010198.JPG
42636 102 188 3 0 0 transfer (A) to N
42637 126 350 2 0 0 enter subroutine >TEST RTE DEALING WITH D/B
42638 126 341 2 0 0 enter subroutine >SET(MR3)=(64+R)
42639 126 431 2 0 0 enter subroutine >SET UP COMMENT
42640 106 214 50 1 0 select (N) SET UP 'LOP'
42641 102 258 4 1 0 transfer (A) to N
42642 126 339 2 0 0 enter subroutine >SET (MR3)=(3)
42643 106 182 0 3 select (N)
42644 102 258 10 0 0 transfer (A) to N
42645 102 189 0 3 transfer (A) to N CLEAR OPEN FILE IND(FOR CHD)
42646 124 188 2 0 1 modify address of next *01Ю TEST 90K FILE
42647 106 191 64 0 0 select (N)
42648 127 426 53 0 0 jump A = Z *3£‼71‼*3£‼ >NO
42649 101 24 0 1 prepare for digit collation SET UP'H'IN'HOP'COMMENT
42650 124 88 0 2 select literal and division
42651 118 3 0 0 shift logical
42652 114 258 5 0 0 replace selected bits *01Ю
42648>42653 100 210 3 0 3 set radix *3£Ю SET DECIMAL
42654 106 258 23 0 0 select (N) STEP CARD SERIAL NUMBER
42655 104 210 8 0 0 add (N) to (A)
42656 100 212 2 0 3 set radix SET BINARY
42657 102 258 23 0 0 transfer (A) to N *3£Ю
42658 106 262 26 1 0 select (N) *3£Ю*3£2712
42659 102 262 22 1 0 transfer (A) to N *3£Ю*3£2712
41062>42660 106 262 32 1 0 select (N) *71Ю
42661 102 262 22 1 0 transfer (A) to N *71Ю
41061>42662 124 426 76 0 2 select literal and division
41140>
32122>42663 126 363 2 0 0 enter subroutine >SET LINK FOR SI=5, SETTING OF S101
42664 124 262 2 0 2 select literal and division SELECT TABLE START LOCATION
42665 124 3 0 1 modify address of next SET UP COMMENT IN SPECIAL CHAPTER
42666 128 130 1 2 edit fixed field formats
42667 106 262 24 1 0 select (N) *3£Ю*712
42668 102 262 22 1 0 transfer (A) to N *3£Ю*712
42669 106 262 30 1 0 select (N) *71Ю
42670 102 262 22 1 0 transfer (A) to N
42671 106 262 34 1 0 select (N) *3£Ю
42672 102 262 28 1 0 transfer (A) to N *71Ю*3£Ю
42673 124 336 4 1 0 unconditional jump > OUTPUT COMMENT
42634>42674 126 352 2 0 0 enter subroutine *5+Ю*09‼06‼ TEST RTE NOTING D/B
42675 124 292 42 1 0 unconditional jump *5+Ю
42676 126 359 2 0 0 enter subroutine >SET SI=4,RESTORE LINK FOR SI=3
42700 PROCR 427 427 SET UP AND PUNCH LIBRARIAN CARD
42701 NOTES RADIX B
42702 124 428 24 1 0 unconditional jump *251 >AVOID
42703 124 2 0 1 modify address of next *25Ю SET (MR3)=(64+R)
42704 124 30 0 1 modify address of next
42705 106 64 0 0 select (N)
42706 102 6 1 0 transfer (A) to N
42707 106 30 0 1 select (N) STORE RTE NUMBER
42708 124 3 0 1 modify address of next
42709 102 158 0 0 transfer (A) to N
42710 124 427 43 0 2 select literal and division SET UP RTE NO & TYPE FOR CARDS
42711 101 267 2 1 2 subtract literal address
42712 118 5 0 0 shift logical
42713 104 260 10 0 0 add (N) to (A)
42714 102 30 1 1 transfer (A) to N
42715 106 258 23 0 0 select (N) SET UP CARD SERIAL NO
42716 102 3 1 3 transfer (A) to N
42717 124 3 0 1 modify address of next
42718 106 182 0 0 select (N) SET UP SPOOL NO
42719 102 5 1 3 transfer (A) to N
42720 124 3 0 1 modify address of next SET (MR2)=R
42721 106 158 0 0 select (N)
42722 102 4 1 0 transfer (A) to N
Source image: P1010199.JPG
42723 106 190 66 0 2 select (N) SET UP PROGRAMME NO
42724 102 7 1 3 transfer (A) to N
42725 106 191 32 0 2 select (N) SET UP RUN AND RERUN NOS
42726 102 9 1 3 transfer (A) to N
42727 106 190 98 0 2 select (N) SET UP FILE IDENTITY
42728 118 6 0 0 shift logical
42729 102 10 1 3 transfer (A) to N
42730 101 3 0 1 prepare for digit collation SET UP REEL NO
42731 115 190 34 0 2 collate and add
42732 118 1 0 0 shift logical
42733 104 139 0 0 add (N) to (A)
42734 102 258 13 1 0 transfer (A) to N
42735 106 258 12 1 0 select (N)
42736 107 10 1 3 augment (N) by (A)
42737 106 138 0 0 select (N) SET UP DATE
42738 102 13 1 3 transfer (A) to N
42739 106 214 10 1 0 select (N) SET UP B/E
42740 102 14 1 3 transfer (A) to N
42741 102 0 1 3 transfer (A) to N
42747>42742 124 264 30 1 0 unconditional jump >SET SI=1,TEST ROUTE,ETC
42743 124 260 10 0 1 modify address of next TEST ANOTHER LIB
42744 106 64 0 0 select (N) CARD BEING PROCESSED
42745 118 4124 0 0 shift logical
42746 101 13 1 2 subtract literal address
42747 127 427 42 0 0 jump A = Z >YES
42748 124 3 0 1 modify address of next
42749 124 158 0 1 modify address of next EDIT INTO MATRIX FORM
42750 124 64 0 1 modify address of next
42751 124 0 0 2 select literal and division
42752 129 259 2 0 0 edit for hollerith output
42753 106 258 20 1 0 select (N) AUGMENT BY B40
42754 107 259 8 1 0 augment (N) by (A)
42755 101 3 1 3 select literal address SET UP RTE NO AND TYPE FOR CARDS
42756 118 5 0 0 shift logical
42757 104 260 10 0 0 add (N) to (A)
42758 103 188 2 1 0 copy (A) to N
42759 124 260 11 0 1 modify address of next UPDATE ASSEMBLER TABLE
42760 102 252 2 1 0 transfer (A) to N
42761 124 260 10 0 1 modify address of next INTERCHANGE AREA ADDRESSES
42762 101 3520 0 3 interchange area addresses
42763 124 188 2 0 1 modify address of next OUTPUT
42764 119 0 0 0 output
42765 126 350 2 0 0 enter subroutine >TEST RTE DEALING WITH D/B
42766 124 260 10 0 1 modify address of next INTERCHANGE AREA ADDRESSES
42767 101 3520 0 3 interchange area addresses
42768 106 4 0 0 select (N) SET UP ROUTE NO
42769 103 30 0 1 copy (A) to N
42770 102 188 2 0 0 transfer (A) to N
42771 124 188 2 0 1 modify address of next CLEAR 2ND WORD
42772 124 64 0 1 modify address of next
42773 102 2 1 0 transfer (A) to N
42774 124 428 24 1 0 unconditional jump *25Ю >
42800 PROCR 428 428 RE-OPEN MAGNETIC TAPE OUTPUT REEL
42801 NOTES RADIX B
42534>
42531>42802 124 188 2 0 1 modify address of next TEST REEL COUNTER
42803 106 190 34 0 0 select (N) =0
42804 127 432 2 0 0 jump A = Z >YES RT1 COMMENT
42805 118 4126 0 0 shift logical TESTX=
42806 101 15 1 2 subtract literal address
42807 127 432 2 0 0 jump A = Z >YES RT1 COMMENT
42808 126 412 2 0 0 enter subroutine >FORM X-Y TEST Y>X IN REEL
42809 127 432 2 0 3 jump A < Z >YES RT1 COMMENT
42810 126 308 2 0 0 enter subroutine >READ, TEST BLOCK
42811 126 341 2 0 0 enter subroutine >SET MR3=64+R
Source image: P1010200.JPG
42812 126 413 2 0 0 enter subroutine >TEST CORRECT SOURCE BLOCK
42813 101 3 0 1 prepare for digit collation TEST CORRECT REEL
42814 124 188 2 0 1 modify address of next NUMBER
42815 115 190 34 0 0 collate and add
42816 105 11 1 3 subtract (N) from (A)
42817 127 417 2 0 1 jump A != Z >NO, HDG COMMNET
42818 124 3 0 1 modify address of next RESTORE ASL
42819 106 163 0 0 select (N)
42820 124 2 0 1 modify address of next
42821 124 30 0 1 modify address of next
42822 102 64 0 0 transfer (A) to N
42823 124 411 2 1 0 unconditional jump >
42774>
42702>
39211>42824 124 3 0 1 modify address of next RESTORE ASL
42825 106 163 0 0 select (N)
42826 124 2 0 1 modify address of next
42827 124 30 0 1 modify address of next
42828 102 64 0 0 transfer (A) to N
41118>42829 124 3 0 1 modify address of next TEST LINK FROM
42830 106 168 0 0 select (N) W/E PROCEDURE
42831 101 306 2 1 2 subtract literal address
42832 127 411 47 0 1 jump A != Z >NO
42833 106 212 5 0 0 select (N) SET UP ROUTE TYPE
42834 102 31 0 1 transfer (A) to N
30517>
30512>
30509>42835 124 2 0 1 modify address of next
42836 124 12 1 0 unconditional jump >SI+12
42900 PROCR 429 429 TEST TAPE RELEASED S/R
42902 100 0 0 0 Halt
42903 126 212 10 1 3 set modification register *4:34Ю‼ (MR3)=48:0
42904 124 3 0 1 modify address of next SPOOL EX SENTINEL
42905 106 182 0 0 select (N)
42906 103 258 10 0 0 copy (A) to N STORE FOR COMMENT
42907 118 4127 1 1 shift arithmetic *8+Ю WORKING TAPE?
42908 127 429 10 0 0 jump A = Z YES>
42909 118 1 1 1 shift arithmetic *8+Ю
42914>
42908>42910 105 196 2 0 3 subtract (N) from (A) TEST=NEXT IN LIST
42911 127 429 16 0 0 jump A = Z >YES
42912 104 196 2 0 3 add (N) to (A)
42913 125 1 0 3 step on and test
42914 124 429 10 1 0 unconditional jump >NEXT ONE
42915 126 429 2 0 1 leave subroutine >LEAVE S/R NOT IN RT1
42911>42916 124 429 2 0 3 modify address of next
42917 124 1 1 0 unconditional jump >S/R+1 IN RT1
43000 PROCR 430 430 INTERCHANGE AREA ADDRESSES FOR FCC
43002 100 0 0 0 Halt *3:Ю4£Ю
43003 106 32 0 1 select (N) PSEUDOROUTE
43004 102 430 15 0 0 transfer (A) to N WL
43005 124 430 15 0 1 modify address of next
43006 100 64 0 2 replace (B) by (N) PSEUDOROUTE START LOCN>B
43007 124 188 2 0 1 modify address of next
43008 106 64 0 0 select (N) ROUTE START LOCN
43009 124 430 15 0 1 modify address of next
43010 102 64 0 0 transfer (A) to N >PSEUDOROUTE START
43011 118 10 1 1 shift arithmetic (B)>A
43012 124 188 2 0 1 modify address of next
43013 102 64 0 0 transfer (A) to N PSEUDO ROUTE>ROUTE
43014 126 430 2 0 1 leave subroutine
43015 100 0 0 0 Halt WL FOR THIS S/R
43100 PROCR 431 431 SET UP'LIP'AND'LOP'COMMENTS
Source image: P1010201.JPG
43101 NOTES RADIX B
43102 100 0 0 0 Halt LINK
43103 126 345 2 0 0 enter subroutine >EDIT TIME,SET UP RTE NUMBER
43104 126 356 2 0 0 enter subroutine SET UP PROGRAMME NUMBER
43105 124 188 2 0 1 modify address of next SET UP FILE IDENTITY
43106 106 190 98 0 0 select (N)
43107 103 6 1 3 copy (A) to N
43108 118 2 0 0 shift logical
43109 101 113 1 1 add literal address
43110 118 4 0 0 shift logical
43111 102 258 12 1 0 transfer (A) to N
43112 101 3 0 1 prepare for digit collation
43113 124 188 2 0 1 modify address of next SET UP FILE IDENTITY/REEL NUMBER
43114 115 190 34 0 0 collate and add
43115 102 258 9 1 0 transfer (A) to N
43116 106 258 8 0 0 select (N)
43117 107 258 12 1 0 augment (N) by (A)
43118 102 10 1 3 transfer (A) to N SET UP REEL NUMBER
43119 124 188 2 0 1 modify address of next SET UP RUN AND RE-RUN NUMBERS
43120 106 191 32 0 0 select (N)
43121 103 258 8 0 0 copy (A) to N
43122 102 9 1 3 transfer (A) to N
43123 126 431 2 0 1 leave subroutine
43200 PROCR 432 432 SET UP 'RTI' COMMENT
43201 NOTES RADIX B
42809>
42807>
42804>43202 126 357 2 0 0 enter subroutine >COUNT 500 MILLISECS
43203 106 214 40 1 0 select (N) SET UP 'RTI'
43204 102 258 4 1 0 transfer (A) to N
43205 124 425 25 0 2 select literal and division
43206 126 362 2 0 0 enter subroutine >UNLOAD ETC
43207 124 3 0 1 modify address of next SET UP TAPE NUMBER
43208 106 182 0 0 select (N)
43209 102 258 8 0 0 transfer (A) to N
42328>
32412>
31222>43210 102 258 10 1 0 transfer (A) to N CLEAR COL 4
36530>
28544>43211 124 261 12 0 2 select literal and division SELECT TABLE START LOCATION
43212 124 336 2 1 0 unconditional jump >OUTPUT COMMENT
43300 PROCR 433 433 MAGNETIC TAPE OUTPUT
43301 NOTES RADIX
26710>43302 102 433 4 0 0 transfer (A) to N *4£1*3:1
43303 126 430 2 0 0 enter subroutine *3:94£9 1AA SS/R
43304 100 0 0 0 Halt *4£1*3:1
43305 126 188 2 1 2 set modification register SET(MR2)=R
43306 126 341 2 0 0 enter subroutine SET(MR3)=(64+R)
43307 102 2 1 3 transfer (A) to N SET 2ND WORD OF BLOCK=0
43308 106 190 2 0 2 select (N) SELECT BLOCK WITHIN REEL CTR
43309 100 210 3 0 3 set radix SET(C) DECIMAL STEP COUNTER BY 1
43310 104 210 8 0 0 add (N) to (A) ADD 1
43311 103 1 1 3 copy (A) to N INSERT BLOCK NO.
43312 102 190 2 0 2 transfer (A) to N STORE BLOCK WITHIN
43313 101 1 1 3 select literal address *8£Ю
43314 107 193 26 0 2 augment (N) by (A) *8£Ю
43315 100 212 2 0 3 set radix SET BINARY
43316 126 342 2 0 0 enter subroutine *019
43317 126 330 2 0 0 enter subroutine WRITE
43318 126 343 2 0 0 enter subroutine *019
43319 124 268 8 1 0 unconditional jump >UPDATE USE OF ASSEMBLER TABLE
43400 PROCR 434 434 CLOSE MAGNETIC TAPE OUTPUT REEL
43401 NOTES RADIX B
Source image: P1010202.JPG
26747>43402 126 435 2 0 0 enter subroutine >SET UP END OF REEL SENTINEL
43403 126 310 2 0 0 enter subroutine >WRITE END OF REEL INFORMATION
43404 124 422 2 1 0 unconditional jump >UNLOAD
43500 PROCR 435 435 SET UP END OF REEL SENTINEL
43501 NOTES RADIX B
43502 100 0 0 0 Halt LINK
43503 126 341 2 0 0 enter subroutine >SET (MR3)=(64+R)
43504 106 211 8 1 0 select (N) SET R/M WORD IN 2ND. WORD
43505 102 2 1 3 transfer (A) to N
43506 106 214 10 1 0 select (N) SET B/E WORD IN 4TH. WORD
43507 102 6 1 3 transfer (A) to N
43508 106 211 6 1 0 select (N)
43509 104 210 8 0 0 add (N) to (A)
43510 126 435 2 0 1 leave subroutine >LEAVE S/R
43600 PROCR 436 436 CLOSE MAGNETIC TAPE OUTPUT FILE
43601 NOTES RADIX B
26730>43602 124 188 2 0 3 modify address of next TEST BLOCK COUNTER
43603 106 190 2 0 0 select (N) =5
43604 101 6 1 2 subtract literal address
43605 127 263 27 0 3 jump A < Z >YES ZZZ10 JUST REWOUND
43606 126 309 2 0 0 enter subroutine >WRITE END OF FILE
43607 126 310 2 0 0 enter subroutine >INFORMATION
42312>43608 125 0 1 2 interrogate indicators
43609 124 188 2 0 1 modify address of next
43610 102 190 2 0 0 transfer (A) to N CLEAR BLOCK CNTR
26439>43611 125 0 1 2 interrogate indicators *1Ю1
42309>
42305>43612 124 188 2 0 1 modify address of next CLEAR REEL CNTR
43613 102 190 34 0 0 transfer (A) to N
43614 126 357 2 0 0 enter subroutine >COUNT 500 MILLISECS
43615 126 451 2 0 0 enter subroutine *8£9
43616 126 362 2 0 0 enter subroutine >UNLOAD
43617 126 326 2 0 0 enter subroutine *179 >ALTERNATE ROUTES
43618 124 268 6 1 0 unconditional jump >
43700 PROCR 437 437 REWIND
43701 NOTES RADIX B
26735>43702 126 309 2 0 0 enter subroutine >WRITE END OF
43703 126 310 2 0 0 enter subroutine >FILE INFORMATION
26736>43704 126 357 2 0 0 enter subroutine >COUNT 500 MILLISECS
43705 126 451 2 0 0 enter subroutine *8£9
43706 126 340 2 0 0 enter subroutine > SET (MR3)=R
43707 101 3 0 1 prepare for digit collation
43708 115 190 34 0 3 collate and add
43709 105 210 8 0 0 subtract (N) from (A) 1
43710 127 437 15 0 0 jump A = Z >REEL CTR=1,NO TAPE CHANGE
43711 106 210 8 0 0 select (N) SET REEL CNTR=1
43712 114 190 34 0 3 replace selected bits
43713 126 324 2 0 0 enter subroutine >UNLOAD, NEW TAPE
43714 124 268 9 1 0 unconditional jump >RESET MOD GP
43710>43715 124 188 2 0 1 modify address of next REWIND
43716 119 0 1 1 rewind
43717 106 210 6 0 0 select (N) SET REWIND IND TO
43718 107 190 98 0 3 augment (N) by (A) COUNT 500 M-SECS
43719 101 5 1 3 select literal address SET BLOCK
43720 124 188 2 0 3 modify address of next COUNTER=5
43721 102 190 2 0 0 transfer (A) to N
43722 102 188 3 0 0 transfer (A) to N CLEAR ASSEMBLER TABLE,
43723 124 268 8 1 0 unconditional jump > RESET MOD GROUP
43800 PROCR 438 438 RUN FORWARD AND BACK (1)
43801 NOTES RADIX B
26740>
26739>43802 125 0 1 2 interrogate indicators
Source image: P1020707.JPG
43803 124 438 12 1 0 unconditional jump >SET PP=0, QQ=0
26737>43804 126 309 2 0 0 enter subroutine >WRITE END OF FILE
43805 126 310 2 0 0 enter subroutine >INFORMATION
43806 101 1 1 3 select literal address STEP BACK 3 FORWARD 1
43810>43807 101 2 1 1 add literal address
43808 126 306 2 0 0 enter subroutine
43809 126 315 2 0 0 enter subroutine TEST A1 FOR FBM
43810 124 438 7 1 0 unconditional jump >YES STEP BACK 2 FORWARD 1
44239>
26738>43811 101 15 1 3 select literal address SET PP=15, QQ=0
43803>43812 124 3 0 1 modify address of next
43813 102 180 1 0 transfer (A) to N
43814 126 341 2 0 0 enter subroutine >SET (MR3)=(64+R)
43815 124 2 0 1 modify address of next CLEAR IDENTIFIER WORD
43816 124 33 0 1 modify address of next
43817 102 0 1 3 transfer (A) to N
43900 PROCR 439 439 RUN FORWARD & BACK (2)
43901 NOTES RADIX B
44017>43902 126 315 2 0 0 enter subroutine >TEST A1=FBM
43903 124 440 2 1 0 unconditional jump >YES
43904 124 7 0 2 select literal and division TEST HEADING BLOCK
43905 105 1 1 3 subtract (N) from (A)
43906 127 441 17 0 2 jump A >= Z >YES
43907 106 1 1 3 select (N) TEST SENTINEL TYPE 3
43908 105 211 7 1 0 subtract (N) from (A)
43909 105 210 8 0 0 subtract (N) from (A)
43910 127 441 2 0 0 jump A = Z >YES
43911 105 210 8 0 0 subtract (N) from (A) TEST SENTINEL TYPE 3
43912 127 442 18 0 0 jump A = Z >YES
43913 124 3 0 1 modify address of next TEST D/B OCCURRED
43914 106 160 0 0 select (N)
43915 127 440 2 0 1 jump A != Z >YES
43916 124 2 0 1 modify address of next TEST IDENTIFIER WORD
43917 124 33 0 1 modify address of next =0
43918 106 1 1 3 select (N)
43919 127 440 2 0 0 jump A = Z >YES
43920 105 32 0 1 subtract (N) from (A) TEST REQUIRED BLOCK
43921 127 442 2 0 1 jump A != Z >NO
43922 106 1 1 3 select (N) SET BLOCK CNTR=A1
43923 124 188 2 0 1 modify address of next
43924 102 190 2 0 0 transfer (A) to N
43925 124 3 0 1 modify address of next
43926 102 181 0 0 transfer (A) to N
43927 124 268 9 1 0 unconditional jump >RESET MOD GP
44000 PROCR 440 440 RUN FORWARD & BACK (3)
44001 NOTES RADIX B
44207>
44215>
44217>
43919>
43915>
43903>44002 124 3 0 1 modify address of next TEST PP=0
44003 106 180 0 0 select (N)
44004 127 440 18 0 0 jump A = Z >YES
44005 106 212 6 0 0 select (N)
44006 126 306 2 0 0 enter subroutine >STEP BACK 2, STEP FORWARD
44007 126 357 2 0 0 enter subroutine >COUNT 500 M.SECS
44008 124 188 2 0 1 modify address of next RUN BACK
44009 119 0 0 2 run back
44010 126 351 2 0 0 enter subroutine >TEST RTE NOTING D/B
44011 126 342 2 0 0 enter subroutine *019 SET (64+R) FOR HIGH DENSITY
44012 106 210 8 0 0 select (N)
44029>44013 126 306 2 0 0 enter subroutine > STEP BACK, STEP FORWARD
44014 126 343 2 0 0 enter subroutine *019 CLEAR BIT 1 OF (64+R)
Source image: P1020708.JPG
44023>44015 126 329 2 0 0 enter subroutine >READ
44016 126 351 2 0 0 enter subroutine >TEST RTE NOTING D/B
44017 124 439 2 1 0 unconditional jump >
44116>
44004>44018 126 341 2 0 0 enter subroutine SET(MR3)=(64+R)
44019 106 4 1 3 select (N) TEST FINIS
44020 105 258 28 1 0 subtract (N) from (A)
44021 127 442 18 0 0 jump A = Z >YES
44022 126 315 2 0 0 enter subroutine >TEST A1=FBK
44023 124 440 15 1 0 unconditional jump >YES
44024 124 188 2 0 1 modify address of next RUN FORWARD
44025 119 0 0 3 run forward
44026 126 351 2 0 0 enter subroutine >TEST RTE NOTING D/B
44027 126 342 2 0 0 enter subroutine *019 SET (64+R) FOR HIGH DENSITY
44028 106 212 6 0 0 select (N)
44029 124 440 13 1 0 unconditional jump >STEP BACK 2, FORWARD 1
44100 PROCR 441 441 RUN FORWARD & BACK (4)
44101 NOTES RADIX B
43910>44102 106 210 8 0 0 select (N) AUGMENT REEL CNTR BY 1
44103 100 210 3 0 3 set radix
44125>44104 124 188 2 0 1 modify address of next
44105 107 190 34 0 0 augment (N) by (A)
44106 100 212 2 0 3 set radix
44107 126 357 2 0 0 enter subroutine COUNT 500 MILLISECS
44108 126 324 2 0 0 enter subroutine >UNLOAD, 'NEW' COMMENT
44109 126 410 2 0 0 enter subroutine >OPEN INPUT REEL
44110 126 341 2 0 0 enter subroutine >SET (MR3)=(64+R)
44111 124 2 0 1 modify address of next CLEAR IDENTIFIER WORD
44112 124 33 0 1 modify address of next
44113 102 0 1 3 transfer (A) to N
44114 126 339 2 0 0 enter subroutine >SET (MR3)=(3)
44115 102 180 0 3 transfer (A) to N SET PP=0
44116 124 440 18 1 0 unconditional jump >
43906>44117 126 340 2 0 0 enter subroutine >SET(MR3)=R
44118 101 3 0 1 prepare for digit collation TEST REEL NO=1
44119 115 190 34 0 3 collate and add
44120 105 210 8 0 0 subtract (N) from (A)
44121 127 442 8 0 0 jump A = Z >YES
44122 125 0 1 2 interrogate indicators AUG MENT REEL CNTR BY-1
44123 100 210 3 0 3 set radix
44124 105 210 8 0 0 subtract (N) from (A)
44125 124 441 4 1 0 unconditional jump >
44200 PROCR 442 442 RUN FORWARD & BACK (5)
44201 NOTES RADIX B
43921>44202 102 258 12 0 0 transfer (A) to N STORE DIFFERENCE, AN - REQ'D WORD
44203 126 339 2 0 0 enter subroutine >SET (MR3)=(3)
44204 106 180 0 3 select (N) TEST PP=0
44205 127 442 16 0 0 jump A = Z >YES
44206 106 258 12 0 0 select (N) TEST DIFFERENCE < 0
44207 127 440 2 0 2 jump A >= Z >NO
44121>44208 126 339 2 0 0 enter subroutine >SET (MR3=((3)
44220>44209 102 180 0 3 transfer (A) to N SET PP=0
44210 106 181 0 3 select (N) STEP QQ BY 1
44211 104 210 8 0 0 add (N) to (A)
44212 103 181 0 3 copy (A) to N
44213 101 6 1 2 subtract literal address *774 00002
44214 127 263 25 0 0 jump A = Z *773 >ZZZ08
44215 124 440 2 1 0 unconditional jump >
44205>44216 106 258 12 0 0 select (N) TEST DIFFERENCE > 0
44217 127 440 2 0 3 jump A < Z >NO
44021>
43912>44218 126 339 2 0 0 enter subroutine >SET (MR3)=(3)
44219 124 15 0 2 select literal and division
44220 124 442 9 1 0 unconditional jump >SET PP=15
Source image: P1020709.JPG
41066>44221 106 214 92 1 0 select (N) *77Ю OFFER
44222 102 258 4 1 0 transfer (A) to N
44223 126 361 2 0 0 enter subroutine EDIT TIME SET UP PROG NO
44224 106 33 0 1 select (N) IDENTIFIER WORD
44225 102 258 8 0 0 transfer (A) to N
44226 106 32 0 1 select (N) IDENTIFIER VALUE
44227 102 258 10 0 0 transfer (A) to N
44228 102 258 12 1 0 transfer (A) to N CLEAR COL 5
44229 101 3 1 3 select literal address
44230 118 13 0 3 shift binary SET BITS 14 AND 15
44231 102 41 0 1 transfer (A) to N
44232 101 262 2 1 3 select literal address TABLE START ADDR.
44233 124 335 2 1 0 unconditional jump >OFFER OPTIONS
44234 126 362 2 0 0 enter subroutine OPT 15 SET ROUTE TO MANUAL
44235 101 1 1 3 select literal address SET REEL COUNTER = 1
44236 124 188 2 0 1 modify address of next
44237 102 190 34 0 0 transfer (A) to N
44238 126 410 2 0 0 enter subroutine OPEN I/P REEL
44239 124 438 11 1 0 unconditional jump >RUN FORWARD
44300 PROCR 443 443 STEP BACK 1
44301 NOTES RADIX B
26742>44302 124 3 0 1 modify address of next SET N NON-ZERO
44303 102 181 0 0 transfer (A) to N
26746>44304 101 3 1 3 select literal address SET M=L+3
44305 124 444 7 1 0 unconditional jump > 43627
44306 100 4102 0 3 set radix
44400 PROCR 444 444 STEP BACK 2
44401 NOTES RADIX B
26745>44402 124 3 0 1 modify address of next SET N NON-ZERO
44403 102 181 0 0 transfer (A) to N
26741>44404 126 309 2 0 0 enter subroutine >WRITE END OF FILE
44405 126 310 2 0 0 enter subroutine >INFORMATION
44406 101 5 1 3 select literal address
44305>44407 100 210 3 0 3 set radix
44408 104 32 0 1 add (N) to (A) SET M=L+5
44409 100 212 2 0 3 set radix
44410 124 3 0 1 modify address of next
44411 102 180 0 0 transfer (A) to N
44412 106 32 0 1 select (N)
44413 127 263 22 0 3 jump A < Z >YES
44414 127 444 29 0 1 jump A != Z >NO TEST L=0
44415 106 31 0 1 select (N)
44416 101 44 1 2 subtract literal address TEST RTE. TYPE=44
44417 127 263 22 0 1 jump A != Z >NO
44418 124 188 2 0 1 modify address of next TEST BLOCK COUNTER=8
44419 106 190 2 0 0 select (N)
44420 101 8 1 2 subtract literal address
44421 127 446 25 0 0 jump A = Z *019 >YES
44422 127 444 29 0 1 jump A != Z *012 >NO
44423 101 3 1 3 select literal address
44424 126 306 2 0 0 enter subroutine STEP BACK 3, FORWARD 1
44425 101 6 1 3 select literal address
44426 124 188 2 0 1 modify address of next
44427 102 190 2 0 0 transfer (A) to N SET BLOCK COUNTER=6
44428 124 446 31 1 0 unconditional jump *012
44422>
44414>44429 125 0 1 2 interrogate indicators
44430 100 210 3 0 3 set radix
44431 105 32 0 1 subtract (N) from (A) STEP BLOCK CNTR BY-L-1
44432 126 331 2 0 0 enter subroutine >
44551>44433 126 340 2 0 0 enter subroutine >SET (MR3)=R
44434 100 210 3 0 3 set radix TEST BLOCK CTR >
44435 106 190 2 0 3 select (N) NO. OF HEADING BLOCK
44436 101 6 1 2 subtract literal address
Source image: P1020710.JPG
44437 127 445 2 0 3 jump A < Z >NO
44459>44438 100 212 2 0 3 set radix
44439 101 213 12 1 3 select literal address CONVERT M
44440 124 3 0 1 modify address of next
44441 112 180 0 0 convert
44442 126 306 2 0 0 enter subroutine >STEP BACK M, FORWARD 1 BLOCK
44443 126 329 2 0 0 enter subroutine >READ
44444 126 351 2 0 0 enter subroutine >TEST ROUTE NOTING D/B
44467>
44470>44445 126 315 2 0 0 enter subroutine >TEST A1 FOR FBM
44446 124 444 60 1 0 unconditional jump >FBM FOUND
44447 100 210 3 0 3 set radix DEC
44448 126 314 2 0 0 enter subroutine >TEST A1=BLOCK COUNTER
44449 100 212 2 0 3 set radix BIN
44450 127 446 10 0 0 jump A = Z >YES
44451 127 444 62 0 3 jump A < Z >YES TEST A1<BLOCK CNTR
44452 100 210 3 0 3 set radix DEC
44453 101 256 1 2 subtract literal address TEST A1 WITHIN 100
44454 127 444 60 0 2 jump A >= Z >NO OF BLOCK CNTR
44455 101 258 1 1 add literal address SET M=DISCREPANCY
44461>44456 124 3 0 1 modify address of next
44457 102 180 0 0 transfer (A) to N
44458 100 212 2 0 3 set radix BIN
44459 124 444 38 1 0 unconditional jump >
44454>
44446>44460 101 3 1 3 select literal address SET M=3
44461 124 444 56 1 0 unconditional jump >
44451>44462 101 444 45 1 3 select literal address SELECT RETURN LOCATION
44463 124 3 0 1 modify address of next
44464 102 162 0 0 transfer (A) to N
44465 126 323 2 0 0 enter subroutine >TEST OPTION LINK
44466 126 316 2 0 0 enter subroutine >ALIGNMENT FAILURE
44467 124 444 45 1 0 unconditional jump
44468 126 317 2 0 0 enter subroutine >REREAD
44469 126 319 2 0 0 enter subroutine >STEP ATTEMPTS COUNTER
44470 124 444 45 1 0 unconditional jump
44500 PROCR 445 445 STEP BACK 3
44501 NOTES RADIX B
44437>44502 124 3 0 1 modify address of next STORE BLOCK COUNTER
44503 102 169 0 0 transfer (A) to N
44504 124 3 0 1 modify address of next CLEAR M
44505 102 180 0 0 transfer (A) to N
44506 101 3 0 1 prepare for digit collation STEP REEL CNTR
44507 115 190 34 0 3 collate and add TEST NO OF REQ'D
44508 105 210 8 0 0 subtract (N) from (A) REEL=0
44509 100 212 2 0 3 set radix
44510 127 263 23 0 0 jump A = Z >YES, ZZZ COMMENT
44511 114 190 34 0 3 replace selected bits PACK IN NEW REEL NO
44512 126 357 2 0 0 enter subroutine COUNT 500 MILLISECS
44513 126 324 2 0 0 enter subroutine >UNLOAD CALL FOR NEW TAPE
44514 126 410 2 0 0 enter subroutine >OPEN INPUT REEL
44532>44515 124 188 2 0 1 modify address of next RUN FORWARD
44516 119 0 0 3 run forward
44517 126 351 2 0 0 enter subroutine >TEST RTE NOTING D/B
44518 126 342 2 0 0 enter subroutine *019 SET(MR2)=(64+R)FOR 90K
44519 126 329 2 0 0 enter subroutine >READ
44520 126 343 2 0 0 enter subroutine *019 SET(MR2)=(64+R)FOR 90K
44521 126 351 2 0 0 enter subroutine >TEST RTE NOTING D/B
44522 126 341 2 0 0 enter subroutine >SET(MR3)=(64+R)
44523 106 1 1 3 select (N)
44524 105 211 7 1 0 subtract (N) from (A) TEST SENTINEL TYPE 2
44525 105 210 8 0 0 subtract (N) from (A)
44526 127 445 36 0 0 jump A = Z >YES
44527 106 0 1 3 select (N)
44528 105 258 30 0 0 subtract (N) from (A) TEST A1=(END)
Source image: P1020711.JPG
44529 127 445 32 0 0 jump A = Z >YES
44530 106 2 1 3 select (N)
44531 105 258 30 0 0 subtract (N) from (A) TEST A2=(END)
44529>44532 127 445 15 0 1 jump A != Z
44533 106 210 8 0 0 select (N)
44534 124 3 0 1 modify address of next SET M=1
44535 102 180 0 0 transfer (A) to N
44526>44536 124 3 0 1 modify address of next
44537 106 160 0 0 select (N) TEST D/B OCCURRED
44538 127 263 24 0 1 jump A != Z >YES
44539 100 210 3 0 3 set radix AUGMENT M BY 3
44540 101 3 1 3 select literal address -CTR IN SP. CHAP.
44541 124 3 0 1 modify address of next
44542 105 169 0 0 subtract (N) from (A)
44543 124 3 0 1 modify address of next
44544 107 180 0 0 augment (N) by (A)
44545 124 3 0 1 modify address of next SET BLOCK CTR.=
44546 106 169 0 0 select (N) STORED VALUE+A3-1
44547 104 5 1 3 add (N) to (A)
44548 105 210 8 0 0 subtract (N) from (A)
44549 124 188 2 0 1 modify address of next
44550 102 190 2 0 0 transfer (A) to N
44551 124 444 33 1 0 unconditional jump >
44600 PROCR 446 446 STEP FORWARD 1
44601 NOTES RADIX B
26744>44602 124 3 0 1 modify address of next *1‼Ю
44603 102 181 0 0 transfer (A) to N
26743>44604 106 32 0 1 select (N) TEST L<0
44605 127 263 22 0 3 jump A < Z >YES, ZZZ COMMENT
44606 127 263 22 0 0 jump A = Z >YES, ZZZ COMMENT TEST L=0
44607 126 331 2 0 0 enter subroutine >AUGMENT BLOCK COUNTER BY-1
44712>
44743>
44749>
44752>44608 126 314 2 0 0 enter subroutine >TEST A1=BLOCK COUNTER
44609 127 447 2 0 1 jump A != Z *1‼Ю
44450>44610 124 3 0 1 modify address of next CLEAR OPTION INDICATOR
44611 102 171 0 0 transfer (A) to N
44612 126 321 2 0 0 enter subroutine >'SER' COMMENT
44613 124 3 0 1 modify address of next TEST N=0
44614 106 181 0 0 select (N)
44615 127 268 9 0 0 jump A = Z
44616 125 0 1 2 interrogate indicators NORMAL
44617 124 3 0 1 modify address of next
44618 102 181 0 0 transfer (A) to N SET N=0
44619 126 329 2 0 0 enter subroutine >READ
44620 106 210 8 0 0 select (N) STEP BLOCK COUNTER BY 1
44621 126 333 2 0 0 enter subroutine
44622 101 7 1 3 select literal address SET ROUTE TYPE 7
44623 102 188 3 0 0 transfer (A) to N
44624 124 268 8 1 0 unconditional jump >UPDATE ASSR TABLE
44421>44625 126 357 2 0 0 enter subroutine *01Ю
44626 124 188 2 0 1 modify address of next
44627 119 0 1 1 rewind REWIND
44628 126 351 2 0 0 enter subroutine TEST ROUTE NOTING D/B
44629 126 357 2 0 0 enter subroutine COUNT 500 MS
44630 126 307 2 0 0 enter subroutine *01Ю
44428>44631 126 308 2 0 0 enter subroutine READ, TEST BLOCK
44632 124 268 9 1 0 unconditional jump >EXIT
44700 PROCR 447 447 STEP FORWARD 2
44701 NOTES RADIX B
44609>44702 106 1 1 3 select (N) *1‼Ю
44703 105 211 7 1 0 subtract (N) from (A)
44704 105 210 8 0 0 subtract (N) from (A)
Source image: P1020712.JPG
44705 127 447 13 0 0 jump A = Z >YES
44706 105 210 8 0 0 subtract (N) from (A) TEST SENTINEL TYPE 3
44707 127 263 23 0 0 jump A = Z >YES
44708 126 314 2 0 0 enter subroutine >TEST A1>BLOCK COUNTER
44709 127 447 44 0 2 jump A >= Z >YES
44710 126 329 2 0 0 enter subroutine > READ
44711 126 351 2 0 0 enter subroutine >TEST RTE NOTING D/B
44712 124 446 8 1 0 unconditional jump >
44705>44713 124 3 0 1 modify address of next TEST D/B OCCURRED
44714 106 160 0 0 select (N)
44715 127 447 21 0 0 jump A = Z >NO
44716 126 329 2 0 0 enter subroutine >READ
44717 126 351 2 0 0 enter subroutine >TEST RTE NOTING D/B
44718 124 3 0 1 modify address of next
44719 106 160 0 0 select (N) TEST D/B OCCURRED
44720 127 263 24 0 1 jump A != Z >YES, ZZZ COMMENT
44715>44721 106 210 8 0 0 select (N)
44722 100 210 3 0 3 set radix STEP REEL CNTR BY 1
44723 124 188 2 0 1 modify address of next
44724 107 190 34 0 0 augment (N) by (A)
44725 126 341 2 0 0 enter subroutine >SET (MR3)=(64+R)
44726 106 210 8 0 0 select (N) STORE BLOCK COUNTER.
44727 105 5 1 3 subtract (N) from (A) AUGMENTED BY-A3-1
44728 124 188 2 0 1 modify address of next
44729 104 190 2 0 0 add (N) to (A)
44730 124 3 0 1 modify address of next
44731 102 169 0 0 transfer (A) to N
44732 100 212 2 0 3 set radix
44733 126 357 2 0 0 enter subroutine COUNT 500 MILLISECS
44734 126 324 2 0 0 enter subroutine >UNLOAD 'NEW' COMMENT
44735 126 410 2 0 0 enter subroutine >OPEN NEW INPUT REEL
44736 100 210 3 0 3 set radix SET DECIMAL
44737 124 3 0 1 modify address of next AUGMENT STORED CTR.
44738 106 169 0 0 select (N) BY HEADING BLOCKS
44739 101 7 1 1 add literal address AND RESTORE
44740 124 188 2 0 1 modify address of next
44741 102 190 2 0 0 transfer (A) to N
44742 100 212 2 0 3 set radix SET BINARY
44743 124 446 8 1 0 unconditional jump >
44709>44744 101 446 8 1 3 select literal address SELECT RETURN LOCATION
44745 124 3 0 1 modify address of next
44746 102 162 0 0 transfer (A) to N
44747 126 323 2 0 0 enter subroutine >TEST OPTION LINK
44748 126 316 2 0 0 enter subroutine >ALIGNMENT FAILURE
44749 124 446 8 1 0 unconditional jump >
44750 126 317 2 0 0 enter subroutine >REREAD
44751 126 319 2 0 0 enter subroutine >STEP ATTEMPTS COUNTER
44752 124 446 8 1 0 unconditional jump *1‼Ю
44753 127 263 18 0 2 jump A >= Z *££0*££2*223*2333:‼*2433:‼ >NO
44754 127 263 18 0 2 jump A >= Z *3:‼
44755 127 263 18 0 3 jump A < Z *3:3 >ZZZ01
44756 127 449 15 0 3 jump A < Z *3:‼243*3:‼233533
44800 PROCR 448 448 SET REEL COUNTER
26749>44802 106 188 2 0 0 select (N)
44803 103 6 1 0 copy (A) to N SET(MR3)=R TEST IF M/T
44804 101 16 1 2 subtract literal address *3:Ю
44805 127 448 8 0 3 jump A < Z *3:Ю
44806 101 111 1 2 subtract literal address *224*2343:+*2443:+ 000080001600024
44807 127 263 18 0 3 jump A < Z *223*2333:‼*2433:‼ >NO:ZZZ01
44805>44808 106 190 34 0 3 select (N) TEST REEL COUNTER=0
44809 127 448 12 0 1 jump A != Z >NO
44810 124 3840 0 2 select literal and division SETX=
44811 102 190 34 0 3 transfer (A) to N
44809>44812 101 3 0 1 prepare for digit collation SET Y=NEW REEL NO
44813 106 32 0 1 select (N)
Source image: P1020713.JPG
44814 114 190 34 0 3 replace selected bits
44815 124 269 6 1 0 unconditional jump >
44900 PROCR 449 449 SELECT REEL COUNTER
26426>44902 106 30 0 1 select (N) *19Ю
44903 103 6 1 0 copy (A) to N SET(MR3)=R
44904 101 24 1 2 subtract literal address *02Ю*534 TEST P/T 0000000016
44905 127 449 10 0 3 jump A < Z *3:3*3:‼243*3:‼233533 >NO
44906 101 5 1 2 subtract literal address *534*0Ю4 0001300013
44907 127 449 10 0 2 jump A >= Z *3:‼
44908 106 252 66 0 3 select (N) *53+0Ю+3:+*53+3:+ 0005000058
44909 124 269 6 1 0 unconditional jump >
44907>
44905>44910 106 6 0 0 select (N) *02Ю
44911 101 128 1 2 subtract literal address *3:Ю242*3:Ю232532*3:Ю
44912 127 263 18 0 3 jump A < Z *3:Ю >ZZZ01
44913 101 24 1 2 subtract literal address *234*224 0001600008
44914 127 263 18 0 2 jump A >= Z *3:Ю242*3:Ю232532 ZZZ01
44756>44915 101 3 0 1 prepare for digit collation
44916 125 0 1 2 interrogate indicators
44917 115 190 34 0 3 collate and add SELECT REEL COUNTER
44918 124 269 6 1 0 unconditional jump >
45000 PROCR 450 450 RELEASE-ROUTE
10019>45002 124 212 2 1 1 set modification group *13Ю SET MOD GROUP 0
45003 103 188 2 0 0 copy (A) to N STORE(A)
45004 102 30 0 1 transfer (A) to N
45005 126 238 2 0 0 enter subroutine *069099 >AUGMENT TIME SPENT
45006 126 250 2 0 0 enter subroutine *599 >STORE MOD GROUP 3
45007 106 100 18 0 0 select (N) STORE LINK
45008 102 44 1 1 transfer (A) to N
45009 126 353 2 0 0 enter subroutine >SELECT ROUTE NUMBER FROM LAST CHAPTER
45010 127 450 14 0 0 jump A = Z >YES TEST REQUIRED ENTRY
45011 125 2 0 3 step on and test TEST END OF TABLE
45012 124 353 4 1 0 unconditional jump >NO
45013 124 327 10 1 0 unconditional jump >XXXG COMMENT
45010>45014 101 16 0 1 prepare for digit collation STORE ROUTE TYPE
45015 115 34 0 3 collate and add
45016 118 4124 0 0 shift logical
45017 102 188 3 0 0 transfer (A) to N
45018 105 34 1 3 subtract (N) from (A) SET ENTRY NEGATIVE
45019 127 263 26 0 2 jump A >= Z >ZZZ09
45020 102 34 1 3 transfer (A) to N
45021 101 12 0 1 prepare for digit collation *17Ю18Ю
45022 115 34 0 3 collate and add ROUTE ALLOCATED
45023 105 210 5 0 0 subtract (N) from (A)
45024 127 450 27 0 0 jump A = Z >NO
45025 104 210 5 0 0 add (N) to (A) STORE ALTERNATE ROUTE
45026 118 4126 0 0 shift logical AND SET
45024>45027 102 533 7 0 0 transfer (A) to N *17Ю18Ю
45028 101 175 1 3 select literal address *3:+ 00023
45029 126 328 2 0 0 enter subroutine >CHANGE PARAMETER TABLES
45044>45030 106 188 3 0 0 select (N) SET ROUTE AVAILABLE
45031 124 188 2 0 1 modify address of next
45032 102 64 0 0 transfer (A) to N
45033 100 210 10 0 2 replace (B) by (N) SET (MR2)=8*CH NO
45034 115 188 2 0 0 collate and add
45035 102 4 1 0 transfer (A) to N
45036 101 1 0 1 prepare for digit collation CLEAR D/B INDICATOR
45037 124 188 2 0 1 modify address of next
45038 118 0 1 0 shift logical
45039 114 252 4 1 2 replace selected bits
45040 106 533 7 0 0 select (N) *17Ю18Ю
45041 127 450 45 0 0 jump A = Z >NO
45042 102 188 2 0 0 transfer (A) to N SET UP ALT ROUTE
45043 102 533 7 0 0 transfer (A) to N CLEAR INDICATOR
Source image: P1020714.JPG
45044 124 450 30 1 0 unconditional jump *17Ю18Ю
45041>45045 106 214 86 1 0 select (N)
45046 102 258 4 1 0 transfer (A) to N
45047 126 345 2 0 0 enter subroutine >EDIT TIME ETC
45048 126 356 2 0 0 enter subroutine >SET UP PROG NO
45049 124 450 52 0 2 select literal and division
45050 126 363 2 0 0 enter subroutine >SET LINK FOR SI=5
45051 124 282 11 1 0 unconditional jump >OUTPUT COMMENT
45052 126 359 2 0 0 enter subroutine >SET SI=4
45053 124 268 9 1 0 unconditional jump >PROG
45100 PROCR 451 451 OUTPUT NO OF O/P DB'S PER REEL
45102 100 0 0 0 Halt *8£Ю
45103 106 451 2 0 0 select (N) STORE RETURN ADDR
45104 124 3 0 1 modify address of next
45105 102 197 0 0 transfer (A) to N
45106 106 30 1 1 select (N) SET UP ROUTE NO
45107 103 188 2 1 0 copy (A) to N
45108 102 6 1 0 transfer (A) to N (MR3)=R
45109 106 193 2 0 3 select (N) DB COUNT
45110 127 451 31 0 0 jump A = Z >ZERO NO COMMENT
45111 102 258 8 0 0 transfer (A) to N
45112 102 193 2 0 3 transfer (A) to N CLEAR COUNT
45113 106 215 48 1 0 select (N) 'TMS'
45114 102 258 4 1 0 transfer (A) to N
45115 126 345 2 0 0 enter subroutine EDIT TIME SET UP RTE NO
45116 126 356 2 0 0 enter subroutine SET UP PROG NO
45117 106 193 26 0 3 select (N) O/P BLOCK COUNT
45118 102 258 10 0 0 transfer (A) to N
45119 102 193 26 0 3 transfer (A) to N CLEAR
45120 106 193 50 0 3 select (N) SPOOL NO
45121 102 258 12 0 0 transfer (A) to N
45122 101 261 54 1 3 select literal address CONVERT TO ALPHA
45123 128 258 12 1 2 edit fixed field formats
45124 101 451 28 1 3 select literal address RETURN ADD
45125 126 363 2 0 0 enter subroutine
45126 101 262 2 1 3 select literal address
45127 124 336 2 1 0 unconditional jump >OUTPUT COMMENT
45128 126 359 2 0 0 enter subroutine
45129 106 30 1 1 select (N) RESTORE 188/2
45130 102 188 2 1 0 transfer (A) to N FROM SI+30
45110>45131 124 3 0 1 modify address of next
45132 126 197 0 1 leave subroutine >LEAVE S/R
45200 PROCR 452 452 LOCKOUT AND OVERFLOW ROUTINE
45201 NOTES RADIX HALT VERSION
20822>45202 124 212 2 1 1 set modification group *34Ю SET MOD GROUP 0
45203 100 212 2 0 3 set radix BINARY
45204 106 24 0 0 select (N)
45205 102 38 0 1 transfer (A) to N STORE(24)
45206 124 214 34 0 2 select literal and division AMEND EDIT TABLE
45227>45207 102 217 28 0 0 transfer (A) to N
45208 106 1 0 0 select (N) STORE(1)
45209 102 40 0 1 transfer (A) to N
45210 106 44 0 1 select (N) STORE LAST
45211 102 41 0 1 transfer (A) to N ENTRY POINT
45212 106 39 0 1 select (N) STORE PROG NUMBER
45213 103 221 8 0 0 copy (A) to N
45214 105 107 11 0 0 subtract (N) from (A) TEST IF MASTER
45215 127 452 28 0 0 jump A = Z >YES
45216 126 177 2 0 0 enter subroutine >REQUEST T/W
45217 124 217 28 0 2 select literal and division EDIT COMMENT
45218 128 102 6 1 2 edit fixed field formats
45219 124 4 0 2 select literal and division
45220 126 234 2 0 0 enter subroutine >S/R H
45221 124 181 2 1 0 unconditional jump >LOG ROUTINE
Source image: P1020715.JPG
55608>45222 124 212 2 1 1 set modification group SET MOD GROUP 0
45223 100 212 2 0 3 set radix BINARY
45224 106 16 0 0 select (N) STORE(16)
45225 102 38 0 1 transfer (A) to N STORE(16)
45226 124 214 38 0 2 select literal and division
45227 124 452 7 1 0 unconditional jump >
45215>45228 106 217 28 0 0 select (N)
45229 105 214 34 0 0 subtract (N) from (A)
45230 127 452 32 0 0 jump A = Z >OFLOW
45231 101 1 1 3 select literal address L'OUT
45230>45232 101 83 1 1 add literal address
45233 124 208 3 1 0 unconditional jump >XXX COMMENT
45300 PROCR 453 453 CONVERT S/R (FOR LOCKOUT AND OVERFLOW)
45302 100 0 0 0 Halt *342 LINK
45303 118 4124 1 0 shift logical STORE DIVISION NUMBER
45304 118 3 1 3 shift binary
45305 118 4 0 0 shift logical
45306 102 221 2 0 0 transfer (A) to N
45307 118 13 1 3 shift binary CONVERT LOCATION WITHIN DIVISION
45308 102 222 12 0 0 transfer (A) to N
45309 100 210 3 0 3 set radix SET DECIMAL
45310 101 213 2 1 3 select literal address SELECT TABLE START
45311 112 222 12 0 0 convert
45312 107 221 2 0 0 augment (N) by (A)
45313 100 212 2 0 3 set radix SET BINARY
45314 106 221 2 0 0 select (N)
45315 126 453 2 0 1 leave subroutine >LEAVE S/R
45400 PROCR 454 454 LOCKOUT ROUTINE
45401 NOTES RADIX B
55806>45402 124 2 0 1 modify address of next *342
45403 100 30 1 0 copy registers STORE(A)(B)(C)
45404 100 212 2 0 3 set radix SET BINARY
45405 126 474 2 0 0 enter subroutine >SET TAG 15
45406 124 212 2 1 1 set modification group 0 SET MOD GROUP 0
45407 106 2 0 0 select (N) (MR1)
45408 105 107 8 0 0 subtract (N) from (A) M/R LINK TEST FOR M/R LOCKOUT
45409 127 455 16 0 0 jump A = Z >
45410 125 0 1 2 interrogate indicators
45411 101 15 0 1 prepare for digit collation COLLATE(16)
45412 115 16 0 0 collate and add
45413 105 210 8 0 0 subtract (N) from (A) SUBTRACT ONE
45414 126 453 2 0 0 enter subroutine >CONVERT S/R
45415 102 38 0 1 transfer (A) to N
45416 101 15 0 1 prepare for digit collation COLLATE LAST ENTRY POINT
45417 115 44 0 1 collate and add
45418 126 453 2 0 0 enter subroutine >CONVERT S/R
45419 102 43 0 1 transfer (A) to N
45420 106 32 0 0 select (N) *3Ю4 1
45421 126 453 2 0 0 enter subroutine >CONVERT S/R
45422 102 45 0 1 transfer (A) to N
45500 PROCR 455 455 LOCKOUT ROUTINE (2)
45501 NOTES RADIX B
45502 123 177 2 0 2 enter master routine *342 REQUEST T/W
45503 106 39 0 1 select (N) PROG IDENT NO
45504 102 221 2 0 0 transfer (A) to N
45505 106 38 0 1 select (N) STORE DETAILS
45506 102 222 12 0 0 transfer (A) to N
45507 106 43 0 1 select (N)
45508 102 222 13 0 0 transfer (A) to N
45509 106 45 0 1 select (N)
45510 102 222 14 0 0 transfer (A) to N
45511 124 217 6 0 2 select literal and division EDIT COMMENT
45718>45512 128 102 6 1 2 edit fixed field formats
Source image: P1020716.JPG
45513 124 4 0 2 select literal and division
45514 126 234 2 0 0 enter subroutine >S/R H
45515 124 181 2 1 0 unconditional jump >LOG ROUTINE
45409>45516 101 84 1 3 select literal address CODE LETTER (D)
45517 124 208 3 1 0 unconditional jump >
45600 PROCR 456 456 OVERFLOW ROUTINE
45601 NOTES RADIX B
20907>45602 124 2 0 1 modify address of next *342 STORE (A) (B),(C)
45603 100 30 1 0 copy registers
45604 100 212 2 0 3 set radix SET BINARY
45605 106 108 13 0 0 select (N) 26/0/1/0/24 ARRANGE TO IGNORE
45606 102 25 0 0 transfer (A) to N FURTHER OVERFLOW
45607 124 212 2 1 1 set modification group 0 SET MOD GROUP 0
45608 106 2 0 0 select (N) TEST IF M/R OVERFLOW
45609 105 107 8 0 0 subtract (N) from (A)
45610 127 457 19 0 0 jump A = Z >
45611 106 24 0 0 select (N) STORE CONTENTS OF COMPARTMENT 24
45612 103 38 0 1 copy (A) to N
45613 118 6 0 0 shift logical GET RID OF TAG
45614 118 4122 0 0 shift logical
45615 105 210 8 0 0 subtract (N) from (A) SUBTRACT 1
45616 126 453 2 0 0 enter subroutine >CONVERT S/R
45617 102 45 0 1 transfer (A) to N
45618 106 209 7 0 0 select (N) 24/1/0/282/0
45619 102 25 0 0 transfer (A) to N RESET (25)
45620 126 177 2 0 0 enter subroutine >REQUEST T/W
45621 106 39 0 1 select (N) PROG.IDENT.NO
45622 102 221 2 0 0 transfer (A) to N W/L
45700 PROCR 457 457 OVERFLOW ROUTINE 2
45701 NOTES RADIX B
45702 124 2 0 1 modify address of next *342
45703 100 30 1 1 replace registers SELECT DETAILS &
45704 100 222 12 1 0 copy registers STORE IN FIXED AREAS
45705 100 212 2 0 3 set radix RESET(C) BINARY
45706 106 45 0 1 select (N)
45707 102 221 3 0 0 transfer (A) to N
45708 124 3 0 1 modify address of next *60Ю TEST IF TRIAL
45709 106 11 0 0 select (N)
45710 127 457 17 0 0 jump A = Z >NO
45711 106 38 0 1 select (N) TEST IF O'FLOW
45712 118 6 0 0 shift logical
45713 118 4122 0 0 shift logical
45714 101 535 2 1 2 subtract literal address IN M/R AREA
45715 124 233 45 0 1 modify address of next
45716 127 3 0 2 jump A >= Z *60Ю >NO
45710>45717 124 216 2 0 2 select literal and division
45718 124 455 12 1 0 unconditional jump >
45610>45719 101 83 1 3 select literal address CODE LETTER (C)
45720 124 208 3 1 0 unconditional jump >
45800 PROCR 458 458 UNASSIGNED ACTION
55809>45802 124 2 0 1 modify address of next *3Ю2
45803 100 30 1 0 copy registers STORE A.B C IN SI
45804 124 212 2 1 1 set modification group SET MOD GROUP 0
45805 100 212 2 0 3 set radix SET BINARY
45806 106 2 0 0 select (N) TEST IF M/R UA
45807 105 107 8 0 0 subtract (N) from (A)
45808 127 458 36 0 0 jump A = Z >YES:XXX D
45809 125 0 1 2 interrogate indicators SET UP CONVERT TABLE
45810 101 15 0 1 prepare for digit collation *342
45811 115 0 0 0 collate and add COLLATE OUT LINK
45812 126 453 2 0 0 enter subroutine >CONVERT S/R
45813 102 45 0 1 transfer (A) to N *342
45814 102 213 10 0 0 transfer (A) to N *34Ю
Source image: P1020717.JPG
45815 100 210 3 0 3 set radix
45816 101 213 2 1 3 select literal address CONVERT LINK
45817 112 0 0 0 convert
45818 102 45 0 1 transfer (A) to N
45819 100 212 2 0 3 set radix
45820 106 210 11 0 0 select (N) RESET CONVERT TABLE
45821 102 213 10 0 0 transfer (A) to N *34Ю
45822 126 177 2 0 0 enter subroutine >REQUEST TW
45823 106 39 0 1 select (N) SET UP PROG NO
45824 102 258 6 0 0 transfer (A) to N
45825 106 45 0 1 select (N) SET UP LINK
45826 102 258 8 0 0 transfer (A) to N
45827 102 258 10 1 0 transfer (A) to N
45828 102 258 7 0 0 transfer (A) to N
45829 101 261 12 1 3 select literal address EDIT COMMENT
45830 128 102 6 1 2 edit fixed field formats
45831 106 214 84 1 0 select (N) SET UP 'CPF'
45832 102 102 6 1 0 transfer (A) to N
45833 101 4 1 3 select literal address
45834 126 234 2 0 0 enter subroutine >EDIT TIME
45835 124 181 2 1 0 unconditional jump >LOG ROUTINE
45808>45836 101 99 1 3 select literal address
45837 124 208 3 1 0 unconditional jump *3Ю2
45838 102 226 2 0 0 transfer (A) to N *££0*££2*0Ю‼*103*4:3103
45839 127 460 44 0 0 jump A = Z *20‼
45840 127 460 44 0 1 jump A != Z *20‼20‼
45900 PROCR 459 459 SUB-ROUTINE G
45901 NOTES RADIX B TO READ CONTROL DATA
45902 100 0 0 0 Halt LINK
46041>45903 102 222 19 0 0 transfer (A) to N FUNCTION NUMBER
45904 106 4 0 0 select (N) TEST CONTROL DATA
45905 105 100 33 0 0 subtract (N) from (A) RTE ACCEPTABLE
45906 127 460 49 0 3 jump A < Z >NO, REJECT
45907 106 100 34 0 0 select (N)
45908 105 4 0 0 subtract (N) from (A)
45909 127 460 49 0 3 jump A < Z >NO, REJECT
45910 106 64 0 2 select (N)
45911 102 222 18 0 0 transfer (A) to N W/L
45912 106 209 10 0 0 select (N) 14/0/0/17/60 SET UP (64+R)
45913 103 460 51 0 0 copy (A) to N *141
45914 102 64 0 2 transfer (A) to N
45915 126 107 8 1 1 set modification register SET (MR1) FOR M/R
45916 106 209 11 0 0 select (N) SET UP (64+R1)
45917 103 127 0 0 copy (A) to N
45918 102 227 2 0 0 transfer (A) to N *103
45919 101 5 1 3 select literal address *14Ю SET OPT P1 SWITCH
45920 102 296 6 0 0 transfer (A) to N *14Ю
45921 101 63 1 3 select literal address *101
45922 106 4 0 0 select (N) *109
45923 118 4118 1 0 shift logical
45924 106 4 0 0 select (N) *04Ю*02Ю TEST PAPER TAPE OR
45925 105 100 36 0 0 subtract (N) from (A) CARD ROUTE
45926 127 460 45 0 2 jump A >= Z *04Ю*02Ю >CARDS
45927 101 5 1 3 select literal address *02+ 00006
46046>45928 118 5 0 0 shift logical
45929 104 4 0 0 add (N) to (A) ROUTE NO
45930 100 222 20 1 0 copy registers STORE (AB)
45931 126 100 2 0 0 enter subroutine >I/P O/P CONTROL READ
45932 100 222 20 1 1 replace registers *102
45933 126 100 2 0 0 enter subroutine *102
45934 126 350 2 0 0 enter subroutine *109
45935 106 222 18 0 0 select (N) RESTORE (64+R)
45936 124 222 20 0 1 modify address of next
45937 102 64 0 0 transfer (A) to N
45938 102 460 51 0 0 transfer (A) to N *141
Source image: P1020718.JPG
45939 106 211 2 0 0 select (N) SET ASSEMBLER TABLE AT £5
45940 124 100 35 0 1 modify address of next
45941 102 252 3 0 0 transfer (A) to N
45942 102 296 6 0 0 transfer (A) to N *149 CLEAR OPTA SWITCH
45943 106 222 19 0 0 select (N) TEST FN=0 (I.E. PLS)
45944 127 460 42 0 0 jump A = Z *20‼
46000 PROCR 460 460 SUB ROUTINE G (CONT)
46001 NOTES RADIX B
46002 106 226 2 1 0 select (N) TEST 1ST WORD OF
46003 105 211 10 1 0 subtract (N) from (A) BLOCK IS CD WORD
46004 127 498 2 0 1 jump A != Z >NO, REJECT
46005 106 226 5 1 0 select (N) TEST 2ND WORD ZERO
46006 103 222 10 0 0 copy (A) to N STORE IT
46007 127 460 16 0 1 jump A != Z >NO
46008 101 5 0 1 prepare for digit collation TEST RTI COMMAND
46009 115 233 7 0 0 collate and add
46010 101 1025 1 2 subtract literal address
46011 127 460 16 0 0 jump A = Z >YES
46012 101 2 1 2 subtract literal address *4ЮЮ
46013 127 460 16 0 0 jump A = Z *4ЮЮ
46014 101 5 1 2 subtract literal address *4Ю4 00003
46015 127 460 47 0 3 jump A < Z >NO
46013>
46011>
46007>46016 106 226 7 1 0 select (N) STORE SERIAL NO OR CH 8 RTE NO
46017 102 222 11 0 0 transfer (A) to N
46018 106 233 7 0 0 select (N)
46019 102 185 0 0 transfer (A) to N
46020 106 226 9 1 0 select (N) STORE RUN NUMBER
46021 102 229 5 0 0 transfer (A) to N *3Ю4*3‼+ 0000300003
46022 106 222 19 0 0 select (N) TEST ALLOCATE
46023 101 2 1 2 subtract literal address COMMAND
46024 127 460 29 0 0 jump A = Z >YES
46025 101 2 1 2 subtract literal address
46026 127 460 29 0 0 jump A = Z >YES
46027 101 5 1 2 subtract literal address
46028 127 460 42 0 1 jump A != Z *20‼20‼
46026>
46024>46029 106 214 10 1 0 select (N) BE WORD INTO ANNEX
46030 102 226 18 1 0 transfer (A) to N
46031 106 258 17 0 0 select (N) CLEAR WORKING LOCAMONS
46032 101 18 1 2 subtract literal address SET UP REG A FOR CLEAR
46033 118 5 0 0 shift logical
46034 128 225 6 0 0 bulk copy short numeric
46035 124 219 2 0 2 select literal and division UNPACK ALLOC DATA FR.TRIAL>CH CH RT
46036 128 226 10 0 3 unpack variable field data
46037 106 233 23 0 0 select (N) *01Ю TEST HIGH DENSITY
46038 127 460 42 0 0 jump A = Z *20‼
46039 106 222 20 0 0 select (N) ROUTE NUMBER
46040 102 4 1 0 transfer (A) to N
46041 124 459 3 1 0 unconditional jump *01Ю
46038>
46028>
45944>46042 124 222 20 0 1 modify address of next *20Ю SET RTE TO MANUAL
46043 119 0 1 3 step on/set manual *20Ю
45840>
45839>46044 126 459 2 0 1 leave subroutine > LEAVE S/R
45926>46045 101 6 1 3 select literal address *04Ю*02Ю
46046 124 459 28 1 0 unconditional jump *04Ю*02Ю
46015>46047 124 81 0 2 select literal and division CODE LETTER A
46048 124 498 3 1 0 unconditional jump >
45909>
45906>46049 124 83 0 2 select literal and division CODE LETTER C
46050 124 498 5 1 0 unconditional jump
46051 100 0 0 0 Halt *141
Source image: P1020719.JPG
46100 PROCR 461 461 SUB-ROUTINE Q
46101 NOTES RADIX B TO FORM STORE CONTROL DATA RTE NO
46102 100 0 0 0 Halt LINK
46103 101 2 0 1 prepare for digit collation FILL Q2B
46104 125 0 1 2 interrogate indicators DRAIN
46105 115 222 2 0 0 collate and add IND. SETTING
46106 118 4127 1 0 shift logical FORM & STORE ROUTE NO.
46107 104 100 35 0 0 add (N) to (A)
46108 102 4 0 0 transfer (A) to N
46109 126 461 2 0 1 leave subroutine >LEAVE S/R
46200 PROCR 462 462 SUB-ROUTINE U*
46201 NOTES RADIX B REQUEST M/R FOR OVERLAY OR UNLOAD
46202 100 0 0 0 Halt LINK
46203 106 462 2 0 0 select (N) STORE LINK IN SPECIAL CHAPTER
46204 124 3 0 1 modify address of next
46205 102 169 0 0 transfer (A) to N
46206 106 487 2 0 0 select (N) TEST IF ALLOCATOR
46207 127 462 13 0 0 jump A = Z >NO LINK SET
46208 124 462 6 0 2 select literal and division SET LINK FOR SI=5
35712>46209 102 42 0 1 transfer (A) to N
46210 126 360 2 0 0 enter subroutine >SET SI=5
29105>46211 124 2 0 1 modify address of next
46212 124 9 1 0 unconditional jump >TO S(I+1)
46207>46213 106 9 0 1 select (N) SET SI=2
46214 103 7 0 1 copy (A) to N
46215 102 487 2 0 0 transfer (A) to N SET ALLOCATOR LINK
46216 125 127 1 0 set indicators SET I1-7
46217 124 3 0 1 modify address of next
46218 126 169 0 1 leave subroutine >LEAVE S/R
46219 100 226 0 0 0 Halt *££0*££1*106
46300 PROCR 463 463 STORE DUMP
46301 NOTES RADIX B INITIAL SET-UP ROUTINE (1)
52305>
19988>46302 106 220 11 0 0 select (N) *41Ю
46303 103 487 2 0 0 copy (A) to N SET ALLOCATOR LINK
46304 102 296 6 0 0 transfer (A) to N *149 SET OPT A SWITCH AT 4
46305 106 1 0 0 select (N) *3ЮЮ
46306 102 227 9 1 0 transfer (A) to N *3ЮЮ*106
46307 106 100 2 0 0 select (N) DIV 0 LOCS 160/161
46308 102 227 43 1 0 transfer (A) to N *106
46309 126 474 2 0 0 enter subroutine *3Ю1 SET TAG 15
46310 106 153 0 0 select (N) *3Ю4 00191
46311 102 227 47 1 0 transfer (A) to N *106
46312 106 32 0 0 select (N) *3Ю2
46313 102 227 11 1 0 transfer (A) to N *3Ю2*106
46314 102 227 6 1 0 transfer (A) to N *106 IN CASE WORD 4 CONTAINS FINIS
46400 PROCR 464 464 STORE DUMP
46401 NOTES RADIX B INITIAL SET-UP ROUTINE (2)
46402 106 107 8 1 0 select (N) *41Ю SET MR1 FOR M/R
46403 102 2 1 0 transfer (A) to N
46404 106 108 12 0 0 select (N) SET M/R SWITCH
46405 102 106 13 0 0 transfer (A) to N NON-INT
46406 102 109 22 0 0 transfer (A) to N CLEAR MODIFIER
46407 106 225 2 1 0 select (N) *57Ю RESET PARA TO
46408 102 233 26 0 0 transfer (A) to N *57Ю ORIG CH CH RT
46409 126 472 2 0 0 enter subroutine >STORE RTE 7 DETAILS
46410 106 209 11 0 0 select (N) SET UP ASL'S
46411 124 233 26 0 1 modify address of next IN
46412 102 64 0 0 transfer (A) to N (71) OR(79)&(126)
46413 106 209 10 0 0 select (N)
46414 102 126 0 0 transfer (A) to N
46415 106 392 11 0 0 select (N) *25Ю*05Ю AVOID PUNCHING
Source image: P1020720.JPG
46416 102 427 3 0 0 transfer (A) to N *25Ю*05Ю LIBRARIAN CARD
46417 106 233 46 0 0 select (N) *60Ю TEST TRIAL IN
46418 124 233 45 0 1 modify address of next
46419 127 1 0 1 jump A != Z *60Ю ENTER PTS
46420 100 214 14 1 2 replace (B) by (N) OPEN O/P FILE
46421 101 18 1 3 select literal address
46422 126 237 2 0 0 enter subroutine >I/P-O/P S/R
46423 106 392 12 0 0 select (N) *25Ю*05Ю RESTORE LIBRARIAN
46424 102 427 3 0 0 transfer (A) to N *25Ю*05Ю CARD ROUTINE
46425 106 214 10 1 0 select (N) B/E WD
46426 103 227 54 1 0 copy (A) to N *101
46427 102 226 54 1 0 transfer (A) to N
46428 126 470 2 0 0 enter subroutine >WRITE S/R LOCATIONS BLOCK
46500 PROCR 465 465 STORE DUMP
46501 NOTES RADIX B DUMP ROUTINE (1)
46502 106 230 2 0 0 select (N) *41Ю M/R PROG NO SET UP FIRST
46503 102 226 7 1 0 transfer (A) to N HEADING BLOCK
46504 106 100 17 0 0 select (N) DATE
46505 102 226 9 1 0 transfer (A) to N
46506 106 156 0 0 select (N) TIME
46507 102 226 11 1 0 transfer (A) to N
46508 124 130 2 0 2 select literal and division PRIORITY QUEUE END
46509 102 226 19 1 0 transfer (A) to N
46537>46510 126 470 2 0 0 enter subroutine >WRITE S/R
46511 124 109 22 0 1 modify address of next SET UP FURTHER
46512 106 230 5 0 0 select (N) HEADING BLOCKS
46513 124 126 0 3 modify address of next
46514 103 5 1 0 copy (A) to N
46515 105 211 2 0 0 subtract (N) from (A) TEST FOR £5
46516 127 466 2 0 0 jump A = Z >YES
46517 124 109 22 0 3 modify address of next
46518 124 230 5 0 3 modify address of next
46519 106 39 0 0 select (N) PROG NO
46520 124 126 0 3 modify address of next
46521 102 5 1 0 transfer (A) to N
46522 124 109 22 0 3 modify address of next
46523 124 230 5 0 3 modify address of next
46524 124 37 0 3 modify address of next
46525 106 4 0 0 select (N) NO OF CHAPS
46526 124 126 0 3 modify address of next
46527 102 7 1 0 transfer (A) to N
46528 124 109 22 0 3 modify address of next FORM BULK COPY TABLE
46529 124 230 5 0 3 modify address of next
46530 124 37 0 3 modify address of next
46531 124 20 0 2 select literal and division
46532 104 108 16 1 0 add (N) to (A)
46533 124 126 0 3 modify address of next COPY CHAPTER
46534 128 9 0 1 bulk copy short numeric INFORMATION
46535 101 2 1 3 select literal address STEP MODIFIER
46536 107 109 22 0 0 augment (N) by (A)
46537 124 465 10 1 0 unconditional jump >NEXT PROG
46600 PROCR 466 466 STORE DUMP
46601 NOTES RADIX B DUMP ROUTINE(2)
46516>46602 101 4 1 3 select literal address *41Ю PREPARE FOR
46603 102 109 22 0 0 transfer (A) to N MAIN LOOP
46604 102 109 21 0 0 transfer (A) to N
46605 102 109 23 0 0 transfer (A) to N CLEAR COUNTER
46606 101 8 0 1 prepare for digit collation
46607 115 153 0 0 collate and add SET UP STORE SIZE
46608 127 466 10 0 1 jump A != Z *3Ю2
46609 106 258 2 0 0 select (N) *3Ю2
46608>46610 103 109 24 0 0 copy (A) to N
46611 102 108 29 0 0 transfer (A) to N SET UP ABSURD TAG
46612 126 469 2 0 0 enter subroutine >TEST END OF BLOCK S/R
Source image: P1020721.JPG
46700 PROCR 467 467 STORE DUMP
46701 NOTES RADIX B DUMP ROUTINE (3)-MAIN OUTPUT LOOP
46719>
46733>46702 124 109 23 0 3 modify address of next *41Ю TEST FOR NEW TAG
46703 123 0 0 3 select tag
46704 105 108 29 0 0 subtract (N) from (A)
46705 127 467 11 0 0 jump A = Z >NO
46706 107 108 29 0 0 augment (N) by (A) SET UP NEW TAG
46707 106 108 29 1 0 select (N)
46708 124 109 21 0 3 modify address of next
46709 102 4 1 0 transfer (A) to N
46710 126 469 2 0 0 enter subroutine >TEST END OF BLOCK S/R
46705>46711 101 2 1 3 select literal address FORM BULK SET UP NEXT
46712 118 5 0 0 shift logical COPY TABLE LONG WORD
46713 104 109 23 0 0 add (N) to (A) OF STORE
46714 124 109 21 0 3 modify address of next
46715 128 5 0 1 bulk copy short numeric
46716 126 469 2 0 0 enter subroutine >TEST END OF BLOCK S/R
46717 123 2 0 0 step on and test STEP COUNTER TEST END OF STORE
46718 100 109 23 0 0 Halt
46719 124 467 2 1 0 unconditional jump >NO
46720 101 8 0 1 prepare for digit collation *3‼Ю
46721 115 153 0 0 collate and add TEST SECOND STORE PRINTED
46722 105 109 24 0 0 subtract (N) from (A)
46723 127 467 35 0 1 jump A != Z >YES
46724 106 467 34 0 0 select (N)
46725 102 109 23 0 0 transfer (A) to N
46726 101 4 0 1 prepare for digit collation TEST SECOND STORE
46727 115 153 0 0 collate and add
46728 127 467 35 0 0 jump A = Z >NO
46729 118 1 0 0 shift logical
46730 104 467 34 0 0 add (N) to (A) SET UP SECOND STORE SIZE
46731 103 109 24 0 0 copy (A) to N
46732 102 108 29 0 0 transfer (A) to N SET UP ABSURD TAG
46733 124 467 2 1 0 unconditional jump >PRINT SECOND STORE
46734 100 0 1 0 copy registers *3‼Ю
46728>
46723>46735 126 470 2 0 0 enter subroutine >WRITE S/R
46800 PROCR 468 468 STORE DUMP
46801 NOTES RADIX B END ROUTINE (1)
46802 101 28 1 3 select literal address *41Ю CLOSE O/P FILE
46803 126 237 2 0 0 enter subroutine >I/P-O/P S/R
46804 126 473 2 0 0 enter subroutine *459 RESTORE ROUTE 7
46805 124 214 60 0 2 select literal and division
29709>46806 123 168 0 2 enter master routine
46807 125 0 1 2 interrogate indicators DRAIN
46808 102 296 6 0 0 transfer (A) to N *149 CLEAR OPT A SWITCH
46809 106 233 46 0 0 select (N) *60Ю TEST IF PTS
46810 124 233 45 0 1 modify address of next
46811 127 2 0 1 jump A != Z *60Ю >YES
46812 106 108 10 0 0 select (N) RESTORE ASL
46813 124 233 26 0 1 modify address of next
46814 102 64 0 0 transfer (A) to N
46815 124 246 16 1 0 unconditional jump >NO
46900 PROCR 469 469 STORE DUMP
46901 NOTES RADIX B TEST END OF BLOCK SUBROUTINE
46902 100 0 0 0 Halt *41Ю LINK
46903 123 4 0 0 step on and test STEP MODIFIER TEST END OF BLOCK
46904 100 109 21 0 0 Halt
46905 126 469 2 0 1 leave subroutine >NO
46906 126 470 2 0 0 enter subroutine >WRITE S/R
46907 106 126 0 0 select (N) SET UP BLOCK SIZE MODIFIER
46908 103 109 21 0 0 copy (A) to N
Source image: P1020722.JPG
46909 101 48 1 1 add literal address
46910 102 109 22 0 0 transfer (A) to N
46911 126 469 2 0 1 leave subroutine >
47000 PROCR 470 470 STORE DUMP
47001 NOTES RADIX B WRITE SUBROUTINE
47002 100 0 0 0 Halt *41Ю LINK
47003 100 108 14 0 2 replace (B) by (N)
47004 101 8 1 3 select literal address
47005 126 237 2 0 0 enter subroutine >I/P-O/P S/R
47006 126 350 2 0 0 enter subroutine *109
47007 106 108 14 1 0 select (N)
47008 124 126 0 1 modify address of next BULK CLEAR TA
47009 128 0 0 0 bulk copy short numeric
47010 126 474 2 0 0 enter subroutine >SET TAG 15 S/R
47011 126 470 2 0 1 leave subroutine >
47100 PROCR 471 471 STORE DUMP-W/L'S FOR ROUTE 07
47102 100 0 0 0 Halt *45Ю
47103 100 0 0 0 Halt
47104 100 0 0 0 Halt
47105 100 0 0 0 Halt
47106 100 0 0 0 Halt
47107 100 0 0 0 Halt *019
47200 PROCR 472 472 STORE RT 7 DETAILS
47202 100 0 0 0 Halt *41Ю60Ю*41Ю45Ю
47203 100 220 3 0 2 replace (B) by (N) PACKS BITS 1-3 IN
47204 106 220 3 0 0 select (N) ROUTE INDICATOR
47205 114 233 26 0 0 replace selected bits
47206 124 233 26 0 1 modify address of next
47207 106 64 0 0 select (N) RTE 7 A.S.L.
47208 102 108 10 0 0 transfer (A) to N
47209 124 233 26 0 1 modify address of next *45Ю
47210 106 190 2 0 0 select (N) BLOCK COUNTERS
47211 102 471 2 0 0 transfer (A) to N
47212 124 233 26 0 1 modify address of next
47213 106 190 34 0 0 select (N) REEL COUNTER
47214 102 471 3 0 0 transfer (A) to N
47215 124 233 26 0 1 modify address of next
47216 106 190 66 0 0 select (N) PROGM NUMBER
47217 102 471 4 0 0 transfer (A) to N
47218 124 233 26 0 1 modify address of next
47219 106 190 98 0 0 select (N) FILE IDENTITY
47220 102 471 5 0 0 transfer (A) to N
47221 124 233 26 0 1 modify address of next
47222 106 191 32 0 0 select (N) RUN AND RERUN NUMBER
47223 102 471 6 0 0 transfer (A) to N
47224 124 233 26 0 1 modify address of next *01Ю
47225 106 191 64 0 0 select (N) 90K INDICATORS
47226 102 471 7 0 0 transfer (A) to N *45Ю*01Ю
47227 124 233 26 0 1 modify address of next CLEAR REEL COUNTER
47228 102 190 34 0 0 transfer (A) to N
47229 126 472 2 0 1 leave subroutine >LEAVE S/R
47300 PROCR 473 473 RESTORE RT 7 DETAILS
47302 100 0 0 0 Halt *41Ю60Ю*45Ю
47303 106 471 2 0 0 select (N)
47304 124 233 26 0 1 modify address of next
47305 102 190 2 0 0 transfer (A) to N BLOCK COUNTER
47306 106 471 3 0 0 select (N)
47307 124 233 26 0 1 modify address of next
47308 102 190 34 0 0 transfer (A) to N REEL COUNTER
47309 106 471 4 0 0 select (N)
47310 124 233 26 0 1 modify address of next
47311 102 190 66 0 0 transfer (A) to N PROGRAM NUMBER
Source image: P1020723.JPG
47312 106 471 5 0 0 select (N)
47313 124 233 26 0 1 modify address of next
47314 102 190 98 0 0 transfer (A) to N FILE IDENTITY
47315 106 471 6 0 0 select (N)
47316 124 233 26 0 1 modify address of next
47317 102 191 32 0 0 transfer (A) to N RUN+RE-RUN NUMBER
47318 106 471 7 0 0 select (N) *01Ю
47319 124 233 26 0 1 modify address of next
47320 102 191 64 0 0 transfer (A) to N *01Ю 90K INDICATORS
47321 126 473 2 0 1 leave subroutine
47400 PROCR 474 474 SET TAG 15 SUBROUTINE
47401 NOTES RADIX B
47402 100 0 0 0 Halt LINK
47403 106 209 5 0 0 select (N) SET (9) TO IGNORE INTERRUPTION
47404 102 9 0 0 transfer (A) to N
47405 126 474 6 0 3 leave master routine SET TAG 15
47406 115 474 7 0 0 collate and add
47407 125 4096 1 1 clear indicators SET NON-INT
47408 106 209 6 0 0 select (N)
47409 102 9 0 0 transfer (A) to N RE-SET(9)
47410 126 474 2 0 1 leave subroutine >
47500 PROCR 475 475 THE UNLOADER-PRELIMINARIES
29579>47502 126 107 8 1 1 set modification register SET MR1 FOR MASTER
47503 106 221 12 0 0 select (N) PROG ID LOCATE PROG IN PQ
47504 126 479 2 0 0 enter subroutine >S/R M*
47505 124 476 21 1 0 unconditional jump >NOT FOUND
47506 102 230 2 0 2 transfer (A) to N REMOVE PROG FROM PQ
47507 106 230 3 0 2 select (N) START OF SWITCH
47508 102 6 0 0 transfer (A) to N
47509 124 270 2 0 2 select literal and division *464 00004
47510 102 42 0 3 transfer (A) to N
47600 PROCR 476 476 OUTPUT COMMENT
47602 106 46 1 3 select (N) *09Ю06Ю TOTAL TIME SPENT
47603 118 4125 1 1 shift arithmetic
47604 101 5 0 2 round off ROUND OFF
47605 102 222 8 1 0 transfer (A) to N
47606 101 213 12 1 3 select literal address DECIMAL>BINARY
47607 112 222 8 1 0 convert
47608 102 222 8 1 0 transfer (A) to N
47609 100 220 7 0 3 set radix SET RADIX FOR MINS&SECS
47610 101 213 20 1 3 select literal address
47611 112 222 8 1 0 convert CONVERT TIME SPENT
47612 102 222 8 1 0 transfer (A) to N *09Ю06Ю
47613 100 220 7 0 3 set radix *2£Ю*091*061 RADIX FOR MINS AND SECS
47614 101 213 20 1 3 select literal address
47615 112 104 13 0 0 convert CONVERT INEFF TIME
47616 102 221 4 0 0 transfer (A) to N *2£Ю
47617 100 212 2 0 3 set radix *2£9099069 BINARY
47618 102 104 12 1 0 transfer (A) to N *2£9
47619 101 482 2 1 3 select literal address
47620 124 478 2 1 0 unconditional jump >OUTPUT COMMENT
47505>47621 101 97 1 3 select literal address J
47622 124 208 3 1 0 unconditional jump >XXX COMMENT
47700 PROCR 477 477 COMMAND REJECTION COMMENT
50218>
50220>
50431>
51631>
51641>
51704>
51706>
51804>
52004>
52107>
52204>
53189>
Source image: P1020724.JPG
53193>47702 101 81 1 3 select literal address *362 CODE LETTER(A)
47703 124 477 5 1 0 unconditional jump
51808>
52009>
52011>
52105>
52209>
52531>
52715>
52803>47704 101 82 1 3 select literal address CODE LETTER(B)
48743>
49111>
52146>
47703>47705 102 221 4 0 0 transfer (A) to N
47706 124 481 2 0 2 select literal and division START OF TABLE
47707 124 478 2 1 0 unconditional jump *362 >COMMENT
48316>
48317>
48705>
50005>
50007>
50105>
50227>
50229>
50804>
50905>
51406>
51523>
51526>
52532>
53045>
53192>
29586>
23810>
19951>
18722>47708 124 481 22 0 2 select literal and division START OF TABLE
47800 PROCR 478 478 OPERATOR INTERVENTION END ROUTINE
48411>
49120>
51920>
52015>
52144>
52711>
47707>
47620>47802 102 221 13 0 0 transfer (A) to N W/L
47803 126 177 2 0 0 enter subroutine >REQUEST T/W
47804 106 221 13 0 0 select (N) START OF TABLE
47805 128 102 6 1 2 edit fixed field formats SET UP COMMENT
49814>
50428>
50633>
50819>
50929>
51132>
51246>
51317>
51422>
51520>
52221>
52527>47806 126 234 2 0 0 enter subroutine >S/R M
47807 126 480 2 0 0 enter subroutine
Source image: P1020725.JPG
47808 124 181 2 1 0 unconditional jump >LOG ROUTINE
47900 PROCR 479 479 SUB-ROUTINE M*-TO SEARCH PRIORITY TABLE
47902 100 0 0 0 Halt LINK
47903 102 221 2 0 0 transfer (A) to N STORE PROGRAMME NUMBER
47904 102 4 1 0 transfer (A) to N CLEAR (MR2)
47912>47905 106 230 2 0 2 select (N) TEST REQUIRED
47906 105 221 2 0 0 subtract (N) from (A) PROGRAMME
47907 127 479 13 0 0 jump A = Z >YES
47908 106 230 2 0 2 select (N) TEST END OF TABLE
47909 105 211 2 0 0 subtract (N) from (A)
47910 127 479 15 0 0 jump A = Z >YES
52112>47911 125 2 0 2 step on and test STEP(MR2)
47912 124 479 5 1 0 unconditional jump >
47907>47913 124 479 2 0 1 modify address of next
47914 124 1 1 0 unconditional jump >LEAVE S/R+1
47910>47915 126 479 2 0 1 leave subroutine >LEAVE S/R
48000 PROCR 480 480 END ROUTINE AFTER ALLOCATION-OVERLAY-STORE DUMP
48001 NOTES RADIX AND OPERATOR INTERVENTION
48002 100 0 0 0 Halt
48003 106 221 43 0 0 select (N) *16Ю
48004 127 480 31 0 2 jump A >= Z > UPTIME NOT STOPPED
48005 106 221 38 0 0 select (N) *85Ю
48006 127 480 15 0 0 jump A = Z *85Ю
48007 126 221 38 1 3 set modification register
48008 106 45 0 3 select (N) REOPEN PROGRAM
48009 127 480 13 0 3 jump A < Z *85Ю*0:Ю
48010 125 0 1 2 interrogate indicators PAUSED-RESET ORIGINAL
48011 105 45 0 3 subtract (N) from (A) SWITCH SETTING
48012 124 480 14 1 0 unconditional jump *85Ю*0:Ю
48009>48013 102 7 0 3 transfer (A) to N
48012>48014 102 45 0 3 transfer (A) to N
48006>48015 106 221 40 0 0 select (N) *85Ю
48016 127 480 25 0 0 jump A = Z
48017 126 221 40 1 3 set modification register
48018 106 45 0 3 select (N) REOPEN 2ND PROGRAM
48019 127 480 23 0 3 jump A < Z *0:Ю
48020 125 0 1 2 interrogate indicators PAUSED-RESET ORIGINAL
48021 105 45 0 3 subtract (N) from (A) SWITCH SETTING
48022 124 480 24 1 0 unconditional jump *0:Ю
48019>48023 102 7 0 3 transfer (A) to N
48022>48024 102 45 0 3 transfer (A) to N *85Ю
48016>48025 102 221 43 0 0 transfer (A) to N CLEAR INDICATORS
48026 106 480 2 0 0 select (N) *85Ю TEST AFTER OVERLAY
48027 101 246 23 1 2 subtract literal address
48028 127 480 31 0 1 jump A != Z >NO
48029 106 35 0 2 select (N)
48030 102 7 0 2 transfer (A) to N *16Ю*85Ю
48028>
48004>48031 125 1919 1 2 interrogate indicators SET L2 IF INDICATORS STACKED
48032 101 127 1 2 subtract literal address
48033 102 103 3 0 0 transfer (A) to N
48034 125 6143 1 1 clear indicators RESET INDICATORS
48035 106 108 11 0 0 select (N)
48036 102 106 13 0 0 transfer (A) to N SET M/R SWITCH INT
48037 102 487 2 0 0 transfer (A) to N
48038 102 296 6 0 0 transfer (A) to N *149
48039 106 103 2 0 0 select (N) TEST OPTION OUTSTANDING
48040 127 480 42 0 0 jump A = Z
48041 125 128 1 0 set indicators
48040>48042 126 480 2 0 1 leave subroutine
48100 TABLE 481 481 1 EDIT TABLES FOR COPYING TO C REJ
48102 214 16 0 0 2 0 5 0 0 0 0 0 0 *362 C,SP,R,E,J
48104 221 4 0 0 2 0 1 4 1 0 0 0 0 SP,CODE LETTER
Source image: P1020726.JPG
48106 214 12 0 0 2 0 1 3 0 0 0 0 0 N/E
48108 222 10 0 0 0 0 5 0 0 0 0 0 0 PROGRAMME NUMBER
48110 214 12 0 0 2 0 1 3 0 0 0 0 0 N/E
48112 214 20 0 0 2 0 2 0 1 0 0 0 0 SP,G,P
48114 0 185 0 0 0 0 1 2 0 0 0 0 0 T 1
48116 214 20 0 0 2 0 2 3 1 0 0 0 0 SP,F,N
48118 0 185 0 0 0 0 1 4 0 0 0 0 0 T 1
48120 211 22 0 0 2 0 2 0 1 0 0 0 1 *362 SP,L/E,L/E SUM
48122 214 16 0 0 2 0 5 0 0 0 0 0 0 C,SP,R,E,J
48124 214 12 0 0 2 0 2 3 2 0 0 0 0 SP,SP,N/E,N/E
48126 214 20 0 0 2 0 2 0 1 0 0 0 0 SP,G,P
48128 222 2 0 0 0 0 1 2 0 0 0 0 0 GP NO
48130 214 20 0 0 2 0 2 3 1 0 0 0 0 SP,F,N
48132 222 2 0 0 0 0 1 4 0 0 0 0 0 FN NO
48134 211 22 0 0 2 0 2 0 1 0 0 0 1 SP,L/E,L/E
48136 211 22 0 0 2 0 2 0 1 0 0 0 1 *££0*££2*2£‼093*2£‼063 SUM
48138 211 22 0 0 2 0 2 0 3 0 0 0 1 *2£309‼06‼
48140 222 8 0 0 1 0 3 5 5 3 0 0 0 *063
48142 222 8 0 0 1 0 2 8 1 0 0 1 0 *063063
48200 TABLE 482 482 1
48202 214 54 0 0 2 0 5 0 0 0 0 0 0 A,B,D,O,N,(OR E,N,D) T12
48204 214 12 0 0 2 0 1 3 0 0 0 0 0 N/E
48206 221 12 0 0 0 0 5 0 0 0 0 0 0 PROGRAMME NUMBER
48208 214 32 0 0 2 0 1 0 5 0 0 0 0 *09Ю06Ю*063 SP T 4SP
48210 214 38 0 0 2 0 4 4 1 0 0 0 0 *09Ю06Ю*063063 SP T 4SP T 7
48212 214 6 0 0 2 0 5 0 7 0 0 0 0 *2£Ю 7SP,I,N,E,F,F
48214 221 4 0 0 0 0 2 1 2 1 0 0 0 2SP,MINS
48216 221 4 0 0 0 0 2 3 1 1 0 0 0 *2£Ю SP,SECS
48218 211 22 0 0 2 0 2 0 2 0 0 0 1 *2£‼093*2£‼063*2£309‼06‼ SUM
48300 PROCR 483 483 MINI-STORE PRINT
55810>48302 125 4096 1 1 clear indicators *412 SET NON-INT
48303 101 2048 1 3 select literal address SET UP ASL FOR INPUT
48304 102 0 0 0 transfer (A) to N
48305 125 0 1 2 interrogate indicators DUMMY
48306 119 0 0 1 input one block/reset timer INPUT
48309>48307 126 0 1 0 test route N1 TEST RTE
48308 100 291 0 0 Halt CLOSED HALT 1/2/3
48309 124 483 7 1 0 unconditional jump ENGAGED
48310 100 2049 0 0 Halt DOUBTFUL HALT 8/0/1
48311 100 32 0 0 Halt WARNING OF END HALT 0/2/0
48312 106 483 10 1 0 select (N)
48313 128 2081 1 0 bulk copy alpha to short
48314 124 2081 1 0 unconditional jump *412
48315 124 487 82 1 0 unconditional jump *££0*££2*01‼
48316 124 477 8 1 0 unconditional jump *363363 >REJ
48317 127 477 8 0 1 jump A != Z *363*36360‼ >REJ
48318 127 487 87 0 1 jump A != Z *36‼60‼ >YES REJ
48319 124 488 3 1 0 unconditional jump *3Ю3*3‼‼
48320 124 488 5 1 0 unconditional jump *3Ю201‼*3‼Ю01‼
48321 124 491 10 1 0 unconditional jump *3Ю33Ю3*3‼‼3‼‼
48322 124 491 11 1 0 unconditional jump *3Ю3363*3‼‼363
48323 124 199 15 1 0 unconditional jump *41‼
48400 PROCR 484 484 REJECT PROGRAMME
29624>48402 101 86 1 3 select literal address *149 LETTER'F'FROM OPT A SWITCH
48403 102 221 4 0 0 transfer (A) to N REJECT AFTER UNLOADING OTHER PROGS
48404 124 212 2 1 1 set modification group SET MOD GROUP 0
48405 106 218 6 1 0 select (N) RESTORE MOD GP 3 REGISTERS
48406 128 26 0 0 bulk copy short numeric
48407 123 26 1 0 copy into tag *59Ю SET TAG 0
48408 123 30 1 0 copy into tag IN MOD GROUP 3
48409 123 28 1 0 copy into tag *59Ю
48410 124 485 2 0 2 select literal and division START OF EDIT TABLE
48411 124 478 2 1 0 unconditional jump >
Source image: P1020727.JPG
48500 TABLE 485 485 1
48502 214 88 0 0 2 0 5 0 0 0 0 0 0 R,R,J,E,C
48504 214 38 0 0 2 0 1 4 0 0 0 0 0 T,
48506 221 4 0 0 2 0 1 4 4 0 0 0 0 4 SP,CODE LETTER
48508 214 12 0 0 2 0 1 3 0 0 0 0 0 N/E
48510 221 8 0 0 0 0 5 0 0 0 0 0 0 PROGRAMME NUMBER
48512 211 22 0 0 2 0 2 0 1 0 0 0 1 SP.L/E,L/E
48514 222 8 0 0 1 0 3 5 5 3 0 0 0 *3+Ю*09Ю
48516 222 8 0 0 1 0 2 8 1 0 0 1 0 SECS
48518 214 32 0 0 2 0 1 0 5 0 0 0 0 /////5 SP'S N
48520 214 38 0 0 2 0 4 4 1 0 0 0 0 /////SP,T,3 SP'S
48600 CONST 486 486 0 SO'ALLOCATOR'STARTS IN EVEN ADDRESS
48700 PROCR 487 487 THE ALLOCATOR
48701 NOTES RADIX B PREPARATORY
48702 100 0 0 0 Halt LINK
48703 106 230 4 1 0 select (N) *40Ю TEST IF PROGRAM
48704 105 211 2 1 0 subtract (N) from (A) ALREADY
48705 127 477 8 0 1 jump A != Z >YES ALLOCATED
48706 101 1026 1 3 select literal address SET UP 4/0/2
48707 102 233 7 0 0 transfer (A) to N *40Ю
48708 125 0 1 2 interrogate indicators DUMMY ACTION FOR REFERENCES
48709 106 225 7 1 0 select (N) *57Ю*60Ю TEST TRIALS ALLOC
48710 127 487 14 0 0 jump A = Z >NO
48711 106 225 2 0 0 select (N) FORM RTE NUMBER
48712 101 7 1 1 add literal address
48713 124 487 24 1 0 unconditional jump *60Ю
48710>48714 100 220 3 0 2 replace (B) by (N) CONVERT FROM
48715 115 225 13 1 0 collate and add CH CH RT
48716 101 7 1 2 subtract literal address TEST ROUTE 7
48717 127 487 42 0 0 jump A = Z >YES C REJ D
48718 101 7 1 1 add literal address
48719 104 225 13 1 0 add (N) to (A)
48720 118 3 0 3 shift binary TO BINARY
48721 118 4127 0 0 shift logical
48722 127 487 68 0 0 jump A = Z NOT SPECIFIED
48723 101 48 1 2 subtract literal address *3:9
48769>
48713>48724 103 225 12 1 0 copy (A) to N
48725 101 128 1 2 subtract literal address *3:9
48726 127 487 42 0 3 jump A < Z TEST IN RANGE NO>C REJ D
48727 101 24 1 2 subtract literal address *224*234 0000800016
48728 127 487 42 0 2 jump A >= Z NO>C REJ D
48729 101 24 1 1 add literal address *3:1*224*234 000000000800016
48730 101 152 1 1 add literal address *3:9*224*234 000000013600144
48731 126 249 2 0 0 enter subroutine >SEARCH LIST FOR AVAIL CH CH RT
48732 124 487 44 1 0 unconditional jump >AVAIL
48733 124 225 12 0 1 modify address of next >NOT IN LIST SEARCH ASL'S FOR
48734 106 64 0 0 select (N) AVAIL CH CH RT
48735 103 225 14 1 0 copy (A) to N COPY RT TYPE TO WL
48736 101 4087 1 2 subtract literal address TEST ££7
48737 127 487 51 0 0 jump A = Z >AVAIL
48738 101 1 1 2 subtract literal address ££8
48739 127 487 51 0 0 jump A = Z >AVAIL
48740 101 3 1 2 subtract literal address
48741 127 487 51 0 0 jump A = Z >AVAIL
48760>
48728>
48726>
48717>48742 101 84 1 3 select literal address *363363
48743 124 477 5 1 0 unconditional jump *361 CREJ D
48767>
48732>48744 106 225 12 1 0 select (N) CH CH RT
48745 103 233 26 0 0 copy (A) to N *57Ю
Source image: P1020728.JPG
48746 106 225 8 1 0 select (N) STORE(A)
48747 102 232 22 1 0 transfer (A) to N
48748 106 225 10 1 0 select (N) STORE(B)
48749 102 232 24 1 0 transfer (A) to N
48750 124 487 70 1 0 unconditional jump *57Ю
48741>
48739>
48737>48751 101 36 1 3 select literal address SET INDIRECT MR=36:0
48752 102 225 17 0 0 transfer (A) to N
48753 102 225 16 0 0 transfer (A) to N
48759>48754 124 225 16 0 1 modify address of next SEARCH FOR FIRST
48755 106 224 3 0 0 select (N) AVAIL SPACE IN
48756 127 487 61 0 0 jump A = Z >AVOID SPACE LIST
48757 123 6 0 0 step on and test STEP MOD BY 6
48758 100 225 16 0 0 Halt
48759 124 487 54 1 0 unconditional jump >LOOK FOR NEXT SPACE
48760 124 487 42 1 0 unconditional jump >NO ROOM-C REV D
48756>48761 106 225 12 1 0 select (N) STORE CH CH RT
48762 124 225 16 0 1 modify address of next INTO LIST
48763 102 224 2 0 0 transfer (A) to N
48764 106 225 14 1 0 select (N) STORE RT.TYPE IN LIST
48765 124 225 16 0 1 modify address of next
48766 102 224 3 0 0 transfer (A) to N
48767 124 487 44 1 0 unconditional jump
48722>48768 106 225 2 0 0 select (N) PUT NORMAL ALLOC RT.
48769 124 487 24 1 0 unconditional jump *57Ю
48750>48770 106 225 7 1 0 select (N) TEST TRIALS ALLOC
48771 127 487 82 0 0 jump A = Z *36‼60‼*36360‼ >NO
48772 106 233 46 0 0 select (N) *60Ю TEST TRIAL ALREADY IN PROCESS
48773 127 487 87 0 1 jump A != Z *363 >YES CREJC
48774 126 472 2 0 0 enter subroutine *459 STORE 07 DETAILS
48775 106 210 8 0 0 select (N) SET TRIALS BIT IN
48776 107 233 7 0 0 augment (N) by (A) ALLOC COMMAND
48777 101 1 1 3 select literal address *44Ю RESET PRINT
48778 102 233 28 0 0 transfer (A) to N *44Ю INDICATOR
48779 106 225 7 1 0 select (N) STORE TRIALS IND
48780 102 222 7 0 0 transfer (A) to N
48781 102 225 6 1 0 transfer (A) to N *60Ю CLEAR TRIALS IND
48771>
48315>48782 106 222 10 1 0 select (N) STORE PROG 1D AND SERIAL NO
48783 103 221 8 1 0 copy (A) to N
48784 126 479 2 0 0 enter subroutine >S/R M
48785 124 488 2 1 0 unconditional jump *3Ю201‼*3‼Ю01‼*3Ю3*3‼‼
48786 124 487 88 1 0 unconditional jump *363363 >C REJ B
48773>
48318>48787 101 1 1 3 select literal address *362 C
48786>48788 101 82 1 1 add literal address B
48789 124 491 11 1 0 unconditional jump
48800 PROCR 488 488 LOCATE A PIECE OF STORAGE FOR THE FIRST CHUNK OF P.L.S.
48801 NOTES RADIX B
48785>48802 102 106 8 0 0 transfer (A) to N *3Ю1*3‼9
48319>48803 106 218 10 1 0 select (N) *01Ю
48804 128 497 2 1 1 bulk copy long numeric *01Ю
48320>48805 106 211 2 1 0 select (N)
48806 101 231 2 1 0 table look up TABLE
48807 105 231 2 1 0 subtract (N) from (A) TEST START
49109>48808 127 488 18 0 0 jump A = Z >YES
48809 118 10 1 0 shift logical
48810 101 2 1 2 subtract literal address
48811 102 4 1 0 transfer (A) to N
48812 106 1 0 2 select (N)
48813 101 360 1 2 subtract literal address BIG ENOUGH?
48814 127 488 17 0 3 jump A < Z >NO
48815 104 0 0 2 add (N) to (A)
48816 124 488 24 1 0 unconditional jump >
Source image: P1020729.JPG
48814>48817 125 0 1 2 interrogate indicators DRAIN
48808>48818 126 479 2 0 0 enter subroutine >S/R M* SEARCH FOR A ZERO
48819 124 491 2 1 0 unconditional jump *3Ю3363*3‼‼363*3Ю33Ю3*3‼‼3‼‼
48820 124 4 0 1 modify address of next STORE TABLE
48821 124 230 3 0 1 modify address of next START
48822 124 37 0 1 modify address of next OF
48823 124 140 0 2 select literal and division STRIP
48816>48824 102 233 4 0 0 transfer (A) to N
48825 124 233 4 0 1 modify address of next FORM & STORE 13-BIT FORM OF
48826 101 0 1 3 select literal address START OF STRIP
48827 102 233 3 0 0 transfer (A) to N
48900 PROCR 489 489 LOCATE PROGRAMME
48901 NOTES RADIX B
48902 106 108 11 0 0 select (N) SET M/R SWITCH INT.
48903 102 106 13 0 0 transfer (A) to N
48904 100 210 8 0 2 replace (B) by (N) *572*60Ю
48905 115 233 7 0 0 collate and add
48906 127 489 8 0 0 jump A = Z >NO
48907 106 220 3 0 0 select (N) *60Ю SET BITS 1-3 OF RTE
48906>48908 100 220 3 0 2 replace (B) by (N)
48909 114 233 26 0 0 replace selected bits *572
48910 106 209 10 0 0 select (N) SET UP A.S.L'S.
48911 124 233 26 0 1 modify address of next
48912 102 64 0 0 transfer (A) to N
48913 106 209 11 0 0 select (N)
48914 102 124 0 0 transfer (A) to N
48915 126 241 2 0 0 enter subroutine >S/R A
48916 124 489 17 1 0 unconditional jump >FILE HAS BEEN OPENED
48916>48917 126 242 2 0 0 enter subroutine >S/R B
48918 124 491 12 1 0 unconditional jump *363363 >REJ
48919 106 185 0 0 select (N) *40Ю TEST O/WRITE ALLOC
48920 101 1033 1 2 subtract literal address
48921 127 489 36 0 1 jump A != Z >
48922 106 231 4 1 0 select (N) SET UP STORE
48923 102 231 2 1 0 transfer (A) to N TABLE
48924 124 487 4 0 2 select literal and division
48925 102 231 4 0 0 transfer (A) to N
48926 101 487 4 1 2 subtract literal address
48927 107 231 5 0 0 augment (N) by (A)
48928 106 489 35 0 0 select (N) PLANT 24/1/0 ORDER
48929 102 199 43 0 0 transfer (A) to N TO REJECT COMMANDS
48930 105 210 8 0 0 subtract (N) from (A) *14Ю MAKE ABANDON
48931 107 279 30 0 0 augment (N) by (A) OPTION UNAVAILABLE
48932 107 313 10 0 0 augment (N) by (A)
48933 107 415 20 0 0 augment (N) by (A) *14Ю
48934 124 489 36 1 0 unconditional jump
48935 124 199 86 1 0 unconditional jump *40Ю*41‼
48934>
48921>48936 106 108 12 0 0 select (N) SET M/R SWITCH
48937 102 106 13 0 0 transfer (A) to N NON-INT
49000 PROCR 490 490 LOAD FIRST CHAPTER
49001 NOTES RADIX B
49002 101 1 1 3 select literal address *14Ю SET OPTA SWITCH AT 1
49003 102 296 6 0 0 transfer (A) to N *14Ю
49004 106 218 2 1 0 select (N) STORE MOD GP 3 REGISTERS
49005 128 222 12 0 0 bulk copy short numeric
49006 106 233 4 0 0 select (N) SET UP (28) FOR STACKING
49007 103 28 1 0 copy (A) to N
49008 103 4 0 0 copy (A) to N SET UP MR2 FOR STACKING TAG 14
49009 101 360 1 1 add literal address
49010 102 5 0 0 transfer (A) to N
49011 126 474 2 0 0 enter subroutine >SET TAG 15
49012 124 14 0 2 select literal and division STACK TAG 14
49015>49013 123 0 1 2 copy into tag
Source image: P1020730.JPG
49014 125 2 0 2 step on and test
49015 124 490 13 1 0 unconditional jump
49016 101 14 1 3 select literal address *59Ю SET TAG 14 IN MR2 OF MG6 TO
49017 123 26 1 0 copy into tag
49018 123 30 1 0 copy into tag
49019 123 28 1 0 copy into tag *59Ю KID PLS INTO ALLOCATING MG3
49020 124 233 2 0 2 select literal and division PARAMETER TABLE START
49021 126 247 2 0 0 enter subroutine >LOAD S/R
49022 126 233 4 0 1 leave subroutine >TO PROGRAMME LOADING SYSTEM
49100 PROCR 491 491
49101 NOTES RADIX B PROCEDURE AFTER FAILURE TO ALLOCATE
48819>49102 106 106 8 0 0 select (N) *3Ю2*3‼Ю TEST SECOND STORE
49103 127 491 10 0 1 jump A != Z *363 >YES,REJECT DEALT WITH
49104 101 1 1 3 select literal address
49105 102 106 8 0 0 transfer (A) to N
49106 106 211 2 1 0 select (N)
49107 101 232 2 1 0 table look up
49108 105 232 2 1 0 subtract (N) from (A)
49109 124 488 8 1 0 unconditional jump *3Ю2*3‼Ю
49103>
48321>49110 101 85 1 3 select literal address *361
48789>
48322>
29626>49111 124 477 5 1 0 unconditional jump *364 > 00008
48918>
24156>49112 101 81 1 3 select literal address *362 CODE LETTER A
49113 102 221 4 0 0 transfer (A) to N
49114 124 225 16 0 1 modify address of next *579
49115 106 224 4 1 0 select (N) SET UP PROGRAM FOUND FOR COMMENT
49116 102 222 10 1 0 transfer (A) to N
49117 124 225 16 0 1 modify address of next *579
49118 102 224 4 1 0 transfer (A) to N CLEAR IDENTITY LAST PROGRAM USED
49119 124 493 2 0 2 select literal and division START OF EDIT TABLE
49120 124 478 2 1 0 unconditional jump >
49200 CONST 492 492 1 *38 FIXED COMMENT
49202 (A)TIMIN; *09Ю*3+Ю
49204 (A)G (D)5.5.; G,SP,SP,L/E,L/E
49206 (A)TIMEN;
49208 (A)D (D)5.5.; *09Ю*3+Ю
49210 (A)PTAPE; *07Ю
49212 (A)PCARD; *07Ю
49214 (A)HIP ; *019
49216 (A)OMIT; *5:Ю
49218 (A)SET;
49220 D/B;
49222 SER;
49224 SP;
49226 EDG;
49228 SP -;
49300 TABLE 493 493 1 CREJ EDIT TABLE
49301 NOTES
49302 214 16 0 0 2 0 5 0 0 0 0 0 0 *362 'C REJ'
49304 221 4 0 0 2 0 1 4 1 0 0 0 0 SP,CODE LETTER
49306 214 12 0 0 2 0 1 3 0 0 0 0 0 N/E
49308 221 8 0 0 0 0 5 0 0 0 0 0 0 PROGRAMME NUMBER
49310 214 12 0 0 2 0 1 3 0 0 0 0 0 N/E
49312 222 10 0 0 0 0 5 0 0 0 0 0 0 PROGRAMME NUMBER
49314 214 12 0 0 2 0 1 3 0 0 0 0 0 N/E
49316 214 20 0 0 2 0 2 0 1 0 0 0 0 SP,G,P
49318 0 185 0 0 0 0 1 2 0 0 0 0 0 T 1
49320 214 20 0 0 2 0 2 3 1 0 0 0 0 SP,F,N
49322 0 185 0 0 0 0 1 4 0 0 0 0 0 T 1
49324 211 22 0 0 2 0 2 0 0 0 0 0 1 *362 L/E,L/E
Source image: P1020731.JPG
49326 221 3 0 0 0 0 1 0 3 0 0 0 0 *££0*££2*61‼ 3SP,PRIORITY CLASS
49328 215 14 0 0 2 0 5 0 0 0 0 0 0 *11312‼ 'ROUCH'
49330 229 3 0 0 0 0 5 0 0 0 0 0 0 *3Ю3*3‼‼
49400 TABLE 494 494 1
49402 100 31 0 0 0 0 1 4 3 0 0 0 0 *08Ю*61‼ SP,TAG
49404 221 2 0 0 0 0 5 0 1 0 0 0 1 PROGM NO SUM
49500 TABLE 495 495 1
49501 NOTES
49502 215 4 0 0 2 0 5 0 0 0 0 0 0 *0‼Ю 'PR CH'
49504 214 22 0 0 2 0 1 1 0 0 0 0 0 N/E
49506 222 10 0 0 0 0 5 0 0 0 0 0 0 PROGRAMME NUMBER
49508 211 22 0 0 2 0 2 0 2 0 0 0 1 *0‼Ю
49510 215 10 0 0 2 0 5 0 0 0 0 0 0 *0:Ю 'REOPE'
49512 214 20 0 0 2 0 1 4 0 0 0 0 0 N
49514 214 22 0 0 2 0 1 1 0 0 0 0 0 N/E
49516 222 10 0 0 0 0 5 0 0 0 0 0 0 PROGRAMME NUMBER
49518 211 22 0 0 2 0 2 0 1 0 0 0 1 *0:Ю
49520 215 12 0 0 2 0 5 0 0 0 0 0 0 *0+Ю 'RUNCH'
49522 214 22 0 0 2 0 1 1 0 0 0 0 0 N/E
49524 222 10 0 0 0 0 5 0 0 0 0 0 0 PROGRAMME NUMBER
49526 214 22 0 0 2 0 1 1 0 0 0 0 0 N/E
49528 229 5 0 0 0 0 5 0 0 0 0 0 0 *3Ю3*3‼‼
49530 211 22 0 0 2 0 2 0 1 0 0 0 1 *0+Ю
49532 215 8 0 0 2 0 5 0 0 0 0 0 0 *11Ю12Ю*11312‼ 'AVAIL'
49534 214 22 0 0 2 0 2 1 0 0 0 0 0 N/E,N/E
49536 222 10 0 0 0 0 3 2 0 1 0 0 0 CH. & RTE.
49538 222 11 0 0 0 0 3 2 1 3 0 0 0 CH * RTE(OLD)
49540 211 22 0 0 2 0 2 0 4 0 0 0 1 4 SP,L/E.L/E
49600 CONST 496 496 1 DUMMY PROCEDURE FOR VARIABLE ALLOCATION
49700 CONST 497 497 1 STORED HIGH DENSITY
49702 (D)0; *01Ю65Ю
49704 0;
49706 0;
49708 0;
49710 0;
49712 0;
49714 0;
49716 0;
49718 0;
49720 0; *65Ю
49722 0;
49724 0;
49726 0;
49728 0;
49730 0;
49732 0;
49800 PROCR 498 498 CONTROL DATA REJECTION
49801 NOTES RADIX B
46004>49802 124 82 0 2 select literal and division CODE LETTER B
46048>49803 124 222 20 0 1 modify address of next SET ROUTE TO MANUAL
49804 119 0 1 3 step on/set manual
52529>
46050>
29716>49805 102 221 4 0 0 transfer (A) to N
49806 126 177 2 0 0 enter subroutine >REQUEST T/W
49807 106 214 32 1 0 select (N) SET UP NO CD
49808 102 102 6 1 0 transfer (A) to N
49809 106 221 4 0 0 select (N) SET UP CODE LETTER
49810 102 102 8 1 0 transfer (A) to N
49811 124 197 4 0 2 select literal and division SET UP L/E'S
49812 128 102 10 1 2 edit fixed field formats
Source image: P1020732.JPG
49813 124 4 0 2 select literal and division
49814 124 478 6 1 0 unconditional jump >
49900 PROCR 499 499 READ CONTROL DATA WITHOUT CHECKS
49901 NOTES RADIX B
49902 100 0 0 0 Halt *01Ю
49903 126 499 2 0 1 leave subroutine *01Ю
50000 PROCR 500 500 SUB-ROUTINE R
50001 NOTES RADIX B TO OBTAIN AND CHECK FUNCTION NUMBER
50002 100 0 0 0 Halt LINK
50003 102 221 2 0 0 transfer (A) to N STORE LIMIT
50004 115 222 2 0 0 collate and add TEST IF FUNCTION
50005 127 477 8 0 0 jump A = Z >YES,REJECT NUMBER=0
50006 105 221 2 0 0 subtract (N) from (A) TEST IF OUTSIDE
50007 127 477 8 0 2 jump A >= Z >YES,REJECT LIMIT
50008 104 221 2 0 0 add (N) to (A)
50009 126 500 2 0 1 leave subroutine >LEAVE S/R
50100 PROCR 501 501 FORM CHECK,AND STORE PARAMETER FROM I5-7
50102 100 0 0 0 Halt *07Ю5:Ю6ЮЮ
50103 101 2 0 1 prepare for digit collation TEST RANGE
50104 115 185 0 0 collate and add COLLATE Q2
50105 127 477 8 0 2 jump A >= Z >OUT OF RANGE
50106 101 0 1 3 select literal address FORM PARAMETER
50107 115 222 2 0 0 collate and add
50108 118 4127 0 0 shift logical
50109 103 108 28 0 0 copy (A) to N
50110 126 177 2 0 0 enter subroutine >REQUEST T/W
50111 106 108 28 0 0 select (N) SET UP MR2
50112 103 4 0 0 copy (A) to N STORE IT
50113 126 501 2 0 1 leave subroutine >LEAVE S/R
50200 PROCR 502 502 SUB-ROUTINE S
50201 NOTES RADIX B CHECK ROUTE & FORM IT UP IN BINARY & PLACE IN M.R.2
50202 100 0 0 0 Halt *12Ю11Ю LINK
50203 101 2 1 3 select literal address SET MR3=2:0
50204 118 5 0 0 shift logical
50205 102 6 1 0 transfer (A) to N
52908>50206 106 222 10 0 3 select (N) CHANNEL AND ROUTE
50207 118 4127 1 0 shift logical STORE CHANNEL
50208 102 533 2 0 3 transfer (A) to N
50209 118 1 1 0 shift logical STORE RTE
50210 102 533 4 0 3 transfer (A) to N
50211 101 213 12 1 3 select literal address CONVERT CHANNEL NUMBER
50212 112 533 2 0 3 convert TO BINARY
50213 103 533 2 0 3 copy (A) to N
50214 118 3 0 3 shift binary PLACE IN MR2
50215 104 533 4 0 3 add (N) to (A)
50216 103 533 8 0 3 copy (A) to N
50217 103 4 1 0 copy (A) to N
50218 127 477 2 0 3 jump A < Z *364 >NOT IN RANGE 00008
50219 101 176 1 2 subtract literal address
50220 127 477 2 0 2 jump A >= Z *364 >NO 00008
50221 106 64 0 2 select (N) PLACE RTE TYPE IN
50222 118 4127 1 0 shift logical TOP OF B
50223 126 502 2 0 1 leave subroutine *12Ю11Ю >LEAVE S/R
50224 100 477 8 0 0 Halt *££0*££2*09‼*3+‼*08‼*07‼*02‼*04‼*5:‼
50225 100 477 8 0 0 Halt *69‼*68‼*67‼*66‼*6Ю‼
50226 124 510 23 1 0 unconditional jump *3:‼3:‼
50227 127 477 8 0 2 jump A >= Z *3:‼ C REJ
50228 127 511 12 0 1 jump A != Z *8‼‼ >NO
50229 127 477 8 0 1 jump A != Z *363
50300 PROCR 503 503 GROUP 1
50301 NOTES RADIX B DETERMINE FUNCTION
Source image: P1020733.JPG
50302 101 1 0 1 prepare for digit collation *09Ю08Ю07Ю5:Ю69Ю68Ю67Ю66Ю6ЮЮ86Ю86Ю
50303 101 12 1 3 select literal address *86+6Ю+*86+ 0001000011
50304 126 500 2 0 0 enter subroutine > S/R R
50305 102 503 8 0 0 transfer (A) to N
50306 124 503 8 0 1 modify address of next
50307 126 503 8 0 1 leave subroutine
50308 100 477 8 0 0 Halt GEN CONST FUNCTION NO
50309 100 504 2 0 0 Halt *09‼*3+‼ TIME >START TIMINGS
50310 100 505 2 0 0 Halt *09‼*3+‼ TIME >STOP TIMINGS
50311 100 506 2 0 0 Halt *08‼ PRINT PRIORITY LIST
50312 100 507 2 0 0 Halt *07‼*02‼*04‼ >PREFER PT
50313 100 508 2 0 0 Halt *5:‼ >OMIT CATEGORIES
50314 100 509 2 0 0 Halt *69‼ >REWIND AND UNLOAD
50315 100 510 2 0 0 Halt *68‼ >AVAILABLE ROUTES
50316 100 512 2 0 0 Halt *67‼ >AVAILABLE STORAGE
50317 100 513 2 0 0 Halt *66‼ >CARD CHECK
50318 100 514 2 0 0 Halt *86Ю6ЮЮ*6Ю‼ >CHANGE CHANNEL
50319 100 515 2 0 0 Halt *869 >PREFER PRINTER
50400 PROCR 504 504 GROUP 1:FUNCTION 1
50401 NOTES RADIX B START TIMINGS
50402 106 223 2 0 0 select (N) *09Ю*3+Ю
50403 127 504 29 0 1 jump A != Z *363 ALREADY ON
50404 126 177 2 0 0 enter subroutine >REQUEST TYPEWRITER
50405 126 212 8 1 2 set modification register 144:0
50414>50406 106 209 2 0 0 select (N) 6/0/0/0/157
50407 102 111 6 0 2 transfer (A) to N SET UP INSTRUCTIONS IN I/P O/P TO CLEAR
50408 106 265 2 0 0 select (N) 19/0/1/0/56 RESET MILLISEC TIMER
50409 102 111 29 0 2 transfer (A) to N
50410 102 111 48 1 2 transfer (A) to N W/L
50411 106 209 3 0 0 select (N)
50412 102 111 19 0 2 transfer (A) to N
50413 125 48 0 2 step on and test
50414 124 504 6 1 0 unconditional jump >
50415 106 333 3 0 0 select (N) 0/0/3/2/1
50416 102 264 31 0 0 transfer (A) to N
50417 106 209 2 0 0 select (N) 6/0/0/0/157
50418 103 264 32 0 0 copy (A) to N
50419 103 223 2 0 0 copy (A) to N IND THAT TIMINGS ARE ON
50420 106 485 14 1 0 select (N) AMEND UNLOADER EDIT
50421 102 482 8 1 0 transfer (A) to N TABLE
50422 106 485 16 1 0 select (N)
50423 102 482 10 1 0 transfer (A) to N
50424 106 492 2 1 0 select (N) SET UP COMMENT
50425 102 102 6 1 0 transfer (A) to N
50426 106 492 4 1 0 select (N)
50524>50427 102 102 8 1 0 transfer (A) to N
50428 124 478 6 1 0 unconditional jump >
50403>50429 125 0 1 2 interrogate indicators *362
50430 102 222 10 0 0 transfer (A) to N
50431 124 477 2 1 0 unconditional jump
50500 PROCR 505 505 GROUP 1:FUNCTION 2
50501 NOTES RADIX B STOP TIMINGS
50502 126 177 2 0 0 enter subroutine *09Ю*3+Ю >REQUEST T/W
50503 126 212 8 1 2 set modification register 144:0
50511>50504 106 111 8 0 2 select (N)
50505 102 111 6 0 2 transfer (A) to N
50506 106 111 30 0 2 select (N) OVERSTACK TIMING
50507 102 111 29 0 2 transfer (A) to N INSTRUCTIONS IN
50508 106 209 9 0 0 select (N)
50509 102 111 19 0 2 transfer (A) to N
50510 125 48 0 2 step on and test PRIORITY CONTROL
50511 124 505 4 1 0 unconditional jump >
50512 102 223 2 0 0 transfer (A) to N IND
50513 106 264 35 0 0 select (N) OVERSTACK TIMING
Source image: P1020734.JPG
50514 102 264 31 0 0 transfer (A) to N INSTRUCTIONS IN I/P
50515 106 264 36 0 0 select (N) O/P CONTROL
50516 102 264 32 0 0 transfer (A) to N
50517 106 485 18 1 0 select (N) AMEND UNLOADER EDIT
50518 102 482 8 1 0 transfer (A) to N TABLE
50519 106 485 20 1 0 select (N)
50520 102 482 10 1 0 transfer (A) to N
50521 106 492 6 1 0 select (N) SET UP COMMENT
50522 102 102 6 1 0 transfer (A) to N
50523 106 492 8 1 0 select (N)
50524 124 504 27 1 0 unconditional jump >
50600 PROCR 506 506 GROUP1: FUNCTION 3
50601 NOTES RADIX B PRINT PRIORITY LIST
50602 126 177 2 0 0 enter subroutine *08Ю >REQUEST T/W
50603 101 1008 0 1 prepare for digit collation
50604 115 214 12 1 0 collate and add P.SP.Q
50605 102 102 6 1 0 transfer (A) to N COMMENT
50606 102 4 1 0 transfer (A) to N MR2 CLEAR MR2
50607 102 6 1 0 transfer (A) to N MR3
50630>50608 106 230 4 0 2 select (N)
50609 127 506 29 0 0 jump A = Z >ZERO,PROGRAM ABANDONED
50610 106 230 4 1 2 select (N) PRIORITY TABLE ENTRY
50611 103 221 2 1 0 copy (A) to N W/L
50612 105 211 2 1 0 subtract (N) from (A) 15'S TEST END OF TABLE
50613 127 506 31 0 0 jump A = Z >YES 1ST TEST
50614 124 221 3 0 1 modify address of next *61Ю SWITCH START FIND TAG
50615 124 37 0 1 modify address of next SPECIAL CHAPT START
50616 106 10 0 0 select (N) TAG
50617 102 100 31 0 0 transfer (A) to N *61Ю STORE TAG IN W/L
50618 124 494 2 0 2 select literal and division TABLE START
50619 124 6 0 1 modify address of next
50620 128 102 8 1 2 edit fixed field formats EDIT ENTRY
50621 106 6 0 0 select (N) *1.2*1:2*1£2*382 TEST END OF
50622 101 12 1 2 subtract literal address IST LINE
50623 127 506 28 0 1 jump A != Z
50624 101 12 0 1 prepare for digit collation
50625 115 211 22 0 0 collate and add
50626 102 102 12 1 3 transfer (A) to N
50627 125 2 0 3 step on and test *1.2*1:2*1£2*382
50623>50628 125 4 0 3 step on and test
50609>50629 125 2 0 2 step on and test
50630 124 506 8 1 0 unconditional jump >
50613>50631 106 105 6 0 0 select (N) LE'S FOR END OF COMMENT
50632 102 102 8 1 3 transfer (A) to N
50633 124 478 6 1 0 unconditional jump >
50700 PROCR 507 507 GP1 FN4: PREFER P/T, PREFER CARDS
50702 101 32 1 2 subtract literal address *07Ю*02Ю*04Ю RANGE CHECK
50703 126 501 2 0 0 enter subroutine FORM,CHECK AND STORE PARAMETER
50704 102 233 35 0 0 transfer (A) to N STORE INDICATOR
50705 124 4 0 1 modify address of next MODIFY FOR PTAPE OR PCARDS
50706 106 492 10 1 2 select (N)
50707 102 102 6 1 0 transfer (A) to N
50708 106 214 80 1 0 select (N) L/E L/E
50709 124 508 16 1 0 unconditional jump *5:9 >SET UP COMMENT
50800 PROCR 508 508 GP1 FN5: OMIT CATEGORIES
50802 101 80 1 2 subtract literal address *5:Ю
50803 126 501 2 0 0 enter subroutine FORM,CHECK,AND STORE PARAMETER
50804 127 477 8 0 0 jump A = Z
50805 126 332 2 0 0 enter subroutine TEST CATEGORY S/R
50806 101 8191 1 1 add literal address
50807 114 508 20 0 0 replace selected bits SET CATEGORY
50808 101 8191 1 2 subtract literal address
50809 127 508 11 0 0 jump A = Z >OMIT
Source image: P1020735.JPG
50810 101 2 1 3 select literal address FORM OMITX
50809>50811 102 6 0 0 transfer (A) to N OR SETX
50812 106 492 16 1 3 select (N) FORM OMITX
50813 102 102 6 1 0 transfer (A) to N FIRST WORD
50814 124 4 0 1 modify address of next D/B,SER,SP,OR EDG
50815 106 492 18 1 2 select (N) *5:Ю
50709>50816 102 102 8 1 0 transfer (A) to N *07Ю5:Ю*02Ю5:Ю*04Ю5:Ю
50817 106 214 80 1 0 select (N) L/E L/E
50818 102 102 10 1 0 transfer (A) to N
50819 124 478 6 1 0 unconditional jump >END ROUTINE
50820 100 0 0 0 Halt
50900 PROCR 509 509 REWIND AND UNLOAD PROGRAM TAPE COMMANDS
50902 101 32 1 2 subtract literal address *69Ю
50903 101 2 0 1 prepare for digit collation TEST RANGE
50904 115 185 0 0 collate and add COLLATE Q2
50905 127 477 8 0 2 jump A >= Z >OUT OF RANGE
50906 118 4127 0 1 shift arithmetic
50907 101 2 1 1 add literal address
50908 118 2 0 3 shift binary
50909 103 429 2 0 0 copy (A) to N
50910 127 509 13 0 0 jump A = Z >YES
50911 101 34 1 3 select literal address 34
50912 124 509 14 1 0 unconditional jump >SKIP
50910>50913 101 27 1 3 select literal address 27
50912>50914 118 4118 1 0 shift logical SHIFT(AB)
50915 106 258 28 1 0 select (N) FINIS
50916 124 192 0 1 modify address of next *3:+ 00064
50917 102 4 1 0 transfer (A) to N
50918 118 15 1 0 shift logical SHIFT(AB)
50919 101 128 1 1 add literal address *3:9
50920 126 100 2 0 0 enter subroutine I/P O/P S/R
50921 126 177 2 0 0 enter subroutine >REQUEST T/W
50922 106 215 28 1 0 select (N) TAPE
50923 102 102 6 1 0 transfer (A) to N
50924 124 429 2 0 1 modify address of next
50925 100 215 30 1 1 replace registers
50926 100 102 8 1 0 copy registers
50927 100 213 3 0 3 set radix
50928 125 0 1 2 interrogate indicators CLEAR A
50929 124 478 6 1 0 unconditional jump *69Ю >T/W 49600
51000 PROCR 510 510 GP1 FN7 AVAILABLE ROUTES COMMAND
51002 126 177 2 0 0 enter subroutine *68Ю REQUEST TYPEWRITER
51003 101 2 0 1 prepare for digit collation
51004 115 185 0 0 collate and add
51005 101 128 1 2 subtract literal address
51006 127 510 25 0 2 jump A >= Z *3:‼ CH 16,17,18
51007 101 128 1 1 add literal address
51008 126 510 11 0 0 enter subroutine *3:Ю >SET UP CHANNEL NUMBER
51009 101 12 0 1 prepare for digit collation
51010 124 510 31 1 0 unconditional jump SET UP REST OF COMMENT
51011 100 0 0 0 Halt *3:Ю
51012 127 510 17 0 1 jump A != Z >NOT CHANNEL 0
51013 101 3 1 3 select literal address SET UP ZERO
51014 118 3 0 0 shift logical
51015 102 221 2 1 0 transfer (A) to N
51016 124 510 19 1 0 unconditional jump *3:‼3:‼
51012>51017 103 221 3 1 0 copy (A) to N SET UP CH NUMBER
51018 118 4127 0 0 shift logical
51016>51019 103 500 2 0 0 copy (A) to N *3:Ю
51020 124 213 12 0 2 select literal and division
51021 112 500 2 0 0 convert *3:Ю
51022 118 3 0 3 shift binary
50226>51023 102 500 2 0 0 transfer (A) to N
51024 126 510 11 0 1 leave subroutine *3:Ю
Source image: P1020736.JPG
51006>51025 100 210 3 0 3 set radix
51026 101 352 1 1 add literal address ADD 160
51027 100 213 13 0 3 set radix
51028 126 510 11 0 0 enter subroutine
51029 101 60 0 1 prepare for digit collation *3:Ю
51030 101 12 0 1 prepare for digit collation *3:1
51010>51031 106 215 24 1 0 select (N)
51032 115 221 2 1 0 collate and add
51033 102 102 6 1 0 transfer (A) to N
51034 106 500 2 0 0 select (N) SET UP IND MOD REG
51035 103 533 2 0 0 copy (A) to N 8*CH
51036 101 8 1 1 add literal address 9*CH
51037 102 533 3 0 0 transfer (A) to N
51038 102 533 4 1 0 transfer (A) to N MOD REG FOR TYPING
51128>51039 124 533 2 0 1 modify address of next ROUTE
51040 106 64 0 0 select (N)
51041 118 4127 1 0 shift logical TEST AVAILABLE
51042 127 510 53 0 0 jump A = Z >YES
51043 101 255 1 2 subtract literal address TEST POTENTIALLY AVAILABLE
51044 127 511 2 0 1 jump A != Z *8‼‼ >NO
51045 106 533 2 0 0 select (N) POTENTIALLY AVAILABLE
51046 105 500 2 0 0 subtract (N) from (A)
51047 127 510 49 0 1 jump A != Z
51048 101 48 1 1 add literal address
51047>51049 118 3 0 0 shift logical
51050 118 3 1 0 shift logical
51051 101 955 0 1 prepare for digit collation
51052 124 511 20 1 0 unconditional jump >
51154>
51042>51053 106 533 2 0 0 select (N) AVAILABLE
51054 105 500 2 0 0 subtract (N) from (A)
51055 127 510 57 0 1 jump A != Z
51056 101 48 1 1 add literal address
51055>51057 118 3 0 0 shift logical
51058 118 3 1 0 shift logical
51059 101 907 0 1 prepare for digit collation
51060 124 511 20 1 0 unconditional jump >
51100 PROCR 511 511 GP1 FN7 AVAILABLE ROUTES COMMAND(2)
51044>51102 125 0 1 2 interrogate indicators *68Ю*8‼Ю
51103 102 533 6 1 0 transfer (A) to N CLEAR INDIRECT MOD REGISTER
51111>51104 124 533 6 0 1 modify address of next
51105 106 230 4 0 0 select (N) TEST PROS ENDED
51106 127 511 33 0 0 jump A = Z >YES
51107 105 211 2 0 0 subtract (N) from (A) TEST END OF TABLE
51108 127 511 12 0 0 jump A = Z >YES
51144>
51151>51109 123 2 0 0 step on and test STEP MR
51110 100 533 6 0 0 Halt
51111 124 511 4 1 0 unconditional jump *8‼Ю
51108>
50228>51112 106 533 2 0 0 select (N) ROUTE
51113 105 500 2 0 0 subtract (N) from (A) 8*CH
51114 127 511 16 0 1 jump A != Z >NON ZERO
51115 101 48 1 1 add literal address OBTAIN ZERO
51114>51116 118 3 0 0 shift logical
51117 101 208 1 1 add literal address TO GIVE U
51118 118 3 0 0 shift logical
51119 101 947 0 1 prepare for digit collation
51060>
51052>51120 115 215 26 1 0 collate and add ADD IN REST OF WORD
51121 124 533 4 0 1 modify address of next STORE IN
51122 102 102 8 1 0 transfer (A) to N T/W ANNEX
51123 101 0 0 1 prepare for digit collation
51124 123 2 0 0 step on and test
51125 100 533 4 0 0 Halt
Source image: P1020737.JPG
51126 123 1 0 0 step on and test LAST ROUTE
51127 100 533 2 0 0 Halt
51128 124 510 39 1 0 unconditional jump >NO
51129 106 214 80 0 0 select (N) L/E,L/E
51130 102 102 24 1 0 transfer (A) to N
51131 126 107 8 1 1 set modification register (MR1)FOR MASTER
51132 124 478 6 1 0 unconditional jump >OUTPUT COMMENT
51106>51133 124 533 6 0 1 modify address of next *8‼Ю
51134 124 230 5 0 1 modify address of next SET(MR1)FOR PROG
51135 126 36 1 1 set modification register WHICH HAS REACHED END
51136 126 354 2 0 0 enter subroutine >SET(MR3)=LC+2*NO FILES/LC
51143>51137 125 0 1 2 interrogate indicators
51138 101 3 0 1 prepare for digit collation
51139 115 34 0 3 collate and add
51140 105 533 2 0 0 subtract (N) from (A) TEST SAME ROUTE
51141 127 511 45 0 0 jump A = Z >YES
51142 125 1 0 3 step on and test *17+18+ 00002
51143 124 511 37 1 0 unconditional jump >NEXT ROUTE
51144 124 511 9 1 0 unconditional jump >NEXT PROG
51141>51145 101 16 0 1 prepare for digit collation
51146 115 34 0 3 collate and add RTE TYPE IN Q5
51147 102 533 8 0 0 transfer (A) to N *13Ю
51148 100 210 8 0 2 replace (B) by (N) *17Ю18Ю CLEAR BIT 1 OF
51149 114 6 0 0 replace selected bits *17Ю18Ю MR3
51150 106 34 1 3 select (N) TEST ROUTE RELEASED
51151 127 511 9 0 3 jump A < Z >YES
51152 106 533 8 0 0 select (N) *13Ю
51153 118 4123 1 0 shift logical RTE TYPE IN Q10 OF 13
51154 124 510 53 1 0 unconditional jump *68Ю*8‼Ю
51155 124 512 44 1 0 unconditional jump *££0*££2*3Ю3*3‼‼
51156 100 0 0 0 Halt SPARE
51200 PROCR 512 512 EXCESS STORE COMMENT
51202 126 177 2 0 0 enter subroutine *67Ю >REQUEST T/W
51203 106 215 22 1 0 select (N) SET UP STORE
51204 102 102 6 1 0 transfer (A) to N IN T/W ANNEXE
51205 101 20 1 3 select literal address
51206 102 4 1 0 transfer (A) to N
51207 126 212 14 1 3 set modification register 10:0
51212>
51243>
51248>51208 106 230 21 0 2 select (N)
51209 105 211 2 0 0 subtract (N) from (A) SUB 15'5
51210 127 512 14 0 1 jump A != Z IF NOT
51211 125 4098 0 2 step on and test YES
51212 124 512 8 1 0 unconditional jump PICK UP NEXT WORD
51213 124 512 27 1 0 unconditional jump *3Ю3*3‼‼
51210>51214 100 210 3 0 3 set radix SET DECIMAL
51215 124 213 2 0 2 select literal and division
51216 112 231 1 0 2 convert CONVERT BIN>DEC
51217 102 102 74 0 0 transfer (A) to N
51218 124 261 52 0 2 select literal and division
51219 124 6 0 1 modify address of next
51220 128 102 8 1 2 edit fixed field formats
51221 100 213 3 0 3 set radix
51222 101 768 0 1 prepare for digit collation
51223 114 102 8 1 3 replace selected bits CLEAR TOP QUARTET OF A
51224 125 2 0 3 step on and test END OF WORD?
51249>51225 125 4098 0 2 step on and test
51226 124 512 47 1 0 unconditional jump PICKUP NEXT WORD
51213>51227 106 500 2 0 0 select (N) *3Ю2*3‼Ю
51228 127 512 44 0 3 jump A < Z IF NEG
51229 101 18 1 3 select literal address IF POS
51230 102 5 0 0 transfer (A) to N
51231 101 38 1 1 add literal address
51232 102 4 0 0 transfer (A) to N
Source image: P1020738.JPG
51233 101 1008 0 1 prepare for digit collation
51234 115 214 22 1 0 collate and add
51235 102 102 8 1 3 transfer (A) to N SET UP L.E.,N.E.,N.E
51236 106 6 0 0 select (N)
51237 101 2 1 1 add literal address SET START VALUE MR3
51238 103 6 0 0 copy (A) to N
51239 101 10 1 1 add literal address
51240 102 7 0 0 transfer (A) to N SET UP END VALUE MR3
51241 101 1111 1 2 subtract literal address
51242 102 500 2 0 0 transfer (A) to N SET IND NEG
51243 124 512 8 1 0 unconditional jump *3Ю2*3‼Ю
51228>
51155>51244 106 214 80 1 0 select (N)
51245 102 102 8 1 3 transfer (A) to N
51246 124 478 6 1 0 unconditional jump TYPE
51226>51247 125 0 0 3 step on and test
51248 124 512 8 1 0 unconditional jump
51249 124 512 25 1 0 unconditional jump
51300 PROCR 513 513 GP1 FN9:CHECK FIELD ON CARD INPUT
51302 118 1 1 0 shift logical *66Ю
51303 125 0 1 2 interrogate indicators CLEAR A
51304 115 185 0 0 collate and add
51305 115 185 0 0 collate and add
51306 118 4127 0 0 shift logical
51307 102 210 15 0 0 transfer (A) to N STORE 2C
51308 126 177 2 0 0 enter subroutine >REQUEST T/W
51309 106 215 20 1 0 select (N) CARD
51310 102 102 6 1 0 transfer (A) to N
51311 106 214 46 1 0 select (N) CHECK
51312 102 102 8 1 0 transfer (A) to N
51313 106 210 15 0 0 select (N) C
51314 118 15 0 3 shift binary
51315 104 214 80 0 0 add (N) to (A) 2 L/E'S
51316 102 102 10 1 0 transfer (A) to N
51317 124 478 6 1 0 unconditional jump >
51400 PROCR 514 514 CHANGE CHANNEL
51402 101 64 1 3 select literal address *6ЮЮ
51403 126 501 2 0 0 enter subroutine FORM,CHECK AND STOREFROM I5-7
51404 127 514 8 0 0 jump A = Z IF ZERO
51405 101 1 1 2 subtract literal address
51406 127 477 8 0 0 jump A = Z >REJECT
51407 101 1 1 1 add literal address
51404>51408 118 3 0 3 shift binary STORE
51409 103 100 33 0 0 copy (A) to N
51410 103 100 34 0 0 copy (A) to N
51411 103 100 35 0 0 copy (A) to N
51412 101 4 1 1 add literal address
51413 102 100 36 0 0 transfer (A) to N
51414 106 215 4 1 0 select (N)
51415 102 102 6 1 0 transfer (A) to N
51416 101 64 1 3 select literal address
51417 104 4 0 0 add (N) to (A)
51418 118 8 0 1 shift arithmetic
51419 101 15 0 1 prepare for digit collation
51420 115 211 22 0 0 collate and add
51421 102 102 8 1 0 transfer (A) to N
51422 124 478 6 1 0 unconditional jump
51500 PROCR 515 515 SET PREFERRED PRINTER TYPE
51502 126 177 2 0 0 enter subroutine *86Ю REQUEST TYPEWRITER
51503 125 0 1 2 interrogate indicators
51504 101 1 0 1 prepare for digit collation COLLATE OUT
51505 115 233 29 0 0 collate and add PRINTER TYPE
51506 101 9 1 2 subtract literal address TEST=9
Source image: P1020739.JPG
51507 127 515 12 0 1 jump A != Z >NO
51508 106 215 40 1 0 select (N) SET UP GP
51509 102 102 8 1 0 transfer (A) to N
51510 101 4 1 3 select literal address
51511 124 515 15 1 0 unconditional jump >
51507>51512 106 215 42 1 0 select (N) SET UP SP
51513 102 102 8 1 0 transfer (A) to N
51514 101 9 1 3 select literal address COLLATE IN
51511>51515 114 233 29 0 0 replace selected bits NEW PRINTER TYPE
51516 106 215 38 1 0 select (N) REST OF
51517 102 102 6 1 0 transfer (A) to N COMMENT
51518 106 214 80 0 0 select (N) L/E,L/E
51519 102 102 10 1 0 transfer (A) to N
51520 124 478 6 1 0 unconditional jump *86Ю
51521 100 477 8 0 0 Halt *££0*££2*0‼‼*1.3*0:‼*0+‼*12‼*11‼*40‼
51522 100 477 8 0 0 Halt *4Ю‼ >REJECT
51523 127 477 8 0 1 jump A != Z *57‼363*363 >CREJ
51524 100 477 8 0 0 Halt *17‼18‼*61‼ >REJ
51525 115 222 2 0 0 collate and add *643 TEST IF FUNCTION NO.=0.
51526 127 477 8 0 0 jump A = Z *643643 YES>REJECT
51527 101 10 1 3 select literal address *64‼61‼
51528 101 7 1 3 select literal address *64‼61‼0:‼0+‼
51529 101 9 1 3 select literal address *64‼61‼0:‼
51600 PROCR 516 516 GROUP 2
51601 NOTES RADIX B DETERMINE FUNCTION
51602 126 461 2 0 0 enter subroutine >S/R Q
51603 101 14 1 3 select literal address *643*64‼61‼0:‼0+‼*64‼61‼0:‼*64‼61‼
51604 126 500 2 0 0 enter subroutine *643643 >S/R R
51605 103 516 12 0 0 copy (A) to N
51606 101 11 1 2 subtract literal address *61Ю64Ю TEST COMMAND USES TAG
51607 127 516 28 0 2 jump A >= Z >YES
51608 101 11 1 1 add literal address *61Ю64Ю
51609 126 459 2 0 0 enter subroutine >S/R G
51642>51610 124 516 12 0 1 modify address of next
51611 126 516 12 0 1 leave subroutine
51612 100 0 0 0 Halt FUNCTION NUMBER
51613 100 517 2 0 0 Halt >UNLOAD
51614 100 487 8 0 0 Halt *17‼18‼ ALLOC
51615 100 477 8 0 0 Halt >REJECT
51616 100 487 8 0 0 Halt *17‼18‼ ALLOC
51617 100 477 8 0 0 Halt >REJECT
51618 100 518 2 0 0 Halt *0‼‼*1.3 >INTERCHANGE PRIORITIES
51619 100 520 2 0 0 Halt *0+Ю0:Ю61Ю64Ю*0:‼ OPEN PROG
51620 100 521 2 0 0 Halt *0+‼ >RUNCH
51621 100 522 2 0 0 Halt *0:‼ >CLOSE PROGRAM
51622 100 477 8 0 0 Halt *61Ю64Ю >REJECT
51623 100 518 2 0 0 Halt *0‼‼*1.3*61‼ >INTERCHANGE
51624 100 520 2 0 0 Halt *0:‼*61‼ >OPEN PROG
51625 100 522 2 0 0 Halt *0:‼*61‼ >CLOSE PROG
51626 100 477 8 0 0 Halt *64Ю >REJECT
51627 100 517 2 0 0 Halt *64Ю >UNLOAD
51607>51628 101 2 0 1 prepare for digit collation FORM TAG NO
51629 101 0 1 3 select literal address
51630 115 185 0 0 collate and add
51631 127 477 2 0 0 jump A = Z *364 > REJECT 00008
51632 109 212 11 0 0 multiply uniform radix
51633 118 9 1 0 shift logical
51634 101 108 2 1 1 add literal address FORM SWITCH START
51635 103 108 27 0 0 copy (A) to N
51636 101 127 11 1 2 subtract literal address *2£4 00002
51637 127 517 4 0 2 jump A >= Z >NOT A SWITCH
51638 124 108 27 0 1 modify address of next STORE PROG IDENT
51639 106 39 0 0 select (N)
51640 103 222 10 1 0 copy (A) to N
51641 127 477 2 0 0 jump A = Z *364 >REJECT 00008
Source image: P1020740.JPG
51642 124 516 10 1 0 unconditional jump >COMMANDS
51700 PROCR 517 517 GROUP2: FUNCTION 1
51701 NOTES RADIX B UNLOAD
51702 106 222 10 1 0 select (N) STORE ID OF PROG TO BE UNLOADED
51703 126 479 2 0 0 enter subroutine >S/R M*
51637>51704 124 477 2 1 0 unconditional jump *364 >REJECT 00008
51705 106 4 0 0 select (N) TEST MASTER ROUTINE
51706 127 477 2 0 0 jump A = Z *364 YES REJECT 00008
51707 124 4 0 1 modify address of next
51708 124 230 3 0 1 modify address of next SET MR1 FOR PROG
51709 126 36 1 1 set modification register
51710 124 3 0 1 modify address of next *60Ю
51711 106 11 0 0 select (N)
51712 124 233 45 0 1 modify address of next
51713 127 9 0 1 jump A != Z *60Ю >YES TO PTS
51714 125 0 1 2 interrogate indicators *601
51715 124 295 17 1 0 unconditional jump >ABANDON PROGRAM
51800 PROCR 518 518 GROUP 2: FUNCTION 6
51801 NOTES RADIX B INTERCHANGE PRIORITIES
51802 106 222 10 0 0 select (N) *0‼Ю*1.2 PROG IDENT NO
51803 126 479 2 0 0 enter subroutine >S/R M*
51804 124 477 2 1 0 unconditional jump *364 >REJECT 00008
51805 106 4 0 0 select (N) TEST IF COMMAND GIVE
51806 103 5 0 0 copy (A) to N FOR TOP PROG.
51807 101 4 1 2 subtract literal address
51808 127 477 4 0 3 jump A < Z *364 >REJECT 00008
51809 106 230 2 1 2 select (N)
51810 102 221 2 1 0 transfer (A) to N
51811 106 229 4 1 2 select (N) *3Ю4*3‼+ 0000200002
51812 102 230 2 1 2 transfer (A) to N
51813 106 221 2 1 0 select (N)
51814 102 229 4 1 2 transfer (A) to N *3Ю4*3‼+ 0000200002
51815 106 229 5 0 2 select (N) *3Ю4*3‼+ 0000300003
51816 102 4 0 0 transfer (A) to N
51817 101 220 5 1 3 select literal address SET UP (MR'S 2&3)
51818 102 6 0 0 transfer (A) to N
51819 126 235 2 0 0 enter subroutine >S/R X
51900 PROCR 519 519 INTERCHANGE PRIORITIES (2)
51901 NOTES RADIX B
51902 106 4 0 0 select (N) *0‼Ю*1.2
51903 102 6 0 0 transfer (A) to N
51904 124 5 0 1 modify address of next RESET MR'S 1&2
51905 106 228 27 0 0 select (N) *3Ю4*3‼+ 0002500025
51906 102 4 0 0 transfer (A) to N
51907 126 235 2 0 0 enter subroutine >S/RX
51908 106 4 0 0 select (N)
51909 102 6 0 0 transfer (A) to N
51910 124 5 0 1 modify address of next
51911 106 230 3 0 0 select (N) RESET MR'S 2AND3
51912 102 4 0 0 transfer (A) to N
51913 126 235 2 0 0 enter subroutine >S/R X
51914 106 4 0 0 select (N)
51915 102 6 0 0 transfer (A) to N
51916 101 220 5 1 3 select literal address RESET (MR'S 2&3)
51917 102 4 0 0 transfer (A) to N
51918 126 235 2 0 0 enter subroutine >S/R X
51919 124 495 2 0 2 select literal and division
51920 124 478 2 1 0 unconditional jump
52000 PROCR 520 520 GROUP 2 FUNCTION 7
52001 NOTES RADIX B OPEN PROGRAMME
52002 106 222 10 0 0 select (N) *0:Ю PROG ID NO
52003 126 479 2 0 0 enter subroutine >S/R M*
Source image: P1020741.JPG
52004 124 477 2 1 0 unconditional jump *364 >REJECT 00008
52005 106 230 3 0 2 select (N) START OF SWITCH
52006 102 4 1 0 transfer (A) to N SET MR2= START OF SW
52007 106 45 0 2 select (N) *462 ORIGINAL SW.SETTING
52008 105 209 4 0 0 subtract (N) from (A) TEST 26/1/0 INSTRUCTION
52009 127 477 4 0 0 jump A = Z *462*364 >YES REJECT0000000008 NOT CLOSE
52010 106 45 0 2 select (N) ORIGINAL SW. SETTING
52011 127 477 4 0 2 jump A >= Z *364 >REJ NOT CLOSED00008
52012 102 7 0 2 transfer (A) to N RESET SWITCH
52013 102 45 0 2 transfer (A) to N CLEAR W/L
52014 101 495 10 1 3 select literal address START OF EDIT TABLE
52015 124 478 2 1 0 unconditional jump >
52100 PROCR 521 521 GROUP 2: FUNCTION 8
52101 NOTES RADIX B AMEND RUN NUMBER
52102 106 222 10 0 0 select (N) *0+Ю PROG ID NO
52103 126 479 2 0 0 enter subroutine >S/R M*
52104 124 521 6 1 0 unconditional jump >PROG NOT IN PRIORITY LIST
52105 124 477 4 1 0 unconditional jump *364 >REJ NOT ENDED 00008
52104>52106 126 479 2 0 0 enter subroutine >S/R M*
52107 124 477 2 1 0 unconditional jump *364 >REJ NOT IN STO00008
52108 106 230 3 0 2 select (N) START OF SWITCH
52109 102 6 0 0 transfer (A) to N
52110 106 39 0 3 select (N) TEST REQD PROG
52111 105 222 10 0 0 subtract (N) from (A)
52112 127 479 11 0 1 jump A != Z >NO
52113 124 6 0 1 modify address of next *60Ю TEST PROG UNDER
52114 124 37 0 1 modify address of next TRIAL
52115 106 11 0 0 select (N)
52116 127 521 45 0 1 jump A != Z *60Ю*363
52117 106 222 10 0 0 select (N) REPLACE PROG IN PRIORITY LIST
52118 102 230 2 0 2 transfer (A) to N
52119 106 37 0 3 select (N) START OF LAST CHAP
52120 102 4 0 0 transfer (A) to N
52121 106 229 5 0 0 select (N) *3Ю4*3‼+ 0000300003
52122 103 40 0 3 copy (A) to N STORE NEW RUN N
52123 102 15 0 2 transfer (A) to N
52124 106 226 11 0 0 select (N) TEST (A), (B)
52125 105 214 11 0 0 subtract (N) from (A) SPECIFIED
52126 127 521 31 0 0 jump A = Z >NO
52127 106 226 12 1 0 select (N) STORE(A),(B)
52128 102 30 1 3 transfer (A) to N
52129 106 226 14 1 0 select (N)
52130 124 521 32 1 0 unconditional jump >
52126>52131 102 30 1 3 transfer (A) to N
52130>52132 102 32 1 3 transfer (A) to N
52133 106 210 3 0 0 select (N) SET (C) DECIMAL
52134 102 34 0 3 transfer (A) to N
52135 102 46 1 1 transfer (A) to N CLEAR TIME SPENT IN PROGRAMME
52136 101 15 0 1 prepare for digit collation
52137 106 10 0 2 select (N) TAG
52138 118 4 0 0 shift logical
52139 115 8 0 2 collate and add ENTRY PT
52140 102 44 0 3 transfer (A) to N
52141 106 35 0 3 select (N) SET SWITCH AT 4
52142 102 7 0 3 transfer (A) to N
52143 124 495 20 0 2 select literal and division START OF EDIT TABLE
52144 124 478 2 1 0 unconditional jump
52116>52145 124 83 0 2 select literal and division *361
52146 124 477 5 1 0 unconditional jump *364 > 00008
52200 PROCR 522 522 GROUP 2 FUNCTION 9
52201 NOTES RADIX B CLOSE PROGRAMME
52202 106 222 10 0 0 select (N) *0:Ю
52203 126 479 2 0 0 enter subroutine >S/R M*
52204 124 477 2 1 0 unconditional jump *364 >REJECT 00008
Source image: P1020742.JPG
52205 106 230 3 0 2 select (N)
52206 102 4 1 0 transfer (A) to N
52207 106 7 0 2 select (N) TEST IF SWITCH
52208 105 9 0 2 subtract (N) from (A) ALREADY CLOSED
52209 127 477 4 0 0 jump A = Z *364 >YES REJECT 00008
52210 106 7 0 2 select (N) STORE SWITCH SETTING IN ASS. TIME
52211 102 45 0 2 transfer (A) to N
52212 106 9 0 2 select (N) CLOSE SWITCH
52213 102 7 0 2 transfer (A) to N
52214 126 177 2 0 0 enter subroutine >REQUEST T/W
52215 101 495 12 1 3 select literal address START OF EDIT TABLE
52216 128 102 8 1 2 edit fixed field formats
52217 106 215 2 1 0 select (N) FORM COMMENT
52218 102 102 6 1 0 transfer (A) to N
52219 101 768 0 1 prepare for digit collation
52220 114 102 8 1 0 replace selected bits
52221 124 478 6 1 0 unconditional jump >EDIT TIME
52300 PROCR 523 523 GROUP 3
52301 NOTES RADIX B DETERMINE FUNCTION
52302 101 1 0 1 prepare for digit collation *41Ю FILL QIB
52303 101 2 1 3 select literal address LIMIT OF FN. NO.
52304 126 500 2 0 0 enter subroutine >S/R R
52305 124 463 2 1 0 unconditional jump >STORE DUMP
52400 PROCR 524 524 GROUP 4
52401 NOTES RADIX B DETERMINE FUNCTION
52402 126 461 2 0 0 enter subroutine
52403 101 10 1 3 select literal address *11+12+40+*11+40+ 0000600008
52404 126 500 2 0 0 enter subroutine >S/R R
52405 103 524 9 0 0 copy (A) to N
52406 126 459 2 0 0 enter subroutine >S/R G
52407 124 524 9 0 1 modify address of next
52408 126 524 9 0 1 leave subroutine
52409 100 0 0 0 Halt FUNCTION NUMBER
52410 100 525 2 0 0 Halt >SET RELEASED TAPES INDEX
52411 100 487 8 0 0 Halt >ALLOC WITHOUT
52412 100 526 2 0 0 Halt *4Ю‼ SET REL TAPES INDEX
52413 100 487 8 0 0 Halt
52414 100 477 8 0 0 Halt >REJECT
52415 100 527 2 0 0 Halt *12‼*11Ю12Ю40Ю >AVAIL ROUTE
52416 100 528 2 0 0 Halt *12‼ >SET ROUTE NOT AVAILABLE
52417 100 529 2 0 0 Halt *11‼ >CHANGE ROUTE NO
52418 100 487 3 0 0 Halt *40‼ OVERWRITE ALLOC
52500 PROCR 525 525 GROUP4: FUNCTION1
52501 NOTES RADIX B SET RELEASED TAPES INDEX
52502 106 226 5 1 0 select (N) TEST 2ND WORD ZERO
52503 127 525 28 0 1 jump A != Z >NO
52504 124 24 0 2 select literal and division *4:4 00012
52505 105 525 30 0 0 subtract (N) from (A)
52506 102 525 30 0 0 transfer (A) to N
52507 106 534 4 1 0 select (N) UNPACK INDEX
52508 124 525 30 0 1 modify address of next
52509 128 196 2 1 0 bulk copy alpha to short
52510 125 0 1 2 interrogate indicators *6.Ю
52511 124 525 30 0 1 modify address of next
52512 102 196 2 0 0 transfer (A) to N *6.Ю
52513 106 534 6 1 0 select (N) *4:2*102
52514 124 525 30 0 1 modify address of next
52515 128 196 14 1 0 bulk copy alpha to short *4:2*102
52516 126 177 2 0 0 enter subroutine >REQUEST T/W
52517 106 215 46 1 0 select (N) *4ЮЮ 'LONG'
52612>52518 102 102 10 1 0 transfer (A) to N *4ЮЮ
52519 106 214 58 1 0 select (N) 'R T I' SET UP COMMENT
52520 102 102 6 1 0 transfer (A) to N
Source image: P1020743.JPG
52521 102 102 8 1 0 transfer (A) to N *6.Ю
52522 106 226 6 1 0 select (N) SER NO
52523 102 102 10 1 0 transfer (A) to N *6.Ю*4Ю4 000000014
52524 106 214 80 1 0 select (N)
52525 102 102 12 1 0 transfer (A) to N *6.+4Ю+*6.44Ю4 0000800016
52526 102 102 12 1 0 transfer (A) to N *4Ю9*6.+ 0000000008
52527 124 478 6 1 0 unconditional jump >OUTPUT COMMENT
52603>
52503>52528 124 81 0 2 select literal and division CODE LETTER A
52529 124 498 5 1 0 unconditional jump >
52530 100 0 0 0 Halt IND (SET AT 0 OR 24)
52531 127 477 4 0 1 jump A != Z *££0*££2*57‼36‼
52532 127 477 8 0 1 jump A != Z *57‼363
52600 PROCR 526 526 SET RELEASED TAPES INDEX (SHORT)
52601 NOTES RADIX
52602 106 226 5 1 0 select (N) *4ЮЮ
52603 127 525 28 0 1 jump A != Z >NO CD A
52604 101 12 1 3 select literal address SET UP MODIFIER
52605 105 526 13 0 0 subtract (N) from (A)
52606 102 526 13 0 0 transfer (A) to N
52607 106 534 4 1 0 select (N) COPY TAPE NOS
52608 124 526 13 0 1 modify address of next
52609 128 196 26 1 0 bulk copy alpha to short
52610 126 177 2 0 0 enter subroutine
52611 106 215 44 1 0 select (N) 'SHORT'
52612 124 525 18 1 0 unconditional jump
52613 100 0 0 0 Halt MODIFIER
52700 PROCR 527 527 GROUP4:FUNCTION6
52701 NOTES RADIX B SET ROUTE AVAILABLE
52702 126 502 2 0 0 enter subroutine *12Ю >S/R S
52703 101 255 1 2 subtract literal address TEST RTE UNAVAILABLE
52704 127 527 12 0 1 jump A != Z *57‼36‼*57‼363 CHECK LIST IF MULTI-
52705 118 1 1 0 shift logical
52706 102 64 0 2 transfer (A) to N SET ROUTE AVAILABLE
52724>52707 102 222 11 0 0 transfer (A) to N
52708 124 215 8 0 2 select literal and division *12Ю AMEND EDIT TABLE
52809>
53185>52709 102 495 32 0 0 transfer (A) to N *11Ю12Ю*111129
53043>52710 124 495 32 0 2 select literal and division START OF EDIT TABLE
52711 124 478 2 1 0 unconditional jump
52704>52712 106 4 0 0 select (N) *57Ю*12Ю CH CH RT IN MR 2
52713 126 249 2 0 0 enter subroutine >SEARCH LIST
52714 124 527 16 1 0 unconditional jump >FOUND
52715 124 477 4 1 0 unconditional jump *364 >NO 00008
52714>52716 124 225 16 0 1 modify address of next SET UP 64+R
52717 106 224 3 0 0 select (N)
52718 102 64 0 2 transfer (A) to N
52719 106 258 17 0 0 select (N) SET UP TABLE ENTRY
52720 101 22 1 2 subtract literal address
52721 118 5 0 0 shift logical
52722 124 225 16 0 1 modify address of next CLEAR AREA
52723 128 224 2 0 0 bulk copy short numeric
52724 124 527 7 1 0 unconditional jump >COMMENT
52800 PROCR 528 528 GROUP4:FUNCTION 7
52801 NOTES RADIX B SET ROUTE NOT AVAILABLE
52802 126 502 2 0 0 enter subroutine *12Ю >S/R S
52803 127 477 4 0 1 jump A != Z *364 >REJECT 00008
52804 101 255 1 1 add literal address SET ROUTE UNAVAILABLE
52805 118 1 1 0 shift logical
52806 102 64 0 2 transfer (A) to N
52807 102 222 11 0 0 transfer (A) to N
52808 124 215 6 0 2 select literal and division AMEND EDIT TABLE
52809 124 527 9 1 0 unconditional jump *12Ю >COMMENT
Source image: P1020744.JPG
52810 127 531 86 0 0 jump A = Z *££0*££2*873*88£ >YES REJECT
52811 127 531 86 0 2 jump A >= Z *87‼ >YES REJECT
52812 127 531 86 0 3 jump A < Z *87Ю87‼ >NO REJECT
52813 127 531 86 0 1 jump A != Z *87‼87‼ >NO REJECT
52814 127 531 24 0 0 jump A = Z *853 >YES
52815 127 531 67 0 0 jump A = Z *87987‼ >YES
52900 PROCR 529 529 GROUP 4 FUNCTION 8
52901 NOTES RADIX B CHANGE ROUTE NUMBER
52902 126 502 2 0 0 enter subroutine *11Ю >S/R S
52903 125 0 1 2 interrogate indicators DRAIN
52904 118 1 1 0 shift logical
52905 103 531 90 0 0 copy (A) to N *879889
52906 103 533 6 0 3 copy (A) to N
52907 125 1 0 3 step on and test STEP MR3
52908 124 502 6 1 0 unconditional jump >DECODE OLD ROUTE
52909 106 64 0 2 select (N) PROG TAG IN Q5 IF OLD ROUTE IN USE
52910 118 4124 0 0 shift logical
52911 127 531 86 0 0 jump A = Z >NO REJECT
52912 103 533 7 0 0 copy (A) to N STORE TAG
52913 101 13 1 2 subtract literal address TEST IF M/R ROUTE
52914 127 531 86 0 2 jump A >= Z *873 >YES REJECT
52915 106 533 6 0 0 select (N) NEW ROUTE TYPE
52916 101 5 1 2 subtract literal address TEST P/T I/P
52917 127 529 29 0 0 jump A = Z *88‼ >YES SET INDZERO
52918 106 533 3 0 0 select (N) OLD CHANNEL TEST IF M/T ROUTE
52919 101 16 1 2 subtract literal address *3:Ю TEST M/T ROUTE
52920 127 529 58 0 3 jump A < Z *3:Ю*87‼ >NO
52921 101 1 1 2 subtract literal address *234*244 0000200003
52922 127 529 58 0 2 jump A >= Z *87Ю87‼ >NO
52923 106 533 2 0 0 select (N) *87Ю88Ю*87Ю NEW CHANNEL
52924 101 16 1 2 subtract literal address *3:Ю TEST M/T
52925 127 531 86 0 3 jump A < Z *3:Ю >NO REJECT
52926 101 1 1 2 subtract literal address *234*244 0000200003
52927 127 531 86 0 2 jump A >= Z *87Ю >NO REJECT
52928 101 15 1 3 select literal address *889*871
52917>52929 102 531 90 0 0 transfer (A) to N SET IND NEG FOR MT ZERO FOR PT
52930 126 212 8 1 3 set modification register MR3 SPANS SWITCHES
52935>52931 106 112 2 0 3 select (N) TEST OLD ROUTE
52932 105 533 9 0 0 subtract (N) from (A) IN SI+30
52933 127 529 37 0 0 jump A = Z >YES
52934 125 48 0 3 step on and test
52935 124 529 31 1 0 unconditional jump >NEXT PROG
52936 124 531 86 1 0 unconditional jump >NO REJECT
52933>52937 124 6 0 1 modify address of next
52938 126 112 8 1 1 set modification register
52939 106 31 0 1 select (N) TEST OPENING FILE
52940 101 15 1 2 subtract literal address *88+ 00017
52941 127 529 44 0 3 jump A < Z *87987‼ >NO
52942 101 4 1 2 subtract literal address *87Ю*88+ 0000000002
52943 127 529 67 0 3 jump A < Z *87Ю >YES
52941>52944 106 31 0 1 select (N)
52945 101 267 2 1 1 add literal address
52946 101 305 25 1 2 subtract literal address *87Ю TEST REOPEN
52947 127 529 67 0 0 jump A = Z >YES M/T O/P REEL
52948 101 305 25 1 1 add literal address
52949 101 421 61 1 2 subtract literal address TEST REOPEN
52950 127 529 67 0 0 jump A = Z >YES M/T I/P REEL
52951 101 421 61 1 1 add literal address
52952 101 291 6 1 2 subtract literal address *5+Ю TEST IN
52953 127 529 67 0 0 jump A = Z >YES OPT 13
52954 101 291 6 1 1 add literal address *87Ю*5+Ю*889
52955 101 365 35 1 2 subtract literal address *88Ю TEST REOPEN
52956 127 529 67 0 0 jump A = Z *88Ю >YES P/T I/P REEL
52957 124 531 86 1 0 unconditional jump *87Ю88Ю >NO REJECT
52922>
Source image: P1020745.JPG
52920>52958 126 212 8 1 3 set modification register
52959 106 533 7 0 0 select (N) TAG
52963>52960 101 1 1 2 subtract literal address
52961 127 529 65 0 0 jump A = Z >
52962 125 48 0 3 step on and test
52963 124 529 60 1 0 unconditional jump >TRY AGAIN
52964 124 531 86 1 0 unconditional jump >REJECT
52961>52965 124 6 0 1 modify address of next
52966 126 112 8 1 1 set modification register
52956>
52953>
52950>
52947>
52943>52967 106 533 9 0 0 select (N) OLD ROUTE
52968 102 188 2 0 0 transfer (A) to N
52969 126 353 2 0 0 enter subroutine SELECT RTE NO FROM LAST CHAP
52970 127 529 74 0 0 jump A = Z >
52971 125 2 0 3 step on and test STEP TO TEST NEXT ROUTE
52972 124 353 4 1 0 unconditional jump >NO
52973 124 531 86 1 0 unconditional jump >REJECT
52970>52974 101 16 0 1 prepare for digit collation COLLATE OLD ROUTE TYPE
52975 115 34 0 3 collate and add AND TEST SAME AS NEW ROUTE TYPE
52976 118 4124 0 0 shift logical
52977 103 533 7 0 0 copy (A) to N *879 COPY OLD ROUTE TYPE
52978 105 533 6 0 0 subtract (N) from (A)
52979 127 529 82 0 0 jump A = Z *87‼87‼ >YES
52980 106 531 90 0 0 select (N) *87Ю NO MUST BE MT
52981 127 531 86 0 2 jump A >= Z *87Ю >NOT REJECT
52979>52982 124 533 8 0 1 modify address of next TEST NEW ROUTE
52983 106 64 0 0 select (N) AVAILABLE
52984 118 4127 0 0 shift logical
52985 127 531 86 0 1 jump A != Z >NO REJECT
52986 106 64 0 2 select (N) INTERCHANGE ASL'S
52987 124 533 8 0 0 modify address of next
52988 102 64 0 0 transfer (A) to N
52989 106 533 7 0 0 select (N) *87+ 00006
52990 101 4080 1 1 add literal address ADD ££0 TO MAKE UNAVAILABLE
52991 103 64 0 2 copy (A) to N
53000 PROCR 530 530 CHANGE ROUTE(2)
53002 101 4086 1 2 subtract literal address *11Ю*04Ю*89Ю TEST RT TYPE 6
53003 127 530 29 0 1 jump A != Z *853 >NO
53004 101 7 1 2 subtract literal address REPLACE
53005 127 530 29 0 1 jump A != Z UPTIME ROUTE
53006 106 533 9 0 0 select (N)
53007 105 221 39 0 0 subtract (N) from (A)
53008 127 530 12 0 1 jump A != Z
53009 106 533 8 0 0 select (N)
53010 102 221 39 0 0 transfer (A) to N
53011 124 530 14 1 0 unconditional jump
53008>53012 106 533 8 0 0 select (N)
53013 102 221 41 0 0 transfer (A) to N
53011>53014 106 533 9 0 0 select (N) TEST W/E IND SET
53015 105 381 24 0 0 subtract (N) from (A)
53016 127 530 19 0 1 jump A != Z >NO
53017 106 533 8 0 0 select (N) REPLACE
53018 102 381 24 0 0 transfer (A) to N
53016>53019 106 533 9 0 0 select (N)
53020 105 381 23 0 0 subtract (N) from (A)
53021 127 530 24 0 1 jump A != Z >NO
53022 106 533 8 0 0 select (N) REPLACE
53023 102 381 23 0 0 transfer (A) to N *85Ю
53021>53024 106 65 0 2 select (N) INTERCHANGE OTHER
53025 124 533 8 0 1 modify address of next HALF OF ASL
Source image: P1020746.JPG
53026 102 65 0 0 transfer (A) to N
53027 101 1 1 3 select literal address SET CARD IND=1
53028 124 530 30 1 0 unconditional jump
53005>
53003>53029 125 0 1 2 interrogate indicators SET CARD IND=0
53028>53030 102 531 91 0 0 transfer (A) to N *04Ю*89Ю
53031 106 533 8 0 0 select (N) COLLATE NEW ROUTE
53032 118 3 0 0 shift logical *87+ 00007
53033 104 533 6 0 0 add (N) to (A) *87Ю
53034 118 4 0 0 shift logical *87Ю AND ROUTE TYPE
53035 104 533 8 0 0 add (N) to (A) INTO SP CH DETAILS
53036 101 403 0 1 prepare for digit collation *87+ 00387
53037 114 34 1 3 replace selected bits
53038 106 533 8 0 0 select (N) NEW ROUTE
53039 126 328 2 0 0 enter subroutine ALTER ROUTE NO IN PARAMETER LISTS
53040 127 531 10 0 0 jump A = Z *££0*££2*043893
53041 127 531 20 0 0 jump A = Z *042893 >YES
53042 127 531 40 0 1 jump A != Z *87‼88‼*87‼ >NO
53043 124 527 10 1 0 unconditional jump *12‼ >COMMENT
53044 126 351 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
53045 124 477 8 1 0 unconditional jump *363 >C REJ
53100 PROCR 531 531 CHANGE ROUTE(3)
53102 125 0 1 2 interrogate indicators *11Ю
53103 101 3 0 1 prepare for digit collation
53104 115 7 0 1 collate and add TEST OLD RTE SET UP
53105 105 531 9 0 0 subtract (N) from (A) IN SI+7
53106 127 531 14 0 1 jump A != Z *043893 >NO
53107 105 531 91 0 0 subtract (N) from (A) *04Ю*89Ю TEST OLD RTE+1 SET U
53108 127 531 14 0 1 jump A != Z >NO IN SI IF CARDS
53109 101 1 1 1 add literal address *04Ю*89Ю
53040>53110 104 533 8 0 0 add (N) to (A) NEW ROUTE NO
53111 114 7 0 1 replace selected bits
53112 125 0 1 2 interrogate indicators
53113 102 45 0 1 transfer (A) to N CLEAR ASSOCIATED TIME
53108>
53106>53114 106 30 0 1 select (N) TEST OLD ROUTE IN SI+30
53115 105 533 9 0 0 subtract (N) from (A)
53116 127 531 22 0 1 jump A != Z *042893*87‼88‼ >NO
53117 105 531 91 0 0 subtract (N) from (A) *04Ю*89Ю OLD RTE+1 IN SI+30
53118 127 531 22 0 1 jump A != Z *87‼88‼ >NO
53119 104 531 91 0 0 add (N) to (A) *04Ю*89Ю YES
53041>53120 104 533 8 0 0 add (N) to (A) SET UP NEW ROUTE
53121 102 30 0 1 transfer (A) to N IN SI+30
53118>
53116>53122 106 531 90 0 0 select (N) *87Ю88Ю
53123 127 531 33 0 0 jump A = Z *889*87‼ >PT
52814>53124 127 531 40 0 2 jump A >= Z *87Ю
53125 126 108 18 1 3 set modification register COPY MT FILE
53131>53126 124 533 9 0 1 modify address of next DETAILS
53127 106 190 2 0 3 select (N)
53128 124 533 8 0 1 modify address of next
53129 102 190 2 0 3 transfer (A) to N
53130 125 24 0 3 step on and test *234*224 0001600008
53131 124 531 26 1 0 unconditional jump
53132 124 531 74 1 2 modify address of next *87Ю >COMMENT
53123>53133 124 531 74 0 2 select literal and division *88Ю
53134 102 325 2 0 0 transfer (A) to N COPY PAPER TAPE
53135 106 533 9 0 0 select (N) FILE DETAILS FOR
53136 102 221 3 0 0 transfer (A) to N SUBSEQUENT REELS
53137 106 533 8 0 0 select (N) NEW ROUTE
53138 102 188 2 0 0 transfer (A) to N
53139 124 325 6 1 0 unconditional jump *88Ю*87Ю88Ю
53124>
53042>53140 106 533 3 0 0 select (N) SET MR3
53141 118 3 0 3 shift binary AT 8*OLD CHANNEL
Source image: P1020747.JPG
53142 102 6 0 0 transfer (A) to N
53143 106 252 2 0 3 select (N) TEST OLD ROUTE LAST
53144 105 533 9 0 0 subtract (N) from (A) TO USE ITS CHANNEL
53145 127 531 60 0 1 jump A != Z >NO
53146 106 252 3 0 3 select (N) STORE ROUTE TYPE
53147 103 533 7 0 0 copy (A) to N FOR FUTURE USE
53148 105 211 2 0 0 subtract (N) from (A) TEST ASSEMBLER TABLE CLEARED
53149 127 531 60 0 0 jump A = Z YES>
53150 126 107 8 1 1 set modification register (MR1)FOR MR SWITCH
53151 106 533 9 0 0 select (N) OLD ROUTE
53152 102 30 0 1 transfer (A) to N IN SI+30
53153 126 352 2 0 0 enter subroutine *09‼06‼ TEST RTE NOTING D/B
53154 124 533 9 0 1 modify address of next SET ROUTE
53155 119 0 1 2 unload TO MANUAL
53156 124 3 0 1 modify address of next
53157 106 160 0 0 select (N) TEST D/B OCCURRED
53158 127 531 74 0 0 jump A = Z >NO
53159 124 531 71 1 0 unconditional jump >YES
53149>
53145>53160 106 533 3 0 0 select (N) TEST D/B IND SET
53161 118 3 0 3 shift binary FOR OLD CHANNEL
53162 102 6 0 0 transfer (A) to N 8*OLD CHANNEL
53163 101 1 0 1 prepare for digit collation
53164 124 533 5 0 1 modify address of next OLD ROUTE
53165 118 0 1 0 shift logical
53166 115 252 4 1 3 collate and add COLLATE OUT D/B IND
52815>53167 125 531 74 0 0 step on and test >NO
53168 118 533 7 1 2 scale denominator ALIGN TO
53169 118 4120 0 0 shift logical Q1 OF A
53170 102 533 7 0 0 transfer (A) to N
53159>53171 106 103 15 0 0 select (N) SET SWITCH SAS
53172 102 265 4 0 0 transfer (A) to N =2
53173 124 531 75 1 0 unconditional jump >
53158>53174 102 533 7 0 0 transfer (A) to N STORE D/B IND
53173>53175 106 533 2 0 0 select (N) NEW CH
53176 118 3 0 3 shift binary
53177 102 6 0 0 transfer (A) to N 8*NEW CH
53178 101 1 0 1 prepare for digit collation
53179 106 533 7 0 0 select (N)
53180 124 533 4 0 1 modify address of next
53181 118 0 1 0 shift logical COLLATE IN D/B IND
53182 114 252 4 0 3 replace selected bits FOR NEW ROUTE
53183 126 107 8 1 1 set modification register (MR1)FOR M/R
53184 124 215 14 0 2 select literal and division *129
53185 124 527 9 1 0 unconditional jump *12‼ >COMMENT
52985>
52981>
52973>
52964>
52957>
52936>
52927>
52925>
52914>
52911>
52813>
52812>
52811>
52810>53186 126 107 8 1 1 set modification register (MR1)FOR M/R
53187 106 221 11 0 0 select (N) *363
53188 102 221 10 0 0 transfer (A) to N *362
53189 124 477 2 1 0 unconditional jump *362 C REJ A
53190 100 0 0 0 Halt *879889 MT/PT INDICATOR
53191 100 0 0 0 Halt *11Ю*049*899
Source image: P1020748.JPG
53192 127 477 8 0 2 jump A >= Z *££0*££2*3:‼363 >C REJ
53193 127 477 2 0 2 jump A >= Z *3:‼36‼ >C REJ A
53200 PROCR 532 532 GP6 AND GP7 SET ROUTE AVAILABLE AND WITHDRAW ROUTE
53202 101 3 0 1 prepare for digit collation *5£Ю*12Ю COLLATE CHANNEL/ROUTE
53203 115 185 0 0 collate and add
53204 101 128 1 2 subtract literal address CONVERT RTE
53205 127 532 7 0 3 jump A < Z *3:‼363*3:‼36‼
53206 101 224 1 1 add literal address *3:9
53205>53207 101 128 1 1 add literal address
53208 102 222 10 0 0 transfer (A) to N STORE FOR ENTRY TO COMMANDS
53209 124 199 78 0 1 modify address of next
53210 126 524 9 0 1 leave subroutine
53300 CONST 533 533 1 W/L'S FOR OP INT
53302 (D)0; OLD CHANNEL/NEW CHANNEL
53304 0; OLD ROUTE/NEW ROUTE
53306 0; WL/Q1 OF NEW ROUTE
53308 0; OLD RTE/NEW RTE IN BINARY
53400 TABLE 534 534 1 BULK COPY TABLES TO UNPACK RT1
53401 NOTES ALSO TO ENSURE ISUER STARTS IN EVEN LOCATION
53402 226 7 0 0 0 0 8 0 1 0 0 0 0 *££0*££1*1034:3*4:3 T 7
53404 226 7 0 0 0 0 0 0 3 0 0 0 0 *1034:3*4:3 T 7
53406 227 7 0 0 0 0 8 0 1 0 0 0 0 *4:1 T 7
53500 PROCR 535 535 INITIAL SET UP END ROUTINE
53501 NOTES RADIX B
55508>53502 124 535 4 0 3 modify address of next
53503 124 181 2 1 0 unconditional jump
53504 100 0 0 0 Halt
53600 PROCR 536 536 FORM UP DIVISION 0 AND 1 DETAILS
10002>53602 102 103 3 0 1 transfer (A) to N TEST STORE PRINT
53603 101 60 1 3 select literal address REQUIRED
53604 101 60 1 2 subtract literal address *844 00030
53605 127 536 8 0 0 jump A = Z >NO
53606 101 1 1 3 select literal address SET IND
53607 102 558 14 0 0 transfer (A) to N
53605>53608 101 535 2 1 3 select literal address
53609 102 231 2 0 1 transfer (A) to N
53610 124 551 2 1 0 unconditional jump
53700 PROCR 537 537 STORE PRINT SET UP
53702 125 4096 1 1 clear indicators SET NON-INT
53703 124 547 13 1 3 store indicators STORE INDICATORS
53704 106 542 31 0 0 select (N)
53705 124 0 0 3 modify address of next
53706 102 25 0 0 transfer (A) to N
53707 125 8191 1 1 clear indicators CLEAR INDICATORS
53708 106 547 26 1 0 select (N) *3‼Ю SET UP
53709 102 547 4 1 0 transfer (A) to N *3‼Ю STORE COUNTER
53710 102 547 4 0 0 transfer (A) to N *3‼1 CLEAR STORE COUNTER
53711 124 550 2 0 2 select literal and division EDIT HEADING
53712 126 545 2 0 0 enter subroutine EDIT AND O/P S/R
53800 PROCR 538 538 TEST FOR TAG CHANGES
53939>
53946>
53959>53802 125 1792 1 2 interrogate indicators
53803 127 538 5 0 0 jump A = Z STORE I9-11
53804 118 4126 0 1 shift arithmetic
53803>53805 102 547 30 0 0 transfer (A) to N STORE TAG
53806 125 1792 1 1 clear indicators CLEAR I9-11
53807 106 547 18 1 0 select (N) COPY 4 SHORT WORDS
53808 104 547 4 0 0 add (N) to (A) NUMERIC>ALPHA
Source image: P1020896.JPG
53809 128 548 3 0 1 bulk copy short numeric
53810 124 547 4 0 3 modify address of next STORE IST TAG TEST TAG CHANGE
53811 123 0 0 3 select tag
53812 103 547 6 0 0 copy (A) to N
53813 105 547 7 0 0 subtract (N) from (A) SECOND TAG
53814 127 538 16 0 0 jump A = Z >NO
53815 102 547 3 0 0 transfer (A) to N SET TAG CHANGE IND
53814>53816 124 547 4 0 3 modify address of next STORE 2ND TAG TEST TAG CHANGE
53817 123 2 0 3 select tag
53818 103 547 7 0 0 copy (A) to N
53819 105 547 6 0 0 subtract (N) from (A)
53820 127 539 2 0 0 jump A = Z >NO
53821 102 547 3 0 0 transfer (A) to N SET TAG CHANGE IND
53900 PROCR 539 539 SET UP EDIT TABLES
53910>
53820>53902 124 547 8 0 1 modify address of next
53903 106 548 2 1 0 select (N) NEXT SHORT WORD TEST ZERO
53904 127 539 8 0 0 jump A = Z >YES
53905 126 543 2 0 0 enter subroutine >SET UP SHORT WORD S/R
53906 124 547 8 0 1 modify address of next
53907 102 548 2 1 0 transfer (A) to N
53904>53908 123 2 0 0 step on and test STEP ON SH.WORD CTR
53909 100 547 8 0 0 Halt TEST 4 SHORT WORDS D
53910 124 539 2 1 0 unconditional jump >NO
53911 102 547 8 0 0 transfer (A) to N RESET COUNTER
53912 106 547 3 0 0 select (N) TEST FOUR ZERO WORDS
53913 127 539 47 0 1 jump A != Z >NO OR NO TAG CHANGE
54114>53914 125 2 1 2 interrogate indicators TEST 12 SET
53915 127 542 2 0 1 jump A != Z >YES
53916 106 547 4 0 0 select (N)
53917 124 999 0 0 3 modify address of next TEST PRINTED TO END OF PROGRAM SWITCHES
53918 101 130 2 1 2 subtract literal address
53919 127 539 37 0 3 jump A < Z >NO
53920 125 32 1 2 interrogate indicators TEST 16 SET
53921 127 539 37 0 0 jump A = Z >NO
53922 106 547 4 0 0 select (N)
53923 101 8191 1 2 subtract literal address
53924 127 539 31 0 2 jump A >= Z >NOT IN DIV 0
53925 101 8191 1 1 add literal address
53926 101 535 4 1 2 subtract literal address
53927 127 539 37 0 2 jump A >= Z >NOT IN MASTER
53928 101 535 4 1 3 select literal address
53929 102 547 4 0 0 transfer (A) to N SKIP REST OF MASTER IN DIV 0
53930 124 539 37 1 0 unconditional jump
53924>53931 124 550 2 0 2 select literal and division ARRANGE TO SKIP REST OF MASTER
53932 102 547 4 0 0 transfer (A) to N
53933 100 547 31 0 2 replace (B) by (N)
53934 118 4124 1 0 shift logical
53935 114 547 4 0 0 replace selected bits
53936 125 32 1 1 clear indicators CLEAR 16
53930>
53927>
53921>
53919>53937 123 4 0 0 step on and test TEST END OF STORE
53938 100 547 4 0 0 Halt
53939 124 538 2 1 0 unconditional jump >NO
53940 124 542 2 1 0 unconditional jump *3‼1 >END ROUTINE
53941 106 547 5 0 0 select (N) *3‼Ю TEST SECOND STORE
53942 105 547 29 0 0 subtract (N) from (A) DEALT WITH
53943 127 542 2 0 0 jump A = Z >YES
53944 106 547 28 1 0 select (N) SET UP STORE COUNTER
53945 102 547 4 1 0 transfer (A) to N FOR SECOND STORE
53946 124 538 2 1 0 unconditional jump *3‼Ю >DEAL WITH SECOND STORE
53913>53947 106 547 30 0 0 select (N) TEST IF SELECTED TAG SET
53948 127 540 2 0 0 jump A = Z >NO
Source image: P1020749.JPG
53949 105 547 6 0 0 subtract (N) from (A) TEST TAG1=SEL.TAG
53950 127 540 2 0 0 jump A = Z >YES
53951 106 547 6 0 0 select (N)
53952 101 13 1 2 subtract literal address TEST TAG1=13>15
53953 127 540 2 0 2 jump A >= Z >YES
53954 106 547 30 0 0 select (N)
53955 105 547 7 0 0 subtract (N) from (A) TEST TAG2=SEL.TAG
53956 127 540 2 0 0 jump A = Z >YES
53957 106 547 7 0 0 select (N)
53958 101 13 1 2 subtract literal address TEST TAG2=13>15
53959 127 538 2 0 3 jump A < Z >NO
54000 PROCR 540 540 DELETE L/E OR B/E
53956>
53953>
53950>
53948>54002 100 547 32 1 2 replace (B) by (N) 15'S INTO B
54003 125 0 1 2 interrogate indicators
54004 124 547 4 0 3 modify address of next
54005 115 0 1 0 collate and add COLLATE OUT WORD N'
54006 126 544 2 0 0 enter subroutine >L/E B/E S/R
54007 106 547 16 1 0 select (N)
54008 102 548 10 1 0 transfer (A) to N
54009 100 547 32 1 2 replace (B) by (N)
54010 124 547 4 0 3 modify address of next
54011 115 2 1 0 collate and add COLLATE OUT WORD N+2'
54012 126 544 2 0 0 enter subroutine >L/E B/E S/R
54013 106 547 16 1 0 select (N)
54014 102 548 12 1 0 transfer (A) to N
54015 124 0 0 3 modify address of next
54016 100 210 3 0 3 set radix DECIMAL
54017 124 547 4 0 1 modify address of next ADDRESS WITHIN
54018 101 0 1 3 select literal address DIVISION
54019 102 547 12 0 0 transfer (A) to N
54020 124 0 0 3 modify address of next
54021 124 213 2 0 2 select literal and division
54022 112 547 12 0 0 convert
54023 102 547 12 0 0 transfer (A) to N
54024 124 0 0 3 modify address of next
54025 100 212 2 0 3 set radix BINARY
54026 124 547 4 0 3 modify address of next DIV NO
54027 124 0 0 2 select literal and division
54028 124 547 4 0 1 modify address of next
54029 101 0 1 2 subtract literal address
54030 118 3 0 3 shift binary ALIGN IN Q5
54031 107 547 12 0 0 augment (N) by (A)
54100 PROCR 541 541 OUTPUT
54102 106 547 4 0 0 select (N)
54103 103 549 40 0 0 copy (A) to N SELECT PRINT LOCATIONS
54104 101 1 1 1 add literal address SET UP QUARTET VALUES IN EDIT TABLE
54105 103 549 42 0 0 copy (A) to N FOR 4 SHORT WORDS
54106 101 1 1 1 add literal address
54107 103 549 44 0 0 copy (A) to N
54108 101 1 1 1 add literal address
54109 102 549 46 0 0 transfer (A) to N
54110 124 549 2 0 2 select literal and division
54111 126 545 2 0 0 enter subroutine >EDIT AND O/P S/R
54112 102 548 16 0 0 transfer (A) to N CLEAR BE INDICATOR
54113 102 547 3 0 0 transfer (A) to N CLEAR PRINT LINE IND
54114 124 539 14 1 0 unconditional jump >TEST INDICATORS
54200 PROCR 542 542 END ROUTINE
53943>
53940>
53915>54202 124 0 0 3 modify address of next
Source image: P1020750.JPG
54203 106 140 0 0 select (N)
54204 127 542 18 0 0 jump A = Z >NO
54205 125 0 1 2 interrogate indicators
54206 102 547 4 0 0 transfer (A) to N CLEAR STORE CTR
54217>54207 124 547 4 0 1 modify address of next
54208 124 0 0 1 modify address of next
54209 101 0 1 3 select literal address
54210 124 0 0 3 modify address of next
54211 105 140 0 0 subtract (N) from (A)
54212 127 542 15 0 1 jump A != Z
54213 124 549 60 0 2 select literal and division
54214 126 545 2 0 0 enter subroutine
54212>54215 123 1 0 0 step on and test
54216 100 547 4 0 0 Halt
54217 124 542 7 1 0 unconditional jump
54204>54218 125 8191 1 1 clear indicators
54219 124 0 0 1 modify address of next
54220 125 0 1 0 set indicators
54221 124 0 0 3 modify address of next
54222 106 209 7 0 0 select (N)
54223 124 0 0 3 modify address of next
54224 102 25 0 0 transfer (A) to N RESET O'FLOW LINK
54225 102 547 30 0 0 transfer (A) to N
54226 123 542 27 0 2 enter master routine RESET TAG 14
54227 100 0 0 0 Halt
54228 124 0 0 3 modify address of next
54229 124 103 7 1 0 unconditional jump >PRIORITY QUEUE
54230 124 0 0 3 modify address of next
54231 126 24 0 3 leave master routine
54300 PROCR 543 543 SET UP SHORT WORD S/R
54302 100 0 0 0 Halt
54303 102 547 10 1 0 transfer (A) to N STORE SHORT WORD
54304 100 547 14 0 2 replace (B) by (N)
54305 115 547 11 0 0 collate and add COLLATE OUT ACTION SIGN BIT SET
54306 118 4125 0 0 shift logical IN BIT 37
54307 102 548 14 0 0 transfer (A) to N
54308 124 0 0 3 modify address of next
54309 100 210 3 0 3 set radix SET DECIMAL
54310 124 0 0 3 modify address of next
54311 124 213 2 0 2 select literal and division
54312 103 547 3 0 0 copy (A) to N
54313 112 548 14 0 0 convert CONVERT TO DECIMAL
54314 102 548 14 0 0 transfer (A) to N
54315 100 547 11 1 2 replace (B) by (N) SH.WORD INTO B ALPHA>NUMERIC
54316 118 6 1 0 shift logical
54317 106 548 14 0 0 select (N)
54318 118 3 0 3 shift binary SEPARATE ACTION DISCMOD
54319 118 1 1 3 shift binary
54320 118 2 0 3 shift binary
54321 118 2 1 3 shift binary
54322 102 548 15 0 0 transfer (A) to N STORE A,D,M
54323 118 1 1 3 shift binary
54324 118 3 1 0 shift logical
54325 102 548 14 0 0 transfer (A) to N ADDRESS
54326 124 0 0 3 modify address of next
54327 124 213 2 0 2 select literal and division
54328 112 548 14 0 0 convert CONVERT TO DECIMAL
54329 124 0 0 3 modify address of next
54330 100 212 2 0 3 set radix SET BINARY
54331 102 548 14 0 0 transfer (A) to N STORE ADDRESS
54332 106 548 14 1 0 select (N)
54333 126 543 2 0 1 leave subroutine
54400 PROCR 544 544 L/E B/E S/R
54402 100 0 0 0 Halt
Source image: P1020751.JPG
54403 102 547 16 1 0 transfer (A) to N W/L
54404 100 547 24 1 2 replace (B) by (N) -3/15
54412>54405 115 547 16 1 0 collate and add TEST FOR L/E
54406 115 547 20 1 0 collate and add
54407 127 544 14 0 0 jump A = Z >YES
54408 115 547 22 1 0 collate and add TEST FOR B/E
54409 127 544 14 0 0 jump A = Z >YES
54417>54410 118 2 1 0 shift logical TEST ALL CHARACTERS
54411 101 0 1 3 select literal address
54412 127 544 5 1 1 jump AB != Z >NO
54413 126 544 2 0 1 leave subroutine >LEAVE S/R
54409>
54407>54414 114 547 16 1 0 replace selected bits CLEAR CHARACTER
54415 101 91 1 3 select literal address SET INDICATOR
54416 102 548 16 0 0 transfer (A) to N
54417 124 544 10 1 0 unconditional jump >
54500 PROCR 545 545 EDIT AND O/P S/R
54502 100 0 0 0 Halt
54506>
54511>54503 124 547 2 0 1 modify address of next
54504 126 0 1 0 test route N1 TEST PRINTER ROUTE
54505 124 545 10 1 0 unconditional jump >CLOSED HALT 15/0/1
54506 124 545 3 1 0 unconditional jump >ENGAGED
54507 124 545 12 1 0 unconditional jump D/B HALT 15/0/3
54508 100 3845 0 0 Halt W/E HALT 15/./5
54509 124 545 13 1 0 unconditional jump
54505>54510 100 3841 0 0 Halt
54511 124 545 3 1 0 unconditional jump
54507>54512 100 3843 0 0 Halt
54509>54513 128 551 4 1 2 edit fixed field formats *3Ю4 EDIT TO ANNEX 00007
54514 124 0 0 3 modify address of next
54515 106 258 20 1 0 select (N) FUNCTION WORD
54516 102 551 2 1 0 transfer (A) to N INSERT
54517 124 547 2 0 3 modify address of next
54518 106 64 0 0 select (N) STORE PRESENT ASL
54519 102 548 17 0 0 transfer (A) to N
54520 125 0 1 0 set indicators *869 OR 24/1/0>SP PRINTER
54521 106 545 37 0 0 select (N) *2.286Ю
54522 124 547 2 0 3 modify address of next STORE A SL IN 64+R
54523 102 64 0 0 transfer (A) to N
54524 106 545 38 0 0 select (N) START OF EDIT TABLE
54525 124 545 37 0 3 modify address of next
54526 129 0 0 1 edit for anelex output EDIT
54527 124 545 31 1 0 unconditional jump *2.286Ю*2.Ю86Ю
55813>54528 106 545 38 0 0 select (N)
54529 124 547 2 0 3 modify address of next
54530 102 64 0 0 transfer (A) to N *2.Ю86Ю
54527>54531 124 547 2 0 1 modify address of next
54532 119 0 0 0 output OUTPUT
54533 106 548 17 0 0 select (N)
54534 124 547 2 0 3 modify address of next
54535 102 64 0 0 transfer (A) to N RESTORE ASL
54536 126 545 2 0 1 leave subroutine
54537 114 551 2 0 1 replace selected bits *2.1869 GP ANNEX START
54538 114 551 2 0 1 replace selected bits SPECIAL ANNEX START
54600 CONST 546 546 1 ALPHA CONSTANTS
54602 (A)STORE;
54604 PRINT;
54606 OF ;
54608 TAKEN;
54610 ON AT;
54700 CONST 547 547 1 W/L'S COUNTERS AND CONSTANTS
54702 (D)0; TAG CHANGE/PRINTER ROUTE
Source image: P1020752.JPG
54704 0000000000; SIZE OF STORE COUNTER
54706 ; TAG 2/TAG 1
54708 800000; SHORT WORD COUNTER
54710 ; W/L L/E B/E S/R
54712 ; (1)/ADDRESS IN DIV
54714 1£000; W/L L/E B/E / 13-17
54716 ; W/L L/E B/E S/R
54718 400000; BULK COPY
54720 1.1.1.1.1.-; CONST FOR L/E B/E S/R
54722 2020202020-; DITTO
54724 3£-; DITTO
54726 0000000000; *3‼Ю FIRST STORE SIZE
54728 0800008000; *3‼Ю SECOND STORE SIZE
54730 3£00000000; COLLATION CONST/SELECTED TAG
54732 (D)££££££££££;
54734 7.0000007.;
54800 CONST 548 548 1 W/L'S FOR WORDS
54802 (D);
54804 ;
54806 ;
54808 ;
54810 ;
54812 ;
54814 ;
54816 ;
54900 TABLE 549 549 1 MAIN EDIT TABLE
54902 547 12 0 0 0 0 1 0 1 0 0 0 0
54904 547 12 0 0 0 0 4 1 1 3 0 0 0
54906 547 4 0 0 0 0 4 1 1 0 0 0 0
54908 548 3 0 0 0 0 2 1 3 1 0 0 0
54910 548 3 0 0 0 0 1 3 1 0 0 0 0
54912 548 3 0 0 0 0 1 4 1 0 0 0 0
54914 548 2 0 0 0 0 4 1 1 3 0 0 0
54916 548 5 0 0 0 0 2 1 3 1 0 0 0
54918 548 5 0 0 0 0 1 3 1 0 0 0 0
54920 548 5 0 0 0 0 1 4 1 0 0 0 0
54922 548 4 0 0 0 0 4 1 1 3 0 0 0
54924 548 7 0 0 0 0 2 1 3 1 0 0 0
54926 548 7 0 0 0 0 1 3 1 0 0 0 0
54928 548 7 0 0 0 0 1 4 1 0 0 0 0
54930 548 6 0 0 0 0 4 1 1 3 0 0 0
54932 548 9 0 0 0 0 2 1 3 1 0 0 0
54934 548 9 0 0 0 0 1 3 1 0 0 0 0
54936 548 9 0 0 0 0 1 4 1 0 0 0 0
54938 548 8 0 0 0 0 4 1 1 3 0 0 0
54940 0 0 0 0 0 0 5 0 3 4 2 0 0 T 1
54942 0 0 0 0 0 0 5 0 1 4 2 0 0 T 1
54944 0 0 0 0 0 0 5 0 1 4 2 0 0 T 1
54946 0 0 0 0 0 0 5 0 1 4 2 0 0 T 1
54948 548 10 0 0 2 0 5 0 2 0 0 0 0
54950 548 12 0 0 2 0 5 0 2 0 0 0 0
54952 547 6 0 0 0 0 1 4 2 0 0 0 0
54954 547 7 0 0 0 0 1 4 1 0 0 0 0
54956 548 16 0 0 2 0 1 4 1 0 0 0 0
54958 547 34 0 0 2 0 1 0 0 0 0 0 1 SUM
54960 547 4 0 0 0 0 4 1 8 0 0 0 0
54962 547 34 0 0 2 0 1 0 2 0 0 0 1
55000 TABLE 550 550 1 HEADING
55002 546 2 0 0 2 0 5 0 14 0 0 0 0
55004 546 4 0 0 2 0 5 0 1 0 0 0 0
55006 546 6 0 0 2 0 2 0 1 0 0 0 0
55008 0 181 0 0 0 0 5 0 1 0 0 0 0 /////
55010 0 182 0 0 0 0 2 3 3 1 0 0 0 /////
Source image: P1020753.JPG
55012 546 8 0 0 2 0 5 0 2 0 0 0 0
55014 546 10 0 0 2 0 2 0 1 0 0 0 0
55016 0 138 0 0 1 0 2 4 2 1 0 0 0 /////
55018 0 138 0 0 1 0 2 6 1 1 0 0 0 /////
55020 0 138 0 0 1 0 2 8 1 1 0 0 0 /////
55022 546 10 0 0 2 0 3 2 0 0 0 0 0
55024 0 156 0 0 0 0 2 0 2 0 0 0 0 /////
55026 0 156 0 0 0 0 2 2 1 0 0 0 0 /////
55028 547 34 0 0 2 0 1 0 0 0 0 0 1 SUM
55030 0 0 0 0 1 0 0 1 8 0 0 0 0 ///// BULK CLEAR MATRIX
55100 PROCR 551 551 INITIAL SET UP ROUTINE(1)
53610>55102 106 558 6 0 0 select (N)
55103 102 17 0 1 transfer (A) to N SET UP (17)
55104 106 557 2 1 0 select (N) *3Ю2
55105 102 134 1 1 transfer (A) to N *3Ю2
55106 106 558 9 0 0 select (N) *3Ю1
55107 102 1 0 1 transfer (A) to N SET UP OR CLEAR (1)
55108 101 64 1 2 subtract literal address *3:Ю4£Ю SET UP FCC
55109 102 233 34 0 1 transfer (A) to N *3:Ю4£Ю PARAMETERS
55110 106 209 7 0 1 select (N)
55111 124 551 13 1 0 unconditional jump *££0*££2
55112 127 552 10 0 2 jump A >= Z *££2*57‼
55111>55113 102 25 0 1 transfer (A) to N SET UP (25)
55114 101 130 24 1 3 select literal address
55115 101 128 1 2 subtract literal address FORM M/R SP CH START
55116 102 107 9 0 1 transfer (A) to N
55117 106 558 7 0 0 select (N)
55118 105 231 2 0 1 subtract (N) from (A)
55119 102 231 3 0 1 transfer (A) to N
55120 101 535 2 1 3 select literal address TEST MASTER IN DIV 1
55121 101 536 2 1 2 subtract literal address
55122 127 552 2 0 2 jump A >= Z *57‼
55123 106 558 7 0 0 select (N)
55124 107 231 2 0 0 augment (N) by (A)
55125 106 558 2 1 0 select (N) SHIFT UP STORE TABLE
55126 124 999 0 0 3 modify address of next
55127 128 231 4 0 0 bulk copy short numeric
55128 106 555 8 0 0 select (N)
55129 102 555 7 0 0 transfer (A) to N
55200 PROCR 552 552 INITIAL SET8UP(2)
55122>55202 106 233 26 0 1 select (N) *57Ю
55203 124 999 0 0 3 modify address of next
55204 103 225 2 0 0 copy (A) to N
55205 124 999 0 0 3 modify address of next
55206 102 224 2 0 0 transfer (A) to N
55207 101 7 1 3 select literal address
55208 124 999 0 0 3 modify address of next
55209 102 224 3 0 0 transfer (A) to N *57Ю
55112>55210 106 209 10 0 1 select (N)
55211 124 999 0 0 3 modify address of next
55212 124 233 26 0 3 modify address of next
55213 102 64 0 0 transfer (A) to N
55214 106 557 4 0 0 select (N) *45Ю57Ю SET UP 71
55215 124 999 0 0 3 modify address of next AS POTENTIALLY
55216 124 233 26 0 3 modify address of next AVAILABLE
55217 102 71 0 0 transfer (A) to N *45Ю57Ю
55218 106 209 11 0 1 select (N)
55219 102 124 0 1 transfer (A) to N
55220 101 228 2 1 3 select literal address STACK TAG 13 IN M/R ANNEXES
55221 118 5 0 0 shift logical
55222 101 226 2 1 1 add literal address
55223 102 4 1 1 transfer (A) to N
55224 101 13 1 3 select literal address
55225 126 556 2 0 0 enter subroutine
Source image: P1020895.JPG
55226 101 15 1 3 select literal address STACK TAG 15 IN A.L.W.'S
55227 123 102 84 1 1 copy into tag
55228 123 226 56 1 1 copy into tag
55229 123 227 56 1 1 copy into tag *101
55230 106 102 19 1 1 select (N) STORE M/R
55231 118 4123 1 0 shift logical SERIAL NO
55232 101 7 1 1 add literal address IN 181
55233 118 4 1 0 shift logical
55234 102 181 0 1 transfer (A) to N
55235 106 102 21 1 1 select (N) MOD NO
55236 118 4125 1 0 shift logical IN 182
55237 102 182 0 1 transfer (A) to N
55300 PROCR 553 553 INITIAL SET UP ROUTINE(3)
55302 101 260 2 1 3 select literal address *25Ю*05Ю
55303 118 5 0 0 shift logical STACK TAG 13 IN LIB CARD ANNEXE
55304 101 259 2 1 1 add literal address
55305 102 4 1 1 transfer (A) to N
55306 101 13 1 3 select literal address
55307 126 556 2 0 0 enter subroutine
55308 106 558 8 0 0 select (N) SET UP LIB CARD ASL
55309 102 119 0 1 transfer (A) to N *25Ю*05Ю
55310 106 143 0 1 select (N) *412 SET UP CONSTANTS
55311 102 483 4 0 1 transfer (A) to N FOR MINI STORE PRINT
55312 106 144 0 1 select (N)
55313 102 483 6 0 1 transfer (A) to N
55314 106 145 0 1 select (N)
55315 102 483 7 0 1 transfer (A) to N
55316 106 558 10 0 0 select (N)
55317 102 140 0 1 transfer (A) to N
55400 PROCR 554 554 ON LINE STORE DUMP SET UP
55402 106 558 14 0 0 select (N) TEST STORE PRINT REQUIRED
55403 127 555 2 0 0 jump A = Z >NO
55404 106 209 5 0 1 select (N) SET TAG 15
55405 102 9 0 1 transfer (A) to N
55406 126 554 7 0 3 leave master routine
55407 115 554 8 0 1 collate and add
55408 125 4096 1 1 clear indicators
55409 106 209 6 0 1 select (N)
55410 102 9 0 1 transfer (A) to N
55411 106 153 0 1 select (N) STORE DETAILS FOR PRINT
55412 123 554 13 0 2 enter master routine RESET TAG 14
55413 100 0 0 0 Halt
55414 118 4124 1 0 shift logical
55415 101 9 1 2 subtract literal address *86Ю
55416 127 554 21 0 1 jump A != Z >GP PRINTER
55417 106 545 20 0 0 select (N)
55418 102 554 34 0 0 transfer (A) to N
55419 106 558 13 0 0 select (N)
55420 102 545 20 0 0 transfer (A) to N *86Ю
55416>55421 125 0 1 2 interrogate indicators
55422 118 1 1 0 shift logical FIRST STORE SIZE
55423 118 8 0 0 shift logical
55424 102 547 4 1 0 transfer (A) to N *3‼1
55425 102 547 26 1 0 transfer (A) to N *3‼9
55426 118 1 1 0 shift logical
55427 118 8 0 0 shift logical *3‼Ю SECOND STORE SIZE
55428 107 547 28 1 0 augment (N) by (A) *3‼Ю
55429 125 0 1 2 interrogate indicators STORE PRINTER
55430 118 2 1 0 shift logical ROUTE
55431 102 547 2 0 0 transfer (A) to N
55432 101 551 2 1 3 select literal address
55433 101 50 1 1 add literal address
55434 101 384 1 1 add literal address *2.1869
55435 104 558 7 0 0 add (N) to (A) SET UP STORE TABLE
Source image: P1020754.JPG
55436 102 231 4 0 1 transfer (A) to N
55437 106 558 7 0 0 select (N)
55438 104 558 7 0 0 add (N) to (A)
55439 105 231 4 0 1 subtract (N) from (A)
55440 102 231 5 0 1 transfer (A) to N
55441 101 50 1 3 select literal address *2.286Ю
55442 107 545 37 0 0 augment (N) by (A) *2.286Ю
55500 PROCR 555 555 INITIAL SET UP (4)
55403>55502 106 231 2 0 1 select (N) SET MR2 FOR CLEARING
55503 102 558 4 0 0 transfer (A) to N REST OF DIVS 0 & 1
55504 126 558 4 1 2 set modification register
55505 124 999 0 0 3 modify address of next
55506 126 107 8 1 1 set modification register SET MR1 FOR MR SWITCH
55507 124 999 0 0 3 modify address of next
55508 124 535 2 1 0 unconditional jump >CLEAR DIV 0
55600 PROCR 556 556 STACK TAG (A) SR
55602 100 0 0 0 Halt
55606>55603 124 999 0 0 3 modify address of next
55604 123 0 1 2 copy into tag
55605 125 2 0 2 step on and test
55606 124 556 3 1 0 unconditional jump
55607 126 556 2 0 1 leave subroutine
55608 124 452 22 1 0 unconditional jump *££0*££1*343 (17)
55700 CONST 557 557 1
55702 (D)+0+0+0+0+0;
55704 ££7;
55800 PROCR 558 558 ISU: INSTRUCTION CONSTANTS
55802 100 231 6 0 0 Halt SHIFT STORE TABLE
55803 100 12 0 0 Halt
55804 100 0 0 0 Halt CLEAR REST OF DIVS 0 & 1
55805 100 8184 0 1 Invalid
55806 124 454 2 1 0 unconditional jump *343 (17)
55807 100 0 0 1 Invalid DIV 1
55808 113 259 2 0 0 divide uniform radix *259
55809 124 458 2 1 0 unconditional jump *3Ю1 VA
55810 124 483 2 1 0 unconditional jump *411 MINI STORE PRINT
55811 106 244 4 0 0 select (N) *3Ю2
55812 101 38 1 3 select literal address *3Ю2
55813 124 545 28 1 0 unconditional jump *869
55814 100 0 0 0 Halt
55815 100 1 0 0 Halt
55900 CONST 559 559 0 ASL'S CHS 0-7
55902 (D): ; *££8
55903 7; M/T
55904 7;
55905 7;
55906 ££7;
55907 ££7;
55908 ££7;
55909 ££;
55910 ££8; CHANNEL 1
55911 ££8; M/T
55912 ££8; START OF ANNEXE
55913 8; FOR PASSES 1 AND 2
55914 8;
55915 8;
55916 8;
55917 ££8;
55918 ££££; CHANNEL 2
55919 ££££; GP OR STD PRINTER
55920 ££££; T/W
Source image: P1020755.JPG
55921 ££££; P/T O/P
55922 3; CARD O/P
55923 3;
55924 ££££;
55925 ££££;
55926 ££5; CHANNEL 3
55927 5; P/T I/P
55928 5;
55929 5;
55930 6; CARD I/P
55931 ££;
55932 6;
55933 ££;
55934 ££9; CHANNEL 4
55935 9; GP OR SP PRINTER
55936 9;
55937 ££££;
55938 ££££;
55939 ££££;
55940 ££££;
55941 ££££;
55942 ££££; CHANNEL 5
55943 ££££; SP PRINTER
55944 ££££;
55945 ££££;
55946 ££££;
55947 ££££;
55948 ££££;
55949 ££££;
55950 ££££; CHANNEL 6
55951 ££££; TIMER
55952 ££££; T/W
55953 ££££; P/T O/P
55954 ££££;
55955 ££££;
55956 ££££;
55957 ££££; (T/A/M FOR LIB CARDS)
55958 1; CHANNEL 7
55959 1; P/T OR TIMER
55960 ££; T/W
55961 ££; T/A/M FOR PTS
55962 ££; T/A/M FOR RTE 0
55963 ££; T/A/M FOR PTS
55964 ££; T/A/M FOR STORE DUMP
55965 ££; T/A/M FOR CONTROL DATA
56000 CONST 560 560 0 ASL'S CHS 16&17
56002 (D)££££;
56003 ££££;
56004 ££££;
56005 ££££;
56006 ££££;
56007 ££££;
56008 ££££;
56009 ££££;
56010 ££££; CHANNEL 17
56011 ££££;
56012 ££££;
56013 ££££;
56014 ££££;
56015 ££££;
56016 ££££;
56017 ££££;
56018 ££££; CHANNEL 18
56019 ££££;
56020 ££££;
Source image: P1020756.JPG
56021 ££££;
56022 ££££;
56023 ££££;
56024 ££££;
56025 ££££;
56026 ££££; CHANNEL 19
56027 ££££;
56028 ££££;
56029 ££££;
56030 ££££;
56031 ££££;
56032 ££££;
56033 ££££;
56034 ££££; CHANNEL 20
56035 ££££;
56036 ££££;
56037 ££££;
56038 ££££;
56039 ££££;
56040 ££££;
56041 ££££;
56042 ££££; CHANNEL 21
56043 ££££;
56044 ££££;
56045 ££££;
56046 ££££;
56047 ££££;
56048 ££££;
56049 ££££;
56100 END
PROGRAMME 09001 SERIAL 0 CHAPS 3 FILES 0 TRAN. AREAS 0 PTS INCLUDED
F.PT. NO MOD. GP. NO PRIORITY 1 ENTRY= CH2/ 426
SIZE OF CHAPS 9898 708 506 0 0 0 0 ?????????????????????????
FILE ID. RTE. TYPE START LOCN. ALT.ROUTES BLOCK SIZE CHAPT
TRAN. AREAS START LOCN. CHAPT SIZE
SECTION.START
SWITCHES
ITEM+ CTRS
MR'S 4-20
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 0
12 25 1 1 4096 0 24 0 3 0 2 23 0 2 0 1792 0 0 0 0 0
16 0 0 0 0 0 26 0 1 11 2
PROCEDURE 100
18 24 1 0 18 4 24 1 0 3766 2
20 0 0 1 580 4 24 1 0 1947 2 0 0 0 2740 2 24 1 0 1935 2
24 0 0 0 0 0 24 1 0 3115 2 0 0 0 0 0 24 1 0 1975 2
28 24 1 0 3744 2 24 1 0 2020 2 0 0 0 0 0 24 1 0 3102 2
32 24 1 0 3756 2 0 0 0 0 0 0 0 0 0 0 24 1 0 7790 2
36 15 0 1 27 4 0 0 0 2 0 0 0 0 3 0 0 0 0 0 0
40 0 0 0 0 0 24 1 0 1093 2 24 1 0 203 2 24 1 0 1093 2
44 24 1 0 771 2 24 0 1 225 2 24 1 0 3869 2 0 0 0 0 0
48 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
52 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0
SECTION 101
56 ££££ 0 ££££ 0 ££££ 0 ££££ 0
60 ££££ 0 ££££ 0 ££££ 0 ££££ 0
64 ££££ 0 ££££ 0 ££££ 0 ££££ 0
68 ££££ 0 ££££ 0 ££££ 0 ££££ 0
72 ££££ 0 ££££ 0 ££££ 0 ££££ 0
76 ££££ 0 ££££ 0 ££££ 0 ££££ 0
80 ££££ 0 ££££ 0 ££££ 0 ££££ 0
84 ££££ 0 ££££ 0 ££££ 0 ££££ 0
88 ££££ 0 ££££ 0 ££££ 0 ££££ 0
92 ££££ 0 ££££ 0 ££££ 0 ££££ 0
96 ££££ 0 ££££ 0 ££££ 0 ££££ 0
100 ££££ 0 ££££ 0 ££££ 0 ££££ 0
SECTION 102
104 4525. 0 7:635 0 0 0 0 0
108 0 0 0 0 0 0 0 0
112 0 0 0 0 0 0 0 0
116 0 0 0 0 0 0 0 0
120 0 0 0 0 0 0 0 0
124 0 0 0 0 0 0 0 0
128 0 0 0 0 0 0 0 0
132 0 0 0 0 0 0 0 0
136 0 0 0 0 0 0 0 0
140 0 0 0 0 0 0 0 0
144 0 0 0 0 0 0 0 0
148 0 0 0 0 0 0 0 0
152 0 0 0 0 0 0 0 0
156 0 0 0 0 0 0 0 0
160 0 0 0 0 0 0 0 0
164 0 0 0 0 0 0 0 0
168 0 0 0 0 0 0 0 0
172 0 0 0 0 0 0 0 0
176 0 0 0 0 0 0 0 0
180 0 0 0 0 0 0 0 0
184 5.5. 0 0 0 .5.5. 0 5.5.5 0
PROCEDURE 103
188 0 0 0 0 0 0 0 0 0 0 6 0 0 8 0 24 0 3 2 0
192 2 0 0 44 0 0 0 3 2096 2 24 1 1 2096 2 24 1 0 211 2
196 24 1 0 1230 2 24 1 0 248 2 24 1 0 290 2 24 1 0 200 2
200 24 1 0 1115 2 26 0 0 3970 2 6 0 0 204 2 2 0 0 200 2
204 24 1 0 1115 2 0 0 0 0 0 6 1 0 1764 2 24 1 0 1219 2
208 24 1 0 1245 2 6 0 0 226 2 2 0 0 195 2 25 1 2 1919 0
212 27 0 1 1766 2 24 1 0 248 2 6 0 3 970 2 27 0 1 1021 2
216 25 0 3 2 0 24 1 0 214 2
PROCEDURE 104
218 6 0 0 220 2 2 0 0 213 2
220 24 1 0 248 2 26 1 3 331 2 0 0 0 0 0 0 0 0 0 0
224 0 0 0 0 0 0 0 0 0 0 24 1 0 211 2 0 0 0 0 0
228 0 0 0 0 0 0 0 0 0 0
SECTION 105
230 4525. 0 7:635 0
232 30059 0 6£7:5 0 5.5. 0 57650 0
PROCEDURE 106
236 0 0 0 0 0 0 0 0 4 0 0 0 0 6 0 0 0 0 12 0
240 0 0 0 14 0 0 0 0 16 0 0 0 0 0 0 0 0 0 0 0
244 0 0 0 18 0 24 0 1 3 0 26 0 1 158 0 24 1 0 299 2
248 24 1 0 250 2 24 1 0 259 2 24 1 0 247 2 26 0 0 3901 2
252 26 0 0 4872 2 6 0 0 277 2 2 0 0 248 2 6 1 0 278 2
256 2 1 0 2 0 6 1 0 272 2 24 1 0 3796 2 6 0 0 156 0
260 6 0 0 287 2 5 0 0 287 2 27 0 3 247 2 26 1 1 278 2
264 26 0 1 284 2 24 1 1 271 2 6 1 0 278 2 2 1 0 2 0
268 0 1 1 272 2 26 0 1 286 2 26 0 1 286 2 0 0 0 0 0
PROCEDURE 107
272 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
276 0 0 0 0 0 24 1 0 265 2 0 0 0 236 2 0 0 0 0 0
280 0 0 0 0 0 0 1 0 4097 0 0 0 0 0 0 0 0 0 0 0
284 0 0 0 3885 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
288 0 0 0 0 0 0 0 0 0 0
PROCEDURE 108
290 0 0 2 2052 2 25 1 2 0 0
292 15 0 0 53 2 26 0 0 3910 2 24 1 0 200 2 0 0 3 0 0
296 0 0 0 0 0 0 0 0 5 0 0 0 0 0 0 24 1 0 751 2
300 24 1 0 751 2 26 0 1 24 0 0 0 0 62 0 2 0 0 52 0
304 0 0 0 0 0 0 0 0 20 0 0 0 0 0 0 0 0 0 160 0
308 0 0 0 192 0 0 0 0 3901 2 0 0 0 120 0 27 0 3 751 2
312 18 0 3 6 0 6 0 0 53 2 24 1 0 1230 2 0 0 0 0 0
316 0 0 0 0 0 4 1 1 1028 0 7 0 3 6000 0 2 0 0 0 0
320 5 1 1 5124 0
PROCEDURE 109
321 0 0 0 0 0 0 0 0 64 0 3 0 0 0 0
324 5 1 1 5124 0 7 0 0 0 0 5 0 2 5445 0 7 0 0 65 0
328 5 1 0 5910 0 7 0 0 65 0 6 0 3 1814 0 0 0 0 0 0
332 0 0 0 14 0 0 0 0 6 0 0 0 0 8 0 0 0 0 16 0
336 0 0 0 18 0 0 0 0 20 0 0 0 0 0 0 0 0 1 7999 0
340 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
PROCEDURE 110
344 24 1 0 3795 2 6 0 0 157 0 19 0 1 56 0 6 0 0 396 2
348 6 0 0 444 2 6 0 0 492 2 6 0 0 540 2
PROCEDURE 111
351 0 1 0 381 2
352 0 0 3 2045 2 6 0 0 8 0 2 0 0 395 2 24 1 0 193 2
356 7 1 0 397 2 24 1 0 193 2 24 1 0 751 2 24 1 0 369 2
360 24 1 0 751 2 26 0 0 3901 2 26 0 0 4872 2 6 0 0 386 2
364 2 0 0 358 2 6 1 0 387 2 2 1 0 2 0 6 1 0 381 2
368 24 1 0 3796 2 6 0 0 156 0 5 0 0 396 2 27 0 3 751 2
372 26 1 1 387 2 26 0 1 393 2 24 1 1 380 2 6 1 0 387 2
376 2 1 0 2 0 0 1 1 381 2 26 0 3 395 2 26 0 3 395 2
380 0 0 3 0 0
PROCEDURE 112
381 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
384 0 0 0 0 0 0 0 0 0 0 24 1 0 374 2 0 0 0 351 2
388 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
392 0 0 0 0 0 0 0 0 3885 2 0 0 0 0 0 0 0 0 0 0
396 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
PROCEDURE 113
399 0 1 0 429 2
400 0 0 3 2045 2 6 0 0 8 0 2 0 0 443 2 24 1 0 193 2
404 7 1 0 445 2 24 1 0 193 2 24 1 0 751 2 24 1 0 417 2
408 24 1 0 751 2 26 0 0 3901 2 26 0 0 4872 2 6 0 0 434 2
412 2 0 0 406 2 6 1 0 435 2 2 1 0 2 0 6 1 0 429 2
416 24 1 0 3796 2 6 0 0 156 0 5 0 0 444 2 27 0 3 751 2
420 26 1 1 435 2 26 0 1 441 2 24 1 1 428 2 6 1 0 435 2
424 2 1 0 2 0 0 1 1 429 2 26 0 3 443 2 26 0 3 443 2
428 0 0 0 0 0
PROCEDURE 114
429 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
432 0 0 0 0 0 0 0 0 0 0 24 1 0 422 2 0 0 0 399 2
436 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
440 0 0 0 0 0 0 0 0 3885 2 0 0 0 0 0 0 0 0 0 0
444 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
PROCEDURE 115
447 0 1 0 477 2
448 0 0 3 2045 2 6 0 0 8 0 2 0 0 491 2 24 1 0 193 2
452 7 1 0 493 2 24 1 0 193 2 24 1 0 751 2 24 1 0 465 2
456 24 1 0 751 2 26 0 0 3901 2 26 0 0 4872 2 6 0 0 482 2
460 2 0 0 454 2 6 1 0 483 2 2 1 0 2 0 6 1 0 477 2
464 24 1 0 3796 2 6 0 0 156 0 5 0 0 492 2 27 0 3 751 2
468 26 1 1 483 2 26 0 1 489 2 24 1 1 476 2 6 1 0 483 2
472 2 1 0 2 0 0 1 1 477 2 26 0 3 491 2 26 0 3 491 2
476 0 0 0 0 0
PROCEDURE 116
477 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
480 0 0 0 0 0 0 0 0 0 0 24 1 0 470 2 0 0 0 447 2
484 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
488 0 0 0 0 0 0 0 0 3885 2 0 0 0 0 0 0 0 0 0 0
492 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
PROCEDURE 117
495 0 1 0 525 2
496 0 0 3 2045 2 6 0 0 8 0 2 0 0 539 2 24 1 0 193 2
500 7 1 0 541 2 24 1 0 193 2 24 1 0 751 2 24 1 0 513 2
504 24 1 0 751 2 26 0 0 3901 2 26 0 0 4872 2 6 0 0 530 2
508 2 0 0 502 2 6 1 0 531 2 2 1 0 2 0 6 1 0 525 2
512 24 1 0 3796 2 6 0 0 156 0 5 0 0 540 2 27 0 3 751 2
516 26 1 1 531 2 26 0 1 537 2 24 1 1 524 2 6 1 0 531 2
520 2 1 0 2 0 0 1 1 525 2 26 0 3 539 2 26 0 3 539 2
524 0 0 0 0 0
PROCEDURE 118
525 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
528 0 0 0 0 0 0 0 0 0 0 24 1 0 518 2 0 0 0 495 2
532 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
536 0 0 0 0 0 0 0 0 3885 2 0 0 0 0 0 0 0 0 0 0
540 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 0 0 157 0
544 19 0 1 56 0 6 0 0 595 2 6 0 0 643 2 6 0 0 691 2
548 6 0 0 739 2 24 1 0 3795 2
PROCEDURE 119
550 0 1 0 580 2 0 0 3 2045 2
552 6 0 0 8 0 2 0 0 594 2 24 1 0 193 2 7 1 0 596 2
556 24 1 0 193 2 24 1 0 751 2 24 1 0 568 2 24 1 0 751 2
560 26 0 0 3901 2 26 0 0 4872 2 6 0 0 585 2 2 0 0 557 2
564 6 1 0 586 2 2 1 0 2 0 6 1 0 580 2 24 1 0 3796 2
568 6 0 0 156 0 5 0 0 595 2 27 0 3 751 2 26 1 1 586 2
572 26 0 1 592 2 24 1 1 579 2 6 1 0 586 2 2 1 0 2 0
576 0 1 1 580 2 26 0 3 594 2 26 0 3 594 2 0 0 0 0 0
PROCEDURE 120
580 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
584 0 0 0 0 0 24 1 0 573 2 0 0 0 550 2 0 0 0 0 0
588 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
592 0 0 0 3885 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
596 0 0 0 0 0 0 0 0 0 0
PROCEDURE 121
598 0 1 0 628 2 0 0 3 2045 2
600 6 0 0 8 0 2 0 0 642 2 24 1 0 193 2 7 1 0 644 2
604 24 1 0 193 2 24 1 0 751 2 24 1 0 616 2 24 1 0 751 2
608 26 0 0 3901 2 26 0 0 4872 2 6 0 0 633 2 2 0 0 605 2
612 6 1 0 634 2 2 1 0 2 0 6 1 0 628 2 24 1 0 3796 2
616 6 0 0 156 0 5 0 0 643 2 27 0 3 751 2 26 1 1 634 2
620 26 0 1 640 2 24 1 1 627 2 6 1 0 634 2 2 1 0 2 0
624 0 1 1 628 2 26 0 3 642 2 26 0 3 642 2 0 0 0 0 0
PROCEDURE 122
628 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
632 0 0 0 0 0 24 1 0 621 2 0 0 0 598 2 0 0 0 0 0
636 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
640 0 0 0 3885 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
644 0 0 0 0 0 0 0 0 0 0
PROCEDURE 123
646 0 1 0 676 2 0 0 3 2045 2
648 6 0 0 8 0 2 0 0 690 2 24 1 0 193 2 7 1 0 692 2
652 24 1 0 193 2 24 1 0 751 2 24 1 0 664 2 24 1 0 751 2
656 26 0 0 3901 2 26 0 0 4872 2 6 0 0 681 2 2 0 0 653 2
660 6 1 0 682 2 2 1 0 2 0 6 1 0 676 2 24 1 0 3796 2
664 6 0 0 156 0 5 0 0 691 2 27 0 3 751 2 26 1 1 682 2
668 26 0 1 688 2 24 1 1 675 2 6 1 0 682 2 2 1 0 2 0
672 0 1 1 676 2 26 0 3 690 2 26 0 3 690 2 0 0 0 0 0
PROCEDURE 124
676 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
680 0 0 0 0 0 24 1 0 669 2 0 0 0 646 2 0 0 0 0 0
684 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
688 0 0 0 3885 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
692 0 0 0 0 0 0 0 0 0 0
PROCEDURE 125
694 0 1 0 724 2 0 0 3 2045 2
696 6 0 0 8 0 2 0 0 738 2 24 1 0 193 2 7 1 0 740 2
700 24 1 0 193 2 24 1 0 751 2 24 1 0 712 2 24 1 0 751 2
704 26 0 0 3901 2 26 0 0 4872 2 6 0 0 729 2 2 0 0 701 2
708 6 1 0 730 2 2 1 0 2 0 6 1 0 724 2 24 1 0 3796 2
712 6 0 0 156 0 5 0 0 739 2 27 0 3 751 2 26 1 1 730 2
716 26 0 1 736 2 24 1 1 723 2 6 1 0 730 2 2 1 0 2 0
720 0 1 1 724 2 26 0 3 738 2 26 0 3 738 2 0 0 0 0 0
PROCEDURE 126
724 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
728 0 0 0 0 0 24 1 0 717 2 0 0 0 694 2 0 0 0 0 0
732 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
736 0 0 0 3885 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
740 0 0 0 0 0 0 0 0 0 0
PROCEDURE 127
742 0 0 0 0 0 0 0 0 0 0
744 0 0 0 0 0 0 0 0 1 0 27 0 3 760 2 27 0 3 761 2
748 2 0 0 1093 2 24 0 2 956 2 27 0 3 762 2 1 1 3 193 2
752 2 0 0 2 0 5 0 0 2437 2 27 0 3 6167 2 25 1 0 4096 0
756 6 1 0 228 2 4 1 0 744 2 2 1 0 742 2 1 1 3 178 0
760 1 1 3 218 0 1 1 3 24 0 1 1 3 60 0 7 1 0 228 2
764 6 1 0 228 2 5 1 0 742 2 27 0 3 759 2 25 1 1 4096 0
768 24 1 0 193 2 6 0 0 775 2 24 1 0 773 2 0 0 3 2096 2
772 1 1 3 1 0 7 0 0 156 0 24 1 0 194 2 0 0 0 102 0
SECTION 128
PROCEDURE 129
776 28 1 1 26 0 0 1 1 381 2 26 0 3 395 2 28 1 1 782 2
780 0 0 0 782 2 0 0 0 6 0 0 0 0 0 0 0 0 0 0 0
784 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
788 28 1 1 26 0 0 1 1 429 2 26 0 3 443 2 28 1 1 794 2
792 0 0 0 794 2 0 0 0 6 0 0 0 0 0 0 0 0 0 0 0
796 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
800 28 1 1 26 0 0 1 1 477 2 26 0 3 491 2 28 1 1 806 2
804 0 0 0 806 2 0 0 0 6 0 0 0 0 0 0 0 0 0 0 0
808 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
812 28 1 1 26 0 0 1 1 525 2 26 0 3 539 2 28 1 1 818 2
816 0 0 0 818 2 0 0 0 6 0 0 0 0 0 0 0 0 0 0 0
820 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
824 28 1 1 26 0 0 1 1 580 2 26 0 3 594 2 28 1 1 830 2
828 0 0 0 830 2 0 0 0 6 0 0 0 0 0 0 0 0 0 0 0
832 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
836 28 1 1 26 0 0 1 1 628 2 26 0 3 642 2 28 1 1 842 2
840 0 0 0 842 2 0 0 0 6 0 0 0 0 0 0 0 0 0 0 0
844 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
848 28 1 1 26 0 0 1 1 676 2 26 0 3 690 2 28 1 1 854 2
852 0 0 0 854 2 0 0 0 6 0 0 0 0 0 0 0 0 0 0 0
856 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
860 28 1 1 26 0 0 1 1 724 2 26 0 3 738 2 28 1 1 866 2
864 0 0 0 866 2 0 0 0 6 0 0 0 0 0 0 0 0 0 0 0
868 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
SECTION 130
872 0 0 0 0 0 0 0 0
876 0 0 0 0 0 0 0 0
880 0 0 0 0 0 0 0 0
884 0 0 0 0 0 0 0 0
888 0 0 0 0 0 0 0 0
892 0 0 0 0 0 0 0 0
896 0 0 0 0 0 0 0 0
900 0 0 0 0 0 0 0 0
904 0 0 0 0 0 0 0 0
908 0 0 0 0 0 0 0 0
912 0 0 0 0 0 0 0 0
916 0 0 0 0 0 0 0 0
920 0 0 0 0
PROCEDURE 131
PROCEDURE 132
922 0 0 0 0 0
PROCEDURE 133
923 0 0 0 0 0
PROCEDURE 134
924 0 0 0 0 0
PROCEDURE 135
925 0 0 0 0 0
PROCEDURE 136
926 0 0 0 0 0
PROCEDURE 137
927 0 0 0 0 0
PROCEDURE 138
928 0 0 0 0 0
PROCEDURE 139
929 0 0 0 0 0
PROCEDURE 140
930 0 0 0 0 0
PROCEDURE 141
931 0 0 0 0 0
PROCEDURE 142
932 0 0 0 0 0
PROCEDURE 143
933 0 0 0 0 0
PROCEDURE 144
934 0 0 0 0 0
PROCEDURE 145
935 0 0 0 0 0
PROCEDURE 146
936 0 0 0 0 0
PROCEDURE 147
937 0 0 0 0 0
PROCEDURE 148
938 0 0 0 0 0
PROCEDURE 149
939 0 0 0 0 0
PROCEDURE 150
940 0 0 0 0 0
PROCEDURE 151
941 0 0 0 0 0
PROCEDURE 152
942 0 0 0 0 0
PROCEDURE 153
943 0 0 0 0 0
PROCEDURE 154
944 0 0 0 0 0
PROCEDURE 155
945 0 0 0 0 0
PROCEDURE 156
946 0 0 0 0 0
PROCEDURE 157
947 0 0 0 0 0
PROCEDURE 158
948 0 0 0 0 0
PROCEDURE 159
949 0 0 0 0 0
PROCEDURE 160
950 0 0 0 0 0
PROCEDURE 161
951 0 0 0 0 0
PROCEDURE 162
952 0 0 0 0 0
PROCEDURE 163
953 0 0 0 0 0
PROCEDURE 164
954 0 0 0 0 0
PROCEDURE 165
955 0 0 0 0 0
PROCEDURE 166
956 0 0 0 0 0
PROCEDURE 167
957 0 0 0 0 0
PROCEDURE 168
958 0 0 0 0 0
PROCEDURE 169
959 0 0 0 0 0
PROCEDURE 170
960 0 0 0 0 0
PROCEDURE 171
961 0 0 0 0 0
PROCEDURE 172
962 0 0 0 0 0
PROCEDURE 173
963 0 0 0 0 0
SECTION 174
964 0 0 1020 0 0 0 8 0
968 1016 0 0 0
PROCEDURE 175
970 0 0 0 0 0 0 0 0 0 0
972 0 0 0 0 0 0 0 0 236 2 0 0 0 0 0 0 0 0 351 2
976 0 0 0 0 0 0 0 0 399 2 0 0 0 0 0 0 0 0 447 2
980 0 0 0 0 0 0 0 0 495 2 0 0 0 0 0 0 0 0 550 2
984 0 0 0 0 0 0 0 0 598 2 0 0 0 0 0 0 0 0 646 2
988 0 0 0 0 0 0 0 0 694 2
PROCEDURE 176
990 0 0 0 0 0 6 0 0 990 2
992 24 0 1 3 0 2 0 0 169 0 6 0 0 971 2 27 0 1 1007 2
996 26 0 0 5800 2 6 0 0 2045 2 2 0 0 971 2 26 0 0 1012 2
1000 24 1 3 222 2 25 1 1 8191 0 25 1 0 128 0 6 0 0 2045 2
1004 2 0 0 188 2 24 0 1 3 0 26 0 1 169 0 24 0 2 994 2
1008 2 0 1 42 0 26 0 0 5806 2 24 0 1 2 0 24 1 0 9 0
PROCEDURE 177
1012 0 0 0 0 0 26 0 0 1031 2 6 0 0 1012 2 2 0 3 972 2
1016 6 0 1 9 0 2 0 1 7 0 6 0 0 221 2 2 0 0 213 2
1020 24 1 0 193 2
PROCEDURE 178
1021 6 0 3 970 2 2 0 0 205 2 2 0 3 970 2
1024 6 0 0 6 0 27 0 0 1042 2 25 1 2 0 0 24 0 1 6 0
1028 24 0 1 971 2 26 1 1 36 0 26 0 1 205 2
PROCEDURE 179
1031 0 0 0 0 0
1032 1 1 3 0 0 2 0 0 243 2 26 1 3 243 2 6 0 0 2 0
1036 5 0 3 973 2 27 0 0 1041 2 25 0 3 2 0 24 1 0 1035 2
1040 24 1 0 2020 2 26 0 1 1031 2
PROCEDURE 180
1042 26 0 0 2796 2 1 1 3 1752 2
1044 28 1 2 108 2
PROCEDURE 181
1045 6 0 0 314 2 2 0 0 196 2 6 0 0 206 2
1048 2 0 0 1115 2 1 1 3 106 2 3 0 0 224 2 2 0 0 225 2
1052 1 1 3 4118 0 3 0 0 964 2 2 1 0 968 2 1 1 3 8 0
1056 2 0 0 967 2 1 1 3 3 0 26 0 0 5569 2 27 0 0 1062 2
1060 6 0 0 1154 2 24 1 0 1063 2 6 0 0 1153 2 2 0 0 1117 2
1064 2 1 0 154 0 6 1 0 2108 2 2 1 0 1762 2 1 1 3 3 0
1068 26 0 0 5569 2 27 0 0 1072 2 6 0 0 1105 2 24 1 0 1073 2
1072 6 0 0 1085 2 2 0 0 1096 2 0 1 2 1756 2 24 0 1 225 2
1076 15 1 0 0 0 2 1 0 1764 2 24 0 2 154 0 24 0 1 53 2
1080 2 0 0 64 0 6 0 0 2026 2 5 0 0 53 2 2 0 0 195 2
1084 24 1 0 195 2 24 1 0 1105 2 24 1 0 1169 2 2 0 0 1093 2
1088 24 1 0 1093 2 6 0 0 1093 2 3 1 0 956 2 6 1 0 956 2
1092 2 1 0 956 2
PROCEDURE 182
1093 6 1 0 1764 2 24 0 1 1762 2 18 0 0 4120 0
1096 18 0 0 8 0 18 0 0 4120 0 3 1 0 154 0 27 0 0 1179 2
1100 1 1 2 61 0 27 0 0 1179 2 1 1 3 1 0 2 0 0 1178 2
1104 6 1 0 154 0 18 0 0 8 0 2 1 0 154 0 24 0 1 53 2
1108 19 0 0 0 0 2 0 0 1186 2 23 0 0 2 0 0 0 0 1762 1
1112 24 1 0 1211 2 1 0 1 15 0 15 1 0 1764 2 24 0 1 225 2
1116 6 1 0 0 0 24 0 1 964 2 18 1 0 0 0 18 1 3 2 0
1120 1 1 3 0 0 18 1 3 6 0 27 0 0 1187 2 1 1 2 30 0
1124 27 0 0 1194 2 1 1 2 31 0 27 0 0 1187 2 1 1 2 1 0
1128 27 0 0 1192 2 1 1 1 62 0 3 1 0 968 2 1 0 1 3 0
1132 24 0 1 967 2 18 1 0 0 0 14 1 0 154 0 6 0 0 1155 2
1136 7 0 0 967 2 23 0 0 2 0 0 0 0 964 1 24 1 0 1144 2
1140 1 1 3 2 0 7 0 0 225 2 1 1 3 4118 0 2 0 0 964 2
1144 6 0 0 967 2 27 0 2 1115 2 24 0 1 53 2 19 0 0 0 0
1148 1 1 3 8 0 2 0 0 967 2 6 0 0 969 2 27 0 3 1209 2
1152 24 1 0 1211 2 24 1 0 1156 2 24 0 1 964 2 16 0 0 2 0
1156 2 1 0 154 0 26 0 0 6485 2 24 1 0 1175 2 24 0 1 53 2
1160 19 0 0 0 0 25 1 2 0 0 0 0 2 339 2 15 1 0 154 0
1164 1 1 2 7710 0 27 0 0 1209 2 6 0 0 2100 2 7 0 0 225 2
1168 25 1 2 0 0 2 0 0 1762 2 0 1 2 1756 2 24 0 1 225 2
1172 15 1 0 0 0 2 1 0 1764 2 24 1 0 1211 2 15 1 0 1760 2
1176 14 1 0 154 0 24 1 0 6494 2 0 0 0 0 0 6 0 0 1178 2
1180 27 0 0 1184 2 1 1 3 0 0 2 0 0 1178 2 24 1 0 1105 2
1184 1 1 3 1 0 24 1 0 1109 2 0 0 0 0 0
PROCEDURE 183
1187 6 0 0 968 2
1188 27 0 0 1137 2 1 1 3 0 0 2 0 0 968 2 24 1 0 1131 2
1192 1 1 3 29 0 24 1 0 1130 2 6 0 0 969 2 27 0 1 1200 2
1196 1 1 3 1 0 2 0 0 969 2 1 1 3 30 0 24 1 0 1131 2
1200 6 0 0 967 2 27 0 0 1205 2 6 0 0 1155 2 7 0 0 964 2
1204 24 1 0 1189 2 1 1 2 1 0 3 0 0 969 2 1 1 3 30 0
1208 24 1 0 1131 2
PROCEDURE 184
1209 6 0 0 207 2 2 0 0 1115 2 0 0 2 2052 2
1212 15 0 0 53 2 2 1 0 6 0 6 0 0 1186 2 27 0 1 195 2
1216 6 1 0 53 2 2 1 3 3352 2 24 1 0 195 2
PROCEDURE 185
1219 6 0 0 189 2
1220 27 0 0 209 2 25 1 2 0 0 2 0 0 189 2 1 1 3 232 2
1224 3 0 0 224 2 2 0 0 225 2 6 0 0 206 2 2 0 0 1115 2
1228 2 0 0 1186 2 24 1 0 1211 2
PROCEDURE 186
1230 24 1 3 223 2 6 0 0 1115 2
1232 2 0 0 205 2 5 0 0 2099 2 7 0 0 196 2 6 0 0 208 2
1236 2 0 0 1115 2 24 1 0 1242 2 25 1 2 4095 0 1 1 2 3840 0
1240 27 0 0 195 2 2 0 0 189 2 25 1 1 8191 0 25 1 0 3840 0
1244 24 1 0 195 2 6 0 0 314 2 2 0 0 196 2 6 0 0 205 2
1248 2 0 0 1115 2 25 1 1 8191 0 24 0 1 223 2 25 1 0 0 0
1252 24 1 0 1115 2
PROCEDURE 187
1253 25 1 2 2048 0 27 0 0 1258 2 25 1 1 8191 0
1256 24 0 1 223 2 25 1 0 0 0 6 0 0 204 2 2 0 0 200 2
1260 6 1 0 1758 2 2 1 0 154 0 24 0 1 53 2 19 0 0 0 0
1264 6 0 0 224 2 5 0 0 2100 2 2 0 0 225 2 6 0 0 314 2
1268 2 0 0 196 2 24 1 0 1226 2 0 0 0 216 2 0 0 0 216 2
1272 27 0 1 1783 2 24 1 1 216 2 26 0 0 6325 2 27 0 0 1903 2
1276 5 0 0 2432 2 0 0 0 0 0
SECTION 188
1278 0 0 0 0
PROCEDURE 189
SECTION 190
1280 0 0 0 0 0 0 0 0
1284 0 0 0 0 0 0 0 0
1288 0 0 0 0 0 0 0 0
1292 0 0 0 0 0 0 0 0
1296 0 0 0 0 0 0 0 0
1300 0 0 0 0 0 0 0 0
1304 0 0 0 0 0 0 0 0
1308 0 0 0 0 0 0 0 0
1312 0 0 0 0 0 0 0 0
1316 0 0 0 0 0 0 0 0
1320 0 0 0 0 0 0 0 0
1324 0 0 0 0 0 0 0 0
1328 0 0 0 0 0 0 0 0
1332 0 0 0 0 0 0 0 0
1336 0 0 0 0 0 0 0 0
1340 0 0 0 0 0 0 0 0
1344 0 0 0 0 0 0 0 0
1348 0 0 0 0 0 0 0 0
1352 0 0 0 0 0 0 0 0
1356 0 0 0 0 0 0 0 0
1360 0 0 0 0 0 0 0 0
1364 0 0 0 0 0 0 0 0
1368 0 0 0 0 0 0 0 0
1372 0 0 0 0 0 0 0 0
1376 0 0 0 0
SECTION 191
1378 0 0 0 0
1380 0 0 0 0 0 0 0 0
1384 0 0 0 0 0 0 0 0
1388 0 0 0 0 0 0 0 0
1392 0 0 0 0 0 0 0 0
1396 0 0 0 0 0 0 0 0
1400 0 0 0 0 0 0 0 0
1404 0 0 0 0 0 0 0 0
1408 0 0 0 0 0 0 0 0
1412 0 0 0 0 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 0 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
1444 0 0 0 0 0 0 0 0
1448 0 0 0 0 0 0 0 0
1452 0 0 0 0 0 0 0 0
1456 0 0 0 0 0 0 0 0
1460 0 0 0 0 0 0 0 0
1464 0 0 0 0 0 0 0 0
1468 0 0 0 0 0 0 0 0
SECTION 192
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
SECTION 193
1504 0 0 0 0 0 0 0 0
1508 0 0 0 0 0 0 0 0
1512 0 0 0 0 0 0 0 0
1516 0 0 0 0 0 0 0 0
1520 0 0 0 0 0 0 0 0
1524 0 0 0 0 0 0 0 0
1528 0 0 0 0 0 0 0 0
1532 0 0 0 0 0 0 0 0
1536 0 0 0 0 0 0 0 0
1540 0 0 0 0 0 0 0 0
1544 0 0 0 0 0 0 0 0
1548 0 0 0 0 0 0 0 0
1552 0 0 0 0 0 0 0 0
1556 0 0 0 0 0 0 0 0
1560 0 0 0 0 0 0 0 0
1564 0 0 0 0 0 0 0 0
1568 0 0 0 0 0 0 0 0
1572 0 0 0 0 0 0 0 0
SECTION 194
1576 0 0 0 0 0 0 0 0
1580 0 0 0 0 0 0 0 0
1584 0 0 0 0 0 0 0 0
1588 0 0 0 0 0 0 0 0
1592 0 0 0 0 0 0 0 0
1596 0 0 0 0 0 0 0 0
1600 0 0 0 0 0 0 0 0
1604 0 0 0 0 0 0 0 0
1608 0 0 0 0 0 0 0 0
1612 0 0 0 0 0 0 0 0
1616 0 0 0 0 0 0 0 0
1620 0 0 0 0 0 0 0 0
1624 0 0 0 0 0 0 0 0
1628 0 0 0 0 0 0 0 0
1632 0 0 0 0 0 0 0 0
1636 0 0 0 0 0 0 0 0
SECTION 195
1640 0 0 0 0 0 0 0 0
1644 0 0 0 0 0 0 0 0
1648 0 0 0 0 0 0 0 0
1652 0 0 0 0 0 0 0 0
1656 0 0 0 0 0 0 0 0
1660 0 0 0 0 0 0 0 0
1664 0 0 0 0 0 0 0 0
1668 0 0 0 0 0 0 0 0
1672 0 0 0 0 0 0 0 0
1676 0 0 0 0 0 0 0 0
1680 0 0 0 0 0 0 0 0
1684 0 0 0 0 0 0 0 0
1688 0 0 0 0 0 0 0 0
1692 0 0 0 0 0 0 0 0
1696 0 0 0 0 0 0 0 0
1700 0 0 0 0 0 0 0 0
SECTION 196
1704 0 0 0 0 0 0 0 0
1708 0 0 0 0 0 0 0 0
1712 0 0 0 0 0 0 0 0
1716 0 0 0 0 0 0 0 0
1720 0 0 0 0 0 0 0 0
1724 0 0 0 0 0 0 0 0
1728 0 0 0 0 0 0 0 0
1732 0 0 0 0 0 0 0 0
1736 0 0 0 0 0 0 0 0
1740 0 0 0 0 0 0 0 0
1744 0 0 0 0 0 0 0 0
1748 0 0 0 0 0 0 0 0
SECTION 197
1752 0 2154 1 5 3 0 0 0 5 0 0 2080 1 50 3 0 0 3 2 1
SECTION 198
1756 £3£3£ 0 3£3£3 0 1. 0 0 0
1760 :5:5: 0 5:5:5 0 0 0 0 0
1764 0 0 0 0
PROCEDURE 199
1766 1 1 2 127 0 27 0 0 213 2
1768 1 1 1 127 0 2 0 0 2446 2 24 1 3 185 0 26 1 1 278 2
1772 6 0 0 188 2 27 0 1 1778 2 6 1 0 970 2 27 0 0 1786 2
1776 25 1 1 6143 0 24 1 0 1784 2 25 1 2 1792 0 25 1 1 6143 0
1780 27 0 0 1855 2 5 0 0 2437 2 27 0 2 1855 2 25 1 0 128 0
1784 2 0 0 189 2 24 1 0 193 2 6 0 0 392 2 27 0 0 1805 2
1788 6 0 0 2446 2 1 1 2 1281 0 27 0 1 1802 2 6 0 0 300 2
1792 2 0 0 247 2 25 1 1 6143 0 25 1 0 127 0 6 0 0 8127 2
1796 27 0 0 1801 2 6 0 0 2462 2 24 0 1 2464 2 2 0 0 64 0
1800 2 0 0 8127 2 24 1 0 4672 2 25 1 1 6143 0 25 1 0 127 0
1804 24 1 0 1784 2 25 1 2 1792 0 27 0 0 1813 2 6 0 0 300 2
1808 2 0 0 247 2 25 1 2 1792 0 18 0 0 4126 0 3 0 0 1842 2
1812 1 1 2 8 0 25 1 1 6143 0 25 1 0 127 0 27 0 3 216 2
1816 6 0 0 2446 2 3 0 0 2745 2 2 0 0 392 2 1 0 1 5 0
1820 15 0 0 2446 2 1 1 2 514 0 27 0 0 1831 2 1 1 2 2 0
1824 27 0 0 1831 2 1 1 2 512 0 27 0 0 1831 2 1 1 1 2 0
1828 27 0 0 1831 2 25 1 2 0 0 24 1 0 1840 2 6 0 0 2428 2
1832 27 0 0 1840 2 6 0 0 299 2 2 0 0 247 2 26 0 0 6111 2
1836 27 0 3 193 2 26 0 0 6174 2 6 0 0 300 2 2 0 0 247 2
1840 24 0 1 1842 2 26 0 1 1842 2 0 0 0 0 0 0 0 0 779 2
1844 0 0 0 1164 2 0 0 0 1335 2 0 0 0 1339 2 0 0 0 216 2
1848 0 0 0 1662 2 0 0 0 1662 2 25 1 2 3855 0 1 1 2 769 0
1852 27 0 0 8154 2 25 1 1 6143 0 24 1 0 1784 2
PROCEDURE 200
1855 6 0 0 2448 2
1856 2 1 0 2 0 1 1 3 2126 2 12 0 0 2446 2 3 0 0 2447 2
1860 1 1 2 16 0 27 0 2 1924 2 1 1 1 15 0 2 0 0 2450 2
1864 6 0 0 2050 2 24 0 1 2450 2 18 0 3 0 0 18 1 0 4118 0
1868 15 0 1 41 0 27 0 0 1924 2 24 0 0 222 2 25 1 0 0 0
1872 1 1 2 512 0 27 0 0 1908 2 6 0 0 2447 2 4 0 1 43 0
1876 2 0 0 2447 2 1 0 1 16 0 15 0 1 38 0 27 0 0 1889 2
1880 24 0 1 2447 2 6 0 0 0 0 1 1 2 3801 2 4 0 0 2034 2
1884 2 0 1 31 0 2 0 1 45 0 6 0 0 2026 2 5 0 1 30 0
1888 24 1 0 1894 2
PROCEDURE 201
1889 24 0 1 2447 2 6 0 0 0 0 15 0 1 43 0
1892 2 0 1 44 0 6 0 1 35 0 2 0 1 7 0 6 0 0 2446 2
1896 3 1 0 2447 2 6 1 0 2446 2 1 0 1 15 0 14 1 0 2154 2
1900 2 1 0 970 2 2 0 0 188 2 24 1 0 1018 2
PROCEDURE 202
1903 6 0 0 2437 2
1904 27 0 2 1908 2 6 0 0 2 0 26 0 0 6338 2 27 0 0 1924 2
1908 6 0 1 8 0 2 0 1 7 0 26 0 0 5680 2 1 1 3 1915 2
1912 2 0 1 42 0 1 1 3 84 0 24 1 0 1898 2 24 0 2 3885 2
1916 2 0 1 42 0 2 0 1 45 0 1 0 1 16 0 15 0 1 38 0
1920 27 0 0 1966 2 24 0 1 2 0 26 1 1 36 0 24 1 0 4478 2
PROCEDURE 203
1924 25 1 0 128 0 26 0 0 1012 2 1 1 3 4 0 26 0 0 2796 2
1928 24 0 2 2306 2 28 1 2 108 2 24 1 0 1045 2
PROCEDURE 204
1931 24 1 1 2096 2
1932 0 0 3 2096 2 26 0 0 6325 2 1 1 2 1 0 6 0 0 2028 2
1936 2 0 0 9 0 24 1 1 2096 2 26 0 0 3344 2 26 0 0 2855 2
1940 24 0 1 3 0 6 0 0 11 0 24 0 1 2783 2 27 0 1 0 0
1944 26 0 0 8136 2 6 0 0 179 0 24 1 0 4687 2
PROCEDURE 205
1947 24 1 1 2096 2
1948 2 0 1 38 0 18 1 0 10 0 2 0 1 41 0 24 0 1 2 0
1952 0 1 0 30 0 0 0 3 2096 2 26 0 0 3344 2 6 0 0 2028 2
1956 2 0 0 9 0 6 0 0 2050 2 24 0 1 2 0 24 0 1 41 0
1960 18 0 3 0 0 1 1 1 511 0 2 0 1 41 0 6 0 0 20 2
1964 2 0 1 43 0 26 0 0 2855 2 26 0 0 990 2
PROCEDURE 206
1967 6 0 0 2 0
1968 2 0 0 2448 2 6 1 1 38 0 2 1 0 2452 2 26 0 0 2796 2
1972 24 0 2 2314 2 28 1 2 108 2 24 1 0 1045 2
PROCEDURE 207
1975 24 1 1 2096 2
1976 24 0 1 3 0 2 0 0 169 0 26 0 0 3344 2 6 0 0 26 2
1980 2 0 1 44 0 6 0 0 2028 2 2 0 0 9 0 26 0 0 2855 2
1984 26 0 0 1012 2 26 0 0 2796 2 26 1 3 2096 2 0 1 2 1756 2
1988 18 1 0 4122 0 24 0 1 3 0 24 0 1 169 0 6 1 3 0 0
1992 2 1 3 108 2 15 1 3 108 2 1 1 2 7710 0 27 0 0 2000 2
1996 25 0 3 2 0 24 1 0 1989 2 6 1 0 2080 2 2 1 0 130 2
2000 6 0 1 35 0 2 0 1 7 0 24 1 0 1045 2
PROCEDURE 208
2003 1 1 3 121 0
2004 2 0 0 2398 2 26 1 1 278 2 0 0 3 2096 2 26 0 0 1012 2
2008 6 0 0 1013 2 2 0 0 209 2 1 1 3 4 0 26 0 0 2796 2
2012 6 1 0 2176 2 2 1 0 108 2 6 0 0 2398 2 18 0 0 8 0
2016 1 0 1 15 0 15 1 0 2080 2 2 1 0 110 2 24 1 0 1045 2
2020 0 0 0 4095 0 24 1 0 141 0 0 0 0 2522 2 24 1 0 7873 2
PROCEDURE 209
2024 6 0 0 157 0 24 1 0 3795 2 26 1 0 0 0 26 0 3 8 0
2028 26 0 1 2 0 24 1 0 7956 2 24 1 0 2893 2 24 1 0 3796 2
2032 13 0 0 2582 2 13 0 0 2524 2 1 0 0 0 0 26 0 1 8 0
2036 6 0 0 8 0 6 1 0 2114 2 4 0 1 6 0 24 1 0 190 2
2040 2 0 0 44 0 24 1 0 193 2 26 0 3 44 0 6 1 0 780 2
SECTION 210
2044 1£££ 0 66666 0 8000 0 4000 0
2048 £0000 0 .1000 0 1 0 66Ю66 0
2052 £8 0 65536 0 66668 0 50000 0
2056 .0080 0 0 0 0 0 7008 0
SECTION 211
2060 £££££ 0 £££££ 0 0 0 10000 0
2064 £4£41 0 4£4£4 0 £6£6£ 0 6£6£6 0
2068 ‼6‼6‼ 0 6‼6‼6 0 17171 0 71717 0
2072 21212 0 12121 0 £5£5£ 0 5£5£5 0
2076 £1£1£ 0 1£1£1 0 0 0 1.000 0
2080 .5.5. 0 5.5.5 0 0 0 90 0
2084 0 0 60 0 0 0 30 0
2088 0 0 +0 0 0 0 120 0
2092 0 0 150 0 0 0 £0 0
SECTION 212
2096 0 0 18 0 0 0 8 0
2100 2 0 14 0 0 0 180 0
2104 0 0 30 0 0 0 + 0
2108 0 0 Ю 0 80 0 ‼0 0
2112 0 0 0 0 1Ю 0 6 0
SECTION 213
2116 1 0 0 0 16 0 0 0
2120 256 0 0 0 4096 0 0 0
2124 65536 0 0 0 1 0 0 0
2128 Ю 0 0 0 64 0 0 0
2132 3.8 0 0 0 1 0 0 0
2136 16 0 0 0 416 0 0 0
2140 6816 0 0 0 1 0 0 0
2144 20 0 0 0 320 0 0 0
SECTION 214
2148 4Ю 0 0 0 5‼ 0 0 0
2152 55656 0 59655 0 30000 0 66677 0
2156 7. 0 7.000 0 87:7: 0 67006 0
2160 8000 0 5148 0 95561 0 53006 0
2164 95561 0 66006 0 5665 0 57670 0
2168 :5.7: 0 5.7:7 0 :7:6£ 0 5.7 0
2172 27300 0 63667 0 0 0 69530 0
2176 7007: 0 77777 0 5354 0 65660 0
2180 36676 0 66566 0 67473 0 636‼6 0
2184 67473 0 635+6 0 90000 0 69735 0
2188 0 0 54520 0 0 0 76550 0
2192 55362 0 53585 0 90000 0 79797 0
2196 70000 0 63666 0 70000 0 63596 0
2200 46665 0 51525 0 56554 0 5 0
2204 30059 0 69007 0 46700 0 54746 0
2208 45.5. 0 55655 0 95758 0 585 0
2212 45577 0 59655 0 16773 0 53585 0
2216 35178 0 666‼6 0 35178 0 665+6 0
2220 46700 0 54746 0 16554 0 51525 0
2224 55400 0 66655 0 5.5. 0 0 0
2228 90000 0 72556 0 10000 0 74005 0
2232 30000 0 63557 0 15553 0 69556 0
2236 40000 0 53585 0 40000 0 5‼004 0
SECTION 215
2240 47255 0 67517 0 5358 0 67690 0
2244 95176 0 76546 0 15963 0 51755 0
2248 66755 0 69556 0 55358 0 69746 0
2252 45358 0 69667 0 60000 0 65557 0
2256 45273 0 54667 0 95400 0 53516 0
2260 66955 0 72736 0 7: 0 53580 0
2264 74000 0 69406 0 75500 0 73516 0
2268 36651 0 74656 0 45.5. 0 54555 0
2272 66674 0 69557 0 5.5. 0 65540 0
2276 55655 0 67695 0 76700 0 69005 0
2280 26700 0 69007 0 66973 0 72586 0
2284 66557 0 636 0 20000 0 73647 0
SECTION 216
2288 0 2180 1 5 3 0 0 0 5 0 0 2168 1 257 3 0 1 0 1 0
2292 0 2396 1 5 0 0 0 0 5 0 0 2168 1 257 3 0 1 0 1 0
2296 0 2456 1 10 6 0 0 0 10 0 0 2458 1 42 6 0 0 2 10 0
2300 0 2397 1 33 0 0 0 2 1 0 0 2397 1 12564 0 3 1 1 4 0
2304 0 2080 1 66 3 0 0 4 2 1 0 2164 1 5 3 0 0 0 5 0
2308 0 2158 1 770 3 0 3 0 2 0 0 2446 1 4866 0 1 3 0 2 0
2312 0 2080 1 66 3 0 0 4 2 1 0 2150 1 1025 3 0 4 0 1 0
2316 0 2452 1 4627 0 1 2 1 3 0 0 2158 1 1025 3 0 4 0 1 0
2320 0 2453 1 5 0 0 0 0 5 0 0 2080 1 34 3 0 0 2 2 1
SECTION 217
2324 0 0 0 32 3 0 0 2 0 0 0 180 0 770 3 0 3 0 2 0
2328 0 2184 1 5 3 0 0 0 5 0 0 2168 1 257 3 0 1 0 1 0
2332 0 2396 1 5 0 0 0 0 5 0 0 2168 1 257 3 0 1 0 1 0
2336 0 2456 1 33 0 0 0 2 1 0 0 2456 1 12564 0 3 1 1 4 0
2340 0 2457 1 33 0 0 0 2 1 0 0 2457 1 12564 0 3 1 1 4 0
2344 0 2458 1 33 0 0 0 2 1 0 0 2458 1 12564 0 3 1 1 4 0
2348 0 2080 1 34 3 0 0 2 2 1 0 2172 1 5 3 0 0 0 5 0
2352 0 2168 1 257 3 0 1 0 1 0 0 2402 1 5 0 0 0 0 5 0
2356 0 2080 1 34 3 0 0 2 2 1 0 156 0 514 0 0 2 0 2 0
2360 0 2158 1 1057 3 0 4 2 1 1 0 232 1 1 3 0 0 0 1 0
2364 0 156 0 514 0 0 2 0 2 0 0 2158 1 1041 3 0 4 1 1 1
2368 0 156 0 4 0 0 0 0 4 0 0 2158 1 1025 3 0 4 0 1 1
SECTION 218
2372 0 26 0 6 0 0 0 0 6 0 0 2063 1 2 0 0 0 0 2 0
2376 0 2456 1 6 0 0 0 0 6 0 0 2080 1 18 3 0 0 1 2 1
2380 0 2524 1 16 0 0 0 1 0 0
SECTION 219
2382 0 2512 1 2512 11 0 9 13 0 1
SECTION 220
2384 0 0 7 0 3+ 0 0 0
2388 0 0 666Ю6 0 0 0 26 0
2392 £££££ 0 4 0 0 0 800 0
SECTION 221
2396 0 0 0 0 0 0 0 0
2400 0 0 0 0 0 0 0 0
2404 0 0 0 0 0 0 0 0
2408 0 0 0 0 0 0 0 0
2412 0 0 0 0 54321 0 76 0
2416 54321 0 6 0 54321 0 0 0
2420 4321 0 0 0 321 0 0 0
2424 21 0 0 0 1 0 0 0
2428 0 0 0 0 0 0 0 0
2432 0 0 0 0 0 0 0 0
2436 0 0 0 0 0 0 0 0
2440 0 0 0 0 0 0 0 0
2444 0 0 0 0
SECTION 222
2446 0 0 0 0
2448 0 0 0 0 0 0 0 0
2452 0 0 0 0 0 0 0 0
2456 0 0 0 0 0 0 0 0
2460 0 0 0 0 0 0 0 0
2464 0 0 0 0 0 0 0 0
2468 0 0 0 0
SECTION 223
2470 0 0 0 0
SECTION 224
2472 0 0 0 0 0 0 0 0
2476 0 0 0 0 0 0 0 0
2480 0 0 0 0 0 0 0 0
2484 0 0 0 0 0 0 0 0
2488 0 0 0 0 0 0 0 0
2492 0 0 0 0 0 0 0 0
2496 0 0 0 0 0 0 0 0
2500 0 0 0 0 0 0 0 0
2504 0 0 0 0 0 0 0 0
SECTION 225
2508 0 0 0 0 0 0 0 0
2512 0 0 0 0 0 0 0 0
2516 0 0 0 0 0 0 0 0
2520 0 0 0 0 0 0 0 0
SECTION 226
2524 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2528 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2532 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2536 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2540 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2544 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2548 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2552 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2556 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2560 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2564 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2568 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2572 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2576 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2580 0 2529 1 48 0 0 0 3 0 0
SECTION 227
2582 0 0 0 0 0 0 0 0 0 0
2584 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2588 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2592 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2596 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2600 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2604 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2608 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2612 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2616 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2620 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2624 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2628 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2632 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2636 0 0 0 0 0 0 0 0 0 0 0 2587 1 48 0 0 0 3 0 0
SECTION 228
2640 0 0 0 0 0 0 0 0
2644 0 0 0 0 0 0 0 0
2648 0 0 0 0 0 0 0 0
2652 0 0 0 0 0 0 0 0
2656 0 0 0 0 0 0 0 0
2660 0 0 0 0 0 0 0 0
SECTION 229
2664 54321 0 876 0 0 0 0 0
PROCEDURE 230
2668 0 1 0 4097 0 1 0 0 290 2 15 1 3 8191 0 15 1 3 8191 0
2672 15 1 3 8191 0 15 1 3 8191 0 15 1 3 8191 0 15 1 3 8191 0
2676 15 1 3 8191 0 15 1 3 8191 0 15 1 3 8191 0 15 1 3 8191 0
2680 15 1 3 8191 0 15 1 3 8191 0 15 1 3 8191 0 15 1 3 8191 0
2684 15 1 3 8191 0 15 1 3 8191 0 15 1 3 8191 0 15 1 3 8191 0
2688 0 0 0 0 0 0 0 0 0 0 0 0 0 2350 2 0 0 0 7952 2
2692 0 0 0 1 0 0 0 0 9 0 0 0 0 4 0 0 0 0 0 0
SECTION 231
2696 0 0 0 0 2000 0 2000 0
2700 4000 0 2000 0 6000 0 2000 0
2704 8000 0 2000 0 Ю000 0 2000 0
2708 +000 0 2000 0 .000 0 2000 0
2712 10000 0 0 0 £££££ 0 £££££ 0
SECTION 232
2716 8000 0 2000 0 Ю000 0 2000 0
2720 +000 0 2000 0 .000 0 2000 0
2724 10000 0 0 0 £££££ 0 £££££ 0
2728 £££££ 0 £££££ 0 £££££ 0 £££££ 0
2732 £££££ 0 £££££ 0 £££££ 0 £££££ 0
2736 0 0 0 0 0 0 0 0
PROCEDURE 233
2740 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2740 2
2744 0 0 0 2664 2 0 0 0 0 0 0 0 0 3265 2 0 0 0 2825 2
2748 0 0 0 2813 2 0 0 0 3036 2 0 0 0 2456 2 0 0 0 60 0
2752 0 0 0 3352 2 0 0 0 2004 2 0 0 0 363 2 0 0 0 3885 2
2756 0 0 0 1312 2 0 0 0 1012 2 0 0 0 108 2 0 0 0 2796 2
2760 0 0 0 1045 2 0 0 0 729 2 0 0 0 1440 2 17 0 0 748 2
2764 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 8 0 0 9 0
2768 0 0 0 1 0 0 0 0 2668 2 0 0 0 2696 2 0 0 0 2716 2
2772 16 0 0 64 0 0 0 0 1 0 0 0 0 4687 2 0 0 0 1280 2
2776 0 0 0 1376 2 0 0 0 8185 2 0 0 0 3248 2 0 0 0 2288 2
2780 0 0 0 3242 2 0 0 0 7891 2 0 0 0 171 2 0 0 0 0 0
2784 0 0 0 0 0 0 0 0 3256 2 0 0 0 0 0 0 0 0 1 0
2788 0 0 0 0 0 0 0 0 872 2 0 0 0 8136 2 0 0 0 4763 2
2792 0 0 0 93 2 0 0 0 971 2 0 0 0 1000 2 0 0 0 0 0
PROCEDURE 234
2796 0 0 0 0 0 27 0 0 2801 2 1 1 1 2358 2 28 1 2 106 2
2800 26 0 1 2796 2 6 0 0 2812 2 1 1 2 1 0 3 0 0 2812 2
2804 27 0 0 2807 2 25 1 2 0 0 24 1 0 2798 2 1 1 3 2368 2
2808 28 1 2 106 2 1 1 3 15 0 2 0 0 2812 2 26 0 1 2796 2
2812 0 0 0 15 0
PROCEDURE 235
2813 0 0 0 0 0 1 0 1 0 0 6 0 3 7 0
2816 5 0 3 9 0 27 0 1 2820 2 6 0 2 9 0 2 0 3 7 0
2820 6 0 2 9 0 2 0 3 9 0 6 0 2 20 0 2 0 3 20 0
2824 26 0 1 2813 2
PROCEDURE 236
2825 0 0 0 0 0 6 1 0 2104 2 2 1 0 2112 2
2828 0 1 1 2384 2 4 0 0 2764 2 26 0 0 18 2 26 0 0 5716 2
2832 26 0 0 5258 2 27 0 0 2844 2 1 1 3 0 0 26 0 0 5564 2
2836 23 0 0 1 0 0 0 0 2112 1 24 1 0 2840 2 24 1 0 2828 2
2840 24 0 1 1278 2 6 0 0 1280 2 2 1 3 1 0 24 1 0 2828 2
2844 24 0 1 124 0 6 1 0 56 0 28 1 0 2640 2 24 1 1 2045 2
2848 26 0 1 2825 2
PROCEDURE 237
2849 0 0 0 0 0 18 0 0 5 0 4 0 0 2764 2
2852 25 1 1 4096 0 26 0 0 18 2 26 0 1 2849 2
PROCEDURE 238
2855 0 0 0 0 0
2856 0 0 3 2045 2 6 0 0 157 0 7 1 1 46 0 0 0 3 2096 2
2860 26 0 1 2855 2 15 0 0 2641 2 24 1 0 3035 2 24 1 1 216 2
PROCEDURE 239
2864 0 0 0 0 0 24 1 1 2096 2 6 0 0 2640 2 5 0 0 2060 2
2868 27 0 1 2874 2 1 0 1 1 0 6 0 0 2641 2 1 1 2 5 0
2872 27 0 0 2967 2 1 1 2 80 0 26 0 1 2864 2
PROCEDURE 240
2875 1 1 3 27 0
2876 26 0 0 2849 2 26 0 0 1012 2 1 1 3 4 0 26 0 0 2796 2
2880 24 0 2 2172 2 2 0 0 2350 2 24 0 2 2350 2 28 1 2 108 2
2884 6 0 0 2026 2 5 0 0 2764 2 2 0 0 248 2 6 0 0 2030 2
2888 2 0 0 258 2 26 0 0 5680 2 6 0 0 2764 2 2 0 1 30 0
2892 24 1 0 1045 2 6 0 0 2031 2 2 0 0 258 2 24 0 1 2522 2
2896 2 1 0 2474 2 24 1 0 3165 2
PROCEDURE 241
2898 0 0 0 0 0 1 1 3 0 0
2900 24 0 3 3 0 2 0 0 164 0 24 0 2 2906 2 1 1 2 3801 2
2904 4 0 0 2034 2 26 0 0 2849 2 0 0 3 2045 2 24 0 1 2764 2
2908 6 0 0 1280 2 27 0 0 2913 2 1 1 3 1 0 24 0 1 2764 2
2912 7 0 0 1280 2 0 0 3 2096 2 24 0 1 2764 2 19 1 3 0 0
2916 26 0 0 5719 2 24 0 1 2764 2 24 0 1 64 0 6 1 0 1 0
2920 27 0 3 2914 2 24 0 1 2764 2 5 0 0 1280 2 27 0 1 2926 2
2924 24 0 1 2898 2 24 1 0 1 0 24 0 1 2764 2 4 0 0 1280 2
2928 1 1 2 7 0 27 0 3 2934 2 1 1 3 3841 0 24 0 1 2764 2
2932 2 0 0 1312 2 26 0 1 2898 2 25 1 2 0 0 24 0 1 2764 2
2936 2 0 0 1312 2 0 1 2 2160 2 1 1 3 17 0 26 0 0 2849 2
2940 18 0 0 4119 0 1 1 2 1 0 27 0 0 2953 2 1 1 2 1 0
2944 27 0 0 2953 2 1 1 2 1 0 27 0 0 2953 2 1 1 2 3 0
2948 27 0 0 2953 2 24 0 2 3181 2 5 0 0 2898 2 27 0 0 2875 2
2952 24 1 1 573 2 26 0 1 2898 2
PROCEDURE 242
2954 0 0 0 0 0 0 1 1 2390 2
2956 4 0 0 2764 2 26 0 0 18 2 26 0 0 2825 2 24 1 1 2096 2
2960 24 0 1 124 0 6 1 0 6 0 5 1 0 2212 2 27 0 0 2968 2
2964 4 1 0 2212 2 5 1 0 2256 2 27 0 0 2955 2 24 1 0 3034 2
2968 24 0 1 124 0 6 1 0 11 0 24 0 1 2522 2 2 0 0 2477 2
2972 26 0 0 2825 2 24 1 1 2096 2 26 1 3 2096 2 1 0 1 0 0
2976 6 0 3 2640 2 5 0 0 2060 2 27 0 0 2967 2 6 1 3 2640 2
2980 24 0 1 2522 2 3 1 0 2474 2 5 1 0 2402 2 27 0 0 2993 2
2984 18 1 0 4123 0 5 0 3 2641 2 27 1 0 2993 2 6 0 0 2402 2
2988 5 0 0 2116 2 27 0 0 2993 2 25 0 3 4 0 24 1 0 2975 2
2992 24 1 0 2972 2 6 0 3 2642 2 5 0 0 2393 2 27 0 1 3003 2
2996 0 0 2 2385 2 15 0 0 2764 2 1 1 2 7 0 27 0 1 3009 2
3000 6 0 3 2643 2 2 0 0 2795 2 24 1 0 3009 2 4 0 0 2100 2
3004 27 0 1 2990 2 0 0 2 2385 2 15 0 0 2764 2 1 1 2 7 0
3008 27 0 0 2967 2 24 0 2 10 0 18 0 0 5 0 4 0 3 2643 2
3012 2 1 0 2398 2 6 0 3 2643 2 24 0 1 2522 2 5 0 0 2477 2
3016 24 0 1 2522 2 7 0 0 2477 2 27 0 0 3026 2 27 0 3 3022 2
3020 24 0 2 38 0 24 1 0 3023 2 24 0 2 36 0 0 1 2 2398 2
3024 26 0 0 2849 2 24 1 0 3027 2 26 0 0 2825 2 26 0 0 2864 2
3028 27 0 1 3026 2 6 0 0 2640 2 5 0 0 2392 2 27 0 1 3026 2
3032 24 0 1 2954 2 24 1 0 1 0 1 1 3 81 0 26 0 1 2954 2
PROCEDURE 243
3036 24 0 1 27 0 6 0 0 4 0 24 0 1 2522 2 2 0 0 2476 2
3040 24 0 1 2522 2 6 0 0 2472 2 24 0 1 27 0 2 0 0 159 0
3044 26 1 2 26 0 23 0 3 28 0 1 1 2 14 0 27 0 0 3077 2
3048 6 0 0 2037 2 2 0 2 2 0 6 0 0 4 0 1 1 2 351 2
3052 18 1 0 4127 0 18 1 3 2 0 2 0 0 6 0 6 0 0 2043 2
3056 4 0 0 6 0 2 0 2 26 0 6 0 3 779 2 3 0 2 3 0
3060 4 0 0 2038 2 2 0 2 28 0 6 0 2 4 0 27 0 2 3068 2
3064 6 0 2 28 0 2 0 2 27 0 6 0 0 2039 2 2 0 2 4 0
3068 6 0 0 2039 2 2 0 2 6 0 6 0 2 3 0 27 0 2 3076 2
3072 2 0 0 3075 2 6 0 0 3110 2 18 0 0 5 0 0 0 0 0 0
3076 1 1 3 0 0 23 1 0 26 0 23 1 0 30 0 23 1 0 28 0
3080 6 0 0 1011 2 24 0 1 26 0 1 1 2 14 0 3 0 2 35 0
3084 2 0 2 7 0 24 0 1 27 0 6 0 0 11 0 27 0 0 3246 2
3088 6 0 0 26 0 2 0 0 2784 2 26 0 0 238 2 6 1 0 2376 2
3092 28 0 0 26 0 6 0 0 250 2 2 0 0 248 2 24 0 2 24 0
3096 24 0 1 2522 2 2 0 0 2476 2 6 0 0 2451 2 24 0 1 2783 2
3100 24 1 0 4 0 24 0 1 2783 2 24 0 1 2 0 0 1 0 30 0
3104 6 0 0 2028 2 2 0 0 9 0 24 0 1 2 0 0 1 1 30 0
3108 24 0 1 2783 2 24 1 0 5 0 2 0 0 6 0 27 0 0 3136 2
3112 24 1 0 3138 2 27 0 0 3175 2 27 0 0 3138 2
PROCEDURE 244
3115 24 1 1 2096 2
3116 24 0 1 2 0 0 1 0 30 0 26 0 0 3344 2 6 0 0 2028 2
3120 2 0 0 9 0 6 0 0 24 2 2 0 1 44 0 26 0 0 2855 2
3124 26 0 0 8136 2 6 0 0 2428 2 27 0 0 3130 2 26 0 0 6111 2
3128 27 0 3 193 2 26 0 0 6174 2 24 0 1 3 0 6 0 0 159 0
3132 3 0 0 2764 2 26 0 0 3329 2 24 1 0 3136 2 24 1 0 2875 2
3136 6 0 0 2100 2 2 0 0 4763 2 25 1 0 127 0 6 0 1 37 0
3140 2 1 0 4 0 6 0 1 30 0 5 0 2 4 0 27 0 3 3146 2
3144 6 0 0 2050 2 7 0 1 30 0 6 1 2 12 0 2 1 0 2402 2
3148 6 0 1 30 0 2 0 0 2407 2 24 0 2 3885 2 2 0 1 42 0
3152 6 0 1 9 0 2 0 1 7 0 6 1 0 2 0 2 1 0 2400 2
3156 26 1 1 278 2 24 0 2 2218 2 2 0 0 2350 2 24 0 2 2350 2
3160 24 0 1 3 0 28 1 2 130 0 24 0 1 3 0 24 0 2 130 0
3164 23 0 2 168 0
PROCEDURE 245
3165 0 0 2 2385 2 24 0 1 2401 2 6 0 0 11 0
3168 27 0 0 3174 2 6 0 0 2385 2 14 0 0 2764 2 24 0 1 2783 2
3172 24 1 0 0 0 25 1 2 0 0 14 0 0 2764 2 6 0 0 2032 2
3176 24 0 1 2764 2 2 0 0 64 0 6 0 0 2033 2 2 0 0 124 0
3180 26 0 0 2898 2 24 1 0 3186 2 6 1 0 2402 2 24 0 1 2522 2
3184 5 1 0 2474 2 27 0 0 3189 2 26 0 0 2954 2 24 1 0 2875 2
3188 24 1 0 3207 2 6 0 0 2407 2 24 0 1 2522 2 5 0 0 2476 2
3192 1 1 2 1 0 27 0 0 3204 2 27 0 2 3207 2 24 0 1 2522 2
3196 6 0 0 2477 2 18 1 0 4123 0 24 0 2 10 0 18 1 0 5 0
3200 2 1 0 2398 2 24 0 2 3187 2 2 0 0 2954 2 24 1 0 3022 2
3204 0 0 2 2050 2 24 0 2 40 0 26 0 0 2849 2 26 0 0 2825 2
3208 24 0 1 124 0 6 1 0 12 0 5 1 0 2214 2 27 0 1 3207 2
3212 6 1 0 2642 2 5 1 0 2402 2 27 0 1 3207 2 6 0 0 2640 2
3216 5 0 0 2407 2 27 0 1 3207 2 6 0 0 300 2 2 0 0 247 2
3220 6 1 0 2372 2 28 0 0 2456 2 24 1 1 2096 2 26 1 2 2400 2
3224 6 0 2 32 0 4 0 2 32 0 4 0 2 37 0 2 1 0 28 0
3228 24 1 1 2045 2 24 0 2 3 0 2 0 0 4763 2 6 0 2 18 0
3232 3 1 0 28 0 26 0 0 3265 2
PROCEDURE 246
3234 6 0 0 2407 2 24 0 1 2522 2
3236 2 0 0 2476 2 24 0 1 2401 2 6 0 0 11 0 27 0 0 3242 2
3240 24 0 1 2783 2 24 1 0 7 0 24 1 1 2096 2 26 1 2 2400 2
3244 6 0 2 35 0 2 0 2 7 0 6 1 0 2376 2 28 0 0 26 0
3248 26 1 1 278 2 6 0 0 250 2 2 0 0 248 2 0 0 2 2385 2
3252 6 0 0 2385 2 14 0 0 2764 2 26 0 0 238 2 24 1 0 193 2
3256 2 0 0 2396 2 6 0 0 2032 2 24 0 1 2764 2 2 0 0 64 0
3260 6 0 0 2033 2 2 0 0 124 0 6 0 0 2396 2 27 0 0 3189 2
3264 24 1 0 3207 2
PROCEDURE 247
3265 0 0 0 0 0 2 0 0 2399 2 1 0 1 16 0
3268 15 0 0 3265 2 27 0 0 3272 2 6 0 0 4 0 24 1 0 3273 2
3272 6 0 0 28 0 2 1 0 2410 2 26 0 0 2825 2 6 1 0 2096 2
3276 2 1 0 2412 2 24 0 1 2412 2 6 1 0 2640 2 3 1 0 2396 2
3280 5 0 0 2048 2 27 0 0 3305 2 4 0 0 2049 2 27 0 0 3306 2
3284 25 1 2 0 0 1 0 1 4 0 15 0 0 2396 2 27 0 1 3310 2
3288 6 0 0 2399 2 7 0 0 2396 2 6 0 0 2397 2 27 0 3 3295 2
3292 24 0 1 2396 2 4 0 0 0 0 24 1 0 3297 2 24 0 1 2396 2
3296 5 0 0 0 0 24 0 1 2410 2 2 0 0 0 0 23 0 0 1 0
3300 0 0 0 2410 1 23 0 0 2 0 0 0 0 2412 1 24 1 0 3277 2
3304 24 1 0 3274 2 26 0 1 3265 2
PROCEDURE 248
3306 6 1 0 2374 2 24 0 1 2410 2
3308 28 1 0 0 0 24 1 0 3299 2 1 1 2 3840 0 27 0 0 3323 2
3312 6 0 0 2397 2 24 0 1 2410 2 2 0 0 0 0 0 0 2 2100 2
3316 10 0 0 2396 2 18 0 0 4126 0 1 1 1 158 0 0 0 2 2044 2
3320 24 0 1 2410 2 14 0 0 0 0 24 1 0 3299 2 6 0 0 2397 2
3324 7 0 0 2410 2 24 1 0 3301 2 0 0 0 0 0 27 0 1 3781 2
3328 0 0 0 4265 2
PROCEDURE 249
3329 0 0 0 0 0 2 0 0 315 2 1 1 3 36 0
3332 2 0 0 2523 2 2 0 0 2522 2 6 0 0 315 2 24 0 1 2522 2
3336 5 0 0 2472 2 27 0 0 3343 2 23 0 0 6 0 0 0 0 2522 1
3340 24 1 0 3334 2 24 0 1 3329 2 24 1 0 1 0 26 0 1 3329 2
PROCEDURE 250
3344 0 0 0 0 0 0 0 3 2096 2 6 0 1 3 0 27 0 2 3351 2
3348 2 0 0 3350 2 6 1 0 2114 2 28 1 1 782 2 26 0 1 3344 2
PROCEDURE 251
SECTION 252
3352 0 0 £££££ 0 0 0 0 0
3356 0 0 0 0 0 0 0 0
3360 0 0 £££££ 0 0 0 0 0
3364 0 0 0 0 0 0 0 0
3368 0 0 £££££ 0 0 0 0 0
3372 0 0 0 0 0 0 0 0
3376 0 0 £££££ 0 0 0 0 0
3380 0 0 0 0 0 0 0 0
3384 0 0 £££££ 0 0 0 0 0
3388 0 0 0 0 0 0 0 0
3392 0 0 £££££ 0 0 0 0 0
3396 0 0 0 0 0 0 0 0
3400 0 0 £££££ 0 0 0 0 0
3404 0 0 0 0 0 0 0 0
3408 0 0 £££££ 0 0 0 0 0
3412 0 0 0 0 0 0 0 0
3416 0 0 0 0 0 0 0 0
3420 0 0 0 0 0 0 0 0
3424 0 0 0 0 0 0 0 0
3428 0 0 0 0 0 0 0 0
3432 0 0 0 0 0 0 0 0
3436 0 0 0 0 0 0 0 0
3440 0 0 0 0 0 0 0 0
SECTION 253
3444 0 0 0 0 0 0 0 0
3448 0 0 0 0 0 0 0 0
3452 0 0 0 0 0 0 0 0
3456 0 0 0 0 0 0 0 0
SECTION 254
3460 0 0 0 0 0 0 0 0
3464 0 0 0 0 0 0 0 0
3468 0 0 0 0 0 0 0 0
3472 0 0 0 0 0 0 0 0
SECTION 255
SECTION 256
3476 0 0 0 0 0 0 0 0
SECTION 257
3480 0 0 £££££ 0 0 0 0 0
3484 0 0 0 0 0 0 0 0
3488 0 0 £££££ 0 0 0 0 0
3492 0 0 0 0 0 0 0 0
3496 0 0 £££££ 0 0 0 0 0
3500 0 0 0 0 0 0 0 0
3504 0 0 £££££ 0 0 0 0 0
3508 0 0 0 0 0 0 0 0
3512 0 0 £££££ 0 0 0 0 0
3516 0 0 0 0 0 0 0 0
3520 0 0 £££££ 0 0 0 0 0
3524 0 0 0 0 0 0 0 0
SECTION 258
3528 10000 0 5‼004 0 0 0 0 0
3532 0 0 0 0 0 0 0 0
3536 0 0 0 0 0 0 0 0
3540 80 0 1+ 0 0 0 2001+ 0
3544 0 0 0 0 0 0 80000 0
3548 0 0 0 0 35:00 0 72657 0
3552 70000 0 58545 0 55972 0 56596 0
3556 5547‼ 0 7Ю556 0 0 0 0 0
SECTION 259
3560 0 0 0 0 0 0 0 0
3564 0 0 0 0 0 0 0 0
3568 0 0 0 0 0 0 0 0
3572 0 0 0 0 0 0 0 0
3576 0 0 0 0 0 0 0 0
3580 0 0 0 0 0 0 0 0
3584 0 0 0 0 0 0 0 0
3588 0 0 0 0 0 0 0 0
3592 0 0 0 0 0 0 0 0
3596 0 0 0 0 0 0 0 0
3600 0 0 0 0 0 0 0 0
3604 0 0 0 0 0 0 0 0
3608 0 0 0 0 0 0 0 0
SECTION 260
3612 0 0 0 0 0 0 0 0
3616 0 0 0 0 0 0 0 0
3620 24 0 10 0 0 0 0 0
3624 0 0 0 0 0 0 3£000 0
3628 0 0 7.000 0 0 0 0 0
3632 0 0 0 0 .7.7. 0 7.7.7 0
3636 0 0 3.000 0
SECTION 261
3638 0 3530 1 3 3 0 0 0 3 0
3640 0 3533 1 4611 0 1 2 0 3 0 0 104 1 17 3 0 0 1 1 0
3644 0 3532 1 5 0 0 0 0 5 0 0 2080 1 2 3 0 0 0 2 1
3648 0 3530 1 3 3 0 0 0 3 0 0 3533 1 4611 0 1 2 0 3 0
3652 0 104 1 17 3 0 0 1 1 0 0 3532 1 5 0 0 0 0 5 0
3656 0 104 1 17 3 0 0 1 1 0 0 3534 1 12293 0 3 0 0 5 0
3660 0 104 1 17 3 0 0 1 1 0 0 3536 1 5 3 0 0 0 5 0
3664 0 2080 1 18 3 0 0 1 2 1 0 3530 1 3 3 0 0 0 3 0
3668 0 3533 1 4611 0 1 2 0 3 0 0 104 1 17 3 0 0 1 1 0
3672 0 3532 1 5 0 0 0 0 5 0 0 104 1 17 3 0 0 1 1 0
3676 0 3534 1 5 3 0 0 0 5 0 0 104 1 17 3 0 0 1 1 0
3680 0 3536 1 5 3 0 0 0 5 0 0 104 1 1 3 0 0 0 1 0
3684 0 3538 1 20485 0 5 0 0 5 0 0 2080 1 2 3 0 0 0 2 1
3688 0 176 1 16389 0 4 0 0 5 1 0 3538 1 5 0 0 0 0 5 1
SECTION 262
3692 0 3530 1 3 3 0 0 0 3 0 0 3533 1 4611 0 1 2 0 3 0
3696 0 104 1 1 3 0 0 0 1 0 0 3532 1 5 0 0 0 0 5 0
3700 0 104 1 1 3 0 0 0 1 0 0 3534 1 5 0 0 0 0 5 0
3704 0 104 1 17 3 0 0 1 1 0 0 3536 1 5 0 0 0 0 5 0
3708 0 104 1 33 3 0 0 2 1 0 0 3538 1 5 3 0 0 0 5 0
3712 0 2080 1 2 3 0 0 0 2 1 0 2080 1 2 3 0 0 0 2 1
3716 0 3549 1 4643 0 1 2 2 3 0 0 3549 1 4643 0 1 2 2 3 0
3720 0 2080 1 2 3 0 0 0 2 1 0 3630 1 85 0 0 0 5 5 0
3724 0 3549 1 4643 0 1 2 2 3 0 0 2170 1 308 3 0 1 3 4 1
PROCEDURE 263
3728 1 0 3 0 0 0 0 0 4672 2 0 0 0 6675 2 0 0 0 6887 2
3732 0 0 0 4457 2 0 0 0 4455 2 0 0 0 4453 2 0 0 0 4451 2
3736 0 0 0 245 2 0 0 0 4172 2 0 0 0 4478 2 0 0 0 4333 2
3740 0 0 0 4225 2 0 0 0 4481 2 0 0 0 3751 2 0 0 0 7543 2
3744 26 0 0 5224 2 26 0 0 5224 2 26 0 0 5224 2 26 0 0 5224 2
3748 26 0 0 5224 2 26 0 0 5224 2 26 0 0 5224 2 26 0 0 5224 2
3752 26 0 0 5224 2 26 0 0 5224 2 0 0 3 2045 2 6 0 0 157 0
PROCEDURE 264
3756 1 1 2 3801 2 2 0 1 31 0 24 0 2 3352 2 2 0 1 32 0
3760 6 0 0 2028 2 2 0 0 9 0 6 0 1 3 0 27 0 2 3785 2
3764 26 0 0 3344 2 24 1 0 3785 2 24 1 1 2096 2 24 0 1 2 0
3768 0 1 0 30 0 6 0 1 3 0 27 0 2 3774 2 2 0 0 3773 2
3772 6 1 0 2114 2 28 1 1 782 2 6 0 0 18 2 2 1 1 44 0
3776 6 0 0 2028 2 2 0 0 9 0 6 0 1 31 0 1 1 2 48 0
3780 27 0 0 7773 2 1 1 2 1 0 24 0 1 2 0 27 0 0 12 0
3784 26 0 0 5613 2 24 0 1 2 0 24 1 0 7 0 7 1 1 46 0
3788 0 0 3 2096 2 24 0 1 2 0 24 1 0 7 0 24 1 0 3744 2
3792 24 1 0 3744 2 24 1 0 7387 2 24 1 0 3862 2
PROCEDURE 265
3795 19 0 1 56 0
3796 3 1 0 1278 2 18 0 3 6 0
PROCEDURE 266
3798 4 0 1 32 0 4 0 0 3728 2
3800 24 0 1 1279 2
PROCEDURE 267
3801 24 1 0 3801 2 24 1 0 6581 2 24 1 0 3744 2
3804 24 1 0 6349 2 24 1 0 6357 2 24 1 0 6002 2 24 1 0 6037 2
3808 24 1 0 6917 2 24 1 0 7348 2 24 1 0 6357 2 24 1 0 6407 2
3812 24 1 0 6470 2 24 1 0 3744 2 24 1 0 6344 2 24 1 0 3881 2
3816 24 1 0 5840 2 24 1 0 5924 2 24 1 0 6656 2 24 1 0 7035 2
3820 24 1 0 3881 2 24 1 0 6404 2 24 1 0 6643 2 24 1 0 3744 2
3824 24 1 0 6367 2 24 1 0 3862 2 24 1 0 6261 2 24 1 0 6261 2
3828 24 1 0 7008 2 24 1 0 7378 2 24 1 0 3862 2 24 1 0 3862 2
3832 24 1 0 7035 2 24 1 0 6656 2 24 1 0 7395 2 24 1 0 7397 2
3836 24 1 0 7419 2 24 1 0 7426 2 24 1 0 7417 2 24 1 0 7417 2
3840 24 1 0 7556 2 24 1 0 7549 2 24 1 0 7675 2 24 1 0 7673 2
3844 24 1 0 7554 2 24 1 0 7551 2 24 1 0 7366 2 24 1 0 6999 2
3848 24 1 0 7759 2 24 1 0 3744 2 24 1 0 6075 2 24 1 0 6419 2
3852 24 1 0 6435 2 24 1 0 6413 2 24 1 0 6464 2 24 1 0 6439 2
3856 24 1 0 3881 2 24 1 0 3862 2 24 1 0 6357 2 24 1 0 6352 2
3860 24 1 0 3881 2 24 1 0 6372 2
PROCEDURE 268
3862 24 0 1 1278 2 19 1 2 0 0
3864 6 0 0 2060 2 2 0 0 1279 2 6 0 0 1278 2 26 0 0 4859 2
3868 26 0 0 5708 2 24 0 1 2 0 24 1 1 29 0 24 0 1 2 0
3872 0 1 0 30 0 24 0 1 2 0 6 0 0 26 0 2 0 0 3876 2
3876 0 0 0 0 0 24 0 1 2 0 24 1 0 28 0
PROCEDURE 269
3879 2 0 0 1279 2
3880 26 0 0 5708 2 6 0 1 40 0 18 0 0 4127 0 0 0 2 2096 2
3884 24 1 0 3869 2
PROCEDURE 270
3885 6 0 0 2026 2 2 0 1 45 0 26 0 0 5680 2
3888 6 0 0 3900 2 24 0 1 3 0 2 0 0 176 0 6 0 1 30 0
3892 1 1 2 175 0 27 0 0 3752 2 6 1 0 2174 2 2 1 0 3530 2
3896 26 0 0 5756 2 1 1 3 4 0 26 0 0 5661 2 24 1 0 4207 2
3900 26 0 0 5613 2
PROCEDURE 271
3901 0 0 0 0 0 24 0 1 3901 2 6 1 0 25 0
3904 2 1 0 2 0 0 0 2 2052 2 15 0 1 30 0 26 0 0 3910 2
3908 24 0 1 3901 2 24 1 0 1 0
PROCEDURE 272
3910 0 0 0 0 0 2 1 0 6 0
3912 0 0 2 2385 2 15 0 3 3352 2 2 0 0 321 2 1 0 1 1 0
3916 6 0 3 3353 2 1 1 2 49 0 27 0 0 3958 2 6 0 3 3353 2
3920 1 1 2 50 0 27 0 0 4212 2 1 1 2 1 0 27 0 0 4212 2
3924 6 0 1 31 0 1 1 2 54 0 24 0 3 2 0 27 0 0 12 0
3928 6 0 1 31 0 1 1 1 3801 2 1 1 2 6461 2 18 0 0 6 0
3932 27 0 0 4212 2 6 0 3 3353 2 1 1 2 58 0 27 0 0 4212 2
3936 6 0 1 31 0 1 1 2 57 0 27 0 0 4212 2 6 0 3 3353 2
3940 1 1 2 5 0 27 0 1 3945 2 6 0 1 33 0 1 1 2 1 0
3944 27 0 0 3958 2 6 0 3 3353 2 5 0 0 2060 2 27 0 0 3960 2
3948 6 0 3 3353 2 27 0 1 3951 2 24 0 2 11 0 24 0 1 321 2
3952 18 1 0 0 0 14 1 3 3354 2 6 0 0 201 2 2 0 0 3797 2
3956 6 0 0 313 2 2 0 0 200 2 6 0 0 2060 2 2 0 3 3353 2
3960 26 0 1 3910 2 0 0 0 0 0 24 1 0 3744 2 27 0 0 4140 2
3964 27 0 0 4281 2 1 1 3 4148 2 26 0 0 5719 2 27 0 1 4265 2
3968 27 0 2 4140 2 24 1 0 4203 2
PROCEDURE 273
3970 0 0 0 0 0 0 0 2 2052 2
3972 2 0 0 321 2 15 0 0 321 2 2 1 0 6 0 0 0 2 2385 2
3976 15 0 0 321 2 2 0 0 321 2 1 0 1 1 0 24 0 1 321 2
3980 18 1 0 0 0 15 1 3 3354 2 27 0 0 4029 2
PROCEDURE 274
3983 18 0 0 1 0
3984 14 1 3 3354 2 18 1 2 321 2 18 0 0 4120 0 3 0 0 338 2
3988 1 1 2 2 0 27 0 0 3995 2 1 1 2 9 0 27 0 0 3995 2
3992 6 0 0 1279 2 24 0 1 3 0 2 0 0 174 0 2 0 0 321 2
3996 24 0 1 321 2 4 1 0 3354 2 23 0 0 8 0 0 0 0 321 1
4000 24 1 0 3996 2 27 0 1 4012 2 1 1 3 128 0 2 0 0 2110 2
4004 24 0 1 2110 2 4 1 0 3354 2 23 0 0 8 0 0 0 0 2110 1
4008 24 1 0 4004 2 27 0 1 4012 2 6 0 0 312 2 2 0 0 3797 2
4012 24 0 1 338 2
PROCEDURE 275
4013 24 1 0 4013 2 24 1 0 4032 2 24 1 0 1253 2
4016 24 1 0 4203 2 24 1 0 4198 2 24 1 0 4110 2 24 1 0 4115 2
4020 24 1 0 4113 2 24 1 0 4108 2 24 1 0 4222 2 24 1 0 4298 2
4024 24 1 0 4203 2 24 1 0 4212 2
PROCEDURE 276
4026 6 0 0 2045 2 24 0 1 3 0
4028 2 0 0 160 0 6 1 0 1278 2 18 0 3 6 0 26 0 1 3970 2
PROCEDURE 277
4032 6 0 1 31 0 1 1 1 3801 2 1 1 2 6578 2 5 0 0 2034 2
4036 27 0 1 4444 2 26 0 0 5618 2 6 0 3 188 0 27 0 0 4052 2
4040 6 0 3 194 0 2 0 3 192 0 6 0 1 33 0 27 0 0 3746 2
4044 1 0 1 15 0 14 0 1 44 0 6 1 0 2188 2 2 1 0 3530 2
4048 26 0 0 5811 2 6 0 0 4483 2 2 0 3 176 0 24 1 0 4207 2
4052 1 1 3 0 0 0 0 2 2052 2 15 0 0 1278 2 1 1 2 48 0
4056 27 0 0 4077 2 24 0 3 3 0 24 0 2 190 0 24 0 3 1278 2
4060 2 0 0 64 0 6 1 0 3636 2 26 0 0 4100 2 27 0 1 4057 2
4064 1 1 3 10 0 2 0 3 192 0 1 1 3 31 0 18 0 0 8 0
4068 26 0 0 4100 2 27 0 1 4057 2 6 0 3 192 0 1 1 2 2 0
4072 27 0 1 4065 2 6 1 0 3636 2 26 0 0 4100 2 27 0 1 4073 2
4076 24 1 0 4089 2 6 1 0 3628 2 2 1 0 154 0 26 0 0 4100 2
4080 27 0 1 4077 2 6 1 0 2074 2 2 1 0 154 0 26 0 0 4100 2
4084 27 0 1 4077 2 6 1 0 3628 2 2 1 0 154 0 26 0 0 4100 2
4088 27 0 1 4085 2 6 1 0 2188 2 2 1 0 3530 2 24 0 2 4093 2
4092 24 1 0 4206 2 26 0 0 5618 2 6 0 3 194 0 2 0 3 192 0
4096 6 0 3 174 0 2 0 1 31 0 2 0 3 174 0 24 1 0 6508 2
PROCEDURE 278
4100 0 0 0 0 0 2 1 3 190 0 24 0 1 1278 2 19 0 0 0 0
4104 26 0 0 5728 2 26 0 0 5618 2 6 0 3 160 0 26 0 1 4100 2
PROCEDURE 279
4108 1 1 3 4146 2 24 1 0 4111 2 1 1 3 4142 2 24 0 1 3 0
4112 2 0 0 158 0 1 1 3 6 0 24 1 0 4116 2 1 1 3 5 0
4116 2 0 0 4184 2 24 0 1 3 0 6 0 0 174 0 1 1 2 7 0
4120 27 0 2 4132 2 6 0 1 33 0 27 0 0 4132 2 1 0 1 15 0
4124 14 0 1 44 0 6 1 0 2188 2 2 1 0 3530 2 26 0 0 5811 2
4128 6 0 0 3900 2 24 0 1 3 0 2 0 0 176 0 24 1 0 4207 2
4132 6 1 0 3528 2 2 1 0 3530 2 26 0 0 5818 2 26 0 0 5661 2
4136 24 0 2 897 0 2 0 1 41 0 1 1 3 3638 2 24 1 0 5589 2
4140 1 1 3 4142 2 24 1 0 4206 2
PROCEDURE 280
4142 26 0 0 5556 2 26 0 0 5728 2
4144 25 1 2 0 0 24 1 0 4147 2 6 0 0 2057 2 2 0 0 2058 2
4148 26 0 0 5626 2 2 1 3 2 0 26 0 0 5556 2 26 0 0 5728 2
4152 26 0 0 5626 2 26 0 0 5643 2 24 0 1 2058 2 6 1 3 0 0
4156 24 0 1 321 2 5 1 0 3356 2 27 0 1 4185 2 24 0 1 2058 2
4160 6 1 3 2 0 24 0 1 321 2 5 1 0 3358 2 27 0 1 4185 2
4164 6 0 0 1278 2 5 0 0 49 2 27 0 2 4172 2 26 0 0 6085 2
4168 24 1 0 4172 2 6 0 1 32 0 27 0 1 4185 2 26 0 0 6079 2
4172 26 0 0 5626 2 2 1 3 2 0 26 0 0 5556 2 24 0 1 3 0
4176 6 0 0 158 0 1 1 2 4142 2 27 0 0 4180 2 6 0 0 2050 2
4180 1 1 1 5 0 24 1 0 4441 2 6 0 0 4184 2 24 1 0 4441 2
4184 0 0 0 0 0
PROCEDURE 281
4185 26 0 0 5618 2 26 0 0 5643 2 24 0 1 321 2
4188 6 1 0 3356 2 2 1 0 3534 2 24 0 1 321 2 6 1 0 3358 2
4192 2 1 0 3536 2 6 1 0 2188 2 2 1 0 3530 2 6 0 3 158 0
4196 26 0 0 5818 2 24 1 0 5994 2
PROCEDURE 282
4198 6 0 1 33 0 5 0 1 30 0
4200 27 0 0 4203 2 6 0 1 33 0 27 0 1 4123 2 6 1 0 2188 2
4204 2 1 0 3530 2 1 1 3 4209 2 26 0 0 5818 2 24 0 2 3638 2
4208 24 1 0 5602 2
PROCEDURE 283
4209 26 0 0 5560 2 1 1 3 4 0 24 1 0 4441 2
PROCEDURE 284
4212 6 0 1 33 0 27 0 0 3746 2 1 0 1 15 0 14 0 1 44 0
4216 6 0 1 35 0 2 0 1 7 0 6 0 1 33 0 5 0 1 39 0
4220 27 0 0 3746 2 24 1 0 6432 2
PROCEDURE 285
4222 26 0 0 5258 2 27 0 1 4444 2
4224 24 1 0 4265 2 6 0 0 2100 2 26 0 0 5053 2 26 0 0 5631 2
4228 26 0 0 5556 2 26 0 0 5637 2 26 0 0 5728 2 24 0 1 3 0
4232 6 0 0 160 0 27 0 0 4249 2 26 0 0 5792 2 27 0 1 4225 2
4236 24 0 1 3 0 6 0 0 174 0 1 1 2 7 0 27 0 1 4243 2
4240 6 0 1 33 0 27 0 0 4243 2 27 0 2 4285 2 25 1 2 0 0
4244 24 0 1 3 0 2 0 0 175 0 1 1 3 6145 0 2 0 1 41 0
4248 24 1 0 4651 2 6 1 0 2188 2 2 1 0 3530 2 26 0 0 5811 2
4252 6 1 0 327 2 2 1 0 3536 2 1 1 3 4283 2 26 0 0 5834 2
4256 24 0 1 3 0 6 0 0 167 0 0 0 3 2045 2 7 1 0 3536 2
4260 0 0 3 2096 2 25 1 2 0 0 24 0 1 3 0 2 0 0 167 0
4264 24 1 0 7346 2 24 0 1 1278 2 6 0 0 1280 2 1 1 2 82 0
4268 27 0 3 4225 2 1 1 3 50 0 26 0 0 5053 2 26 0 0 5618 2
4272 1 1 3 48 0 2 0 3 177 0 26 0 0 5752 2 26 0 0 5728 2
4276 26 0 0 5618 2 6 0 3 177 0 5 0 0 2050 2 27 0 0 4227 2
4280 24 1 0 4273 2 24 0 1 3 0 2 0 0 167 0 1 1 3 7 0
4284 24 1 0 4441 2 1 1 3 7 0 2 0 1 31 0 24 0 1 3 0
4288 2 0 0 167 0 6 0 1 33 0 24 1 0 4123 2 27 0 0 4422 2
4292 27 0 0 4344 2 27 0 0 4630 2 27 0 1 4419 2 26 0 0 5719 2
4296 27 0 0 7062 2 24 1 0 4228 2
PROCEDURE 286
4298 26 0 0 5626 2 24 0 1 1278 2
4300 6 0 0 1280 2 1 1 2 7 0 27 0 1 4307 2 6 0 0 6 0
4304 18 0 0 4124 0 1 1 2 14 0 27 0 1 4444 2 6 1 3 0 0
4308 24 0 1 3 0 2 1 0 178 0 26 0 0 5564 2 1 1 3 3 0
4312 26 0 0 5053 2 26 0 0 5752 2 26 0 0 5728 2 24 0 1 3 0
4316 6 0 0 160 0 27 0 0 4320 2 1 1 3 2 0 24 1 0 4312 2
4320 26 0 0 5258 2 27 0 1 4365 2 26 0 0 5618 2 2 0 3 171 0
4324 2 0 3 186 0 26 0 0 5392 2 26 0 0 5626 2 6 1 0 2074 2
4328 2 1 3 0 0 24 0 3 3 0 6 1 0 178 0 1 0 1 15 0
4332 14 1 3 0 0 26 0 0 5626 2 24 0 1 3 0 6 1 0 179 0
4336 5 0 0 2385 2 27 0 0 4344 2 6 1 3 2 0 5 1 0 2066 2
4340 27 0 0 4343 2 24 0 2 1 0 7 1 3 3 0 26 0 0 5631 2
4344 26 0 0 5560 2 26 0 0 5637 2 26 0 0 5728 2 0 0 3 2045 2
4348 1 1 3 1 0 24 0 1 1278 2 7 0 0 1504 2 0 0 3 2096 2
4352 24 0 1 3 0 6 0 0 160 0 27 0 0 4391 2 1 1 3 1 0
4356 24 0 3 1278 2 7 0 0 1472 2 26 0 0 5792 2 27 0 1 4333 2
4360 6 0 0 2100 2 24 0 1 3 0 2 0 0 175 0 1 1 3 5121 0
4364 24 1 0 4247 2 26 0 0 5264 2 24 1 0 4378 2 26 0 0 5618 2
4368 1 1 3 4320 2 2 0 3 162 0 26 0 0 5443 2 26 0 0 5276 2
4372 24 1 0 4320 2 26 0 0 5345 2 24 1 0 4506 2 26 0 0 5331 2
4376 26 0 0 5371 2 24 1 0 4320 2 1 0 1 3 0 26 0 0 5618 2
4380 15 1 3 179 0 2 0 0 2396 2 26 0 0 5626 2 15 1 3 1 0
4384 5 0 0 2396 2 27 0 0 4325 2 1 1 3 3 0 26 0 0 5053 2
4388 26 0 0 5752 2 26 0 0 5728 2 24 1 0 4320 2
PROCEDURE 287
4391 6 1 0 2188 2
4392 2 1 0 3530 2 26 0 0 5661 2 26 0 0 5756 2 24 0 1 3 0
4396 6 1 0 179 0 2 0 0 3534 2 26 1 3 1278 2 1 1 3 1 0
4400 26 0 0 5569 2 27 0 0 4405 2 6 0 3 1472 2 1 1 2 11 0
4404 27 0 3 4419 2 0 0 3 2045 2 1 1 3 2116 2 12 0 3 1472 2
4408 2 1 0 3537 2 6 1 0 3536 2 1 1 2 64 0 0 0 3 2096 2
4412 24 0 3 3 0 2 0 0 167 0 2 0 3 1472 2 6 1 0 329 2
4416 2 1 0 3536 2 24 0 2 4419 2 24 1 0 4255 2 6 1 1 30 0
4420 2 1 0 1278 2 26 0 0 5800 2 24 0 1 3 0 2 0 0 167 0
4424 26 0 0 5626 2 24 0 1 3 0 6 1 0 178 0 2 1 3 0 0
4428 6 0 0 2050 2 26 0 0 5576 2 26 0 0 5728 2 26 1 2 1278 2
4432 0 0 2 2050 2 24 0 1 3 0 6 1 0 179 0 5 0 0 2385 2
4436 27 0 0 4438 2 26 0 0 5631 2 26 0 0 5560 2 26 0 0 5637 2
4440 6 0 0 2099 2 3 0 0 1279 2 26 0 0 5708 2 26 0 0 5800 2
PROCEDURE 288
4444 26 0 0 5618 2 6 0 3 174 0 27 0 1 4448 2 6 0 0 1279 2
4448 2 0 1 31 0 2 0 3 174 0 24 1 0 3784 2
PROCEDURE 289
4451 24 0 2 4 0
4452 24 1 0 4456 2 1 1 3 3 0 24 1 0 4456 2 6 0 0 2100 2
4456 26 0 0 5053 2 26 0 0 5618 2 6 0 3 171 0 1 1 2 4320 2
4460 27 0 0 4475 2 0 0 2 2050 2 26 1 2 1278 2 6 0 2 1280 2
4464 1 1 2 8 0 27 0 3 4467 2 26 0 0 5631 2 26 0 0 5556 2
4468 26 0 0 5637 2 6 0 3 164 0 27 0 1 4476 2 1 1 3 7 0
4472 2 0 0 1279 2 6 0 3 171 0 24 1 0 5722 2 26 0 0 5752 2
4476 25 1 2 0 0 24 1 0 4472 2
PROCEDURE 290
4478 25 1 2 0 0 26 0 0 5669 2
4480 24 1 0 5591 2
PROCEDURE 291
4481 24 0 2 4485 2 26 0 0 5818 2 26 0 0 5613 2
4484 24 1 0 8145 2 26 0 0 5618 2 6 0 3 164 0 27 0 1 4528 2
4488 6 0 3 187 0 27 0 0 4499 2 26 0 0 5422 2 24 1 0 4497 2
4492 6 0 0 2100 2 2 0 3 175 0 6 0 3 183 0 2 0 3 172 0
4496 24 1 0 4521 2 25 1 2 0 0 24 1 0 4493 2 26 0 0 5622 2
4500 24 0 1 3 0 6 0 0 175 0 27 0 1 4512 2 6 0 3 1280 2
4504 1 1 2 9 0 27 0 2 4515 2 26 0 0 5618 2 1 1 3 4510 2
4508 1 1 2 3801 2 24 1 0 4448 2 26 0 0 5618 2 24 1 0 5083 2
4512 6 0 3 1280 2 1 1 2 6 0 27 0 3 4506 2
PROCEDURE 292
4515 26 0 0 5618 2
4516 6 0 3 175 0 27 0 0 4521 2 24 0 1 1278 2 6 0 0 1280 2
4520 24 1 0 4526 2 24 0 1 1278 2 6 0 0 1280 2 0 0 3 2045 2
4524 5 0 0 2050 2 0 0 3 2096 2 3 0 3 170 0 2 0 3 164 0
4528 6 0 3 175 0 27 0 1 4541 2 6 0 3 170 0 1 1 2 8 0
4532 27 0 2 4539 2 24 0 1 1278 2 19 0 3 0 0 26 0 0 5728 2
4536 26 0 0 5752 2 26 0 0 5728 2 24 1 0 4555 2 26 0 0 6668 2
4540 24 1 0 4555 2 6 0 3 170 0 1 1 2 6 0 27 0 1 4549 2
4544 24 0 1 1278 2 6 0 0 64 0 18 0 0 4124 0 1 1 2 14 0
4548 27 0 0 7059 2 26 0 0 7039 2 6 0 3 170 0 1 1 2 7 0
4552 27 0 1 4555 2 1 1 3 2 0 26 0 0 5053 2 26 0 0 5618 2
4556 6 0 3 170 0 24 0 1 1278 2 3 0 0 1280 2 0 0 3 2045 2
4560 1 1 2 9 0 0 0 3 2096 2 27 0 0 4576 2 27 0 3 4576 2
4564 2 0 3 177 0 26 0 0 5631 2 26 0 0 5752 2 26 0 0 5637 2
4568 26 0 0 5728 2 26 0 0 5264 2 24 1 0 4565 2 26 0 0 5618 2
4572 6 0 3 177 0 0 0 3 2045 2 1 1 2 1 0 24 1 0 4561 2
4576 26 0 0 5258 2 27 0 0 4606 2 27 0 3 4596 2 26 0 0 5264 2
4580 24 1 0 4645 2 26 0 0 5752 2 26 0 0 5728 2 26 0 0 5258 2
4584 27 0 0 4606 2 27 0 3 4596 2 1 1 3 2 0 26 0 0 5053 2
4588 1 1 3 4576 2 24 0 1 3 0 2 0 0 162 0 26 0 0 5276 2
4592 24 1 0 4576 2 26 0 0 5331 2 26 0 0 5371 2 24 1 0 4576 2
PROCEDURE 293
4596 26 0 0 5618 2 2 0 3 185 0 6 0 3 170 0 1 1 2 8 0
4600 27 0 3 4602 2 26 0 0 5631 2 26 0 0 5752 2 26 0 0 5637 2
4604 26 0 0 5728 2 24 1 0 4576 2 26 0 0 5618 2 2 0 3 171 0
4608 2 0 3 186 0 6 0 3 187 0 27 0 0 4633 2 6 0 3 175 0
4612 27 0 0 4629 2 26 0 0 5752 2 6 0 0 2050 2 26 0 0 5576 2
4616 26 0 0 5618 2 2 0 3 173 0 2 0 3 164 0 6 0 3 175 0
4620 27 0 1 4626 2 6 0 3 170 0 1 1 2 8 0 27 0 3 4626 2
4624 6 0 3 181 0 27 0 0 6970 2 26 0 0 5728 2 24 0 1 3 0
4628 26 0 1 172 0 26 0 0 5631 2 26 0 0 5556 2 26 0 0 5637 2
4632 24 1 0 4614 2 26 0 0 5392 2 26 0 0 5618 2 2 0 3 167 0
4636 2 0 3 164 0 6 0 3 175 0 27 0 0 4642 2 26 0 0 5626 2
4640 2 1 3 2 0 24 1 0 4391 2 6 0 0 2050 2 26 0 0 5576 2
4644 24 1 0 4227 2 24 0 1 3 0 6 0 0 186 0 27 0 0 4596 2
4648 1 1 3 2 0 26 0 0 5053 2 24 1 0 4604 2
PROCEDURE 294
4651 26 0 0 5618 2
4652 6 0 3 164 0 27 0 1 5388 2 6 1 0 3528 2 2 1 0 3530 2
4656 2 0 3 187 0 2 0 3 167 0 26 0 0 5811 2 6 0 3 175 0
4660 27 0 0 4664 2 24 0 1 3 0 6 1 0 179 0 2 0 0 3534 2
4664 24 0 1 3 0 24 0 1 175 0 6 1 0 327 2 2 1 0 3536 2
4668 1 1 3 69 0 7 1 0 3536 2 1 1 3 3648 2 24 1 0 5589 2
PROCEDURE 295
4672 6 0 1 30 0 2 0 0 1278 2 6 0 1 39 0 5 0 0 281 2
4676 27 0 0 4759 2 24 0 1 3 0 6 0 0 11 0 27 0 0 4686 2
4680 26 0 0 151 2 6 0 0 298 2 24 0 1 2764 2 2 0 0 64 0
4684 24 0 1 2783 2 24 1 0 6 0 26 0 0 8136 2 2 0 0 236 2
4688 1 1 3 2 0 2 0 0 179 0 24 0 1 2 0 24 0 1 37 0
4692 2 0 0 16 0 6 0 1 39 0 2 0 0 2406 2 26 0 0 4822 2
4696 6 0 0 2428 2 27 0 0 4711 2 6 0 0 2432 2 5 0 0 2 0
4700 27 0 1 4711 2 27 0 1 4704 2 2 1 0 2432 2 24 1 0 4708 2
4704 6 0 0 2434 2 5 0 0 2 0 27 0 1 4711 2 2 1 0 2434 2
4708 6 0 0 2428 2 1 1 2 2 0 2 0 0 2428 2 6 0 1 3 0
4712 27 0 2 4733 2 6 0 0 2036 2 2 0 1 2 0 6 0 1 0 0
4716 1 1 1 8191 0 1 1 1 1 0 2 0 1 26 0 6 0 0 2040 2
4720 4 0 0 2 0 2 0 1 3 0 6 0 0 2041 2 2 0 1 6 0
4724 6 0 0 2042 2 5 0 0 2 0 2 0 1 28 0 6 0 1 4 0
4728 27 0 2 4733 2 6 0 1 6 0 2 0 1 4 0 6 0 1 28 0
4732 2 0 1 27 0 6 0 1 9 0 2 0 1 7 0 24 0 1 236 2
4736 24 0 2 2200 2 2 0 0 322 2 24 0 1 236 2 24 1 0 4740 2
4740 6 0 1 9 0 2 0 1 35 0 26 0 0 1031 2 24 0 2 1000 2
4744 5 0 3 972 2 27 0 1 4747 2 2 0 0 971 2 2 0 3 972 2
4748 2 0 3 972 2 24 1 0 180 2 24 1 0 2003 2 27 0 3 4926 2
4752 27 0 3 4933 2 27 0 2 4926 2 27 0 0 4790 2 24 1 0 1924 2
4756 24 1 1 216 2 26 0 0 5719 2 27 0 2 4933 2
PROCEDURE 296
4759 24 0 1 3 0
4760 2 0 0 164 0 24 0 1 4763 2 24 1 0 4764 2 0 0 0 0 0
4764 24 1 0 4782 2 24 1 0 4772 2 24 1 0 4803 2 24 1 0 4801 2
4768 24 1 0 4807 2 24 1 0 4809 2 24 1 0 2003 2 24 1 0 4677 2
4772 6 1 0 2376 2 28 0 0 26 0 23 1 0 26 0 23 1 0 30 0
4776 23 1 0 28 0 6 0 0 2745 2 27 0 0 4784 2 25 1 2 0 0
4780 26 0 0 224 2 24 1 0 362 2 1 1 3 86 0 24 1 1 572 2
4784 6 0 0 2764 2 26 0 0 3329 2 24 1 0 4788 2 24 1 0 4798 2
4788 1 1 3 0 0 24 0 1 2522 2 2 1 0 2474 2 6 0 0 2402 2
4792 26 0 0 224 2 24 1 0 4799 2 24 0 1 4 0 24 0 1 2669 2
4796 26 1 1 36 0 24 1 0 4687 2 1 1 3 2 0 1 1 1 98 0
4800 24 1 0 2004 2
PROCEDURE 297
4801 6 1 0 2376 2 28 0 0 26 0 6 0 0 2031 2
4804 2 0 0 258 2 26 1 1 2400 2 24 1 0 4687 2 24 0 2 2220 2
4808 24 1 1 87 2 6 0 0 2462 2 24 0 1 2464 2 2 0 0 64 0
4812 6 0 0 2463 2 27 0 0 4816 2 1 1 3 84 0 24 1 1 719 2
4816 6 0 0 729 2 1 1 2 1686 2 27 0 3 4821 2 24 0 2 4782 2
4820 2 0 0 729 2 26 0 1 8035 2
PROCEDURE 298
4822 0 0 0 0 0 26 0 0 5745 2
4824 6 1 3 34 0 27 0 3 4856 2 18 1 0 4118 0 18 1 0 1 0
4828 27 0 0 4838 2 2 0 0 2396 2 18 1 0 2 0 25 1 2 0 0
4832 18 1 0 2 0 2 0 0 2397 2 6 0 0 2396 2 24 0 1 2397 2
4836 2 0 0 64 0 24 1 0 4827 2 18 1 0 4 0 25 1 2 0 0
4840 27 1 1 4827 2 5 1 3 34 0 2 1 3 34 0 1 0 1 3 0
4844 25 1 2 0 0 15 0 3 34 0 26 0 0 4859 2 25 1 2 0 0
4848 1 0 1 3 0 15 0 3 34 0 24 0 1 3558 2 5 0 0 3352 2
4852 27 0 1 4856 2 6 0 0 2060 2 24 0 1 3558 2 2 0 0 3353 2
4856 25 0 3 2 0 24 1 0 4824 2 26 0 1 4822 2
PROCEDURE 299
4859 0 0 0 0 0
4860 18 1 0 4127 0 18 1 3 1 0 18 0 3 3 0 2 0 0 3558 2
4864 18 1 3 3 0 2 0 0 3559 2 1 0 1 1 0 24 0 1 3559 2
4868 18 1 0 0 0 24 0 1 3558 2 14 1 0 3354 2 26 0 1 4859 2
PROCEDURE 300
4872 0 0 0 0 0 24 0 1 4872 2 26 1 1 24 0 6 0 1 31 0
4876 1 1 2 54 0 24 0 3 2 0 27 0 0 9 0 6 0 1 31 0
4880 1 1 2 6 0 27 0 0 6226 2 1 1 2 10 0 24 0 1 2 0
4884 27 0 0 18 0 6 1 1 30 0 2 1 0 1278 2 6 0 0 1279 2
4888 1 1 1 3801 2 1 1 2 6461 2 18 0 0 6 0 27 0 1 4908 2
4892 24 1 0 4922 2 6 0 0 1279 2 1 1 2 57 0 27 0 1 4908 2
4896 6 0 0 1279 2 1 1 2 50 0 27 0 0 4922 2 6 0 0 1279 2
4900 1 1 1 3801 2 1 1 2 6430 2 18 0 0 6 0 27 0 1 4908 2
4904 6 0 1 33 0 27 0 0 3746 2 4 0 0 2050 2 24 1 0 4214 2
4908 6 0 0 1278 2 1 1 2 128 0 27 0 3 4923 2 1 1 2 24 0
4912 27 0 2 4923 2 6 0 0 1279 2 1 1 2 8 0 27 0 0 5026 2
4916 1 1 2 40 0 27 0 0 4922 2 25 1 2 0 0 1 0 1 16 0
4920 24 0 1 1278 2 14 0 0 1312 2 26 0 1 4872 2
PROCEDURE 301
4923 25 1 2 0 0
4924 1 0 1 1 0 15 0 0 1279 2 6 0 0 1279 2 5 0 0 2050 2
4928 27 0 1 4933 2 5 0 0 2044 2 24 0 1 3 0 2 0 0 157 0
4932 26 0 1 4872 2
PROCEDURE 302
4933 6 0 0 1279 2 1 1 2 4 0 27 0 0 4951 2
4936 1 1 2 10 0 27 0 0 5023 2 1 1 2 10 0 27 0 0 4951 2
4940 1 1 1 5 0 27 0 0 4951 2 1 1 1 10 0 27 0 0 5023 2
4944 1 1 1 10 0 27 0 0 4951 2 6 0 0 1279 2 1 1 1 3801 2
4948 1 1 2 6365 2 5 0 0 2034 2 27 0 1 4922 2 6 0 0 1279 2
4952 24 0 1 3 0 2 0 0 157 0 24 0 1 3 0 2 0 0 156 0
4956 24 0 2 4993 2 26 0 0 5818 2 26 0 0 5626 2 24 0 1 3 0
4960 6 0 0 157 0 1 1 2 4 0 27 0 0 4989 2 1 1 2 20 0
4964 27 0 0 4989 2 25 0 3 2 0 24 0 1 6 0 23 0 3 0 0
4968 1 1 2 15 0 27 0 0 3745 2 24 0 1 6 0 0 1 2 0 0
4972 18 1 3 2 0 25 1 2 0 0 27 1 0 4965 2 18 1 3 6 0
4976 1 1 2 62 0 27 0 0 4989 2 1 1 1 32 0 27 0 1 4972 2
4980 25 0 3 2 0 0 0 2 2395 2 15 0 3 0 0 27 0 0 4965 2
4984 24 0 1 1278 2 6 0 0 64 0 24 0 1 3 0 2 0 0 156 0
4988 6 1 0 2192 2 2 1 0 3534 2 6 1 0 2190 2 2 1 0 3530 2
4992 24 1 0 5993 2
PROCEDURE 303
4993 26 0 0 5618 2 6 0 3 156 0 27 0 0 5018 2
4996 6 1 0 3542 2 24 0 1 3 0 28 1 1 128 0 6 1 0 2190 2
5000 2 1 3 132 0 6 1 0 2192 2 3 1 3 136 0 3 1 3 144 0
5004 2 1 3 152 0 6 1 0 2156 2 2 1 3 154 0 6 0 0 2056 2
5008 4 0 0 3 0 24 0 1 1278 2 2 0 0 64 0 26 0 0 5560 2
5012 26 0 0 5728 2 26 0 0 5618 2 6 0 3 156 0 24 0 1 1278 2
5016 2 0 0 64 0 2 0 3 156 0 26 0 0 5560 2 1 1 3 4 0
5020 2 0 0 1279 2 6 0 3 157 0 24 1 0 5724 2
PROCEDURE 304
5023 24 0 2 3820 2
5024 26 0 0 5818 2 24 1 0 4989 2
PROCEDURE 305
5026 26 0 0 5622 2 1 0 1 16 0
5028 15 0 3 1312 2 27 0 1 5037 2 6 0 0 2048 2 14 0 3 1312 2
5032 6 0 1 33 0 27 0 0 7283 2 1 0 1 15 0 14 0 1 44 0
5036 24 1 0 7283 2 5 0 0 2048 2 27 0 1 5042 2 5 0 0 2034 2
5040 7 0 3 1312 2 24 1 0 7283 2 26 0 0 5716 2 26 0 0 7369 2
5044 26 0 0 5183 2 26 0 0 5582 2 26 0 0 5760 2 26 0 0 7842 2
5048 26 0 0 5451 2 26 0 0 7039 2 26 0 0 5719 2 26 0 0 6325 2
5052 2 0 3 185 0
PROCEDURE 306
5053 0 0 0 0 0 24 0 1 3 0 2 0 0 177 0
5056 6 0 0 5053 2 24 0 1 3 0 2 0 0 161 0 26 0 0 5760 2
5060 24 0 1 1278 2 19 1 0 0 0 26 0 0 5728 2 26 0 0 5618 2
5064 6 0 3 177 0 5 0 0 2050 2 3 0 3 177 0 27 0 1 5060 2
5068 26 0 0 5760 2 26 0 0 5752 2 26 0 0 5728 2 24 0 1 3 0
5072 26 0 1 161 0
PROCEDURE 307
5073 0 0 0 0 0 26 0 0 5618 2 6 0 3 164 0
5076 27 0 1 5081 2 24 0 1 1278 2 2 0 0 1504 2 24 0 1 1278 2
5080 2 0 0 1528 2 6 0 0 5073 2 2 0 3 165 0 25 1 2 0 0
5084 2 0 3 157 0 2 0 3 158 0 26 0 0 5622 2 0 0 2 2048 2
5088 15 0 3 1376 2 27 0 0 5093 2 25 1 2 0 0 14 0 3 1376 2
5092 26 0 0 5760 2 24 0 1 1278 2 19 0 3 0 0 26 0 0 5637 2
5096 26 0 0 5719 2 26 0 0 5752 2 26 0 0 5719 2 1 1 3 5 0
5100 24 0 1 1278 2 2 0 0 1280 2 26 0 0 5111 2 26 0 0 5626 2
5104 6 1 3 7 0 24 0 1 1278 2 3 0 0 1552 2 24 0 1 3 0
5108 2 0 0 182 0 24 0 1 3 0 26 0 1 165 0
PROCEDURE 308
5111 0 0 0 0 0
5112 6 0 0 2050 2 26 0 0 5576 2 26 0 0 5618 2 6 0 0 5111 2
5116 2 0 3 166 0 26 0 0 5556 2 26 0 0 5637 2 6 0 3 164 0
5120 27 0 1 5147 2 1 1 3 7 0 2 0 0 1279 2 26 0 0 5716 2
5124 26 0 0 5258 2 27 0 1 5134 2 26 0 0 5618 2 2 0 3 171 0
5128 2 0 3 186 0 6 0 3 187 0 27 0 1 5132 2 26 0 0 5392 2
5132 24 0 1 3 0 26 0 1 166 0 26 0 0 5264 2 24 1 0 5149 2
5136 1 1 3 5124 2 24 0 1 3 0 2 0 0 162 0 26 0 0 5443 2
5140 26 0 0 5276 2 24 1 0 5124 2 26 0 0 5345 2 24 1 0 4506 2
5144 26 0 0 5331 2 26 0 0 5371 2 24 1 0 5124 2 26 0 0 5728 2
5148 24 1 0 5124 2 26 0 0 5618 2 6 0 3 186 0 27 0 0 5117 2
5152 1 1 3 3 0 26 0 0 5053 2 26 0 0 5556 2 24 1 0 5147 2
PROCEDURE 309
5156 0 0 0 0 0 26 0 0 5626 2 6 0 0 2050 2 26 0 0 5576 2
5160 24 0 1 1278 2 6 0 0 1280 2 2 1 3 1 0 6 1 0 2066 2
5164 2 1 3 2 0 6 1 0 3554 2 2 1 3 4 0 6 1 0 2156 2
5168 2 1 3 6 0 26 0 0 5631 2 26 0 0 5560 2 26 0 0 5637 2
5172 6 0 0 5156 2 24 0 1 3 0 2 0 0 197 0 6 0 0 2099 2
5176 2 0 0 1279 2 26 0 0 5716 2 26 0 0 5626 2 6 1 0 2064 2
5180 4 0 0 2100 2 24 0 1 3 0 26 0 1 197 0
PROCEDURE 310
5183 0 0 0 0 0
5184 2 1 3 0 0 6 0 0 2050 2 26 0 0 5576 2 24 0 1 1278 2
5188 6 0 0 1280 2 2 1 3 5 0 26 0 0 5631 2 26 0 0 5560 2
5192 26 0 0 5637 2 6 0 0 5183 2 24 0 1 3 0 2 0 0 197 0
5196 6 0 0 2099 2 2 0 0 1279 2 26 0 0 5716 2 26 0 0 5626 2
5200 6 1 0 3556 2 3 1 3 0 0 2 1 3 2 0 26 0 0 5631 2
5204 26 0 0 5560 2 26 0 0 5637 2 26 0 0 5719 2 25 1 2 0 0
5208 26 0 0 5564 2 24 0 1 3 0 26 0 1 197 0
PROCEDURE 311
5211 0 0 0 0 0
5212 26 0 0 5622 2 6 0 3 1376 2 18 0 0 2 0 1 1 1 113 0
5216 18 0 0 4 0 2 1 0 3538 2 1 0 1 3 0 15 0 3 1312 2
5220 18 1 0 4127 0 18 0 0 1 0 18 1 0 1 0 26 0 1 5211 2
PROCEDURE 312
5224 0 0 0 0 0 1 1 3 4 0 26 0 0 5811 2 6 0 0 3533 2
5228 2 0 0 3534 2 6 1 0 2194 2 2 1 0 3530 2 6 0 0 5224 2
5232 1 1 2 3744 2 2 0 0 3533 2 3 0 0 3533 2 1 1 2 9 0
5236 27 0 1 5238 2 2 0 0 3534 2 25 1 2 0 0 2 0 0 1279 2
5240 26 0 0 5708 2 6 0 0 7417 2 24 0 1 3 0 2 0 0 176 0
5244 24 1 0 7345 2
PROCEDURE 313
5245 6 0 3 162 0 2 0 3 171 0 26 0 0 5626 2
5248 6 1 3 1 0 2 0 0 3536 2 6 1 0 319 2 2 1 0 3530 2
5252 26 0 0 5811 2 24 0 2 4217 0 2 0 1 41 0 2 1 0 3538 2
5256 1 1 3 3692 2 24 1 0 5589 2
PROCEDURE 314
5258 0 0 0 0 0 26 0 0 5626 2
5260 6 1 3 1 0 24 0 1 1278 2 5 0 0 1280 2 26 0 1 5258 2
PROCEDURE 315
5264 0 0 0 0 0 26 0 0 5626 2 6 1 3 0 0 18 1 0 4118 0
5268 18 1 0 2 0 1 1 2 95 0 27 0 1 5272 2 26 0 1 5264 2
5272 25 1 2 0 0 27 1 1 5268 2 24 0 1 5264 2 24 1 0 1 0
PROCEDURE 316
5276 0 0 0 0 0 6 0 0 5276 2 24 0 1 3 0 2 0 0 183 0
5280 26 0 0 5626 2 24 0 1 3 0 6 0 0 185 0 27 0 1 5287 2
5284 6 1 3 1 0 24 0 1 3 0 2 0 0 184 0 24 0 1 1278 2
5288 6 0 0 1280 2 0 0 3 2045 2 5 1 3 1 0 27 0 0 5325 2
5292 27 0 3 5310 2 1 1 2 8 0 27 0 2 5328 2 1 1 1 7 0
5296 0 0 3 2096 2 27 0 0 5306 2 24 0 1 3 0 2 0 0 177 0
5300 26 0 0 5752 2 26 0 0 5728 2 24 0 1 3 0 6 0 0 177 0
5304 5 0 0 2050 2 27 0 1 5298 2 26 0 0 5422 2 24 1 0 5322 2
5308 26 0 0 5752 2 24 1 0 5323 2 6 1 3 1 0 24 0 1 1278 2
5312 5 0 0 1280 2 1 1 2 8 0 27 0 2 5328 2 1 1 1 10 0
5316 0 0 3 2096 2 27 0 3 5328 2 24 0 1 3 0 3 0 0 186 0
5320 26 0 0 5053 2 24 1 0 5306 2 26 0 0 5556 2 26 0 0 5728 2
5324 26 0 0 5371 2 0 0 3 2096 2 24 0 1 3 0 26 0 1 183 0
5328 0 0 3 2096 2 24 0 1 5276 2 24 1 0 1 0
PROCEDURE 317
5331 0 0 0 0 0
5332 6 0 0 5331 2 24 0 1 3 0 2 0 0 173 0 6 0 0 2100 2
5336 26 0 0 5053 2 26 0 0 5422 2 24 1 0 5343 2 26 0 0 5752 2
5340 26 0 0 5728 2 24 0 1 3 0 26 0 1 173 0 26 0 0 5556 2
5344 24 1 0 5340 2
PROCEDURE 318
5345 0 0 0 0 0 6 0 0 5345 2 24 0 1 3 0
5348 2 0 0 173 0 24 0 1 1278 2 6 0 0 1280 2 1 1 2 6 0
5352 27 0 1 5369 2 26 0 0 5371 2 6 0 3 185 0 5 0 0 2100 2
5356 27 0 1 5360 2 26 0 0 5556 2 26 0 0 5728 2 24 1 0 5322 2
5360 26 0 0 5760 2 26 0 0 5728 2 24 0 1 1278 2 19 1 1 0 0
5364 6 0 0 2048 2 24 0 1 1278 2 7 0 0 1376 2 24 0 1 3 0
5368 26 0 1 173 0 24 0 1 5345 2 24 1 0 1 0
PROCEDURE 319
5371 0 0 0 0 0
5372 26 0 0 5618 2 6 0 3 185 0 4 0 0 2050 2 3 0 3 185 0
5376 1 1 2 6 0 27 0 0 5379 2 26 0 1 5371 2 26 0 0 5383 2
5380 6 0 0 2050 2 2 0 3 187 0 24 1 0 5245 2
PROCEDURE 320
5383 0 0 0 0 0
5384 2 0 3 185 0 6 0 3 164 0 27 0 1 5388 2 26 0 1 5383 2
5388 6 1 0 2236 2 2 1 0 3530 2 1 1 3 4485 2 24 1 0 4206 2
PROCEDURE 321
5392 0 0 0 0 0 1 1 3 2 0 26 0 0 5569 2 27 0 1 5418 2
5396 6 0 0 5392 2 24 0 1 3 0 2 0 0 173 0 24 0 1 3 0
5400 6 0 0 185 0 27 0 0 5414 2 6 1 0 2228 2 2 1 0 3530 2
5404 26 0 0 5811 2 2 1 0 3538 2 24 0 1 3 0 6 0 0 184 0
5408 2 0 0 3536 2 24 0 1 3 0 2 0 0 185 0 24 0 2 5413 2
5412 24 1 0 7163 2 26 0 0 5800 2 6 1 1 30 0 2 1 0 1278 2
5416 24 0 1 3 0 26 0 1 173 0 25 1 2 0 0 24 0 1 3 0
5420 2 0 0 185 0 26 0 1 5392 2
PROCEDURE 322
5422 0 0 0 0 0 26 0 0 5618 2
5424 6 0 3 162 0 1 1 2 4320 2 27 0 0 5441 2 1 1 1 4320 2
5428 1 1 2 4576 2 27 0 1 5433 2 6 0 3 175 0 27 0 1 5441 2
5432 26 0 1 5422 2 6 0 3 162 0 1 1 2 7679 2 27 0 0 5439 2
5436 1 1 1 7679 2 1 1 2 7597 2 27 0 1 5432 2 6 0 3 181 0
5440 27 0 1 5432 2 24 0 1 5422 2 24 1 0 1 0
PROCEDURE 323
5443 0 0 0 0 0
5444 24 0 1 3 0 6 0 0 171 0 27 0 0 5450 2 26 0 0 5618 2
5448 26 0 0 5383 2 24 1 0 5245 2 26 0 1 5443 2
PROCEDURE 324
5451 0 0 0 0 0
5452 6 0 0 5451 2 26 0 0 5818 2 26 0 0 5483 2 6 1 0 2254 2
5456 2 1 0 3530 2 1 1 3 4 0 26 0 0 5661 2 26 0 0 5211 2
5460 2 0 0 3534 2 24 1 0 7345 2
PROCEDURE 325
5462 0 0 0 0 0 26 0 0 5495 2
5464 24 1 0 5466 2 26 0 1 5462 2 26 1 3 2106 2 24 0 1 2397 2
5468 6 0 3 3400 2 24 0 1 1278 2 2 0 3 3400 2 24 0 1 2397 2
5472 6 0 0 3404 2 24 0 1 1278 2 2 0 0 3404 2 24 0 1 2397 2
5476 6 0 0 3416 2 24 0 1 1278 2 2 0 0 3416 2 26 0 1 5462 2
5480 25 0 3 4 0 24 1 0 5467 2 26 0 1 5462 2
PROCEDURE 326
5483 0 0 0 0 0
5484 26 0 0 5495 2 24 1 0 5487 2 26 0 1 5483 2 26 1 3 306 2
5488 24 0 1 2397 2 6 0 3 1280 2 24 0 1 1278 2 2 0 3 1280 2
5492 25 0 3 32 0 24 1 0 5488 2 26 0 1 5483 2
PROCEDURE 327
5495 0 0 0 0 0
5496 6 0 1 39 0 5 0 0 2668 2 27 0 0 5526 2 26 0 0 5738 2
5500 27 0 0 5505 2 25 0 3 2 0 24 1 0 5740 2 1 1 3 87 0
5504 24 1 0 2004 2 1 0 1 12 0 15 0 3 34 0 5 0 0 2047 2
5508 27 0 0 5526 2 6 0 3 34 0 18 0 0 5 0 4 0 3 35 0
5512 2 1 3 34 0 1 0 1 3 0 15 0 3 34 0 26 0 0 5528 2
5516 24 0 1 1278 2 6 0 0 64 0 24 0 1 2396 2 2 0 0 64 0
5520 6 0 0 1278 2 2 0 0 2397 2 6 0 0 2396 2 3 0 1 30 0
5524 2 0 0 1278 2 26 0 1 5495 2 24 0 1 5495 2 24 1 0 1 0
PROCEDURE 328
5528 0 0 0 0 0 2 0 0 2396 2 6 0 0 6 0 5 0 0 3 0
5532 18 1 0 4119 0 13 0 0 2100 2 2 1 0 6 0 6 0 0 3 0
5536 3 0 0 4 0 5 0 0 2100 2 2 0 0 5 0 6 0 2 4 0
5540 4 0 2 4 0 7 0 0 5 0 4 0 0 2050 2 4 0 2 20 0
5544 7 0 0 6 0 6 0 3 0 0 5 0 0 1278 2 27 0 0 5550 2
5548 1 1 3 86 0 24 1 0 2004 2 6 0 0 2396 2 2 0 3 0 0
5552 5 0 2 20 0 25 0 2 2 0 24 1 0 5543 2 26 0 1 5528 2
PROCEDURE 329
5556 0 0 0 0 0 24 0 1 1278 2 19 0 1 0 0 26 0 1 5556 2
PROCEDURE 330
5560 0 0 0 0 0 24 0 1 1278 2 19 0 0 0 0 26 0 1 5560 2
PROCEDURE 331
5564 0 0 0 0 0 0 0 3 2045 2 1 1 2 1 0 26 0 0 5576 2
5568 26 0 1 5564 2
PROCEDURE 332
5569 0 0 0 0 0 2 0 0 2396 2 0 0 2 2050 2
5572 24 0 1 2396 2 18 1 3 0 0 15 0 0 908 2 26 0 1 5569 2
PROCEDURE 333
5576 0 0 0 0 0 0 0 3 2045 2 24 0 1 1278 2 7 0 0 1280 2
5580 0 0 3 2096 2 26 0 1 5576 2
PROCEDURE 334
5582 0 0 0 0 0 6 0 0 2050 2
5584 0 0 3 2045 2 24 0 1 1278 2 7 0 0 1312 2 0 0 3 2096 2
5588 26 0 1 5582 2
PROCEDURE 335
5589 24 0 1 3 0 28 1 2 130 0 26 0 0 990 2
5592 6 1 0 3540 2 4 0 0 3 0 28 1 1 106 2 1 1 3 3728 2
5596 2 0 1 43 0 6 0 0 2 0 2 0 0 2448 2 6 0 0 2048 2
5600 2 0 1 38 0 24 1 0 1045 2
PROCEDURE 336
5602 24 0 1 3 0 28 1 2 130 0
5604 26 0 0 1012 2 6 1 0 3540 2 4 0 0 3 0 28 1 1 106 2
5608 24 0 1 3 0 6 0 0 176 0 2 0 0 5611 2 0 0 0 0 0
5612 24 1 0 1045 2
PROCEDURE 337
PROCEDURE 338
5613 0 0 0 0 0 6 0 0 2026 2 5 0 1 30 0
5616 2 0 1 7 0 26 0 1 5613 2
PROCEDURE 339
5618 0 0 0 0 0 6 0 0 3 0
5620 2 1 0 6 0 26 0 1 5618 2
PROCEDURE 340
5622 0 0 0 0 0 6 0 0 1278 2
5624 2 1 0 6 0 26 0 1 5622 2
PROCEDURE 341
5626 0 0 0 0 0 24 0 1 1278 2
5628 6 0 0 64 0 2 1 0 6 0 26 0 1 5626 2
PROCEDURE 342
5631 0 0 0 0 0
5632 26 1 2 1278 2 0 0 2 2050 2 6 0 2 1440 2 14 0 2 64 0
5636 26 0 1 5631 2
PROCEDURE 343
5637 0 0 0 0 0 25 1 2 0 0 0 0 2 2050 2
5640 24 0 1 1278 2 14 0 0 64 0 26 0 1 5637 2
PROCEDURE 344
5643 0 0 0 0 0
5644 25 1 2 0 0 0 0 2 2385 2 15 0 0 1278 2 2 0 0 321 2
5648 6 0 0 1278 2 18 0 3 1 0 18 0 0 4127 0 1 1 2 3 0
5652 27 0 0 5657 2 6 0 0 321 2 18 0 3 2 0 1 1 1 88 0
5656 24 1 0 5659 2 6 0 0 321 2 18 0 3 3 0 2 0 0 321 2
5660 26 0 1 5643 2
PROCEDURE 345
5661 0 0 0 0 0 26 0 0 5669 2 0 0 3 2054 2
5664 1 1 3 2142 2 12 0 1 30 0 0 0 3 2096 2 2 0 0 3533 2
5668 26 0 1 5661 2
PROCEDURE 346
5669 0 0 0 0 0 1 1 1 2358 2 24 0 1 3 0
5672 28 1 2 128 0 26 0 1 5669 2 3 0 0 0 0 26 1 3 2096 2
5676 26 0 0 6325 2 26 0 0 5719 2 25 1 2 0 0 27 0 0 5960 2
PROCEDURE 347
5680 0 0 0 0 0 0 0 3 2051 2 6 0 0 5680 2 1 1 2 3888 2
5684 27 0 1 5687 2 6 0 1 45 0 27 0 0 5692 2 6 0 0 156 0
5688 4 0 0 2105 2 2 0 1 45 0 0 0 3 2096 2 26 0 1 5680 2
5692 6 0 0 156 0 1 1 1 2 0 2 0 1 45 0 0 0 3 2096 2
5696 24 1 0 751 2 6 0 0 156 0 4 0 0 5701 2 2 0 1 45 0
5700 26 0 1 5680 2 0 0 1 3808 0
PROCEDURE 348
5702 0 0 0 0 0 25 1 2 0 0
5704 2 0 0 1279 2 24 0 1 3 0 2 0 0 160 0 26 0 1 5702 2
PROCEDURE 349
5708 0 0 0 0 0 25 1 2 0 0 0 0 2 2052 2 15 0 0 1278 2
5712 2 0 0 6 0 6 1 0 1278 2 2 1 3 3352 2 26 0 1 5708 2
PROCEDURE 350
5716 0 0 0 0 0 6 0 0 5716 2 24 1 0 5722 2
PROCEDURE 351
5719 0 0 0 0 0
5720 26 0 0 5702 2 6 0 0 5719 2 1 1 2 3801 2 4 0 0 2034 2
5724 2 0 1 31 0 26 0 0 5708 2 2 0 1 45 0 24 1 0 3784 2
PROCEDURE 352
5728 0 0 0 0 0 26 0 0 5702 2 6 0 0 5728 2 1 1 2 3801 2
5732 4 0 0 2034 2 2 0 1 31 0 26 0 0 5708 2 2 0 1 45 0
5736 26 0 0 5613 2 24 1 0 3789 2
PROCEDURE 353
5738 0 0 0 0 0 26 0 0 5745 2
5740 25 1 2 0 0 1 0 1 3 0 15 0 3 34 0 5 0 0 1278 2
5744 26 0 1 5738 2
PROCEDURE 354
5745 0 0 0 0 0 6 0 0 3 0 3 0 0 6 0
5748 4 0 3 5 0 4 0 3 5 0 2 0 0 7 0 26 0 1 5745 2
PROCEDURE 355
5752 0 0 0 0 0 24 0 1 1278 2 19 1 3 0 0 26 0 1 5752 2
PROCEDURE 356
5756 0 0 0 0 0 6 0 1 39 0 2 0 0 3532 2 26 0 1 5756 2
PROCEDURE 357
5760 0 0 0 0 0 6 0 0 392 2 27 0 1 5786 2 27 0 1 5787 2
5764 26 0 0 5618 2 6 0 0 5760 2 2 0 3 190 0 6 0 0 157 0
5768 2 0 3 191 0 24 0 2 5771 2 24 1 0 8143 2 0 0 3 2045 2
5772 6 0 0 157 0 24 0 1 3 0 5 0 0 191 0 27 0 2 5777 2
5776 4 0 0 2034 2 1 1 2 384 0 0 0 3 2096 2 27 0 3 5769 2
5780 26 0 0 5800 2 6 1 1 30 0 2 1 0 1278 2 26 0 0 5719 2
5784 24 0 1 3 0 26 0 1 190 0 6 0 0 5791 2 1 1 3 2143 0
5788 1 1 2 1 0 27 0 1 5788 2 26 0 1 5760 2 0 0 3 6192 0
PROCEDURE 358
5792 0 0 0 0 0 24 0 1 3 0 6 0 0 167 0 4 0 0 2050 2
5796 24 0 1 3 0 3 0 0 167 0 1 1 2 6 0 26 0 1 5792 2
PROCEDURE 359
5800 0 0 0 0 0 24 0 2 3885 2 2 0 1 42 0 6 0 1 35 0
5804 2 0 1 7 0 26 0 1 5800 2
PROCEDURE 360
5806 0 0 0 0 0 6 0 1 35 0
5808 4 0 0 2100 2 2 0 1 7 0 26 0 1 5806 2
PROCEDURE 361
5811 0 0 0 0 0
5812 26 0 0 5661 2 26 0 0 5756 2 24 0 1 1278 2 6 0 0 1280 2
5816 2 0 0 3534 2 26 0 1 5811 2
PROCEDURE 362
5818 0 0 0 0 0 1 1 2 3801 2
5820 2 0 1 31 0 6 0 0 2061 2 2 0 0 1279 2 26 0 0 5708 2
5824 24 0 1 1278 2 19 1 2 0 0 26 0 0 5680 2 6 0 0 3900 2
5828 24 0 1 3 0 2 0 0 176 0 1 1 3 4 0 26 0 0 5661 2
5832 26 0 0 5756 2 26 0 1 5818 2
PROCEDURE 363
5834 0 0 0 0 0 2 0 1 42 0
5836 6 0 0 1009 2 24 0 1 3 0 2 0 0 176 0 26 0 1 5834 2
PROCEDURE 364
5840 6 0 0 2050 2 24 0 1 1278 2 2 0 0 3416 2 26 0 0 5931 2
5844 26 0 0 5962 2 27 0 1 5988 2 26 0 0 5977 2 27 0 1 5988 2
5848 6 1 3 3 0 24 0 1 1278 2 2 0 0 3400 2 6 0 3 5 0
5852 24 0 1 1278 2 2 0 0 3404 2 1 0 1 3 0 15 1 3 5 0
5856 24 0 1 1278 2 2 0 0 3416 2 26 0 0 6061 2 1 1 3 5 0
5860 2 0 0 1279 2 24 0 1 3 0 2 0 0 168 0 26 0 0 5556 2
5864 24 1 0 3880 2
PROCEDURE 365
5865 1 1 3 5898 2 26 0 0 5818 2 26 0 0 5462 2
5868 6 1 0 2254 2 2 1 0 3530 2 1 1 3 4 0 26 0 0 5661 2
5872 26 0 0 5622 2 6 0 3 3404 2 18 0 0 1 0 1 1 1 49 0
5876 18 0 0 4 0 2 1 0 3536 2 6 0 3 3416 2 1 1 2 10 0
5880 27 0 0 5896 2 6 0 3 3416 2 0 0 3 2045 2 1 1 2 153 0
5884 27 0 0 5894 2 1 1 1 154 0 0 0 3 2096 2 3 0 3 3416 2
5888 2 1 0 3545 2 6 1 0 3544 2 7 1 0 3536 2 6 0 3 3400 2
5892 2 0 0 3534 2 24 1 0 7346 2 6 0 0 2050 2 24 1 0 5886 2
5896 1 1 3 4112 0 24 1 0 5890 2 26 0 0 5931 2 26 0 0 5962 2
5900 27 0 1 5997 2 15 1 3 5 0 24 0 1 1278 2 2 0 0 3416 2
5904 6 1 3 3 0 24 0 1 1278 2 5 0 0 3400 2 27 0 1 5997 2
5908 6 0 3 5 0 24 0 1 1278 2 5 0 0 3404 2 27 0 1 5997 2
5912 24 0 1 3 0 2 0 0 168 0 6 0 0 5923 2 18 0 0 5 0
5916 24 0 1 1278 2 24 1 2 64 0 28 0 0 0 0 26 0 0 5556 2
5920 1 1 3 5 0 3 0 0 1279 2 24 1 0 5724 2 2 0 0 8 0
PROCEDURE 366
5924 26 0 0 5931 2 26 0 0 5977 2 27 0 1 5988 2 6 0 0 2057 2
5928 26 0 0 6061 2 1 1 3 6 0 24 1 0 5860 2
PROCEDURE 367
5931 0 0 0 0 0
5932 6 0 0 5931 2 24 0 1 3 0 2 0 0 168 0 26 0 0 5556 2
5936 24 0 1 3 0 6 0 0 168 0 1 1 2 5925 2 27 0 0 5959 2
5940 1 1 3 5 0 2 0 0 1279 2 26 0 0 5719 2 24 0 1 3 0
5944 6 0 0 160 0 27 0 0 5949 2 26 0 0 6911 2 6 0 0 2188 2
5948 24 1 0 5992 2 26 0 0 5626 2 6 1 3 0 0 5 1 0 2070 2
5952 27 0 1 5999 2 1 0 1 4 0 15 1 3 5 0 1 1 2 256 0
5956 27 0 1 5999 2 24 0 1 3 0 26 0 1 168 0 26 0 0 6282 2
5960 1 1 3 6 0 24 1 0 5941 2
PROCEDURE 368
5962 0 0 0 0 0 1 0 1 3 0
5964 15 1 3 5 0 5 0 0 2128 2 27 0 0 5971 2 4 0 0 2128 2
5968 24 0 1 1278 2 5 0 0 3416 2 27 0 1 5973 2 24 0 1 5962 2
5972 24 1 0 1 0 24 0 1 1278 2 6 0 0 3416 2 5 0 0 2128 2
5976 26 0 1 5962 2
PROCEDURE 369
5977 0 0 0 0 0 1 0 1 768 0 15 1 3 4 0
5980 1 0 1 28 0 15 1 3 3 0 2 1 0 3530 2 15 0 1 33 0
5984 18 0 0 6 0 15 0 1 32 0 5 1 0 3530 2 26 0 1 5977 2
PROCEDURE 370
5988 26 0 0 6911 2 1 0 1 12 0 15 0 1 33 0 18 0 0 6 0
5992 2 1 0 3534 2 2 1 0 3537 2 2 1 0 3538 2 24 0 2 3666 2
5996 24 1 0 5602 2
PROCEDURE 371
5997 26 0 0 6911 2 24 1 0 4207 2
PROCEDURE 372
5999 26 0 0 6911 2
6000 6 1 0 3550 2 24 1 0 5992 2
PROCEDURE 373
6002 2 0 0 6012 2 25 1 2 0 0
6004 26 0 0 6061 2 26 0 0 5626 2 6 1 3 0 0 5 1 0 2074 2
6008 27 0 0 3746 2 5 1 0 2072 2 27 0 0 6026 2 26 0 0 7301 2
6012 0 0 0 0 0 25 1 2 0 0 24 0 1 1278 2 24 0 1 64 0
6016 2 1 0 2 0 6 0 1 33 0 1 1 2 1 0 27 0 1 6023 2
6020 24 0 1 1278 2 19 1 1 0 0 24 1 0 3868 2 24 0 1 1278 2
6024 19 0 1 0 0 24 1 0 3868 2 1 0 1 4 0 15 1 3 5 0
6028 1 1 2 512 0 27 0 0 5865 2
PROCEDURE 374
6030 6 0 0 1279 2 24 0 1 3 0
6032 2 0 0 157 0 6 1 0 3550 2 2 1 0 3530 2 1 1 3 6056 2
6036 24 1 0 4206 2
PROCEDURE 375
6037 2 0 0 6050 2 26 0 0 6254 2 27 0 0 6236 2
6040 27 0 0 6242 2 6 0 0 2057 2 26 0 0 6061 2 26 0 0 5626 2
6044 6 1 3 0 0 27 0 3 6048 2 5 1 0 2070 2 27 0 0 6030 2
6048 25 1 0 0 0 26 0 0 7301 2 0 0 0 0 0 26 0 0 6254 2
6052 27 0 0 3869 2 24 0 1 1278 2 19 0 1 0 0 24 1 0 3868 2
PROCEDURE 376
6056 26 0 0 5556 2 24 0 1 3 0 6 0 0 157 0 3 0 0 1279 2
6060 24 1 0 5724 2
PROCEDURE 377
6061 0 0 0 0 0 2 0 0 5977 2 26 0 0 5626 2
6064 26 0 0 5643 2 24 0 1 5977 2 6 1 3 2 0 24 0 1 321 2
6068 2 1 0 3358 2 24 0 1 5977 2 6 1 3 0 0 24 0 1 321 2
6072 3 1 0 3356 2 6 1 3 0 0 26 0 1 6061 2
PROCEDURE 378
6075 26 0 0 6085 2
6076 24 1 0 3869 2 26 0 0 6079 2 24 1 0 3869 2 0 0 0 0 0
6080 6 0 1 33 0 27 0 0 3745 2 1 0 1 15 0 14 0 1 44 0
6084 26 0 1 6079 2 0 0 0 0 0 6 0 1 32 0 27 0 0 6090 2
6088 6 0 0 7466 2 24 1 0 6091 2 6 0 0 5562 2 2 0 0 6096 2
6092 6 0 0 1278 2 1 0 1 7 0 14 0 0 6096 2 14 0 0 6097 2
6096 19 0 0 0 0 26 1 0 0 0 0 0 0 1 0 0 0 0 2 0
6100 0 0 0 3 0 24 1 0 6103 2 26 0 1 6085 2 24 0 1 6085 2
6104 24 1 0 1 0 24 1 0 6143 2 24 1 0 6197 2 24 1 0 6043 2
6108 24 1 0 6042 2 24 1 0 6359 2 5 0 0 2432 2
PROCEDURE 379
6111 0 0 0 0 0
6112 24 0 1 2432 2 6 0 0 45 0 27 0 2 6117 2 24 0 1 6111 2
6116 24 1 0 2 0 6 1 0 2 0 2 1 0 2430 2 24 0 1 2429 2
6120 6 0 0 2432 2 27 0 0 6140 2 5 0 0 2430 2 27 0 0 6136 2
6124 27 0 0 3126 2 24 0 1 2429 2 24 0 1 2433 2 26 1 0 0 0
6128 24 1 0 6136 2 24 1 0 6125 2 24 1 0 6126 2 24 1 0 6133 2
6132 24 1 0 6136 2 24 0 1 2429 2 24 0 1 2433 2 19 1 3 0 0
6136 1 1 3 2 0 4 0 0 2429 2 5 0 0 2428 2 27 0 2 6143 2
6140 1 1 3 2 0 7 0 0 2429 2 24 1 0 6119 2 6 0 0 2437 2
6144 27 0 1 6161 2 26 1 3 2102 2 6 0 0 6 0 1 1 1 351 2
6148 26 0 0 6338 2 27 0 0 6155 2 6 0 3 358 2 24 0 1 2436 2
6152 2 0 0 2438 2 6 0 3 360 2 2 0 3 358 2 1 1 3 1 0
6156 7 0 0 2436 2 25 0 3 48 0 24 1 0 6146 2 6 0 0 6195 2
6160 2 0 0 6227 2 6 0 0 6189 2 2 0 0 3785 2 6 0 0 1020 2
6164 2 0 0 1019 2 2 0 0 2429 2 2 0 0 2436 2 6 0 0 220 2
6168 2 0 0 213 2 6 0 0 2437 2 1 1 1 1 0 3 0 0 2437 2
6172 1 1 2 3 0 26 0 1 6111 2
PROCEDURE 380
6174 0 0 0 0 0 6 0 0 2470 2
6176 27 0 0 6179 2 6 0 0 5577 2 24 1 0 6180 2 6 0 0 3782 2
6180 2 0 0 3785 2 6 0 0 6199 2 2 0 0 6227 2 6 1 0 2430 2
6184 2 1 0 2 0 6 0 0 6168 2 2 0 0 1019 2 2 0 0 2437 2
6188 24 1 0 6200 2 24 1 0 6190 2 6 0 0 2 0 26 0 0 6338 2
6192 27 0 1 751 2 24 0 1 2 0 24 1 0 7 0 24 1 0 6196 2
6196 27 0 1 6228 2 27 0 1 6233 2 24 1 0 751 2 27 0 0 4883 2
6200 26 1 3 2102 2 24 0 1 2436 2 6 0 0 2438 2 27 0 1 6214 2
6204 1 1 2 1 0 2 0 0 2437 2 6 0 3 396 2 27 0 2 6211 2
6208 25 1 2 0 0 5 0 3 396 2 24 1 0 6212 2 6 0 3 358 2
6212 2 0 3 396 2 6 0 3 360 2 2 0 3 358 2 1 1 3 1 0
6216 7 0 0 2436 2 25 0 3 48 0 24 1 0 6201 2 25 1 2 0 0
6220 2 0 0 2436 2 2 1 0 2438 2 2 1 0 2440 2 2 1 0 2442 2
6224 2 1 0 2444 2 26 0 1 6174 2
PROCEDURE 381
6226 26 0 0 6254 2 27 0 0 4883 2
6228 6 0 0 6247 2 27 0 0 6233 2 6 0 1 30 0 2 0 0 6248 2
6232 24 1 0 6249 2 6 0 1 30 0 2 0 0 6247 2 24 1 0 6249 2
6236 6 0 1 30 0 5 0 0 6247 2 27 0 0 6242 2 25 1 2 0 0
6240 2 0 0 6248 2 24 1 0 6243 2 2 0 0 6247 2 26 0 0 5613 2
6244 26 0 0 5556 2 26 0 0 5708 2 24 1 0 751 2 0 0 0 0 0
6248 0 0 0 0 0 6 1 1 30 0 2 1 0 1278 2 6 0 1 35 0
6252 2 0 1 7 0 24 1 0 6041 2
PROCEDURE 382
6254 0 0 0 0 0 6 0 1 30 0
6256 5 0 0 6247 2 27 0 0 6260 2 6 0 1 30 0 5 0 0 6248 2
6260 26 0 1 6254 2
PROCEDURE 383
6261 6 1 0 325 2 2 1 0 3530 2 26 0 0 6282 2
6264 26 0 0 5818 2 24 0 2 6280 2 26 0 0 5834 2 26 0 0 5626 2
6268 6 1 3 0 0 5 1 0 2070 2 27 0 1 4207 2 27 0 1 6277 2
6272 1 0 1 4 0 15 1 3 5 0 1 1 2 768 0 27 0 1 4207 2
6276 27 0 0 6280 2 1 1 3 4 0 26 0 0 5569 2 27 0 0 4207 2
6280 26 0 0 5800 2 24 1 0 3869 2
PROCEDURE 384
6282 0 0 0 0 0 6 0 0 1278 2
6284 5 0 0 49 2 27 0 2 6322 2 6 0 0 1279 2 1 1 2 16 0
6288 27 0 0 6293 2 24 0 1 3 0 6 0 0 174 0 1 1 2 16 0
6292 27 0 1 6309 2 6 0 0 2 0 26 0 0 6338 2 27 0 0 6309 2
6296 1 1 3 2 0 7 0 0 2428 2 6 0 0 2432 2 27 0 0 6301 2
6300 1 1 3 2 0 2 0 0 6085 2 6 0 0 2 0 24 0 1 6085 2
6304 2 0 0 2432 2 6 0 0 1278 2 24 0 1 6085 2 2 0 0 2433 2
6308 2 0 0 6085 2 6 0 0 1278 2 1 0 1 7 0 14 0 0 6318 2
6312 14 0 0 6313 2 26 1 0 0 0 24 1 0 6313 2 24 1 0 6313 2
6316 24 1 0 6318 2 24 1 0 6323 2 19 0 0 0 0 25 1 2 0 0
6320 2 0 0 6247 2 2 0 0 6248 2 26 0 1 6282 2 24 0 1 2 0
6324 24 1 0 18 0
PROCEDURE 385
6325 0 0 0 0 0 2 0 0 2396 2 6 0 0 2437 2
6328 27 0 2 6332 2 6 0 0 2 0 26 0 0 6338 2 27 0 0 6335 2
6332 6 0 0 2396 2 2 0 1 7 0 26 0 1 6325 2 6 0 0 2396 2
6336 2 0 1 45 0 26 0 1 6325 2
PROCEDURE 386
6338 0 0 0 0 0 5 0 0 2432 2
6340 27 0 0 6343 2 4 0 0 2432 2 5 0 0 2434 2 26 0 1 6338 2
PROCEDURE 387
6344 25 1 2 0 0 26 0 0 6374 2 24 0 2 256 0 26 0 0 6385 2
6348 24 1 0 3879 2
PROCEDURE 388
6349 2 0 0 6359 2 26 0 0 6374 2 24 1 0 6358 2
PROCEDURE 389
6352 2 0 0 6353 2 0 0 0 0 0 26 0 0 7301 2 26 0 0 5560 2
6356 24 1 0 6441 2
PROCEDURE 390
6357 2 0 0 6359 2 26 0 0 7301 2 0 0 0 0 0
6360 26 0 0 5560 2 6 0 1 30 0 5 0 1 33 0 27 0 1 3868 2
6364 26 0 0 5716 2 24 1 0 3869 2 24 1 0 3868 2
PROCEDURE 391
6367 25 1 2 0 0
6368 26 0 0 6374 2 24 0 2 768 0 26 0 0 6385 2 2 0 0 1279 2
6372 26 0 0 5716 2 24 1 0 3862 2
PROCEDURE 392
6374 0 0 0 0 0 24 0 1 1278 2
6376 6 0 0 64 0 18 0 0 4124 0 1 1 2 13 0 27 0 0 6381 2
6380 26 0 1 6374 2 26 0 0 5613 2 24 1 0 1010 2 24 1 0 7272 2
6384 24 0 1 2 0
PROCEDURE 393
6385 0 0 0 0 0 4 0 0 2156 2 18 0 0 2 0
6388 2 1 0 3618 2 6 0 1 33 0 18 0 0 1 0 7 0 0 3619 2
6392 6 1 0 2070 2 2 1 0 3614 2 6 0 1 32 0 2 1 0 3617 2
6396 2 1 0 3612 2 24 0 2 3612 2 24 0 1 1278 2 24 0 1 64 0
6400 29 0 0 0 0 26 0 0 5560 2 24 0 2 3 0 26 0 1 6385 2
PROCEDURE 394
6404 26 0 0 5556 2 1 1 3 10 0 24 1 0 3879 2
PROCEDURE 395
6407 2 0 0 6409 2
6408 26 0 0 7301 2 0 0 0 0 0 24 0 1 1278 2 19 0 1 0 0
6412 24 1 0 3868 2
PROCEDURE 396
6413 6 0 1 33 0 1 0 1 15 0 24 0 1 1278 2
6416 14 0 0 64 0 6 0 0 2061 2 24 1 0 3879 2
PROCEDURE 397
6419 6 0 1 32 0
6420 24 0 1 2 0 0 0 2 32 0 24 0 1 1278 2 14 0 0 64 0
6424 24 0 1 1278 2 19 0 1 0 0 25 1 2 0 0 24 0 1 1278 2
6428 14 0 0 64 0 26 0 0 5716 2 6 0 0 2035 2 2 0 0 9 0
6432 6 0 0 2061 2 2 0 0 1279 2 24 1 0 3868 2
PROCEDURE 398
6435 24 0 1 1278 2
6436 19 0 0 0 0 26 0 0 5716 2 24 1 0 6432 2
PROCEDURE 399
6439 24 0 1 1278 2
6440 19 0 1 0 0 6 0 0 2061 2 2 0 0 1279 2 26 0 0 5708 2
6444 24 0 1 1278 2 26 1 0 0 0 24 1 0 6450 2 24 1 0 6444 2
6448 24 1 0 6456 2 24 1 0 6450 2 26 0 0 5760 2 6 0 0 6459 2
6452 27 0 0 6461 2 1 1 3 0 0 2 0 0 6459 2 24 1 0 4212 2
6456 1 1 3 1 0 2 0 0 6459 2 24 1 0 6450 2 0 0 0 0 0
6460 26 0 0 5716 2 6 0 0 2061 2 2 0 0 1279 2 24 1 0 3869 2
PROCEDURE 400
6464 6 0 1 33 0 1 0 1 15 0 24 0 1 1278 2 14 0 0 64 0
6468 6 0 0 2061 2 24 1 0 3879 2
PROCEDURE 401
6470 26 0 0 5618 2 6 0 0 1279 2
6472 18 0 0 4124 0 27 0 1 3881 2 6 0 1 33 0 2 0 3 195 0
6476 24 0 2 65 0 2 0 3 196 0 26 0 0 6627 2 24 0 1 1278 2
6480 6 0 0 64 0 3 0 3 192 0 2 0 3 194 0 26 0 0 6504 2
6484 24 1 0 3881 2
PROCEDURE 402
6485 0 0 0 0 0 6 1 0 2108 2 2 1 0 3624 2
6488 0 1 2 3626 2 15 1 0 154 0 2 1 0 3632 2 15 1 0 3634 2
6492 5 1 0 3632 2 27 0 0 6503 2 23 0 0 2 0 0 0 0 3624 1
6496 24 1 0 6498 2 24 1 0 6501 2 25 1 2 0 0 18 1 0 4126 0
6500 24 1 0 6489 2 23 0 0 1 0 0 0 0 6485 1 26 0 1 6485 2
PROCEDURE 403
6504 0 0 0 0 0 6 0 0 6504 2 24 0 1 3 0 2 0 0 156 0
6508 26 0 0 5618 2 0 0 2 2052 2 15 0 0 1278 2 1 1 2 48 0
6512 27 0 0 6548 2 24 0 3 3 0 24 0 2 190 0 24 0 1 1278 2
6516 2 0 0 64 0 1 1 3 8 0 2 0 3 193 0 1 1 3 63 0
6520 24 0 3 3 0 24 0 3 193 0 18 0 0 0 0 18 1 0 4118 0
6524 24 0 3 3 0 24 0 3 192 0 15 1 0 0 0 18 1 0 4126 0
6528 27 0 1 6527 2 18 1 0 2 0 18 0 0 8 0 3 1 3 190 0
6532 5 1 0 3636 2 27 0 0 6541 2 26 0 0 6570 2 6 0 3 193 0
6536 1 1 2 2 0 27 0 2 6518 2 1 1 3 2 0 7 0 3 192 0
6540 24 1 0 6517 2 6 0 3 188 0 27 0 1 6544 2 26 0 0 6570 2
6544 6 0 3 194 0 24 0 3 1278 2 2 0 0 64 0 24 1 0 6568 2
6548 24 0 3 3 0 24 0 3 192 0 6 1 0 0 0 2 1 0 154 0
6552 26 0 0 6485 2 24 1 0 6558 2 26 0 0 6570 2 1 1 3 2 0
6556 7 0 3 192 0 24 1 0 6548 2 1 1 3 8 0 5 0 0 3624 2
6560 2 0 0 3623 2 6 1 0 154 0 24 0 1 3624 2 18 0 0 4120 0
6564 24 0 1 3623 2 18 0 0 0 0 2 1 0 154 0 26 0 0 6570 2
6568 24 0 1 3 0 26 0 1 156 0
PROCEDURE 404
6570 0 0 0 0 0 6 0 0 6570 2
6572 2 0 3 183 0 24 0 1 1278 2 19 0 0 0 0 1 1 3 1 0
6576 2 0 0 1279 2 26 0 0 5716 2 26 0 0 5618 2 24 0 3 3 0
6580 26 0 1 183 0
PROCEDURE 405
6581 2 0 0 6583 2 26 0 0 7301 2 0 0 0 0 0
6584 26 0 0 5618 2 24 0 1 1278 2 6 0 0 64 0 3 0 3 192 0
6588 2 0 3 194 0 6 0 0 1279 2 18 0 0 4124 0 27 0 0 6593 2
6592 2 0 3 188 0 26 0 0 6504 2 6 0 3 157 0 27 0 2 3869 2
PROCEDURE 406
6596 26 0 0 5618 2 6 0 3 194 0 2 0 3 192 0 6 0 3 188 0
6600 27 0 0 6607 2 6 0 1 33 0 27 0 0 3746 2 4 0 0 2050 2
6604 1 0 1 15 0 14 0 1 44 0 24 1 0 6624 2 26 0 0 6627 2
6608 6 0 0 2034 2 7 1 2 4 0 26 0 0 6504 2 6 1 0 2254 2
6612 2 1 0 3530 2 1 1 3 6615 2 24 1 0 4206 2 26 0 0 5618 2
6616 0 0 3 2045 2 1 1 3 1 0 7 1 3 197 0 0 0 3 2096 2
6620 6 0 3 194 0 2 0 3 192 0 26 0 0 6627 2 26 0 0 6504 2
6624 25 1 2 0 0 2 0 3 157 0 24 1 0 3869 2
PROCEDURE 407
6627 0 0 0 0 0
6628 24 0 3 1278 2 26 1 2 64 0 6 1 0 2070 2 2 1 2 0 0
6632 6 0 1 39 0 2 1 2 3 0 6 0 3 195 0 18 0 0 2 0
6636 1 1 1 65 0 18 0 0 4 0 4 0 3 196 0 2 1 2 4 0
6640 6 1 0 3628 2 2 1 2 6 0 26 0 1 6627 2
PROCEDURE 408
6643 26 0 0 5618 2
6644 6 0 3 188 0 27 0 1 3862 2 26 0 0 6627 2 6 0 0 2034 2
6648 4 0 0 2034 2 7 1 2 4 0 24 0 1 1278 2 6 0 0 64 0
6652 3 0 3 192 0 2 0 3 194 0 26 0 0 6504 2 24 1 0 3862 2
PROCEDURE 409
6656 26 0 0 6668 2 26 0 0 5622 2 1 0 1 990 0 15 0 1 40 0
6660 18 1 0 4123 0 15 0 3 1408 2 18 1 0 4123 0 6 0 3 1376 2
6664 18 1 0 9 0 24 0 1 3 0 0 0 2 182 0 24 1 0 3869 2
PROCEDURE 410
6668 0 0 0 0 0 26 0 0 5618 2 6 0 0 6668 2 2 0 3 168 0
6672 24 0 1 1278 2 6 0 0 1312 2 2 0 3 156 0 26 0 0 5073 2
6676 26 0 0 5111 2 26 0 0 5618 2 6 0 3 156 0 27 0 0 6692 2
6680 18 1 0 4126 0 1 1 2 15 0 27 0 1 6783 2 18 1 0 4 0
6684 1 0 1 12 0 24 0 1 1278 2 14 0 0 1312 2 6 0 0 1278 2
6688 5 0 0 2764 2 27 0 1 6695 2 26 0 0 5626 2 24 1 0 6709 2
6692 24 0 2 257 0 24 0 1 1278 2 3 0 0 1312 2 2 0 3 158 0
6696 26 0 0 5626 2 1 0 1 28 0 15 1 3 15 0 2 0 0 3538 2
6700 15 0 1 32 0 5 0 0 3538 2 27 0 1 6821 2 1 0 1 12 0
6704 15 0 3 6 0 2 0 0 3538 2 15 0 1 33 0 5 0 0 3538 2
6708 27 0 1 6821 2 6 1 3 15 0 3 0 0 3630 2 24 0 1 1278 2
6712 2 0 0 1344 2 6 0 3 6 0 24 0 1 1278 2 2 0 0 1376 2
6716 6 1 3 9 0 24 0 1 1278 2 2 0 0 1408 2 1 0 1 3 0
6720 24 0 1 1278 2 15 0 0 1312 2 5 1 3 11 0 27 0 1 6865 2
6724 27 0 0 6862 2 26 1 3 2096 2 26 0 0 5719 2 27 0 0 7162 2
6728 27 0 0 7160 2 27 0 0 6776 2 24 1 0 7135 2 24 1 0 5455 2
6732 27 0 0 7530 2
PROCEDURE 411
6733 6 1 3 17 0 5 0 0 2050 2 27 0 1 6743 2
6736 25 1 2 0 0 1 0 1 7 0 15 0 1 30 0 1 1 2 32 0
6740 27 0 1 6743 2 6 0 0 2064 2 24 1 0 6744 2 25 1 2 0 0
6744 24 0 1 1278 2 2 0 0 1440 2 24 0 1 3 0 6 0 0 165 0
6748 1 1 2 6676 2 27 0 1 7277 2 26 0 0 5618 2 6 0 3 158 0
6752 27 0 0 6775 2 25 1 2 0 0 2 0 3 158 0 26 0 0 5626 2
6756 26 0 0 7315 2 6 1 3 17 0 27 0 0 6761 2 6 1 0 594 2
6760 24 1 0 6762 2 6 1 0 2198 2 2 1 0 3530 2 26 0 0 5618 2
6764 6 0 3 182 0 2 0 0 3536 2 6 1 0 3722 2 2 1 0 3712 2
6768 6 1 0 3720 2 2 1 0 3718 2 24 0 2 6772 2 24 1 0 7163 2
6772 26 0 0 5800 2 6 0 1 30 0 2 0 0 1278 2 26 0 0 5631 2
6776 26 0 0 5111 2 26 0 0 5637 2 26 0 0 5618 2 6 0 3 168 0
6780 2 0 0 6668 2 2 0 3 168 0 26 0 1 6668 2 26 0 0 5626 2
6784 26 0 0 6803 2 26 0 0 6794 2 27 0 2 6792 2 6 0 3 1312 2
6788 18 0 0 2 0 14 0 3 1312 2 24 0 1 3 0 2 0 0 158 0
6792 26 0 0 5626 2 24 1 0 6716 2
PROCEDURE 412
6794 0 0 0 0 0 26 0 0 5622 2
6796 1 0 1 3 0 15 0 3 1312 2 18 1 0 2 0 2 0 0 3538 2
6800 15 0 3 1312 2 5 0 0 3538 2 26 0 1 6794 2
PROCEDURE 413
6803 0 0 0 0 0
6804 6 1 3 15 0 3 0 0 3630 2 24 0 1 1278 2 5 0 0 1344 2
6808 27 0 1 6894 2 6 0 3 6 0 24 0 1 1278 2 5 0 0 1376 2
6812 27 0 1 6894 2 1 0 1 30 0 15 1 3 9 0 2 0 0 2396 2
6816 24 0 1 1278 2 15 0 0 1408 2 5 0 0 2396 2 27 0 1 6894 2
6820 26 0 1 6803 2
PROCEDURE 414
6821 25 1 2 0 0 1 0 1 28 0 15 0 1 39 0
6824 5 0 0 295 2 27 0 0 6709 2 26 0 0 6902 2 1 0 1 28 0
6828 15 0 1 32 0 2 0 0 3534 2 1 0 1 12 0 15 0 1 33 0
6832 18 0 0 2 0 1 1 1 4209 0 18 0 0 4 0 1 1 1 65 0
6836 2 1 0 3538 2 2 0 0 3536 2 6 1 0 3726 2 2 1 0 3712 2
6840 24 0 2 3692 2 24 0 1 3 0 28 1 2 130 0 26 0 0 5626 2
6844 6 1 3 15 0 2 0 0 3534 2 6 1 3 6 0 18 0 0 2 0
6848 1 1 1 113 0 18 0 0 4 0 4 1 3 10 0 2 1 0 3538 2
6852 6 1 3 9 0 2 0 0 3536 2 6 1 0 2322 2 2 1 0 3712 2
6856 24 0 2 3700 2 24 0 1 3 0 28 1 2 146 0 6 1 0 3646 2
6860 2 1 0 3712 2 24 1 0 5604 2 26 0 0 6902 2 6 1 0 2210 2
6864 24 1 0 5992 2
PROCEDURE 415
6865 26 0 0 6902 2 6 1 0 323 2 2 1 0 3530 2
6868 26 0 0 5669 2 26 0 0 5211 2 4 1 0 3538 2 2 1 0 3534 2
6872 26 0 0 5626 2 1 0 1 15 0 15 0 3 10 0 4 1 0 3538 2
6876 2 1 0 3536 2 1 0 1 12 0 24 0 1 1278 2 14 0 0 1312 2
6880 24 0 1 3 0 6 0 0 182 0 2 1 0 3538 2 24 0 2 519 0
6884 2 0 1 41 0 1 1 3 3666 2 24 1 0 5589 2
PROCEDURE 416
6887 26 0 0 5626 2
6888 6 1 3 11 0 1 0 1 3 0 24 0 1 1278 2 14 0 0 1312 2
6892 26 0 0 5618 2 24 1 0 6672 2
PROCEDURE 417
6894 26 0 0 6902 2 26 0 0 5622 2
6896 6 0 3 1344 2 2 0 0 3534 2 26 0 0 5211 2 7 1 0 3538 2
6900 6 0 3 1408 2 24 1 0 6837 2
PROCEDURE 418
6902 0 0 0 0 0 26 0 0 5760 2
6904 6 1 0 3552 2 2 1 0 3530 2 24 0 1 3 0 6 0 0 165 0
6908 1 1 2 1 0 26 0 0 5818 2 26 0 1 6902 2
PROCEDURE 419
6911 0 0 0 0 0
6912 6 1 0 3552 2 2 1 0 3530 2 24 0 2 5935 2 26 0 0 5818 2
6916 26 0 1 6911 2
PROCEDURE 420
6917 2 0 0 6926 2 26 0 0 5258 2 27 0 1 6937 2
6920 26 0 0 5618 2 2 0 3 171 0 2 0 3 186 0 6 0 3 185 0
6924 27 0 1 6933 2 26 0 0 7301 2 0 0 0 0 0 26 0 0 5631 2
6928 26 0 0 5556 2 26 0 0 5637 2 6 0 0 2050 2 26 0 0 5576 2
6932 24 1 0 3868 2
PROCEDURE 421
6933 26 0 0 5392 2 1 1 3 7 0 2 0 1 31 0
6936 24 1 0 3784 2 26 0 0 5264 2 24 1 0 6964 2 6 1 3 1 0
6940 5 1 0 2065 2 5 0 0 2050 2 27 0 0 6973 2 5 0 0 2050 2
6944 27 0 1 6949 2 6 1 3 5 0 24 0 1 1278 2 5 0 0 1280 2
6948 27 0 0 3747 2 1 1 3 6993 2 24 0 1 3 0 2 0 0 162 0
6952 26 0 0 5443 2 26 0 0 5276 2 24 1 0 6957 2 26 0 0 5331 2
6956 26 0 0 5371 2 24 0 1 3 0 6 0 0 160 0 27 0 0 6918 2
6960 1 1 3 7 0 24 0 1 3 0 2 0 0 174 0 24 1 0 4222 2
6964 24 0 1 3 0 6 0 0 186 0 27 0 0 6969 2 1 1 3 3 0
6968 26 0 0 5053 2 26 0 0 5556 2 1 1 3 7 0 3 0 0 1279 2
6972 24 1 0 5724 2 6 1 3 5 0 24 0 1 1278 2 5 0 0 1280 2
6976 27 0 1 6949 2 6 0 1 39 0 5 0 0 2059 2 27 0 1 6987 2
6980 6 1 0 3554 2 2 1 3 4 0 26 0 0 7301 2 6 0 0 6926 2
6984 2 0 0 6985 2 0 0 0 0 0 24 1 0 3869 2 6 0 1 33 0
6988 27 0 3 3869 2 26 0 0 5582 2 26 0 0 5760 2 26 0 0 5451 2
6992 26 0 0 6668 2 1 1 3 7 0 3 0 0 1279 2 2 0 1 31 0
6996 6 0 0 1278 2 18 0 3 6 0 24 1 0 3798 2
PROCEDURE 422
6999 26 0 0 5582 2
7000 26 0 0 5760 2 26 0 0 5818 2 24 0 2 7005 2 26 0 0 5834 2
7004 24 1 0 5454 2 26 0 0 5800 2 26 0 0 7842 2 24 1 0 3869 2
PROCEDURE 423
7008 26 0 0 5626 2 6 1 3 4 0 5 1 0 3554 2 27 0 0 7388 2
7012 6 1 3 1 0 5 1 0 2065 2 5 0 0 2100 2 27 0 0 7388 2
7016 1 1 3 4 0 26 0 0 5569 2 27 0 1 7384 2 26 0 0 7842 2
7020 6 1 0 325 2 2 1 0 3530 2 26 0 0 5760 2 26 0 0 5818 2
7024 24 0 1 1278 2 6 0 0 1280 2 2 0 0 3534 2 24 0 3 1278 2
7028 2 0 0 1280 2 24 0 1 1278 2 2 0 0 1312 2 26 0 0 5483 2
7032 24 0 2 6280 2 26 0 0 5834 2 24 1 0 7345 2
PROCEDURE 424
7035 26 0 0 7039 2
7036 6 0 1 40 0 18 0 0 4127 0 24 1 0 6665 2
PROCEDURE 425
7039 0 0 0 0 0
7040 26 0 0 5618 2 6 0 0 7039 2 2 0 3 168 0 26 1 2 1278 2
7044 6 0 2 64 0 2 0 0 2396 2 2 0 3 163 0 1 1 3 14 0
7048 18 0 0 4 0 4 0 0 3 0 1 1 1 106 0 5 0 0 2396 2
7052 27 0 0 7057 2 4 0 0 2396 2 2 0 2 64 0 6 0 0 2396 2
7056 2 0 3 163 0 1 1 3 15 0 23 1 3 126 0 1 1 3 0 0
7060 24 0 3 1278 2 2 0 0 1472 2 26 0 0 5073 2 24 0 1 3 0
7064 6 0 0 164 0 27 0 0 7070 2 24 0 1 3 0 6 0 0 189 0
7068 27 0 0 7250 2 24 1 0 7075 2 26 0 0 7285 2 24 1 0 7250 2
7072 1 1 3 1 0 24 0 1 3 0 2 0 0 189 0 26 0 0 5622 2
7076 6 0 3 1312 2 3 0 0 2396 2 27 0 0 7093 2 18 1 0 4126 0
7080 1 1 2 15 0 27 0 1 7087 2 18 1 0 4 0 1 0 1 12 0
7084 24 0 1 1278 2 14 0 0 1312 2 24 1 0 7095 2 26 0 0 6794 2
7088 27 0 2 7101 2 6 0 3 1312 2 18 0 0 2 0 14 0 3 1312 2
7092 24 1 0 7101 2 24 0 2 257 0 2 0 3 1312 2 6 0 1 32 0
7096 2 0 3 1344 2 6 0 1 33 0 2 0 3 1376 2 6 0 1 40 0
7100 2 0 3 1408 2 26 0 0 5626 2
PROCEDURE 426
7102 24 0 2 7 0 24 0 1 1278 2
7104 3 0 0 1280 2 3 1 3 1 0 4 1 0 2078 2 2 1 3 4 0
7108 2 1 3 2 0 24 0 1 1278 2 6 0 0 1344 2 3 0 0 3630 2
7112 2 1 3 15 0 6 0 0 33 2 2 1 3 13 0 6 1 0 2156 2
7116 2 1 3 18 0 26 0 0 7315 2 24 0 1 1278 2 6 0 0 1440 2
7120 27 0 0 7122 2 6 0 0 2050 2 2 1 3 17 0 26 0 0 5560 2
7124 26 0 0 7285 2 24 1 0 7132 2 6 0 0 3536 2 5 0 3 1704 2
7128 27 0 1 7130 2 2 0 3 1704 2 25 0 3 1 0 24 1 0 7126 2
7132 24 0 1 3 0 6 0 0 164 0 27 0 1 7174 2 1 1 3 8 0
7136 2 0 0 1279 2 26 0 0 5716 2 26 0 0 5626 2 26 0 0 7315 2
7140 6 1 0 2196 2 2 1 0 3530 2 26 0 0 5618 2 6 0 3 182 0
7144 2 0 0 3536 2 2 0 3 189 0 24 0 1 1278 2 6 0 0 1440 2
7148 27 0 0 7153 2 1 0 1 24 0 24 0 2 88 0 18 0 0 3 0
7152 14 0 0 3531 2 0 0 3 2045 2 6 0 0 3549 2 4 0 0 2050 2
7156 0 0 3 2096 2 2 0 0 3549 2 6 1 0 3716 2 2 1 0 3712 2
7160 6 1 0 3722 2 2 1 0 3712 2 24 0 2 7176 2 26 0 0 5834 2
7164 24 0 2 3692 2 24 0 1 3 0 28 1 2 130 0 6 1 0 3714 2
7168 2 1 0 3712 2 6 1 0 3720 2 2 1 0 3712 2 6 1 0 3724 2
7172 2 1 0 3718 2 24 1 0 5604 2 26 0 0 5728 2 24 1 0 4555 2
7176 26 0 0 5800 2
PROCEDURE 427
7177 24 1 0 7272 2 24 0 1 2 0 24 0 1 30 0
7180 6 0 0 64 0 2 1 0 6 0 6 0 1 30 0 24 0 1 3 0
7184 2 0 0 158 0 24 0 2 7218 2 1 1 2 3801 2 18 0 0 5 0
7188 4 0 0 3620 2 2 1 1 30 0 6 0 0 3549 2 2 1 3 3 0
7192 24 0 1 3 0 6 0 0 182 0 2 1 3 5 0 24 0 1 3 0
7196 6 0 0 158 0 2 1 0 4 0 6 0 2 1344 2 2 1 3 7 0
7200 6 0 2 1408 2 2 1 3 9 0 6 0 2 1376 2 18 0 0 6 0
7204 2 1 3 10 0 1 0 1 3 0 15 0 2 1312 2 18 0 0 1 0
7208 4 0 0 139 0 2 1 0 3539 2 6 1 0 3538 2 7 1 3 10 0
7212 6 0 0 138 0 2 1 3 13 0 6 1 0 2156 2 2 1 3 14 0
7216 2 1 3 0 0 24 1 0 3784 2 24 0 1 3620 2 6 0 0 64 0
7220 18 0 0 4124 0 1 1 2 13 0 27 0 0 7217 2 24 0 1 3 0
7224 24 0 1 158 0 24 0 1 64 0 24 0 2 0 0 29 0 0 3560 2
7228 6 1 0 3546 2 7 1 0 3566 2 1 1 3 3 0 18 0 0 5 0
7232 4 0 0 3620 2 3 1 0 1278 2 24 0 1 3621 2 2 1 0 3352 2
7236 24 0 1 3620 2 1 0 3 3520 0 24 0 1 1278 2 19 0 0 0 0
7240 26 0 0 5716 2 24 0 1 3620 2 1 0 3 3520 0 6 0 0 4 0
7244 3 0 1 30 0 2 0 0 1278 2 24 0 1 1278 2 24 0 1 64 0
7248 2 1 0 2 0 24 1 0 7272 2
PROCEDURE 428
7250 24 0 1 1278 2 6 0 0 1312 2
7252 27 0 0 7337 2 18 0 0 4126 0 1 1 2 15 0 27 0 0 7337 2
7256 26 0 0 6794 2 27 0 3 7337 2 26 0 0 5111 2 26 0 0 5626 2
7260 26 0 0 6803 2 1 0 1 3 0 24 0 1 1278 2 15 0 0 1312 2
7264 5 1 3 11 0 27 0 1 6894 2 24 0 1 3 0 6 0 0 163 0
7268 24 0 1 2 0 24 0 1 30 0 2 0 0 64 0 24 1 0 6733 2
7272 24 0 1 3 0 6 0 0 163 0 24 0 1 2 0 24 0 1 30 0
7276 2 0 0 64 0 24 0 1 3 0 6 0 0 168 0 1 1 2 5053 2
7280 27 0 1 6778 2 6 0 0 2099 2 2 0 1 31 0 24 0 1 2 0
7284 24 1 0 12 0
PROCEDURE 429
7285 0 0 0 0 0 26 1 3 2104 2 24 0 1 3 0
7288 6 0 0 182 0 3 0 0 3536 2 18 1 1 4127 0 27 0 0 7293 2
7292 18 1 1 1 0 5 0 3 1704 2 27 0 0 7299 2 4 0 3 1704 2
7296 25 0 3 1 0 24 1 0 7293 2 26 0 1 7285 2 24 0 3 7285 2
7300 24 1 0 1 0
PROCEDURE 430
7301 0 0 0 0 0 6 0 1 32 0 2 0 0 7314 2
7304 24 0 1 7314 2 0 0 2 64 0 24 0 1 1278 2 6 0 0 64 0
7308 24 0 1 7314 2 2 0 0 64 0 18 1 1 10 0 24 0 1 1278 2
7312 2 0 0 64 0 26 0 1 7301 2 0 0 0 0 0
PROCEDURE 431
7315 0 0 0 0 0
7316 26 0 0 5661 2 26 0 0 5756 2 24 0 1 1278 2 6 0 0 1376 2
7320 3 1 3 6 0 18 0 0 2 0 1 1 1 113 0 18 0 0 4 0
7324 2 1 0 3538 2 1 0 1 3 0 24 0 1 1278 2 15 0 0 1312 2
7328 2 1 0 3535 2 6 0 0 3534 2 7 1 0 3538 2 2 1 3 10 0
7332 24 0 1 1278 2 6 0 0 1408 2 3 0 0 3534 2 2 1 3 9 0
7336 26 0 1 7315 2
PROCEDURE 432
7337 26 0 0 5760 2 6 1 0 2186 2 2 1 0 3530 2
7340 24 0 2 7062 2 26 0 0 5818 2 24 0 1 3 0 6 0 0 182 0
7344 2 0 0 3534 2 2 1 0 3536 2 24 0 2 3648 2 24 1 0 5602 2
PROCEDURE 433
7348 2 0 0 7350 2 26 0 0 7301 2 0 0 0 0 0 26 1 2 1278 2
7352 26 0 0 5626 2 2 1 3 2 0 6 0 2 1280 2 0 0 3 2045 2
7356 4 0 0 2050 2 3 1 3 1 0 2 0 2 1280 2 1 1 3 1 0
7360 7 0 2 1528 2 0 0 3 2096 2 26 0 0 5631 2 26 0 0 5560 2
7364 26 0 0 5637 2 24 1 0 3868 2
PROCEDURE 434
7366 26 0 0 7369 2 26 0 0 5183 2
7368 24 1 0 6999 2
PROCEDURE 435
7369 0 0 0 0 0 26 0 0 5626 2 6 1 0 2066 2
7372 2 1 3 2 0 6 1 0 2156 2 2 1 3 6 0 6 1 0 2064 2
7376 4 0 0 2050 2 26 0 1 7369 2
PROCEDURE 436
7378 24 0 3 1278 2 6 0 0 1280 2
7380 1 1 2 6 0 27 0 3 3753 2 26 0 0 5156 2 26 0 0 5183 2
7384 25 1 2 0 0 24 0 1 1278 2 2 0 0 1280 2 25 1 2 0 0
7388 24 0 1 1278 2 2 0 0 1312 2 26 0 0 5760 2 26 0 0 7842 2
7392 26 0 0 5818 2 26 0 0 5483 2 24 1 0 3866 2
PROCEDURE 437
7395 26 0 0 5156 2
7396 26 0 0 5183 2 26 0 0 5760 2 26 0 0 7842 2 26 0 0 5622 2
7400 1 0 1 3 0 15 0 3 1312 2 5 0 0 2050 2 27 0 0 7408 2
7404 6 0 0 2050 2 14 0 3 1312 2 26 0 0 5451 2 24 1 0 3869 2
7408 24 0 1 1278 2 19 1 1 0 0 6 0 0 2048 2 7 0 3 1376 2
7412 1 1 3 5 0 24 0 3 1278 2 2 0 0 1280 2 2 0 0 1279 2
7416 24 1 0 3868 2
PROCEDURE 438
7417 25 1 2 0 0 24 1 0 7427 2 26 0 0 5156 2
7420 26 0 0 5183 2 1 1 3 1 0 1 1 1 2 0 26 0 0 5053 2
7424 26 0 0 5264 2 24 1 0 7422 2 1 1 3 15 0 24 0 1 3 0
7428 2 1 0 180 0 26 0 0 5626 2 24 0 1 2 0 24 0 1 33 0
7432 2 1 3 0 0
PROCEDURE 439
7433 26 0 0 5264 2 24 1 0 7459 2 24 0 2 7 0
7436 5 1 3 1 0 27 0 2 7502 2 6 1 3 1 0 5 1 0 2065 2
7440 5 0 0 2050 2 27 0 0 7487 2 5 0 0 2050 2 27 0 0 7527 2
7444 24 0 1 3 0 6 0 0 160 0 27 0 1 7459 2 24 0 1 2 0
7448 24 0 1 33 0 6 1 3 1 0 27 0 0 7459 2 5 0 1 32 0
7452 27 0 1 7511 2 6 1 3 1 0 24 0 1 1278 2 2 0 0 1280 2
7456 24 0 1 3 0 2 0 0 181 0 24 1 0 3869 2
PROCEDURE 440
7459 24 0 1 3 0
7460 6 0 0 180 0 27 0 0 7475 2 6 0 0 2100 2 26 0 0 5053 2
7464 26 0 0 5760 2 24 0 1 1278 2 19 0 2 0 0 26 0 0 5719 2
7468 26 0 0 5631 2 6 0 0 2050 2 26 0 0 5053 2 26 0 0 5637 2
7472 26 0 0 5556 2 26 0 0 5719 2 24 1 0 7433 2 26 0 0 5626 2
7476 6 1 3 4 0 5 1 0 3554 2 27 0 0 7527 2 26 0 0 5264 2
7480 24 1 0 7472 2 24 0 1 1278 2 19 0 3 0 0 26 0 0 5719 2
7484 26 0 0 5631 2 6 0 0 2100 2 24 1 0 7470 2
PROCEDURE 441
7487 6 0 0 2050 2
7488 0 0 3 2045 2 24 0 1 1278 2 7 0 0 1312 2 0 0 3 2096 2
7492 26 0 0 5760 2 26 0 0 5451 2 26 0 0 6668 2 26 0 0 5626 2
7496 24 0 1 2 0 24 0 1 33 0 2 1 3 0 0 26 0 0 5618 2
7500 2 0 3 180 0 24 1 0 7475 2 26 0 0 5622 2 1 0 1 3 0
7504 15 0 3 1312 2 5 0 0 2050 2 27 0 0 7517 2 25 1 2 0 0
7508 0 0 3 2045 2 5 0 0 2050 2 24 1 0 7489 2
PROCEDURE 442
7511 2 0 0 3538 2
7512 26 0 0 5618 2 6 0 3 180 0 27 0 0 7525 2 6 0 0 3538 2
7516 27 0 2 7459 2 26 0 0 5618 2 2 0 3 180 0 6 0 3 181 0
7520 4 0 0 2050 2 3 0 3 181 0 1 1 2 6 0 27 0 0 3751 2
7524 24 1 0 7459 2 6 0 0 3538 2 27 0 3 7459 2 26 0 0 5618 2
7528 24 0 2 15 0 24 1 0 7518 2 6 1 0 2238 2 2 1 0 3530 2
7532 26 0 0 5811 2 6 0 1 33 0 2 0 0 3534 2 6 0 1 32 0
7536 2 0 0 3536 2 2 1 0 3538 2 1 1 3 3 0 18 0 3 13 0
7540 2 0 1 41 0 1 1 3 3692 2 24 1 0 5589 2 26 0 0 5818 2
7544 1 1 3 1 0 24 0 1 1278 2 2 0 0 1312 2 26 0 0 6668 2
7548 24 1 0 7426 2
PROCEDURE 443
7549 24 0 1 3 0 2 0 0 181 0 1 1 3 3 0
7552 24 1 0 7559 2 0 0 3 4102 0
PROCEDURE 444
7554 24 0 1 3 0 2 0 0 181 0
7556 26 0 0 5156 2 26 0 0 5183 2 1 1 3 5 0 0 0 3 2045 2
7560 4 0 1 32 0 0 0 3 2096 2 24 0 1 3 0 2 0 0 180 0
7564 6 0 1 32 0 27 0 3 3748 2 27 0 1 7581 2 6 0 1 31 0
7568 1 1 2 44 0 27 0 1 3748 2 24 0 1 1278 2 6 0 0 1280 2
7572 1 1 2 8 0 27 0 0 7696 2 27 0 1 7581 2 1 1 3 3 0
7576 26 0 0 5053 2 1 1 3 6 0 24 0 1 1278 2 2 0 0 1280 2
7580 24 1 0 7702 2 25 1 2 0 0 0 0 3 2045 2 5 0 1 32 0
7584 26 0 0 5564 2 26 0 0 5622 2 0 0 3 2045 2 6 0 3 1280 2
7588 1 1 2 6 0 27 0 3 7623 2 0 0 3 2096 2 1 1 3 2126 2
7592 24 0 1 3 0 12 0 0 180 0 26 0 0 5053 2 26 0 0 5556 2
7596 26 0 0 5719 2 26 0 0 5264 2 24 1 0 7612 2 0 0 3 2045 2
7600 26 0 0 5258 2 0 0 3 2096 2 27 0 0 7681 2 27 0 3 7614 2
7604 0 0 3 2045 2 1 1 2 256 0 27 0 2 7612 2 1 1 1 258 0
7608 24 0 1 3 0 2 0 0 180 0 0 0 3 2096 2 24 1 0 7590 2
7612 1 1 3 3 0 24 1 0 7608 2 1 1 3 7597 2 24 0 1 3 0
7616 2 0 0 162 0 26 0 0 5443 2 26 0 0 5276 2 24 1 0 7597 2
7620 26 0 0 5331 2 26 0 0 5371 2 24 1 0 7597 2
PROCEDURE 445
7623 24 0 1 3 0
7624 2 0 0 169 0 24 0 1 3 0 2 0 0 180 0 1 0 1 3 0
7628 15 0 3 1312 2 5 0 0 2050 2 0 0 3 2096 2 27 0 0 3749 2
7632 14 0 3 1312 2 26 0 0 5760 2 26 0 0 5451 2 26 0 0 6668 2
7636 24 0 1 1278 2 19 0 3 0 0 26 0 0 5719 2 26 0 0 5631 2
7640 26 0 0 5556 2 26 0 0 5637 2 26 0 0 5719 2 26 0 0 5626 2
7644 6 1 3 1 0 5 1 0 2065 2 5 0 0 2050 2 27 0 0 7657 2
7648 6 1 3 0 0 5 0 0 3556 2 27 0 0 7653 2 6 1 3 2 0
7652 5 0 0 3556 2 27 0 1 7636 2 6 0 0 2050 2 24 0 1 3 0
7656 2 0 0 180 0 24 0 1 3 0 6 0 0 160 0 27 0 1 3750 2
7660 0 0 3 2045 2 1 1 3 3 0 24 0 1 3 0 5 0 0 169 0
7664 24 0 1 3 0 7 0 0 180 0 24 0 1 3 0 6 0 0 169 0
7668 4 1 3 5 0 5 0 0 2050 2 24 0 1 1278 2 2 0 0 1280 2
7672 24 1 0 7585 2
PROCEDURE 446
7673 24 0 1 3 0 2 0 0 181 0 6 0 1 32 0
7676 27 0 3 3748 2 27 0 0 3748 2 26 0 0 5564 2 26 0 0 5258 2
7680 27 0 1 7704 2 24 0 1 3 0 2 0 0 171 0 26 0 0 5392 2
7684 24 0 1 3 0 6 0 0 181 0 27 0 0 3869 2 25 1 2 0 0
7688 24 0 1 3 0 2 0 0 181 0 26 0 0 5556 2 6 0 0 2050 2
7692 26 0 0 5576 2 1 1 3 7 0 2 0 0 1279 2 24 1 0 3868 2
7696 26 0 0 5760 2 24 0 1 1278 2 19 1 1 0 0 26 0 0 5719 2
7700 26 0 0 5760 2 26 0 0 5073 2 26 0 0 5111 2 24 1 0 3869 2
PROCEDURE 447
7704 6 1 3 1 0 5 1 0 2065 2 5 0 0 2050 2 27 0 0 7715 2
7708 5 0 0 2050 2 27 0 0 3749 2 26 0 0 5258 2 27 0 2 7746 2
7712 26 0 0 5556 2 26 0 0 5719 2 24 1 0 7679 2 24 0 1 3 0
7716 6 0 0 160 0 27 0 0 7723 2 26 0 0 5556 2 26 0 0 5719 2
7720 24 0 1 3 0 6 0 0 160 0 27 0 1 3750 2 6 0 0 2050 2
7724 0 0 3 2045 2 24 0 1 1278 2 7 0 0 1312 2 26 0 0 5626 2
7728 6 0 0 2050 2 5 1 3 5 0 24 0 1 1278 2 4 0 0 1280 2
7732 24 0 1 3 0 2 0 0 169 0 0 0 3 2096 2 26 0 0 5760 2
7736 26 0 0 5451 2 26 0 0 6668 2 0 0 3 2045 2 24 0 1 3 0
7740 6 0 0 169 0 1 1 1 7 0 24 0 1 1278 2 2 0 0 1280 2
7744 0 0 3 2096 2 24 1 0 7679 2 1 1 3 7679 2 24 0 1 3 0
7748 2 0 0 162 0 26 0 0 5443 2 26 0 0 5276 2 24 1 0 7679 2
7752 26 0 0 5331 2 26 0 0 5371 2 24 1 0 7679 2 27 0 2 3744 2
7756 27 0 2 3744 2 27 0 3 3744 2 27 0 3 7786 2
PROCEDURE 448
7759 6 0 0 1278 2
7760 3 1 0 6 0 1 1 2 16 0 27 0 3 7765 2 1 1 2 111 0
7764 27 0 3 3744 2 6 0 3 1312 2 27 0 1 7769 2 24 0 2 3840 0
7768 2 0 3 1312 2 1 0 1 3 0 6 0 1 32 0 14 0 3 1312 2
7772 24 1 0 3883 2
PROCEDURE 449
7773 6 0 1 30 0 3 1 0 6 0 1 1 2 24 0
7776 27 0 3 7781 2 1 1 2 5 0 27 0 2 7781 2 6 0 3 3416 2
7780 24 1 0 3883 2 6 0 0 6 0 1 1 2 128 0 27 0 3 3744 2
7784 1 1 2 24 0 27 0 2 3744 2 1 0 1 3 0 25 1 2 0 0
7788 15 0 3 1312 2 24 1 0 3883 2
PROCEDURE 450
7790 24 1 1 2096 2 3 0 0 1278 2
7792 2 0 1 30 0 26 0 0 2855 2 26 0 0 3344 2 6 0 0 34 2
7796 2 1 1 44 0 26 0 0 5738 2 27 0 0 7802 2 25 0 3 2 0
7800 24 1 0 5740 2 24 1 0 5503 2 1 0 1 16 0 15 0 3 34 0
7804 18 0 0 4124 0 2 0 0 1279 2 5 1 3 34 0 27 0 2 3752 2
7808 2 1 3 34 0 1 0 1 12 0 15 0 3 34 0 5 0 0 2047 2
7812 27 0 0 7815 2 4 0 0 2047 2 18 0 0 4126 0 2 0 0 1677 2
7816 1 1 3 175 0 26 0 0 5528 2 6 0 0 1279 2 24 0 1 1278 2
7820 2 0 0 64 0 0 0 2 2052 2 15 0 0 1278 2 2 1 0 4 0
7824 1 0 1 1 0 24 0 1 1278 2 18 1 0 0 0 14 1 2 3354 2
7828 6 0 0 1677 2 27 0 0 7833 2 2 0 0 1278 2 2 0 0 1677 2
7832 24 1 0 7818 2 6 1 0 2232 2 2 1 0 3530 2 26 0 0 5661 2
7836 26 0 0 5756 2 24 0 2 7840 2 26 0 0 5834 2 24 1 0 4207 2
7840 26 0 0 5800 2 24 1 0 3869 2
PROCEDURE 451
7842 0 0 0 0 0 6 0 0 7842 2
7844 24 0 1 3 0 2 0 0 197 0 6 1 1 30 0 3 1 0 1278 2
7848 2 1 0 6 0 6 0 3 1504 2 27 0 0 7871 2 2 0 0 3534 2
7852 2 0 3 1504 2 6 1 0 2286 2 2 1 0 3530 2 26 0 0 5661 2
7856 26 0 0 5756 2 6 0 3 1528 2 2 0 0 3536 2 2 0 3 1528 2
7860 6 0 3 1552 2 2 0 0 3538 2 1 1 3 3690 2 28 1 2 3538 2
7864 1 1 3 7868 2 26 0 0 5834 2 1 1 3 3692 2 24 1 0 5602 2
7868 26 0 0 5800 2 6 1 1 30 0 2 1 0 1278 2 24 0 1 3 0
7872 26 0 1 197 0
PROCEDURE 452
7873 24 1 1 2096 2 0 0 3 2096 2 6 0 0 24 0
7876 2 0 1 38 0 24 0 2 2180 2 2 0 0 2350 2 6 0 0 1 0
7880 2 0 1 40 0 6 0 1 44 0 2 0 1 41 0 6 0 1 39 0
7884 3 0 0 2402 2 5 0 0 281 2 27 0 0 7899 2 26 0 0 1012 2
7888 24 0 2 2350 2 28 1 2 108 2 24 0 2 4 0 26 0 0 2796 2
7892 24 1 0 1045 2 24 1 1 2096 2 0 0 3 2096 2 6 0 0 16 0
7896 2 0 1 38 0 24 0 2 2184 2 24 1 0 7878 2 6 0 0 2350 2
7900 5 0 0 2180 2 27 0 0 7903 2 1 1 3 1 0 1 1 1 83 0
7904 24 1 0 2004 2
PROCEDURE 453
7905 0 0 0 0 0 18 1 0 4124 0 18 1 3 3 0
7908 18 0 0 4 0 2 0 0 2396 2 18 1 3 13 0 2 0 0 2456 2
7912 0 0 3 2045 2 1 1 3 2116 2 12 0 0 2456 2 7 0 0 2396 2
7916 0 0 3 2096 2 6 0 0 2396 2 26 0 1 7905 2
PROCEDURE 454
7919 24 0 1 2 0
7920 0 1 0 30 0 0 0 3 2096 2 26 0 0 171 2 24 1 1 2096 2
7924 6 0 0 2 0 5 0 0 278 2 27 0 0 7954 2 25 1 2 0 0
7928 1 0 1 15 0 15 0 0 16 0 5 0 0 2050 2 26 0 0 7905 2
7932 2 0 1 38 0 1 0 1 15 0 15 0 1 44 0 26 0 0 7905 2
7936 2 0 1 43 0 6 0 0 32 0 26 0 0 7905 2 2 0 1 45 0
PROCEDURE 455
7940 23 0 2 1012 2 6 0 1 39 0 2 0 0 2396 2 6 0 1 38 0
7944 2 0 0 2456 2 6 0 1 43 0 2 0 0 2457 2 6 0 1 45 0
7948 2 0 0 2458 2 24 0 2 2328 2 28 1 2 108 2 24 0 2 4 0
7952 26 0 0 2796 2 24 1 0 1045 2 1 1 3 84 0 24 1 0 2004 2
PROCEDURE 456
7956 24 0 1 2 0 0 1 0 30 0 0 0 3 2096 2 6 0 0 301 2
7960 2 0 0 25 0 24 1 1 2096 2 6 0 0 2 0 5 0 0 278 2
7964 27 0 0 7994 2 6 0 0 24 0 3 0 1 38 0 18 0 0 6 0
7968 18 0 0 4122 0 5 0 0 2050 2 26 0 0 7905 2 2 0 1 45 0
7972 6 0 0 2029 2 2 0 0 25 0 26 0 0 1012 2 6 0 1 39 0
7976 2 0 0 2396 2
PROCEDURE 457
7977 24 0 1 2 0 0 1 1 30 0 0 1 0 2456 2
7980 0 0 3 2096 2 6 0 1 45 0 2 0 0 2397 2 24 0 1 3 0
7984 6 0 0 11 0 27 0 0 7992 2 6 0 1 38 0 18 0 0 6 0
7988 18 0 0 4122 0 1 1 2 1686 2 24 0 1 2783 2 27 0 2 3 0
7992 24 0 2 2288 2 24 1 0 7950 2 1 1 3 83 0 24 1 0 2004 2
PROCEDURE 458
7996 24 0 1 2 0 0 1 0 30 0 24 1 1 2096 2 0 0 3 2096 2
8000 6 0 0 2 0 5 0 0 278 2 27 0 0 8030 2 25 1 2 0 0
8004 1 0 1 15 0 15 0 0 0 0 26 0 0 7905 2 2 0 1 45 0
8008 2 0 0 2124 2 0 0 3 2045 2 1 1 3 2116 2 12 0 0 0 0
8012 2 0 1 45 0 0 0 3 2096 2 6 0 0 2053 2 2 0 0 2124 2
8016 26 0 0 1012 2 6 0 1 39 0 2 0 0 3532 2 6 0 1 45 0
8020 2 0 0 3534 2 2 1 0 3536 2 2 0 0 3533 2 1 1 3 3648 2
8024 28 1 2 108 2 6 1 0 2230 2 2 1 0 108 2 1 1 3 4 0
8028 26 0 0 2796 2 24 1 0 1045 2 1 1 3 99 0 24 1 0 2004 2
8032 2 0 0 2524 2 27 0 0 8120 2 27 0 1 8120 2
PROCEDURE 459
8035 0 0 0 0 0
8036 2 0 0 2463 2 6 0 0 4 0 5 0 0 49 2 27 0 3 8125 2
8040 6 0 0 50 2 5 0 0 4 0 27 0 3 8125 2 6 0 2 64 0
8044 2 0 0 2462 2 6 0 0 2032 2 3 0 0 8127 2 2 0 2 64 0
8048 26 1 1 278 2 6 0 0 2033 2 3 0 0 127 0 2 0 0 2582 2
8052 1 1 3 5 0 2 0 0 4763 2 1 1 3 63 0 6 0 0 4 0
8056 18 1 0 4118 0 6 0 0 4 0 5 0 0 52 2 27 0 2 8121 2
8060 1 1 3 5 0 18 0 0 5 0 4 0 0 4 0 0 1 0 2464 2
8064 26 0 0 18 2 0 1 1 2464 2 26 0 0 18 2 26 0 0 5716 2
8068 6 0 0 2462 2 24 0 1 2464 2 2 0 0 64 0 2 0 0 8127 2
8072 6 0 0 2060 2 24 0 1 51 2 2 0 0 3353 2 2 0 0 4763 2
8076 6 0 0 2463 2 27 0 0 8118 2
PROCEDURE 460
8078 6 1 0 2524 2 5 1 0 2068 2
8080 27 0 1 716 2 6 1 0 2527 2 3 0 0 2454 2 27 0 1 8092 2
8084 1 0 1 5 0 15 0 0 2745 2 1 1 2 1025 0 27 0 0 8092 2
8088 1 1 2 2 0 27 0 0 8092 2 1 1 2 5 0 27 0 3 8123 2
8092 6 1 0 2529 2 2 0 0 2455 2 6 0 0 2745 2 2 0 0 185 0
8096 6 1 0 2531 2 2 0 0 2667 2 6 0 0 2463 2 1 1 2 2 0
8100 27 0 0 8105 2 1 1 2 2 0 27 0 0 8105 2 1 1 2 5 0
8104 27 0 1 8118 2 6 1 0 2156 2 2 1 0 2540 2 6 0 0 3543 2
8108 1 1 2 18 0 18 0 0 5 0 28 0 0 2512 2 24 0 2 2382 2
8112 28 0 3 2532 2 6 0 0 2761 2 27 0 0 8118 2 6 0 0 2464 2
8116 2 1 0 4 0 24 1 0 8036 2 24 0 1 2464 2 19 1 3 0 0
8120 26 0 1 8035 2 1 1 3 6 0 24 1 0 8061 2 24 0 2 81 0
8124 24 1 1 717 2 24 0 2 83 0 24 1 1 719 2 0 0 0 0 0
PROCEDURE 461
8128 0 0 0 0 0 1 0 1 2 0 25 1 2 0 0 15 0 0 2446 2
8132 18 1 0 4127 0 4 0 0 51 2 2 0 0 4 0 26 0 1 8128 2
PROCEDURE 462
8136 0 0 0 0 0 6 0 0 8136 2 24 0 1 3 0 2 0 0 169 0
8140 6 0 0 392 2 27 0 0 8147 2 24 0 2 8140 2 2 0 1 42 0
8144 26 0 0 5806 2 24 0 1 2 0 24 1 0 9 0 6 0 1 9 0
8148 3 0 1 7 0 2 0 0 392 2 25 1 0 127 0 24 0 1 3 0
8152 26 0 1 169 0 0 0 0 2522 2
PROCEDURE 463
8154 6 0 0 2393 2 3 0 0 392 2
8156 2 0 0 4763 2 6 0 0 1 0 2 1 0 2589 2 6 0 0 18 2
8160 2 1 0 2623 2 26 0 0 171 2 6 0 0 153 0 2 1 0 2627 2
8164 6 0 0 32 0 2 1 0 2591 2 2 1 0 2586 2
PROCEDURE 464
8167 6 1 0 278 2
8168 2 1 0 2 0 6 0 0 300 2 2 0 0 247 2 2 0 0 341 2
8172 6 1 0 2508 2 2 0 0 2764 2 26 0 0 123 2 6 0 0 2033 2
8176 24 0 1 2764 2 2 0 0 64 0 6 0 0 2032 2 2 0 0 126 0
8180 6 0 0 6383 2 2 0 0 7178 2 6 0 0 2784 2 24 0 1 2783 2
8184 27 0 1 1 0 0 1 2 2160 2 1 1 3 18 0 26 0 0 2849 2
8188 6 0 0 6384 2 2 0 0 7178 2 6 1 0 2156 2 3 1 0 2634 2
8192 2 1 0 2576 2 26 0 0 107 2
PROCEDURE 465
8194 6 0 0 2668 2 2 1 0 2529 2
8196 6 0 0 33 2 2 1 0 2531 2 6 0 0 156 0 2 1 0 2533 2
8200 24 0 2 872 2 2 1 0 2541 2 26 0 0 107 2 24 0 1 341 2
8204 6 0 0 2671 2 24 0 3 126 0 3 1 0 5 0 5 0 0 2060 2
8208 27 0 0 38 2 24 0 3 341 2 24 0 3 2671 2 6 0 0 39 0
8212 24 0 3 126 0 2 1 0 5 0 24 0 3 341 2 24 0 3 2671 2
8216 24 0 3 37 0 6 0 0 4 0 24 0 3 126 0 2 1 0 7 0
8220 24 0 3 341 2 24 0 3 2671 2 24 0 3 37 0 24 0 2 20 0
8224 4 1 0 304 2 24 0 3 126 0 28 0 1 9 0 1 1 3 2 0
8228 7 0 0 341 2 24 1 0 10 2
PROCEDURE 466
8230 1 1 3 4 0 2 0 0 341 2
8232 2 0 0 340 2 2 0 0 342 2 1 0 1 8 0 15 0 0 153 0
8236 27 0 2 46 2 6 0 0 3528 2 3 0 0 343 2 2 0 0 317 2
8240 26 0 0 97 2
PROCEDURE 467
8241 24 0 3 342 2 23 0 3 0 0 5 0 0 317 2
8244 27 0 1 58 2 7 0 0 317 2 6 1 0 317 2 24 0 3 340 2
8248 2 1 0 4 0 26 0 0 97 2 1 1 3 2 0 18 0 0 5 0
8252 4 0 0 342 2 24 0 3 340 2 28 0 1 5 0 26 0 0 97 2
8256 23 0 0 2 0 0 0 0 342 1 24 1 0 49 2 1 0 1 8 0
8260 15 0 0 153 0 5 0 0 343 2 27 0 2 82 2 6 0 0 81 2
8264 2 0 0 342 2 1 0 1 4 0 15 0 0 153 0 27 0 1 82 2
8268 18 0 0 1 0 4 0 0 81 2 3 0 0 343 2 2 0 0 317 2
8272 24 1 0 49 2 0 1 0 0 0 26 0 0 107 2
PROCEDURE 468
8275 1 1 3 28 0
8276 26 0 0 2849 2 26 0 0 151 2 24 0 2 2206 2 23 0 2 168 0
8280 25 1 2 0 0 2 0 0 4763 2 6 0 0 2784 2 24 0 1 2783 2
8284 27 0 1 2 0 6 0 0 298 2 24 0 1 2764 2 2 0 0 64 0
8288 24 1 0 3248 2
PROCEDURE 469
8289 0 0 0 0 0 23 0 0 4 0 0 0 0 340 1
8292 26 0 1 97 2 26 0 0 107 2 6 0 0 126 0 3 0 0 340 2
8296 1 1 1 48 0 2 0 0 341 2 26 0 1 97 2
PROCEDURE 470
8299 0 0 0 0 0
8300 0 0 2 302 2 1 1 3 8 0 26 0 0 2849 2 26 0 0 5716 2
8304 6 1 0 302 2 24 0 1 126 0 28 0 0 0 0 26 0 0 171 2
8308 26 0 1 107 2
PROCEDURE 471
8309 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
8312 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
PROCEDURE 472
8315 0 0 0 0 0
8316 0 0 2 2385 2 6 0 0 2385 2 14 0 0 2764 2 24 0 1 2764 2
8320 6 0 0 64 0 2 0 0 298 2 24 0 1 2764 2 6 0 0 1280 2
8324 2 0 0 117 2 24 0 1 2764 2 6 0 0 1312 2 2 0 0 118 2
8328 24 0 1 2764 2 6 0 0 1344 2 2 0 0 119 2 24 0 1 2764 2
8332 6 0 0 1376 2 2 0 0 120 2 24 0 1 2764 2 6 0 0 1408 2
8336 2 0 0 121 2 24 0 1 2764 2 6 0 0 1440 2 2 0 0 122 2
8340 24 0 1 2764 2 2 0 0 1312 2 26 0 1 123 2
PROCEDURE 473
8343 0 0 0 0 0
8344 6 0 0 117 2 24 0 1 2764 2 2 0 0 1280 2 6 0 0 118 2
8348 24 0 1 2764 2 2 0 0 1312 2 6 0 0 119 2 24 0 1 2764 2
8352 2 0 0 1344 2 6 0 0 120 2 24 0 1 2764 2 2 0 0 1376 2
8356 6 0 0 121 2 24 0 1 2764 2 2 0 0 1408 2 6 0 0 122 2
8360 24 0 1 2764 2 2 0 0 1440 2 26 0 1 151 2
PROCEDURE 474
8363 0 0 0 0 0
8364 6 0 0 2027 2 2 0 0 9 0 26 0 3 175 2 15 0 0 176 2
8368 25 1 1 4096 0 6 0 0 2028 2 2 0 0 9 0 26 0 1 171 2
PROCEDURE 475
8372 26 1 1 278 2 6 0 0 2406 2 26 0 0 224 2 24 1 1 208 2
8376 2 0 2 2668 2 6 0 2 2669 2 2 0 0 6 0 24 0 2 3885 2
8380 2 0 3 42 0
PROCEDURE 476
8381 6 1 3 46 0 18 1 1 4125 0 1 0 2 5 0
8384 2 1 0 2452 2 1 1 3 2126 2 12 1 0 2452 2 2 1 0 2452 2
8388 0 0 3 2389 2 1 1 3 2134 2 12 1 0 2452 2 2 1 0 2452 2
8392 0 0 3 2389 2 1 1 3 2134 2 12 0 0 229 2 2 0 0 2398 2
8396 0 0 3 2096 2 2 1 0 228 2 1 1 3 322 2 24 1 0 217 2
8400 1 1 3 97 0 24 1 0 2004 2
PROCEDURE 477
8402 1 1 3 81 0 24 1 1 213 2
8404 1 1 3 82 0 2 0 0 2398 2 24 0 2 280 2 24 1 0 217 2
8408 24 0 2 300 2
PROCEDURE 478
8409 2 0 0 2407 2 26 0 0 1012 2 6 0 0 2407 2
8412 28 1 2 108 2 26 0 0 2796 2 26 0 0 238 2 24 1 0 1045 2
PROCEDURE 479
8416 0 0 0 0 0 2 0 0 2396 2 2 1 0 4 0 6 0 2 2668 2
8420 5 0 0 2396 2 27 0 1 235 2 6 0 2 2668 2 5 0 0 2060 2
8424 27 0 1 237 2 25 0 2 2 0 24 1 0 227 2 24 0 1 224 2
8428 24 1 0 1 0 26 0 1 224 2
PROCEDURE 480
8430 0 0 0 0 0 6 0 0 2437 2
8432 27 0 3 267 2 6 0 0 2432 2 27 0 1 251 2 26 1 3 2432 2
8436 6 0 3 45 0 27 1 0 249 2 25 1 2 0 0 5 0 3 45 0
8440 24 1 1 250 2 2 0 3 7 0 2 0 3 45 0 6 0 0 2434 2
8444 27 0 1 261 2 26 1 3 2434 2 6 0 3 45 0 27 1 0 259 2
8448 25 1 2 0 0 5 0 3 45 0 24 1 1 260 2 2 0 3 7 0
8452 2 0 3 45 0 2 0 0 2437 2 6 0 0 238 2 1 1 2 3255 2
8456 27 0 2 267 2 6 0 2 35 0 2 0 2 7 0 25 1 2 1919 0
8460 1 1 2 127 0 2 0 0 189 2 25 1 1 6143 0 6 0 0 299 2
8464 2 0 0 247 2 2 0 0 392 2 2 0 0 4763 2 6 0 0 188 2
8468 27 0 1 278 2 25 1 0 128 0 26 0 1 238 2 0 0 0 0 0
SECTION 481
8472 0 2162 1 5 3 0 0 0 5 0 0 2398 1 1041 3 0 4 1 1 0
8476 0 2158 1 769 3 0 3 0 1 0 0 2454 1 5 0 0 0 0 5 0
8480 0 2158 1 769 3 0 3 0 1 0 0 2166 1 18 3 0 0 1 2 0
8484 0 185 0 513 0 0 2 0 1 0 0 2166 1 786 3 0 3 1 2 0
8488 0 185 0 1025 0 0 4 0 1 0 0 2080 1 18 3 0 0 1 2 1
8492 0 2162 1 5 3 0 0 0 5 0 0 2158 1 802 3 0 3 2 2 0
8496 0 2166 1 18 3 0 0 1 2 0 0 2446 1 513 0 0 2 0 1 0
8500 0 2166 1 786 3 0 3 1 2 0 0 2446 1 1025 0 0 4 0 1 0
8504 0 2080 1 18 3 0 0 1 2 1 0 2080 1 18 3 0 0 1 2 1
8508 0 2080 1 50 3 0 0 3 2 1 0 2452 1 13651 2 3 5 5 3 0
8512 0 2452 1 2066 2 0 8 1 2 0
SECTION 482
8514 0 2200 1 5 3 0 0 0 5 0
8516 0 2158 1 769 3 0 3 0 1 0 0 2406 1 5 0 0 0 0 5 0
8520 0 2178 1 81 3 0 0 5 1 0 0 2184 1 1044 3 0 4 1 4 0
8524 0 2152 1 117 3 0 0 7 5 0 0 2398 1 4386 0 1 1 2 2 0
8528 0 2398 1 4882 0 1 3 1 2 0 0 2080 1 34 3 0 0 2 2 1
PROCEDURE 483
8532 25 1 1 4096 0 1 1 3 2048 0 2 0 0 0 0 25 1 2 0 0
8536 19 0 1 0 0 26 1 0 0 0 0 0 0 291 0 24 1 0 345 2
8540 0 0 0 2049 0 0 0 0 32 0 6 1 0 348 2 28 1 0 2081 0
8544 24 1 0 2081 0 24 1 1 472 2 24 1 0 216 2 27 0 1 216 2
8548 27 0 2 477 2 24 1 1 481 2 24 1 1 483 2 24 1 1 571 2
8552 24 1 1 572 2 24 1 0 1779 2
PROCEDURE 484
8554 1 1 3 86 0 2 0 0 2398 2
8556 24 1 1 2096 2 6 1 0 2376 2 28 0 0 26 0 23 1 0 26 0
8560 23 1 0 30 0 23 1 0 28 0 24 0 2 372 2 24 1 0 217 2
SECTION 485
8564 0 2234 1 5 3 0 0 0 5 0 0 2184 1 1025 3 0 4 0 1 0
8568 0 2398 1 1089 3 0 4 4 1 0 0 2158 1 769 3 0 3 0 1 0
8572 0 2402 1 5 0 0 0 0 5 0 0 2080 1 18 3 0 0 1 2 1
8576 0 2452 1 13651 2 3 5 5 3 0 0 2452 1 2066 2 0 8 1 2 0
8580 0 2178 1 81 3 0 0 5 1 0 0 2184 1 1044 3 0 4 1 4 0
SECTION 486
PROCEDURE 487
8584 0 0 0 0 0 6 1 0 2670 2 5 1 0 2060 2 27 0 1 216 2
8588 1 1 3 1026 0 2 0 0 2745 2 25 1 2 0 0 6 1 0 2513 2
8592 27 0 1 404 2 6 0 0 2508 2 1 1 1 7 0 24 1 1 414 2
8596 0 0 2 2385 2 15 1 0 2519 2 1 1 2 7 0 27 0 1 432 2
8600 1 1 1 7 0 4 1 0 2519 2 18 0 3 3 0 18 0 0 4127 0
8604 27 0 1 458 2 1 1 2 48 0 3 1 0 2518 2 1 1 2 128 0
8608 27 1 0 432 2 1 1 2 24 0 27 0 3 432 2 1 1 1 24 0
8612 1 1 1 152 0 26 0 0 3329 2 24 1 1 434 2 24 0 1 2518 2
8616 6 0 0 64 0 3 1 0 2520 2 1 1 2 4087 0 27 0 1 441 2
8620 1 1 2 1 0 27 0 1 441 2 1 1 2 3 0 27 0 1 441 2
8624 1 1 3 84 0 24 1 0 213 2 6 1 0 2518 2 3 0 0 2764 2
8628 6 1 0 2514 2 2 1 0 2736 2 6 1 0 2516 2 2 1 0 2738 2
8632 24 1 1 460 2 1 1 3 36 0 2 0 0 2523 2 2 0 0 2522 2
8636 24 0 1 2522 2 6 0 0 2473 2 27 0 1 451 2 23 0 0 6 0
8640 0 0 0 2522 1 24 1 0 444 2 24 1 0 432 2 6 1 0 2518 2
8644 24 0 1 2522 2 2 0 0 2472 2 6 1 0 2520 2 24 0 1 2522 2
8648 2 0 0 2473 2 24 1 0 434 2 6 0 0 2508 2 24 1 0 414 2
8652 6 1 0 2513 2 27 0 1 472 2 6 0 0 2784 2 27 0 2 477 2
8656 26 0 0 123 2 6 0 0 2050 2 7 0 0 2745 2 1 1 3 1 0
8660 2 0 0 2766 2 6 1 0 2513 2 2 0 0 2451 2 2 1 0 2512 2
8664 6 1 0 2454 2 3 1 0 2402 2 26 0 0 224 2 24 1 0 480 2
8668 24 1 1 478 2 1 1 3 1 0 1 1 1 82 0 24 1 1 572 2
PROCEDURE 488
8672 2 0 0 242 2 6 1 0 2380 2 28 1 1 684 2 6 1 0 2060 2
8676 1 1 0 2696 2 5 1 0 2696 2 27 0 1 496 2 18 1 0 10 0
8680 1 1 2 2 0 2 1 0 4 0 6 0 2 1 0 1 1 2 360 0
8684 27 1 0 495 2 4 0 2 0 0 24 1 1 502 2 25 1 2 0 0
8688 26 0 0 224 2 24 1 0 563 2 24 0 1 4 0 24 0 1 2669 2
8692 24 0 1 37 0 24 0 2 140 0 2 0 0 2742 2 24 0 1 2742 2
8696 1 1 3 0 0 2 0 0 2741 2
PROCEDURE 489
8698 6 0 0 299 2 2 0 0 247 2
8700 0 0 2 2050 2 15 0 0 2745 2 27 0 1 512 2 6 0 0 2385 2
8704 0 0 2 2385 2 14 0 0 2764 2 6 0 0 2032 2 24 0 1 2764 2
8708 2 0 0 64 0 6 0 0 2033 2 2 0 0 124 0 26 0 0 2898 2
8712 24 1 1 521 2 26 0 0 2954 2 24 1 1 573 2 6 0 0 185 0
8716 1 1 2 1033 0 27 0 2 540 2 6 1 0 2698 2 2 1 0 2696 2
8720 24 0 2 394 2 2 0 0 2698 2 1 1 2 394 2 7 0 0 2699 2
8724 6 0 0 539 2 2 0 0 1807 2 5 0 0 2050 2 7 0 0 4136 2
8728 7 0 0 5253 2 7 0 0 6883 2 24 1 1 540 2 24 1 0 1850 2
8732 6 0 0 300 2 2 0 0 247 2
PROCEDURE 490
8734 1 1 3 1 0 2 0 0 4763 2
8736 6 1 0 2372 2 28 0 0 2456 2 6 0 0 2742 2 3 1 0 28 0
8740 3 0 0 4 0 1 1 1 360 0 2 0 0 5 0 26 0 0 171 2
8744 24 0 2 14 0 23 1 2 0 0 25 0 2 2 0 24 1 0 553 2
8748 1 1 3 14 0 23 1 0 26 0 23 1 0 30 0 23 1 0 28 0
8752 24 0 2 2740 2 26 0 0 3265 2 26 0 1 2742 2
PROCEDURE 491
8755 6 0 0 242 2
8756 27 0 2 571 2 1 1 3 1 0 2 0 0 242 2 6 1 0 2060 2
8760 1 1 0 2716 2 5 1 0 2716 2 24 1 0 486 2 1 1 3 85 0
8764 24 1 0 213 2 1 1 3 81 0 2 0 0 2398 2 24 0 1 2522 2
8768 6 1 0 2474 2 2 1 0 2454 2 24 0 1 2522 2 2 1 0 2474 2
8772 24 0 2 610 2 24 1 0 217 2
SECTION 492
8774 45965 0 73596 0
8776 5.5. 0 57000 0 45565 0 73596 0
8780 5.5. 0 54000 0 16755 0 67735 0
8784 16954 0 67535 0 70000 0 58596 0
8788 45973 0 666 0 25573 0 7 0
8792 47152 0 5 0 25569 0 7 0
8796 7267 0 0 0 55457 0 5 0
8800 70010 0 726 0
SECTION 493
8802 0 2162 1 5 3 0 0 0 5 0
8804 0 2398 1 1041 3 0 4 1 1 0 0 2158 1 769 3 0 3 0 1 0
8808 0 2402 1 5 0 0 0 0 5 0 0 2158 1 769 3 0 3 0 1 0
8812 0 2454 1 5 0 0 0 0 5 0 0 2158 1 769 3 0 3 0 1 0
8816 0 2166 1 18 3 0 0 1 2 0 0 185 0 513 0 0 2 0 1 0
8820 0 2166 1 786 3 0 3 1 2 0 0 185 0 1025 0 0 4 0 1 0
8824 0 2080 1 2 3 0 0 0 2 1 0 2397 1 49 0 0 0 3 1 0
8828 0 2252 1 5 3 0 0 0 5 0 0 2665 1 5 0 0 0 0 5 0
SECTION 494
8832 0 47 1 1073 0 0 4 3 1 0 0 2396 1 21 0 0 0 1 5 1
SECTION 495
8836 0 2242 1 5 3 0 0 0 5 0 0 2168 1 257 3 0 1 0 1 0
8840 0 2454 1 5 0 0 0 0 5 0 0 2080 1 34 3 0 0 2 2 1
8844 0 2248 1 5 3 0 0 0 5 0 0 2166 1 1025 3 0 4 0 1 0
8848 0 2168 1 257 3 0 1 0 1 0 0 2454 1 5 0 0 0 0 5 0
8852 0 2080 1 18 3 0 0 1 2 1 0 2250 1 5 3 0 0 0 5 0
8856 0 2168 1 257 3 0 1 0 1 0 0 2454 1 5 0 0 0 0 5 0
8860 0 2168 1 257 3 0 1 0 1 0 0 2667 1 5 0 0 0 0 5 0
8864 0 2080 1 18 3 0 0 1 2 1 0 2246 1 5 3 0 0 0 5 0
8868 0 2168 1 258 3 0 1 0 2 0 0 2454 1 4611 0 1 2 0 3 0
8872 0 2455 1 12819 0 3 2 1 3 0 0 2080 1 66 3 0 0 4 2 1
SECTION 496
SECTION 497
8876 0 0 0 0 0 0 0 0
8880 0 0 0 0 0 0 0 0
8884 0 0 0 0 0 0 0 0
8888 0 0 0 0 0 0 0 0
8892 0 0 0 0 0 0 0 0
8896 0 0 0 0 0 0 0 0
8900 0 0 0 0 0 0 0 0
8904 0 0 0 0 0 0 0 0
PROCEDURE 498
8908 24 0 2 82 0 24 0 1 2464 2 19 1 3 0 0 2 0 0 2398 2
8912 26 0 0 1012 2 6 1 0 2178 2 2 1 0 108 2 6 0 0 2398 2
8916 2 1 0 110 2 24 0 2 1754 2 28 1 2 112 2 24 0 2 4 0
8920 24 1 0 221 2
PROCEDURE 499
8921 0 0 0 0 0 26 0 1 729 2
PROCEDURE 500
8923 0 0 0 0 0
8924 2 0 0 2396 2 15 0 0 2446 2 27 0 0 216 2 5 0 0 2396 2
8928 27 0 2 216 2 4 0 0 2396 2 26 0 1 731 2
PROCEDURE 501
8931 0 0 0 0 0
8932 1 0 1 2 0 15 0 0 185 0 27 0 2 216 2 1 1 3 0 0
8936 15 0 0 2446 2 18 0 0 4127 0 3 0 0 316 2 26 0 0 1012 2
8940 6 0 0 316 2 3 0 0 4 0 26 0 1 739 2
PROCEDURE 502
8943 0 0 0 0 0
8944 1 1 3 2 0 18 0 0 5 0 2 1 0 6 0 6 0 3 2454 2
8948 18 1 0 4127 0 2 0 3 1672 2 18 1 0 1 0 2 0 3 1674 2
8952 1 1 3 2126 2 12 0 3 1672 2 3 0 3 1672 2 18 0 3 3 0
8956 4 0 3 1674 2 3 0 3 1678 2 3 1 0 4 0 27 0 3 210 2
8960 1 1 2 176 0 27 0 2 210 2 6 0 2 64 0 18 1 0 4127 0
8964 26 0 1 751 2 0 0 0 216 2 0 0 0 216 2 24 1 1 958 2
8968 27 0 2 216 2 27 0 2 1006 2 27 0 1 216 2
PROCEDURE 503
8971 1 0 1 1 0
8972 1 1 3 12 0 26 0 0 731 2 2 0 0 785 2 24 0 1 785 2
8976 26 0 1 785 2 0 0 0 216 2 0 0 0 797 2 0 0 0 827 2
8980 0 0 0 850 2 0 0 0 882 2 0 0 0 890 2 0 0 0 909 2
8984 0 0 0 937 2 0 0 0 1051 2 0 0 0 1099 2 0 0 0 1115 2
8988 0 0 0 1136 2
PROCEDURE 504
8989 6 0 0 2470 2 27 0 2 824 2 26 0 0 1012 2
8992 26 1 2 2102 2 6 0 0 2024 2 2 0 2 355 2 6 0 0 3795 2
8996 2 0 2 378 2 2 1 2 397 2 6 0 0 2025 2 2 0 2 368 2
9000 25 0 2 48 0 24 1 0 801 2 6 0 0 5577 2 2 0 0 3785 2
9004 6 0 0 2024 2 3 0 0 3786 2 3 0 0 2470 2 6 1 0 384 2
9008 2 1 0 328 2 6 1 0 386 2 2 1 0 330 2 6 1 0 582 2
9012 2 1 0 108 2 6 1 0 584 2 2 1 0 110 2 24 1 0 221 2
9016 25 1 2 0 0 2 0 0 2454 2 24 1 0 210 2
PROCEDURE 505
9019 26 0 0 1012 2
9020 26 1 2 2102 2 6 0 2 357 2 2 0 2 355 2 6 0 2 379 2
9024 2 0 2 378 2 6 0 0 2031 2 2 0 2 368 2 25 0 2 48 0
9028 24 1 0 829 2 2 0 0 2470 2 6 0 0 3789 2 2 0 0 3785 2
9032 6 0 0 3790 2 2 0 0 3786 2 6 1 0 388 2 2 1 0 328 2
9036 6 1 0 390 2 2 1 0 330 2 6 1 0 586 2 2 1 0 108 2
9040 6 1 0 588 2 24 1 0 822 2
PROCEDURE 506
9042 26 0 0 1012 2 1 0 1 1008 0
9044 15 1 0 2158 2 2 1 0 108 2 2 1 0 4 0 2 1 0 6 0
9048 6 0 2 2670 2 27 0 1 877 2 6 1 2 2670 2 3 1 0 2396 2
9052 5 1 0 2060 2 27 0 1 879 2 24 0 1 2397 2 24 0 1 37 0
9056 6 0 0 10 0 2 0 0 47 2 24 0 2 640 2 24 0 1 6 0
9060 28 1 2 110 2 6 0 0 6 0 1 1 2 12 0 27 0 2 876 2
9064 1 0 1 12 0 15 0 0 2080 2 2 1 3 114 2 25 0 3 2 0
9068 25 0 3 4 0 25 0 2 2 0 24 1 0 856 2 6 0 0 234 2
9072 2 1 3 110 2 24 1 0 221 2
PROCEDURE 507
9074 1 1 2 32 0 26 0 0 739 2
9076 2 0 0 2773 2 24 0 1 4 0 6 1 2 590 2 2 1 0 108 2
9080 6 1 0 2226 2 24 1 1 904 2
PROCEDURE 508
9082 1 1 2 80 0 26 0 0 739 2
9084 27 0 0 216 2 26 0 0 5569 2 1 1 1 8191 0 14 0 0 908 2
9088 1 1 2 8191 0 27 0 1 899 2 1 1 3 2 0 2 0 0 6 0
9092 6 1 3 596 2 2 1 0 108 2 24 0 1 4 0 6 1 2 598 2
9096 2 1 0 110 2 6 1 0 2226 2 2 1 0 112 2 24 1 0 221 2
9100 0 0 0 0 0
PROCEDURE 509
9101 1 1 2 32 0 1 0 1 2 0 15 0 0 185 0
9104 27 0 2 216 2 18 0 1 4127 0 1 1 1 2 0 18 0 3 2 0
9108 3 0 0 7285 2 27 0 1 920 2 1 1 3 34 0 24 1 1 921 2
9112 1 1 3 27 0 18 1 0 4118 0 6 1 0 3554 2 24 0 1 192 0
9116 2 1 0 4 0 18 1 0 15 0 1 1 1 128 0 26 0 0 18 2
9120 26 0 0 1012 2 6 1 0 2266 2 2 1 0 108 2 24 0 1 7285 2
9124 0 1 1 2268 2 0 1 0 110 2 0 0 3 2117 2 25 1 2 0 0
9128 24 1 0 221 2
PROCEDURE 510
9129 26 0 0 1012 2 1 0 1 2 0 15 0 0 185 0
9132 1 1 2 128 0 27 0 3 960 2 1 1 1 128 0 26 0 0 946 2
9136 1 0 1 12 0 24 1 1 966 2 0 0 0 0 0 27 0 2 952 2
9140 1 1 3 3 0 18 0 0 3 0 2 1 0 2396 2 24 1 1 954 2
9144 3 1 0 2397 2 18 0 0 4127 0 3 0 0 731 2 24 0 2 2126 2
9148 12 0 0 731 2 18 0 3 3 0 2 0 0 731 2 26 0 1 946 2
9152 0 0 3 2045 2 1 1 1 352 0 0 0 3 2127 2 26 0 0 946 2
9156 1 0 1 60 0 1 0 1 12 0 6 1 0 2262 2 15 1 0 2396 2
9160 2 1 0 108 2 6 0 0 731 2 3 0 0 1672 2 1 1 1 8 0
9164 2 0 0 1673 2 2 1 0 1674 2 24 0 1 1672 2 6 0 0 64 0
9168 18 1 0 4127 0 27 0 1 988 2 1 1 2 255 0 27 0 1 996 2
9172 6 0 0 1672 2 5 0 0 731 2 27 0 2 984 2 1 1 1 48 0
9176 18 0 0 3 0 18 1 0 3 0 1 0 1 955 0 24 1 1 1014 2
9180 6 0 0 1672 2 5 0 0 731 2 27 0 2 992 2 1 1 1 48 0
9184 18 0 0 3 0 18 1 0 3 0 1 0 1 907 0 24 1 1 1014 2
PROCEDURE 511
9188 25 1 2 0 0 2 1 0 1676 2 24 0 1 1676 2 6 0 0 2670 2
9192 27 0 1 1027 2 5 0 0 2060 2 27 0 1 1006 2 23 0 0 2 0
9196 0 0 0 1676 1 24 1 0 998 2 6 0 0 1672 2 5 0 0 731 2
9200 27 0 2 1010 2 1 1 1 48 0 18 0 0 3 0 1 1 1 208 0
9204 18 0 0 3 0 1 0 1 947 0 15 1 0 2264 2 24 0 1 1674 2
9208 2 1 0 110 2 1 0 1 0 0 23 0 0 2 0 0 0 0 1674 1
9212 23 0 0 1 0 0 0 0 1672 1 24 1 0 974 2 6 0 0 2226 2
9216 2 1 0 126 2 26 1 1 278 2 24 1 0 221 2 24 0 1 1676 2
9220 24 0 1 2671 2 26 1 1 36 0 26 0 0 5745 2 25 1 2 0 0
9224 1 0 1 3 0 15 0 3 34 0 5 0 0 1672 2 27 0 1 1039 2
9228 25 0 3 1 0 24 1 0 1031 2 24 1 0 1003 2 1 0 1 16 0
9232 15 0 3 34 0 2 0 0 1678 2 0 0 2 2050 2 14 0 0 6 0
9236 6 1 3 34 0 27 0 3 1003 2 6 0 0 1678 2 18 1 0 4123 0
9240 24 1 0 988 2 24 1 1 1093 2 0 0 0 0 0
PROCEDURE 512
9243 26 0 0 1012 2
9244 6 1 0 2260 2 2 1 0 108 2 1 1 3 20 0 2 1 0 4 0
9248 26 1 3 2108 2 6 0 2 2687 2 5 0 0 2060 2 27 0 2 1063 2
9252 25 0 2 4098 0 24 1 0 1057 2 24 1 1 1076 2 0 0 3 2045 2
9256 24 0 2 2116 2 12 0 2 2695 2 2 0 0 176 2 24 0 2 3688 2
9260 24 0 1 6 0 28 1 2 110 2 0 0 3 2117 2 1 0 1 768 0
9264 14 1 3 110 2 25 0 3 2 0 25 0 2 4098 0 24 1 1 1096 2
9268 6 0 0 731 2 27 1 0 1093 2 1 1 3 18 0 2 0 0 5 0
9272 1 1 1 38 0 2 0 0 4 0 1 0 1 1008 0 15 1 0 2168 2
9276 2 1 3 110 2 6 0 0 6 0 1 1 1 2 0 3 0 0 6 0
9280 1 1 1 10 0 2 0 0 7 0 1 1 2 1111 0 2 0 0 731 2
9284 24 1 0 1057 2 6 1 0 2226 2 2 1 3 110 2 24 1 0 221 2
9288 25 0 3 0 0 24 1 0 1057 2 24 1 0 1074 2
PROCEDURE 513
9291 18 1 0 1 0
9292 25 1 2 0 0 15 0 0 185 0 15 0 0 185 0 18 0 0 4127 0
9296 2 0 0 2057 2 26 0 0 1012 2 6 1 0 2258 2 2 1 0 108 2
9300 6 1 0 2192 2 2 1 0 110 2 6 0 0 2057 2 18 0 3 15 0
9304 4 0 0 2226 2 2 1 0 112 2 24 1 0 221 2
PROCEDURE 514
9307 1 1 3 64 0
9308 26 0 0 739 2 27 0 1 1121 2 1 1 2 1 0 27 0 0 216 2
9312 1 1 1 1 0 18 0 3 3 0 3 0 0 49 2 3 0 0 50 2
9316 3 0 0 51 2 1 1 1 4 0 2 0 0 52 2 6 1 0 2242 2
9320 2 1 0 108 2 1 1 3 64 0 4 0 0 4 0 18 0 1 8 0
9324 1 0 1 15 0 15 0 0 2080 2 2 1 0 110 2 24 1 0 221 2
PROCEDURE 515
9328 26 0 0 1012 2 25 1 2 0 0 1 0 1 1 0 15 0 0 2767 2
9332 1 1 2 9 0 27 0 2 1146 2 6 1 0 2278 2 2 1 0 110 2
9336 1 1 3 4 0 24 1 1 1149 2 6 1 0 2280 2 2 1 0 110 2
9340 1 1 3 9 0 14 0 0 2767 2 6 1 0 2276 2 2 1 0 108 2
9344 6 0 0 2226 2 2 1 0 112 2 24 1 0 221 2 0 0 0 216 2
9348 0 0 0 216 2 27 0 1 216 2 0 0 0 216 2 15 0 0 2446 2
9352 27 0 0 216 2 1 1 3 10 0 1 1 3 7 0 1 1 3 9 0
PROCEDURE 516
9356 26 0 0 8128 2 1 1 3 14 0 26 0 0 731 2 3 0 0 1174 2
9360 1 1 2 11 0 27 0 3 1190 2 1 1 1 11 0 26 0 0 8035 2
9364 24 0 1 1174 2 26 0 1 1174 2 0 0 0 0 0 0 0 0 1205 2
9368 0 0 0 398 2 0 0 0 216 2 0 0 0 398 2 0 0 0 216 2
9372 0 0 0 1219 2 0 0 0 1256 2 0 0 0 1270 2 0 0 0 1315 2
9376 0 0 0 216 2 0 0 0 1219 2 0 0 0 1256 2 0 0 0 1315 2
9380 0 0 0 216 2 0 0 0 1205 2 1 0 1 2 0 1 1 3 0 0
9384 15 0 0 185 0 27 0 0 210 2 9 0 0 2105 2 18 1 0 9 0
9388 1 1 1 290 2 3 0 0 315 2 1 1 2 751 2 27 0 3 1207 2
9392 24 0 1 315 2 6 0 0 39 0 3 1 0 2454 2 27 0 0 210 2
9396 24 1 0 1172 2
PROCEDURE 517
9397 6 1 0 2454 2 26 0 0 224 2 24 1 0 210 2
9400 6 0 0 4 0 27 0 0 210 2 24 0 1 4 0 24 0 1 2669 2
9404 26 1 1 36 0 24 0 1 3 0 6 0 0 11 0 24 0 1 2783 2
9408 27 0 1 9 0 25 1 2 0 0 24 1 0 4687 2
PROCEDURE 518
9411 6 0 0 2454 2
9412 26 0 0 224 2 24 1 0 210 2 6 0 0 4 0 3 0 0 5 0
9416 1 1 2 4 0 27 0 3 212 2 6 1 2 2668 2 2 1 0 2396 2
9420 6 1 2 2666 2 2 1 2 2668 2 6 1 0 2396 2 2 1 2 2666 2
9424 6 0 2 2667 2 2 0 0 4 0 1 1 3 2387 2 2 0 0 6 0
9428 26 0 0 2813 2
PROCEDURE 519
9429 6 0 0 4 0 2 0 0 6 0 24 0 1 5 0
9432 6 0 0 2665 2 2 0 0 4 0 26 0 0 2813 2 6 0 0 4 0
9436 2 0 0 6 0 24 0 1 5 0 6 0 0 2669 2 2 0 0 4 0
9440 26 0 0 2813 2 6 0 0 4 0 2 0 0 6 0 1 1 3 2387 2
9444 2 0 0 4 0 26 0 0 2813 2 24 0 2 644 2 24 1 0 217 2
PROCEDURE 520
9448 6 0 0 2454 2 26 0 0 224 2 24 1 0 210 2 6 0 2 2669 2
9452 2 1 0 4 0 6 0 2 45 0 5 0 0 2026 2 27 0 0 212 2
9456 6 0 2 45 0 27 0 2 212 2 2 0 2 7 0 2 0 2 45 0
9460 1 1 3 652 2 24 1 0 217 2
PROCEDURE 521
9462 6 0 0 2454 2 26 0 0 224 2
9464 24 1 1 1274 2 24 1 0 212 2 26 0 0 224 2 24 1 0 210 2
9468 6 0 2 2669 2 2 0 0 6 0 6 0 3 39 0 5 0 0 2454 2
9472 27 0 1 233 2 24 0 1 6 0 24 0 1 37 0 6 0 0 11 0
9476 27 0 2 1313 2 6 0 0 2454 2 2 0 2 2668 2 6 0 3 37 0
9480 2 0 0 4 0 6 0 0 2667 2 3 0 3 40 0 2 0 2 15 0
9484 6 0 0 2533 2 5 0 0 2157 2 27 0 1 1299 2 6 1 0 2534 2
9488 2 1 3 30 0 6 1 0 2536 2 24 1 1 1300 2 2 1 3 30 0
9492 2 1 3 32 0 6 0 0 2045 2 2 0 3 34 0 2 1 1 46 0
9496 1 0 1 15 0 6 0 2 10 0 18 0 0 4 0 15 0 2 8 0
9500 2 0 3 44 0 6 0 3 35 0 2 0 3 7 0 24 0 2 662 2
9504 24 1 0 217 2 24 0 2 83 0 24 1 0 213 2
PROCEDURE 522
9507 6 0 0 2454 2
9508 26 0 0 224 2 24 1 0 210 2 6 0 2 2669 2 2 1 0 4 0
9512 6 0 2 7 0 5 0 2 9 0 27 0 0 212 2 6 0 2 7 0
9516 2 0 2 45 0 6 0 2 9 0 2 0 2 7 0 26 0 0 1012 2
9520 1 1 3 654 2 28 1 2 110 2 6 1 0 2240 2 2 1 0 108 2
9524 1 0 1 768 0 14 1 0 110 2 24 1 0 221 2
PROCEDURE 523
9527 1 0 1 1 0
9528 1 1 3 2 0 26 0 0 731 2 24 1 0 8154 2
PROCEDURE 524
9531 26 0 0 8128 2
9532 1 1 3 10 0 26 0 0 731 2 3 0 0 1346 2 26 0 0 8035 2
9536 24 0 1 1346 2 26 0 1 1346 2 0 0 0 0 0 0 0 0 1356 2
9540 0 0 0 398 2 0 0 0 1387 2 0 0 0 398 2 0 0 0 216 2
9544 0 0 0 1399 2 0 0 0 1422 2 0 0 0 1436 2 0 0 0 393 2
PROCEDURE 525
9548 6 1 0 2527 2 27 0 2 1382 2 24 0 2 24 0 5 0 0 1384 2
9552 2 0 0 1384 2 6 1 0 1682 2 24 0 1 1384 2 28 1 0 1704 2
9556 25 1 2 0 0 24 0 1 1384 2 2 0 0 1704 2 6 1 0 1684 2
9560 24 0 1 1384 2 28 1 0 1716 2 26 0 0 1012 2 6 1 0 2284 2
9564 2 1 0 112 2 6 1 0 2204 2 2 1 0 108 2 2 1 0 110 2
9568 6 1 0 2528 2 2 1 0 112 2 6 1 0 2226 2 2 1 0 114 2
9572 2 1 0 114 2 24 1 0 221 2 24 0 2 81 0 24 1 0 719 2
9576 0 0 0 0 0 27 0 1 212 2 27 0 1 216 2
PROCEDURE 526
9579 6 1 0 2527 2
9580 27 0 1 1382 2 1 1 3 12 0 5 0 0 1398 2 2 0 0 1398 2
9584 6 1 0 1682 2 24 0 1 1398 2 28 1 0 1728 2 26 0 0 1012 2
9588 6 1 0 2282 2 24 1 0 1372 2 0 0 0 0 0
PROCEDURE 527
9591 26 0 0 751 2
9592 1 1 2 255 0 27 0 2 1409 2 18 1 0 1 0 2 0 2 64 0
9596 2 0 0 2455 2 24 0 2 2246 2 2 0 0 674 2 24 0 2 674 2
9600 24 1 0 217 2 6 0 0 4 0 26 0 0 3329 2 24 1 1 1413 2
9604 24 1 0 212 2 24 0 1 2522 2 6 0 0 2473 2 2 0 2 64 0
9608 6 0 0 3543 2 1 1 2 22 0 18 0 0 5 0 24 0 1 2522 2
9612 28 0 0 2472 2 24 1 0 1404 2
PROCEDURE 528
9614 26 0 0 751 2 27 0 1 212 2
9616 1 1 1 255 0 18 1 0 1 0 2 0 2 64 0 2 0 0 2455 2
9620 24 0 2 2244 2 24 1 0 1406 2 27 0 1 1654 2 27 0 3 1654 2
9624 27 1 0 1654 2 27 0 2 1654 2 27 0 1 1592 2 27 0 1 1635 2
PROCEDURE 529
9628 26 0 0 751 2 25 1 2 0 0 18 1 0 1 0 3 0 0 1658 2
9632 3 0 3 1676 2 25 0 3 1 0 24 1 0 755 2 6 0 2 64 0
9636 18 0 0 4124 0 27 0 1 1654 2 3 0 0 1677 2 1 1 2 13 0
9640 27 0 3 1654 2 6 0 0 1676 2 1 1 2 5 0 27 0 1 1463 2
9644 6 0 0 1673 2 1 1 2 16 0 27 1 0 1492 2 1 1 2 1 0
9648 27 0 3 1492 2 6 0 0 1672 2 1 1 2 16 0 27 1 0 1654 2
9652 1 1 2 1 0 27 0 3 1654 2 1 1 3 15 0 2 0 0 1658 2
9656 26 1 3 2102 2 6 0 3 381 2 5 0 0 1679 2 27 0 1 1471 2
9660 25 0 3 48 0 24 1 0 1465 2 24 1 1 1654 2 24 0 1 6 0
9664 26 1 1 387 2 6 0 1 31 0 1 1 2 15 0 27 1 0 1478 2
9668 1 1 2 4 0 27 1 0 1501 2 6 0 1 31 0 1 1 1 3801 2
9672 1 1 2 5049 2 27 0 1 1501 2 1 1 1 5049 2 1 1 2 6992 2
9676 27 0 1 1501 2 1 1 1 6992 2 1 1 2 4485 2 27 0 1 1501 2
9680 1 1 1 4485 2 1 1 2 5898 2 27 0 1 1501 2 24 1 1 1654 2
9684 26 1 3 2102 2 6 0 0 1677 2 1 1 2 1 0 27 0 1 1499 2
9688 25 0 3 48 0 24 1 0 1494 2 24 1 1 1654 2 24 0 1 6 0
9692 26 1 1 387 2 6 0 0 1679 2 2 0 0 1278 2 26 0 0 5738 2
9696 27 0 1 1508 2 25 0 3 2 0 24 1 0 5740 2 24 1 1 1654 2
9700 1 0 1 16 0 15 0 3 34 0 18 0 0 4124 0 3 0 0 1677 2
9704 5 0 0 1676 2 27 0 1 1516 2 6 0 0 1658 2 27 0 3 1654 2
9708 24 0 1 1678 2 6 0 0 64 0 18 0 0 4127 0 27 0 2 1654 2
9712 6 0 2 64 0 24 0 0 1678 2 2 0 0 64 0 6 0 0 1677 2
9716 1 1 1 4080 0 3 0 2 64 0
PROCEDURE 530
9718 1 1 2 4086 0 27 0 2 1553 2
9720 1 1 2 7 0 27 0 2 1553 2 6 0 0 1679 2 5 0 0 2433 2
9724 27 0 2 1536 2 6 0 0 1678 2 2 0 0 2433 2 24 1 1 1538 2
9728 6 0 0 1678 2 2 0 0 2435 2 6 0 0 1679 2 5 0 0 6248 2
9732 27 0 2 1543 2 6 0 0 1678 2 2 0 0 6248 2 6 0 0 1679 2
9736 5 0 0 6247 2 27 0 2 1548 2 6 0 0 1678 2 2 0 0 6247 2
9740 6 0 2 65 0 24 0 1 1678 2 2 0 0 65 0 1 1 3 1 0
9744 24 1 1 1554 2 25 1 2 0 0 2 0 0 1659 2 6 0 0 1678 2
9748 18 0 0 3 0 4 0 0 1676 2 18 0 0 4 0 4 0 0 1678 2
9752 1 0 1 403 0 14 1 3 34 0 6 0 0 1678 2 26 0 0 5528 2
9756 27 0 1 1578 2 27 0 1 1588 2 27 0 2 1608 2 24 1 0 1407 2
9760 26 0 0 5719 2 24 1 0 216 2
PROCEDURE 531
9762 25 1 2 0 0 1 0 1 3 0
9764 15 0 1 7 0 5 0 0 1577 2 27 0 2 1582 2 5 0 0 1659 2
9768 27 0 2 1582 2 1 1 1 1 0 4 0 0 1678 2 14 0 1 7 0
9772 25 1 2 0 0 2 0 1 45 0 6 0 1 30 0 5 0 0 1679 2
9776 27 0 2 1590 2 5 0 0 1659 2 27 0 2 1590 2 4 0 0 1659 2
9780 4 0 0 1678 2 2 0 1 30 0 6 0 0 1658 2 27 0 1 1601 2
9784 27 0 3 1608 2 26 1 3 306 2 24 0 1 1679 2 6 0 3 1280 2
9788 24 0 1 1678 2 2 0 3 1280 2 25 0 3 24 0 24 1 0 1594 2
9792 24 1 2 1642 2 24 0 2 1642 2 2 0 0 5462 2 6 0 0 1679 2
9796 2 0 0 2397 2 6 0 0 1678 2 2 0 0 1278 2 24 1 0 5466 2
9800 6 0 0 1673 2 18 0 3 3 0 2 0 0 6 0 6 0 3 3352 2
9804 5 0 0 1679 2 27 0 2 1628 2 6 0 3 3353 2 3 0 0 1677 2
9808 5 0 0 2060 2 27 0 1 1628 2 26 1 1 278 2 6 0 0 1679 2
9812 2 0 1 30 0 26 0 0 5728 2 24 0 1 1679 2 19 1 2 0 0
9816 24 0 1 3 0 6 0 0 160 0 27 0 1 1642 2 24 1 1 1639 2
9820 6 0 0 1673 2 18 0 3 3 0 2 0 0 6 0 1 0 1 1 0
9824 24 0 1 1675 2 18 1 0 0 0 15 1 3 3354 2 25 0 0 1642 2
9828 18 1 2 1677 2 18 0 0 4120 0 2 0 0 1677 2 6 0 0 201 2
9832 2 0 0 3797 2 24 1 1 1643 2 2 0 0 1677 2 6 0 0 1672 2
9836 18 0 3 3 0 2 0 0 6 0 1 0 1 1 0 6 0 0 1677 2
9840 24 0 1 1674 2 18 1 0 0 0 14 0 3 3354 2 26 1 1 278 2
9844 24 0 2 2252 2 24 1 0 1406 2 26 1 1 278 2 6 0 0 2405 2
9848 2 0 0 2404 2 24 1 0 210 2 0 0 0 0 0 0 0 0 0 0
9852 27 0 2 216 2 27 0 2 210 2
PROCEDURE 532
9854 1 0 1 3 0 15 0 0 185 0
9856 1 1 2 128 0 27 1 0 1667 2 1 1 1 224 0 1 1 1 128 0
9860 2 0 0 2454 2 24 0 1 1842 2 26 0 1 1346 2 0 0 0 0 0
SECTION 533
9864 0 0 0 0 0 0 0 0
9868 0 0 0 0 0 0 0 0
SECTION 534
9872 0 2529 1 24 0 0 0 1 8 0 0 2529 1 48 0 0 0 3 0 0
9876 0 2587 1 24 0 0 0 1 8 0
PROCEDURE 535
9878 24 0 3 1688 2 24 1 0 1045 2
9880 0 0 0 0 0 0 0 0 0 0
SECTION 1004
9882 0 0 0 0
9884 0 0 0 0 0 0 0 0
9888 0 0 0 0 0 0 0 0
9892 0 0 0 0 0 0 0 0
9896 0 0 0 0
SECTION 1005
SECTION 1006
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 0
12 25 1 1 4096 0 24 0 3 0 4 23 0 2 0 1792 0 0 0 0 0
16 0 0 0 0 0 26 0 1 11 4
PROCEDURE 536
18 2 0 1 189 2 1 1 3 60 0
20 1 1 2 60 0 27 0 0 24 4 1 1 3 1 0 2 0 0 578 4
24 1 1 3 1686 2 2 0 1 2696 2 24 1 0 426 4
PROCEDURE 537
27 25 1 1 4096 0
28 24 1 3 295 4 6 0 0 188 4 24 0 3 0 0 2 0 0 25 0
32 25 1 1 8191 0 6 1 0 308 4 2 1 0 286 4 2 0 0 286 4
36 24 0 2 396 4 26 0 0 237 4
PROCEDURE 538
38 25 1 2 1792 0 27 0 0 41 4
40 18 0 1 4126 0 2 0 0 312 4 25 1 1 1792 0 6 1 0 300 4
44 4 0 0 286 4 28 0 1 319 4 24 0 3 286 4 23 0 3 0 0
48 3 0 0 288 4 5 0 0 289 4 27 0 0 52 4 2 0 0 285 4
52 24 0 3 286 4 23 0 3 2 0 3 0 0 289 4 5 0 0 288 4
56 27 0 0 58 4 2 0 0 285 4
PROCEDURE 539
58 24 0 1 290 4 6 1 0 318 4
60 27 0 0 64 4 26 0 0 189 4 24 0 1 290 4 2 1 0 318 4
64 23 0 0 2 0 0 0 0 290 3 24 1 0 58 4 2 0 0 290 4
68 6 0 0 285 4 27 0 1 103 4 25 1 2 2 0 27 0 1 159 4
72 6 0 0 286 4 24 0 3 0 4 1 1 2 872 2 27 0 3 93 4
76 25 1 2 32 0 27 0 0 93 4 6 0 0 286 4 1 1 2 8191 0
80 27 0 2 87 4 1 1 1 8191 0 1 1 2 1688 2 27 0 2 93 4
84 1 1 3 1688 2 2 0 0 286 4 24 1 0 93 4 24 0 2 396 4
88 2 0 0 286 4 0 0 2 313 4 18 1 0 4124 0 14 0 0 286 4
92 25 1 1 32 0 23 0 0 4 0 0 0 0 286 3 24 1 0 38 4
96 24 1 0 159 4 6 0 0 287 4 5 0 0 311 4 27 0 0 159 4
100 6 1 0 310 4 2 1 0 286 4 24 1 0 38 4 6 0 0 312 4
104 27 0 0 116 4 5 0 0 288 4 27 0 0 116 4 6 0 0 288 4
108 1 1 2 13 0 27 0 2 116 4 6 0 0 312 4 5 0 0 289 4
112 27 0 0 116 4 6 0 0 289 4 1 1 2 13 0 27 0 3 38 4
PROCEDURE 540
116 0 1 2 314 4 25 1 2 0 0 24 0 3 286 4 15 1 0 0 0
120 26 0 0 221 4 6 1 0 298 4 2 1 0 326 4 0 1 2 314 4
124 24 0 3 286 4 15 1 0 2 0 26 0 0 221 4 6 1 0 298 4
128 2 1 0 328 4 24 0 3 0 0 0 0 3 2045 2 24 0 1 286 4
132 1 1 3 0 0 2 0 0 294 4 24 0 3 0 0 24 0 2 2116 2
136 12 0 0 294 4 2 0 0 294 4 24 0 3 0 0 0 0 3 2096 2
140 24 0 3 286 4 24 0 2 0 0 24 0 1 286 4 1 1 2 0 0
144 18 0 3 3 0 7 0 0 294 4
PROCEDURE 541
146 6 0 0 286 4 3 0 0 372 4
148 1 1 1 1 0 3 0 0 374 4 1 1 1 1 0 3 0 0 376 4
152 1 1 1 1 0 2 0 0 378 4 24 0 2 334 4 26 0 0 237 4
156 2 0 0 332 4 2 0 0 285 4 24 1 0 70 4
PROCEDURE 542
159 24 0 3 0 0
160 6 0 0 140 0 27 0 0 175 4 25 1 2 0 0 2 0 0 286 4
164 24 0 1 286 4 24 0 1 0 0 1 1 3 0 0 24 0 3 0 0
168 5 0 0 140 0 27 0 1 172 4 24 0 2 392 4 26 0 0 237 4
172 23 0 0 1 0 0 0 0 286 3 24 1 0 164 4 25 1 1 8191 0
176 24 0 1 0 0 25 1 0 0 0 24 0 3 0 0 6 0 0 2029 2
180 24 0 3 0 0 2 0 0 25 0 2 0 0 312 4 23 0 2 184 4
184 0 0 0 0 0 24 0 3 0 0 24 1 0 193 2 24 0 3 0 0
188 26 0 3 24 0
PROCEDURE 543
189 0 0 0 0 0 2 1 0 292 4 0 0 2 296 4
192 15 0 0 293 4 18 0 0 4125 0 2 0 0 330 4 24 0 3 0 0
196 0 0 3 2045 2 24 0 3 0 0 24 0 2 2116 2 3 0 0 285 4
200 12 0 0 330 4 2 0 0 330 4 0 1 2 293 4 18 1 0 6 0
204 6 0 0 330 4 18 0 3 3 0 18 1 3 1 0 18 0 3 2 0
208 18 1 3 2 0 2 0 0 331 4 18 1 3 1 0 18 1 0 3 0
212 2 0 0 330 4 24 0 3 0 0 24 0 2 2116 2 12 0 0 330 4
216 24 0 3 0 0 0 0 3 2096 2 2 0 0 330 4 6 1 0 330 4
220 26 0 1 189 4
PROCEDURE 544
221 0 0 0 0 0 2 1 0 298 4 0 1 2 306 4
224 15 1 0 298 4 15 1 0 302 4 27 0 0 233 4 15 1 0 304 4
228 27 0 0 233 4 18 1 0 2 0 1 1 3 0 0 27 1 1 224 4
232 26 0 1 221 4 14 1 0 298 4 1 1 3 91 0 2 0 0 332 4
236 24 1 0 229 4
PROCEDURE 545
237 0 0 0 0 0 24 0 1 284 4 26 1 0 0 0
240 24 1 0 245 4 24 1 0 238 4 24 1 0 247 4 0 0 0 3845 0
244 24 1 0 248 4 0 0 0 3841 0 24 1 0 238 4 0 0 0 3843 0
248 28 1 2 428 4 24 0 3 0 0 6 1 0 3546 2 2 1 0 426 4
252 24 0 3 284 4 6 0 0 64 0 2 0 0 333 4 25 1 0 0 0
256 6 0 0 272 4 24 0 3 284 4 2 0 0 64 0 6 0 0 273 4
260 24 0 3 272 4 29 0 1 0 0 24 1 0 266 4 6 0 0 273 4
264 24 0 3 284 4 2 0 0 64 0 24 0 1 284 4 19 0 0 0 0
268 6 0 0 333 4 24 0 3 284 4 2 0 0 64 0 26 0 1 237 4
272 14 0 1 426 4 14 0 1 426 4
SECTION 546
274 66955 0 72736 0
276 96573 0 67695 0 0 0 66560 0
280 25565 0 73516 0 5173 0 66650 0
SECTION 547
284 0 0 0 0 0 0 0 0
288 0 0 0 0 0 0 8 0
292 0 0 0 0 0 0 0 0
296 1£000 0 0 0 0 0 0 0
300 0 0 4 0 .1.1. 0 1.1.1- 0
304 2020 0 20202- 0 3£ 0 0 £000
308 0 0 0 0 8000 0 8000 0
312 0 0 3£000 0 £££££ 0 £££££ 0
316 7. 0 7.000 0
SECTION 548
318 0 0 0 0
320 0 0 0 0 0 0 0 0
324 0 0 0 0 0 0 0 0
328 0 0 0 0 0 0 0 0
332 0 0 0 0
SECTION 549
334 0 294 3 17 0 0 0 1 1 0
336 0 294 3 12564 0 3 1 1 4 0 0 286 3 276 0 0 1 1 4 0
340 0 319 3 4402 0 1 1 3 2 0 0 319 3 785 0 0 3 1 1 0
344 0 319 3 1041 0 0 4 1 1 0 0 318 3 12564 0 3 1 1 4 0
348 0 321 3 4402 0 1 1 3 2 0 0 321 3 785 0 0 3 1 1 0
352 0 321 3 1041 0 0 4 1 1 0 0 320 3 12564 0 3 1 1 4 0
356 0 323 3 4402 0 1 1 3 2 0 0 323 3 785 0 0 3 1 1 0
360 0 323 3 1041 0 0 4 1 1 0 0 322 3 12564 0 3 1 1 4 0
364 0 325 3 4402 0 1 1 3 2 0 0 325 3 785 0 0 3 1 1 0
368 0 325 3 1041 0 0 4 1 1 0 0 324 3 12564 0 3 1 1 4 0
372 0 0 0 16437 4 4 0 3 5 0 0 0 0 16405 4 4 0 1 5 0
376 0 0 0 16405 4 4 0 1 5 0 0 0 0 16405 4 4 0 1 5 0
380 0 326 3 37 3 0 0 2 5 0 0 328 3 37 3 0 0 2 5 0
384 0 288 3 1057 0 0 4 2 1 0 0 289 3 1041 0 0 4 1 1 0
388 0 332 3 1041 3 0 4 1 1 0 0 316 3 1 3 0 0 0 1 1
392 0 286 3 388 0 0 1 8 4 0 0 316 3 33 3 0 0 2 1 1
SECTION 550
396 0 274 3 229 3 0 0 14 5 0 0 276 3 21 3 0 0 1 5 0
400 0 278 3 18 3 0 0 1 2 0 0 181 0 21 0 0 0 1 5 0
404 0 182 0 4914 0 1 3 3 2 0 0 280 3 37 3 0 0 2 5 0
408 0 282 3 18 3 0 0 1 2 0 0 138 0 5154 2 1 4 2 2 0
412 0 138 0 5650 2 1 6 1 2 0 0 138 0 6162 2 1 8 1 2 0
416 0 282 3 515 3 0 2 0 3 0 0 156 0 34 0 0 0 2 2 0
420 0 156 0 530 0 0 2 1 2 0 0 316 3 1 3 0 0 0 1 1
424 0 0 0 384 2 0 1 8 0 0
PROCEDURE 551
426 6 0 0 570 4 2 0 1 17 0
428 6 1 0 562 4 2 1 1 134 0 6 0 0 573 4 2 0 1 1 0
432 1 1 2 64 0 2 0 1 2772 2 6 0 1 2029 2 24 1 0 437 4
436 27 0 2 462 4 2 0 1 25 0 1 1 3 894 2 1 1 2 128 0
440 2 0 1 279 2 6 0 0 571 4 5 0 1 2696 2 2 0 1 2697 2
444 1 1 3 1686 2 1 1 2 18 4 27 0 2 454 4 6 0 0 571 4
448 7 0 0 2696 2 6 1 0 566 4 24 0 3 0 4 28 0 0 2698 2
452 6 0 0 553 4 2 0 0 552 4
PROCEDURE 552
454 6 0 1 2764 2 24 0 3 0 4
456 3 0 0 2508 2 24 0 3 0 4 2 0 0 2472 2 1 1 3 7 0
460 24 0 3 0 4 2 0 0 2473 2 6 0 1 2032 2 24 0 3 0 4
464 24 0 3 2764 2 2 0 0 64 0 6 0 0 564 4 24 0 3 0 4
468 24 0 3 2764 2 2 0 0 71 0 6 0 1 2033 2 2 0 1 124 0
472 1 1 3 2640 2 18 0 0 5 0 1 1 1 2524 2 2 1 1 4 0
476 1 1 3 13 0 26 0 0 554 4 1 1 3 15 0 23 1 1 186 2
480 23 1 1 2578 2 23 1 1 2636 2 6 1 1 121 2 18 1 0 4123 0
484 1 1 1 7 0 18 1 0 4 0 2 0 1 181 0 6 1 1 123 2
488 18 1 0 4125 0 2 0 1 182 0
PROCEDURE 553
490 1 1 3 3612 2 18 0 0 5 0
492 1 1 1 3560 2 2 1 1 4 0 1 1 3 13 0 26 0 0 554 4
496 6 0 0 572 4 2 0 1 119 0 6 0 1 143 0 2 0 1 342 2
500 6 0 1 144 0 2 0 1 344 2 6 0 1 145 0 2 0 1 345 2
504 6 0 0 574 4 2 0 1 140 0
PROCEDURE 554
506 6 0 0 578 4 27 0 0 547 4
508 6 0 1 2027 2 2 0 1 9 0 26 0 3 511 4 15 0 1 512 4
512 25 1 1 4096 0 6 0 1 2028 2 2 0 1 9 0 6 0 1 153 0
516 23 0 2 517 4 0 0 0 0 0 18 1 0 4124 0 1 1 2 9 0
520 27 0 1 525 4 6 0 0 255 4 2 0 0 538 4 6 0 0 577 4
524 2 0 0 255 4 25 1 2 0 0 18 1 0 1 0 18 0 0 8 0
528 2 1 0 286 4 2 1 0 308 4 18 1 0 1 0 18 0 0 8 0
532 7 1 0 310 4 25 1 2 0 0 18 1 0 2 0 2 0 0 284 4
536 1 1 3 426 4 1 1 1 50 0 1 1 1 384 0 4 0 0 571 4
540 2 0 1 2698 2 6 0 0 571 4 4 0 0 571 4 5 0 1 2698 2
544 2 0 1 2699 2 1 1 3 50 0 7 0 0 272 4
PROCEDURE 555
547 6 0 1 2696 2
548 2 0 0 568 4 26 1 2 568 4 24 0 3 0 4 26 1 1 278 2
552 24 0 3 0 4 24 1 0 1686 2
PROCEDURE 556
554 0 0 0 0 0 24 0 3 0 4
556 23 1 2 0 0 25 0 2 2 0 24 1 0 555 4 26 0 1 554 4
560 24 1 0 7893 2 0 0 0 0 0
SECTION 557
562 +0+0 0 +0+0+ 0
564 ££7 0 0 0
PROCEDURE 558
566 0 0 0 2700 2 0 0 0 12 0
568 0 0 0 0 0 0 0 1 8184 0 24 1 0 7919 2 0 0 1 0 0
572 13 0 0 3560 2 24 1 0 7996 2 24 1 0 340 2 6 0 0 3117 2
576 1 1 3 38 0 24 1 0 263 4 0 0 0 0 0 0 0 0 1 0
SECTION 559
580 :0000 0 7 0 7 0 7 0
584 ££7 0 ££7 0 ££7 0 ££ 0
588 ££8 0 ££8 0 ££8 0 8 0
592 8 0 8 0 8 0 ££8 0
596 ££££ 0 ££££ 0 ££££ 0 ££££ 0
600 3 0 3 0 ££££ 0 ££££ 0
604 ££5 0 5 0 5 0 5 0
608 6 0 ££ 0 6 0 ££ 0
612 ££9 0 9 0 9 0 ££££ 0
616 ££££ 0 ££££ 0 ££££ 0 ££££ 0
620 ££££ 0 ££££ 0 ££££ 0 ££££ 0
624 ££££ 0 ££££ 0 ££££ 0 ££££ 0
628 ££££ 0 ££££ 0 ££££ 0 ££££ 0
632 ££££ 0 ££££ 0 ££££ 0 ££££ 0
636 1 0 1 0 ££ 0 ££ 0
640 ££ 0 ££ 0 ££ 0 ££ 0
SECTION 560
644 ££££ 0 ££££ 0 ££££ 0 ££££ 0
648 ££££ 0 ££££ 0 ££££ 0 ££££ 0
652 ££££ 0 ££££ 0 ££££ 0 ££££ 0
656 ££££ 0 ££££ 0 ££££ 0 ££££ 0
660 ££££ 0 ££££ 0 ££££ 0 ££££ 0
664 ££££ 0 ££££ 0 ££££ 0 ££££ 0
668 ££££ 0 ££££ 0 ££££ 0 ££££ 0
672 ££££ 0 ££££ 0 ££££ 0 ££££ 0
676 ££££ 0 ££££ 0 ££££ 0 ££££ 0
680 ££££ 0 ££££ 0 ££££ 0 ££££ 0
684 ££££ 0 ££££ 0 ££££ 0 ££££ 0
688 ££££ 0 ££££ 0 ££££ 0 ££££ 0
SECTION 1007
692 0 0 0 0 0 0 0 0
696 0 0 0 0 0 0 0 0
700 0 0 0 0 0 0 0 0
704 0 0 0 0 0 0 0 0
SECTION 1008
SECTION 1009
PROCEDURE 1003
CHAPT 3 EXTRA CHAPTER
202 0 0 0 0
INTERCODE TRIAL DATA SERIAL NUMBERS OF INTERCODE REPORTS
PT OMITTED NO NO
DISASTROUS 1 0
OTHERS 29 0 21702 21704 21736 21742 21746 21748 21810 22702 26224 26230
MADE BY 08000 ISSUE 8 SERIAL 801 ON 31/ 8/15 SPOOL 8000