01 000 JOB ** IBM 1401 SORT 7 VERSION 2 ASSIGNMENT PHASE 60 2
02 CTL 641111 60 2
03 ORG 087 DEFINE INDEX REGISTERS 60 2
04 INDEX1 DCW @000@ 60 2
05 ORG 092 60 2
06 INDEX2 DCW @000@ 60 2
07 ORG 097 60 2
08 INDEX3 DCW @000@ 60 2
09 ORG 83 60 2
10 BL DCW @ @ BLOCK LENGTH 60 2
11 CNOP DCW @ @ NUMBER OF MOVES TO OUTPUT AREA 60 2
12 * NEEDED IN ADDITION TO NCF 60 2
13 ORG 90 60 2
14 DESCND DCW @ @ COLLATING SEQUENCE OF OUTPUT 60 2
15 FLR @ @ RECORD FORMAT INDICATOR 60 2
16 ORG 95 60 2
17 NCF DCW @ @ NUMBER OF CONTROL FIELDS 60 2
18 ORG 183 60 2
19 BO DCW @ @ OUTPUT BLOCKING FACTOR 60 2
20 URPI DCW @ @ UNREADABLE RECORD PROCEDURE 60 2
21 LDI @ @ DENSITY INDICATOR 60 2
22 ITLI @ @ INPUT TAPE LABEL INDICATOR 60 2
23 OTLI DCW @ @ OUTPUT TAPE LABEL INDICATOR 60 2
24 HTMO DCW @ @ TAPE MARK AFTER OUTPT HDR LBL 60 2
25 TL @ @ INPUT TRAILER LABEL INDICATOR 60 2
26 TLO @ @ TRAILER LABEL OPTION 60 2
27 PI DCW @ @ PADDING INDICATOR 60 2
28 RCDIST DCW @000@ 3 DIGIT POS OF RCC 60 2
29 B @ @ SORT BLOCKING FACTOR 60 2
30 ORG 335 60 2
31 CFIRE DCW @001@ RIGHT EDGE OF CF1 60 2
32 I1TUN DCW @ @ WORK TAPE UNIT NUMBERS 60 2
33 I2TUN @ @ 2ND INPUT TAPE UNIT 60 2
34 I3TUN @ @ 3RD INPUT TAPE UNIT 60 2
35 MI1TUN @ @ 1ST WORK TAPE UNIT 60 2
36 MI2TUN @ @ 2ND WORK TAPE UNIT 60 2
37 MI3TUN @ @ 3RD WORK TAPE UNIT 60 2
38 MS @ @ MACHINE SIZE 60 2
39 L @ @ RECORD LENGTH 60 2
40 GPMARK @I9Y@ GROUPMARK-WORDMARK LOCATION 60 2
41 CF1SL @ @ CONTROL FIELD STARTING LOCNS 60 2
42 CF2SL @ @ 3 CHAR HIGH ORDER POSITIONS 60 2
43 CF3SL @ @ TAKEN FROM CONTROL CARDS 60 2
44 CF4SL @ @ 60 2
45 CF5SL @ @ 60 2
46 CF6SL @ @ 60 2
47 CF7SL @ @ 60 2
48 CF8SL @ @ 60 2
49 CF9SL @ @ 60 2
50 CF0SL @ @ 60 2
51 IF1F2 @ @ DISTANCE BETWEEN CONTROL FIELDS 60 2
52 IF2F3 @ @ 60 2
53 IF3F4 @ @ 60 2
54 IF4F5 @ @ 60 2
55 IF5F6 @ @ 60 2
56 IF6F7 @ @ 60 2
57 IF7F8 @ @ 60 2
58 IF8F9 @ @ 60 2
59 IF9F0 @ @ 60 2
60 TPAVLM @ @ USER AREA ADDRESS PHASE 2 60 2
61 LABELS DCW @ @ WORKTAPE LABEL INDICATOR 60 2
62 LBBUCK DCW @ @ 60 2
63 CENSIG DCW @ @ 60 2
64 UNLOAD DCW @ @ REWIND AND UNLOAD OPTION 60 2
65 WLBKT DCW @ @ WORK TAPE HEADER LABEL INDICATOR 60 2
66 THLTMO DCW @ @ TAPEMARK INDICATOR -WORK TAPES 60 2
67 OHLOP DCW @ @ OUTPUT HEADER CHECKING INDICATOR 60 2
68 FLSROP DCW @ @ FILE SERIAL INDICATOR 60 2
69 RLSQOP DCW @ @ REEL SEQUENCE UPDATE INDICATOR 60 2
70 TPSROP DCW @ @ TAPE SERIAL ASSGMNT INDICATOR 60 2
71 HDRTAG DCW @1HDR @ HEADER TAG OF OUTPUT HDR CARD 60 2
72 TPSERL DCW #5 NEW TAPE SERIAL NO. 60 2
73 FLSERL DCW #5 OUTPUT HEADER FILE SERIAL NO. 60 2
74 DC @-@ 60 2
75 REELSQ DCW #3 OUTPUT HDR REEL SEQUENCE NO. 60 2
76 DC @ @ 60 2
77 FLNAME DC #10 OUTPUT HEADER FILE NAME 60 2
78 OHDATE DC @ @ OUTPUT HEADER DATE 60 2
79 DC @-@ 60 2
80 RTCYCL DC #3 RETENTION CYCLE BUCKET 60 2
81 DC @ @ 60 2
82 DCW #1 60 2
83 LBLBKT DCW #33 INPUT HEADER LABEL BUCKET 60 2
84 DATE DCW #5 CURRENT DATE- YEAR AND DAY 60 2
85 DCW #25 60 2
86 RCMKPI DCW @ @ RECORD MARK IN PADDING RECORDS 60 2
87 CNSQ @ @ SEQUENCE COUNT 60 2
88 CTNR DCW @ @ RECORD COUNT 60 2
89 CNOS1 @ @ TAPE SWITCH COUNT 60 2
90 PDCPUT DCW 000 PAD COUNT 60 2
91 OUTMOD DCW @M@ OUTPUT MODE 60 2
92 CSTCNS DCW @I7V@ PH2 3 POS. USER AREA 60 2
93 STRTMP ORG * 60 2
94 RTAIN DCW @ @ RETAIN RCC OPTION 60 2
95 COMET DCW @ @ 60 2
96 COMETF DCW #3 60 2
97 RLIIND DCW @ @ 60 2
98 KRUNCH DCW @ @ VLR LOAD MODE INPUT IND IF RLI 60 2
99 * NOT IN FIRST RCD POS AND NOT CF 60 2
100 STPH2 ORG * 60 2
101 INMODE DCW @M@ INPUT MODE-M- UNLESS SPECIFIED 60 2
102 LRG2G1 DCW @ @ 60 2
103 TPV1 DCW #3 PH1 3 POS USER AREA 60 2
104 INTOUT DCW 000 60 2
105 LBLSAM DCW @ @ IF 1 - INP HDR IS OPT HDR 60 2
106 CCB DCW @ @ 16K COMPLEMENT OF SORT BL FAC 60 2
107 C16000 16000 60 2
108 K16000 16000 60 2
109 TCOMET DCW @12100@ 60 2
110 TCOMTF DCW @12100@ 60 2
111 KLTD 5520000 60 2
112 KTD 15350000 60 2
113 KHTD DCW @22080000@ 60 2
114 KKK3 DCW #1 60 2
115 EXPAND SBR CZONE&10 CONVERT THREE DIGIT ADDRESS 60 2
116 MLC CONVRT,CONSTX TO FIVE DIGIT NUMBER 60 2
117 MLC @00 @,HOLD 60 2
118 MLNS CONVRT,HOLD 60 2
119 MLNS 60 2
120 MLNS 60 2
121 CZONE C HOLD,CONSTX 60 2
122 BE 0 60 2
123 MA @?0?@,CONSTX 60 2
124 A @1@,HOLD-3 60 2
125 B CZONE 60 2
126 CONSTX DCW #3 60 2
127 LTORG* 60 2
128 HOLD DCW #5 60 2
129 CONVRT DCW #5 60 2
130 ORG 3975 60 2
131 MFS DCW @ @ MAXIMUM FILE SIZE 60 2
132 NOINTP DCW @ @ NUMBER OF INPUT TAPES 60 2
133 BI @ @ INPUT BLOCKING FACTOR 60 2
134 TLCF #3 TOTAL LENGTH OF ALL CONTROL FLDS 60 2
135 MINREC @ @ MINIMUM RECORD LENGTH 60 2
136 MAXBLK @ @ MAXIMUM BLOCKING FACTOR 60 2
137 EFS @ @ ESTIMATED FILE SIZE 60 2
138 COMPL @ @ COMP OF L 60 2
139 CMNREC @ @ COMP OF MIN RECORD 60 2
140 CMXBLK @ @ COMP OF MX BLK SIZE 60 2
141 CF1RE @ @ UNITS LOCATION OF CONTROL FIELD 60 2
142 CF2RE @ @ 60 2
143 CF3RE @ @ 60 2
144 CF4RE DCW @ @ 60 2
145 CF5RE @ @ 60 2
146 CF6RE @ @ 60 2
147 CF7RE @ @ 60 2
148 CF8RE @ @ 60 2
149 CF9RE @ @ 60 2
150 CF0RE @ @ 60 2
151 CCCFRE @ @ 60 2
152 FSLST DCW CF2SL ADD 3 TO THIS FOR EACH CTL FIELD 60 2
153 K5TOK3 SBR CMBCK&3 CONVERT FIVE DIGIT NUMBER 60 2
154 MLZS @1@,CONVRT TO THREE DIGIT ADDRESS 60 2
155 SUBBB S @1@,CONVRT-3 60 2
156 CMBCK BM 0,CONVRT-3 60 2
157 MA @|00@,CONVRT 60 2
158 B SUBBB 60 2
159 PRMSX DCW @OVERSIZE INPUT BLOCKING-RESTART@ 60 2
160 DELEXC DCW @ @ 60 2
161 PRMDIN DCW @ @ INPUT MODE 60 2
162 PRMDOT DCW @ @ OUTPUT MODE 60 2
163 SLRCC DCW #3 60 2
164 UAPHZ1 DCW #5 USER AREA PHASE 1 60 2
165 LTORG* 60 2
166 ORG 700 60 2
167 READCC CS 80 60 2
168 R READ CONTROL CARD #1 60 2
169 CS 332 60 2
170 CS 60 2
171 SW 201 60 2
172 MLC 080,280 60 2
173 W PRINT CONTENTS OF CONTROL CARD 60 2
174 CC K 60 2
175 BCE NEXTST,027,4 CLEAR STORAGE ABOVE 8K 60 2
176 BCE NEXTST,27, 60 2
177 BCE CLR12,027,5 60 2
178 CLR CS 15999 60 2
179 SBR CLR&3 60 2
180 BWZ NEXTST,CLR&3,S 60 2
181 B CLR 60 2
182 CLR12 SBR CLR&3,11999 60 2
183 B CLR 60 2
184 * PLACE CONTROL CARD CONSTANTS 60 2
185 * IN DEFINED AREAS 60 2
186 NEXTST MLC 57,FLR FIXED OR VARIABLE LENGTH RECORDS 60 2
187 MLC 75 COLLATING SEQUENCE 60 2
188 MLC 29,NCF TOTAL NUMBER OF CONTROL FIELDS 60 2
189 MLC 26,PI PADDING INDICATOR CHARACTER 60 2
190 MLC OUTPUT TR LAB INDICATOR 60 2
191 MLC INPUT TRAILER LABEL BUCKET 60 2
192 MLC TAPEMARK ON OUTPUT HDR LAB 60 2
193 MLC OUTPUT HEADER LAB INDICATOR 60 2
194 MLC INPUT TAPE HEADER LABEL INDICATOR 60 2
195 MLC DENSITY INDICATOR 60 2
196 MLC UNREADABLE RECORD PROCEDURE 60 2
197 MLC OUTPUT BLOCKING FACTOR 60 2
198 SW 58,30 60 2
199 MLC 61,CONVRT CONVERT RCC TO 3 DIGIT 60 2
200 B K5TOK3 60 2
201 IRENE MLC CONVRT,RCDIST 60 2
202 MLC 27,MS MACHINE SIZE 60 2
203 MLC 6 INITIALIZE TAPE BUCKETS 60 2
204 MLC 6 TO MI3TUN,5 TO MI2TUN 60 2
205 MLC 4 TO MI1TUN, 3 TO I3TUN 60 2
206 MLC 2 TO I2TUN, 1 TO I1TUN 60 2
207 MLC 60 2
208 MLC 60 2
209 MLC 12,L4 RECORD LENGTH 60 2
210 MLC 32,TLCF TOTAL LENGTH OF CONTROL FIELDS 60 2
211 MLC 15 INPUT BLOCKING FACTOR 60 2
212 MLC 8 NUMBER OF INPUT TAPES 60 2
213 CW 58,30 60 2
214 MLC 69,MXBLK4 LARGEST INPUT BLOCK-VARIABLE 60 2
215 MLC SMALLEST INPUT RECORD 60 2
216 MLC 46,EFS ESTIMATED FILE SIZE 60 2
217 MLC 51,UAPHZ1 USER AREA PH1 STARTING ADDRESS 60 2
218 BCE *&30,UAPHZ1, 60 2
219 B *&8 THIS ROUTINE IS INITIALIZED FOR 60 2
220 NOP 0,0 THE TAPE LOADABLE VERSION 60 2
221 MLC UAPHZ1,CONVRT 60 2
222 B K5TOK3 60 2
223 MLC CONVRT,TPV1 60 2
224 MLC 56,TPAVLM STARTING ADDR USER AREA PH2 60 2
225 MLC 39,NC1CF FIRST CONTROL FIELD SPECIFIC. 60 2
226 MLC STARTING LOCATION OF CF1 60 2
227 MLC 74,RCMKPI RECORD MARK IN PADDING RECORDS 60 2
228 MLC 73,MAXBLO LARGEST OUTPUT BLOCK 60 2
229 MLC 61,RCC4#4 RECORD COUNT LOW ORDER 60 2
230 BCE NXTINA,FLR, BLANK-FIXED 1-VARIABLE 60 2
231 C 015,@001@ 001 IF UNBLOCKED VARIABLE INPUT 60 2
232 BU SPCRLI IF BLOCKED CHECK FOR RCC 60 2
233 BCE *&5,MXBLK4, IF 66-69 BLANK L4 LOADED 60 2
234 B *&8 INTO MXBLK4 60 2
235 MLC L4,MXBLK4 60 2
236 CKOT C 018,@001@ 001 IF UNBLOCKED OUTPUT 60 2
237 BU NXTINA 60 2
238 BCE *&5,MAXBLO, IF 70-73 BLANK L4 LOADED 60 2
239 B *&8 INTO MAXBLO 60 2
240 MLC L4,MAXBLO 60 2
241 NXTINA C 25,BLNK5 BLANK IF NO HEADER OR TRAILER 60 2
242 BE *&8 LABELS SPECIFIED ON CC1 60 2
243 MLC @1@,LABELS SET LABEL INDICATOR 60 2
244 BCE WDMKST,24,4 60 2
245 BCE WDMKST,24,3 CHECK FOR 120 CHARAC 60 2
246 BCE WDMKST,22,4 60 2
247 BCE 60 2
248 BCE WDMKST,22,3 60 2
249 BCE 60 2
250 B *&30 60 2
251 WDMKST CW REELSQ-2,FLSERL-4 60 2
252 CW HDRTAG&1 60 2
253 MLC @1@,LBBUCK 60 2
254 SW FILNAM&1,FILESE&1 60 2
255 SW SYSCRE&1 60 2
256 SW 6,3 60 2
257 SW 60 2
258 SW 60 2
259 * SCAN CONTROL CARD ONE FOR INVALID 60 2
260 * CHARACTERS 60 2
261 C 36,@0000@ CHECK COLUMNS 33-36 60 2
262 BL *&5 CF1 LOCATION CANNOT BE ZERO OR AN 60 2
263 B ERMCD ALPHABETICAL CHARACTER 60 2
264 SBR INDEX1,0 60 2
265 SBR INDEX2,1 60 2
266 SBR INDEX3,12 60 2
267 MLC @13-18@,ZQST 60 2
268 C BI,@000@ CHECK COLUMNS 13-18 60 2
269 BE ERMCD 60 2
270 C BO,@000@ 60 2
271 BE ERMCD 60 2
272 BCE RTOUR,FLR, 60 2
273 C 15,@ @ BLANK IF BLOCKED VARIABLE INPUT 60 2
274 BE CM18TB 60 2
275 C 15,@001@ UNBLOCKED VARIABLE RECORDS 60 2
276 BU ERMCD 60 2
277 CM18TB MLC @000@,215 60 2
278 C 18,@ @ BLANK IF BLOCKED VARIABLE OUTPUT 60 2
279 BE RTOUR 60 2
280 C 18,@001@ UNBLOCKED VARIABLE OUTPUT 60 2
281 BU ERMCD 60 2
282 RTOUR MLC @000@,218 60 2
283 MLC @0@,203 60 2
284 MLC @0@,206 60 2
285 MLC @0@,27 60 2
286 MLC @01-06@,ZQST 60 2
287 BCE ERMTP,2, CHECK COLUMNS 1-6 60 2
288 BCE COL 1,2,4,5 MUST BE SPECIFIED 60 2
289 BCE ERMTP,5, COL 3 MUST BE SPECIFIED IF 6 60 2
290 BCE IS SPECIFIED.6 IS SPECIFIED FOR 60 2
291 BCE ABZX,6, 3-WAY MERGE 60 2
292 BCE ERMTP,3, 60 2
293 B BRXQ 60 2
294 ABZX BCE *&5,3, 60 2
295 B ERMTP 60 2
296 MLC @8@,3 60 2
297 MLC @9@,6 60 2
298 BRXQ C 1&X1,1&X2 CHECK FOR MULTIPLE USE 60 2
299 BE ERMTP OF A TAPE DRIVE 60 2
300 C 1&X1,2&X2 60 2
301 BE ERMTP 60 2
302 C 1&X1,3&X2 60 2
303 BE ERMTP 60 2
304 C 1&X1,4&X2 60 2
305 BE ERMTP 60 2
306 CBC C 1&X1,5&X2 60 2
307 BE ERMTP 60 2
308 MA @001@,INDEX1 60 2
309 MA @001@,INDEX2 60 2
310 MA @I8H@,INDEX3 60 2
311 MLC @N@,CBC&X3 60 2
312 A @1@,CNTER1#1 60 2
313 C CNTER1,@5@ 60 2
314 BH BRXQ 60 2
315 MLC @000@,INDEX1 60 2
316 MLC I3TUN,3 60 2
317 MLC MI3TUN,6 60 2
318 RRDC C 1&X1,@6@ CHECK FOR ANY DRIVE NUMBER 60 2
319 BL ERMTP HIGHER THAN 6 60 2
320 MA @001@,INDEX1 60 2
321 C INDEX1,@6@ 60 2
322 BH RRDC 60 2
323 MLC @ 19 @,ZQST 60 2
324 BCE CQZ,19,C CHECK COLUMN 19 60 2
325 BCE CQZ,19,P 60 2
326 C 19,@0@ 60 2
327 BL *&8 60 2
328 MLC @1@,SWP#1 60 2
329 C 19,@7@ 60 2
330 BH *&8 60 2
331 MLC @1@,SWP 60 2
332 BCE CQZ,URPI, 60 2
333 SBR INDEX1,0 60 2
334 INDXUR C URPI,1&X1 60 2
335 BU ZZRQ CK URPI WITH I/O TP UNITS 60 2
336 MLC @1@,ERM6SW#1 60 2
337 ZZRQ MA @001@,INDEX1 60 2
338 C INDEX1,@6@ 60 2
339 BH INDXUR 60 2
340 CQZ MLC @0@,219 60 2
341 MLC @58-73@,ZQST 60 2
342 MLC @000@,INDEX1 CHECK COLUMNS 58-73 60 2
343 MLC @0@,227 60 2
344 SW BLNK5-3 60 2
345 CMBLN C 61&X1,BLNK5 60 2
346 BU *&8 60 2
347 MLC TSERO,261&X1 60 2
348 MA @004@,INDEX1 60 2
349 C INDEX1,@16@ 60 2
350 BH CMBLN 60 2
351 CW BLNK5-3 60 2
352 MLC @001@,INDEX1 60 2
353 MLC @ 21 @,ZQST 60 2
354 B OKIND CHECK COLUMNS 21-25 60 2
355 MLC @22@,ZQST-2 60 2
356 B OKIND 60 2
357 MLC @23@,ZQST-2 60 2
358 MLC @N@,BRNON4 60 2
359 MLC @N@,BRNON3 60 2
360 MLC @N@,BRNON2 60 2
361 B OKIND 60 2
362 MLC @24@,ZQST-2 60 2
363 MLC @B@,BRNON2 60 2
364 MLC @B@,BRNON3 60 2
365 MLC @B@,BRNON4 60 2
366 B OKIND 60 2
367 MLC @25@,ZQST-2 60 2
368 MLC @N@,BRNON3 60 2
369 MLC @N@,BRNON4 60 2
370 B OKIND 60 2
371 MLC @26@,ZQST-2 60 2
372 MLC @9@,BRNON2&7 CHECK COLUMN 26 60 2
373 MLC @N@,BRNON1 60 2
374 B OKIND 60 2
375 MLC @57@,ZQST-2 60 2
376 MLC @B@,BRNON1 CHECK COLUMN 57 60 2
377 MLC @N@,BRNON2 60 2
378 MA @030@,INDEX1 60 2
379 B OKIND 60 2
380 MLC @74@,ZQST-2 60 2
381 MA @016@,INDEX1 60 2
382 B OKIND CHECK COLUMNS 74,75, AND 20 60 2
383 MLC @75@,ZQST-2 60 2
384 B OKIND 60 2
385 MLC @20@,ZQST-2 60 2
386 MA @I4D@,INDEX1 60 2
387 MLC @0@,BRNON&7 60 2
388 MLC @2@,BRNON2&7 60 2
389 MLC @B@,BRNON2 60 2
390 B OKIND 60 2
391 MLC @28-29@,ZQST 60 2
392 C NCF,@10@ CHECK COLUMNS 28-29 60 2
393 BL ERMCF 60 2
394 C NCF,@00@ 60 2
395 BE ERMCF 60 2
396 BCE ERMCF,NCF, 60 2
397 BCE ERMCF,NCF-1, 60 2
398 MLC @07-08@,ZQST 60 2
399 C NOINTP,@00@ CHECK COLUMNS 7-8 60 2
400 BE ERMRL 60 2
401 BCE ERMRL,NOINTP, 60 2
402 BCE ERMRL,NOINTP-1, 60 2
403 C 46,@ @ IS EXPECTED FL SZ KNOWN 60 2
404 BU *&8 60 2
405 MLC @0000000@,246 60 2
406 MLC @000@,INDEX1 60 2
407 CMUSAR C 51&X1,BLNK5 60 2
408 BU *&8 60 2
409 MLC TSERO,251&X1 60 2
410 MA @005@,INDEX1 60 2
411 C INDEX1,@2@ 60 2
412 BL CMUSAR 60 2
413 MLC @000@,INDEX1 60 2
414 MLC @N@,QZWRT 60 2
415 B CSCAN 60 2
416 BCE ERMDP,SWP,1 60 2
417 ZZGX BCE ERMS6,ERM6SW,1 60 2
418 * ESTABLISH AVAILABLE PHASE 2 AREA 60 2
419 BTPVLM BCE DUMMY,TPAVLM, BRANCH IF NO PH2 USER AREA 60 2
420 MLC TPAVLM,CONVRT 60 2
421 B K5TOK3 60 2
422 MLC CONVRT,CSTCNS 60 2
423 MA @I9I@,CSTCNS 60 2
424 B REWND1 60 2
425 DUMMY BCE REWND1,MS, 60 2
426 BCE REWND1,MS,4 60 2
427 MA @00|@,CSTCNS 60 2
428 BCE REWND1,MS,5 60 2
429 MA @00|@,CSTCNS 60 2
430 REWND1 MLC I1TUN,*&4 REWIND TAPES 60 2
431 RWD 0 60 2
432 MLC I2TUN,*&4 60 2
433 RWD 0 60 2
434 BSS PLYIN1,C 60 2
435 BCE RWD2WY,MI3TUN, 60 2
436 MLC I3TUN,*&4 60 2
437 RWD 0 60 2
438 MLC MI3TUN,*&4 60 2
439 RWD 0 60 2
440 RWD2WY MLC MI1TUN,*&4 60 2
441 RWD 0 60 2
442 MLC MI2TUN,*&4 60 2
443 RWD 0 60 2
444 BCE ONECF,NCF,1 BRANCH IF ONE CONTROL FIELD 60 2
445 * 60 2
446 * READ THE SECOND CONTROL CARD 60 2
447 * 60 2
448 CS 80 ONLY READ IF MORE THAN 1 CF 60 2
449 R 60 2
450 SW 1 60 2
451 CS 332 60 2
452 CS 60 2
453 MLC 080,280 60 2
454 W 60 2
455 CC K 60 2
456 MLC 63,70 SHIFT CONTROL CARD 7 POSITIONS 60 2
457 MLC NC1CF,7 MOVE FIRST CONTROL FIELD 60 2
458 MLC CONSTANTS TO READ AREA 60 2
459 SW 5 WORD MARKS SET FOR CONTROL 60 2
460 SW 8,12 FIELD POSITIONS AND LENGTHS 60 2
461 SW 15,19 60 2
462 SW 22,26 60 2
463 SW 29,33 60 2
464 SW 36,40 60 2
465 SW 43,47 60 2
466 SW 50,54 60 2
467 SW 57,61 60 2
468 SW 64,68 60 2
469 SBR INDEX1,0 60 2
470 MLC @2@,QRS 60 2
471 ADDNCF A @1@,NCFCT TEST FOR VALID NUMBER OF CFS 60 2
472 A @7@,CDLNG 60 2
473 C NCF,NCFCT 60 2
474 BL ADDNCF 60 2
475 MLC @NCF INVALIDLY SPECIFIED@,PRMCD 60 2
476 B CSCAN 60 2
477 MLC @OUT OF SEQUENCE @,PRMCD 60 2
478 CHKCFL C NCF,CNTNCF COMPUTE TOTAL LENGTH OF CON FIELD 60 2
479 BE CCTLCF 60 2
480 ANCCF A 7,CTLCF 60 2
481 MA @007@,ANCCF&3 60 2
482 A @1@,CNTNCF 60 2
483 B CHKCFL 60 2
484 CCTLCF C TLCF,CTLCF COMPARE TOT LNGH OF CON FIELD 60 2
485 BE CLTLCF WITH COMPUTED VALUE 60 2
486 ERRMS4 CS 332 60 2
487 CS 60 2
488 MLC PRMS4,244 60 2
489 W 60 2
490 CC 1 60 2
491 H *&1 PRESS START TO ACCEPT COMPUTED 60 2
492 B CLTLCF VALUE 60 2
493 CNOP1 MLC @1@,CNOP 60 2
494 B CRE 60 2
495 ONECF C TLCF,NC1CF 60 2
496 BU ERRMS4 60 2
497 CLTLCF MLC CTLCF,CTLCF4 60 2
498 C CTLCF4,L4 60 2
499 BL ERRMS5 60 2
500 MLC @ @,COUNT2 60 2
501 CKURPI BCE SNGLCF,NCF,1 60 2
502 SBR INDEX1,0 60 2
503 SBR INDEX2,0 60 2
504 CCFXSL ZA 4&X2,CONVRT CONVERT STARTING LOCATION OF 60 2
505 B K5TOK3 CONTROL FIELDS TO 3 DIGITS 60 2
506 MLC CONVRT,CF1SL&X1 60 2
507 C CONVRT,@001@ SEE IF A CTL FLD STARTS IN COL 1 60 2
508 BE CNOP1 60 2
509 CRE MLC CONVRT,CF1RE&X1 COMPUTE RIGHT EDGE 60 2
510 MA 7&X2,CF1RE&X1 OF CONTROL FIELDS 60 2
511 MA @I9H@,CF1RE&X1 60 2
512 MLC CF1RE&X1,CONVRT EXPAND RIGHT EDGE TO 4 DIGITS 60 2
513 B EXPAND 60 2
514 MLC HOLD,CF1REX 60 2
515 MA @004@,*-7 60 2
516 MA @003@,FSLST 60 2
517 MA @007@,INDEX2 60 2
518 MA @003@,INDEX1 60 2
519 A @1@,COUNT2 60 2
520 C NCF,COUNT2 60 2
521 BL CCFXSL 60 2
522 MA CF1RE,CFIRE 60 2
523 MLC C16000,CONVRT 60 2
524 S CF1REX,CONVRT 60 2
525 B K5TOK3 60 2
526 MLC CONVRT,CCCFRE 60 2
527 SW LBLBKT-32,LBLBKT-30 60 2
528 SW 60 2
529 * 60 2
530 * READ THIRD CONTROL CARD 60 2
531 * 60 2
532 B *&8 CC3 MAY BE OMITTED IF BLANK 60 2
533 READC3 MLC @1@,SW13 60 2
534 CS 080 60 2
535 R 60 2
536 SBR INDEX1,0 60 2
537 VRE BCE RUTN,1,, BRANCH IF BOOTSTRAP CARD READ 60 2
538 SW 1 60 2
539 MLCWA80,280 60 2
540 W 60 2
541 CC K 60 2
542 BCE BRZAQ,SW13,1 TEST TO DETERMINE IF CONTROL 60 2
543 C TSINK,223 CARD IS 3,4, OR 5 60 2
544 BU CARYON 60 2
545 SW 221 60 2
546 C TSINK,250 60 2
547 CW 221 60 2
548 BE READC3 60 2
549 CARYON SW 224 60 2
550 C TSINK,250 60 2
551 CW 224 60 2
552 BE LBBQ BRANCH IF CC3 60 2
553 BRZAQ C TSINK,250 60 2
554 BE ERRCC 60 2
555 BCE *&17,SW14,1 60 2
556 BCE RDIH,ITLI,2 BRANCH IF CONTROL CARD 60 2
557 BCE RDIH,ITLI,4 #4 IS TO BE READ 60 2
558 BCE *&17,SW15,1 60 2
559 BCE RDOH,OTLI,2 BRANCH IF CONTROL CARD 60 2
560 BCE RDOH,OTLI,4 #5 SHOULD BE PRESENT 60 2
561 B ERRCC 60 2
562 LBBQ MLC @3@,QRS BEGIN CC3 ROUTINE HERE 60 2
563 MLC @23@,CDLNG 60 2
564 LBBWZ BWZ *&5,201&X1,2 60 2
565 B ERMCD 60 2
566 MA @001@,INDEX1 60 2
567 C INDEX1,CDLNG 60 2
568 BH LBBWZ 60 2
569 BCE *&23,4, BRANCH IF WORK TAPES DO NOT 60 2
570 MLC @1@,LABELS CONTAIN HEADER LABELS 60 2
571 BCE *&8,4,1 CHECK FOR 120 CHARACTER LABELS 60 2
572 MLC @1@,LBBUCK ON INPUT TAPE 60 2
573 MLC 3,PRMDOT MOVE CONSTANTS FROM CC#3 60 2
574 MLC TO RESPECTIVE BUCKETS 60 2
575 BCE MVCN2,PRMDIN, BRANCH IF INPUT IN MOVE MODE 60 2
576 MLC @L@,INMODE 60 2
577 BCE MVCN2,FLR, BRANCH IF FLR 60 2
578 BCE MVCN2,RCC4, BRANCH IF NO RLI 60 2
579 MLC 1,KKK3 60 2
580 BCE MVCN2,KKK3,3 RECORD CHARACTER COUNT MUST BE 60 2
581 BCE MVCN2,KKK3,4 EITHER 3 OR 4 CHARACTERS 60 2
582 B ERRLI 60 2
583 MVCN2 BCE *&8,PRMDOT, BRANCH OUTPUT IN MOVE MODE 60 2
584 MLC @L@,OUTMOD 60 2
585 TCD3 MLC 18,TPSROP OUTPUT TAPE SERIAL OPTION 60 2
586 MLC OUTPT HEADER REEL INCREMENT 60 2
587 MLC OUTPT HEADER FILE SERIAL 60 2
588 MLC OUTPT HEADER CHECKING 60 2
589 MLC 5 WK TAPE HEADER LABEL TAPEMARK 60 2
590 MLC 4 WORK TAPE HEADER LABEL 60 2
591 MLC 11 UNLOAD OPTION 60 2
592 MLC 10,DATE RUN DATE INDICATED IN CC3 60 2
593 MLC 12,RTAIN RETENTION CYCLE FROM CC 60 2
594 MLC 14,LBLBKT-30 REEL SEQUENCE INCREMENT OPTION 60 2
595 MLC HEADER CHECK-ALL OPTION 60 2
596 BCE *&12,LBBUCK, 60 2
597 MLC 22,SYSCRE 60 2
598 B READC3 60 2
599 MLC 23,TPSERL NEW TAPE SERIAL NUMBERS 60 2
600 B READC3 READ NEXT CARD 60 2
601 CTLCF4 DCW @0000@ 60 2
602 TEMP DCW @ @ 60 2
603 0 60 2
604 DVR @ @ 60 2
605 DVD @ @ 60 2
606 QUOT EQU DVD 60 2
607 NEW DCW @0@ 60 2
608 QSS @ @ 60 2
609 RMDRSN 1 60 2
610 INDEX 0? 60 2
611 LOC DSA DVD-31 60 2
612 RUTN BCE *&17,SW11,1 CHECK TO SEE IF ALL CONTROL CARDS 60 2
613 BCE ERRLBL,ITLI,2 NEEDED HAVE BEEN READ PRIOR TO 60 2
614 BCE ERRLBL,ITLI,4 BOOTSTRAP CARD 60 2
615 BCE *&17,SW12,1 60 2
616 BCE ERRLBL,OTLI,2 60 2
617 BCE ERRLBL,OTLI,4 60 2
618 MLC @B@,LDXQ 60 2
619 MLC @N@,SETWM 60 2
620 BCE LAB120,LBBUCK,1 60 2
621 BCE *&8,DATE, BRANCH IF NO DATE SPEC ON CC3 60 2
622 DATE80 MLC DATE,OHDATE 60 2
623 BCE MVOHDT,ITLI, 60 2
624 C OTLI,@1@ 60 2
625 BU *&8 60 2
626 MLC @1@,LBLSAM 60 2
627 C OTLI,@3@ CONTROL PORTION OF 120 CHAR LABEL 60 2
628 BU *&8 60 2
629 MLC @1@,LBLSAM 60 2
630 MVOHDT MLC @-@,OHDATE&1 60 2
631 MLC @-@,LBLBKT-24 60 2
632 MLC @-@,LBLBKT-4 60 2
633 BCE ADD4,FLR, 60 2
634 BCE AD4RLI,RCDIST, 60 2
635 ADD4 ZA L4,CONVRT CONVERT L, MAXBLK, MINREC TO 60 2
636 B K5TOK3 THREE DIGIT NUMBER 60 2
637 MLC CONVRT,L 60 2
638 BCE CMPLMT,FLR, BRANCH IF FIXED LENGTH RECORDS 60 2
639 BCE TESTMX,MNREC4, 60 2
640 MLC MNREC4,CONVRT 60 2
641 B K5TOK3 60 2
642 MLC CONVRT,MINREC 60 2
643 TESTMX BCE CMPLMT,MXBLK4, 60 2
644 MLC MXBLK4,CONVRT 60 2
645 B K5TOK3 60 2
646 MLC CONVRT,MAXBLK 60 2
647 CMPLMT MLC C16000,CONVRT COMPUTE THREE DIGIT COMPLEMENT 60 2
648 S L4,CONVRT OF L, MAXBLK, MINREC 60 2
649 B K5TOK3 60 2
650 ADD MLC CONVRT,COMPL 60 2
651 BCE CMPTUP,FLR, BRANCH IF FIXED LENGTH RECORDS 60 2
652 MODAD MA @004@,CMPLMT&10 60 2
653 MA @003@,ADD&6 60 2
654 A @1@,COUNT 60 2
655 PAIN BCE NOPPN,MNREC4, 60 2
656 BCE CMPTUP,COUNT,3 60 2
657 B CMPLMT 60 2
658 AD4RLI A @4@,L4 60 2
659 B ADD4 60 2
660 NOPPN MLC @N@,PAIN 60 2
661 B MODAD 60 2
662 CMPTUP BCE MS4,MS,4 DETERMINE MACHINE SIZE 60 2
663 BCE MS5,MS,5 60 2
664 BCE MS6,MS,6 60 2
665 CS 332 60 2
666 CS 60 2
667 MLC PRMS1,238 60 2
668 W 60 2
669 CC 1 60 2
670 MLC @4@,MS 60 2
671 H MACHINE SIZE ERROR 60 2
672 MS4 ZA @8000@,WKAREA 60 2
673 ZA @4775@,DVD 60 2
674 B NUMRTR-8 60 2
675 MS5 ZA @12000@,WKAREA 60 2
676 ZA @8775@,DVD 60 2
677 MLC @I9Q@,GPMARK 60 2
678 B NUMRTR-8 60 2
679 MS6 ZA C16000,WKAREA 60 2
680 ZA @12775@,DVD 60 2
681 MLC @I9H@,GPMARK 60 2
682 BCE *&27,TPAVLM, COMPUTE THE UPPER LIMIT 60 2
683 NUMRTR C TPAVLM,WKAREA 60 2
684 BL ERRTPV 60 2
685 S TPAVLM,WKAREA 60 2
686 S WKAREA,DVD 60 2
687 BCE *&8,LABELS, 60 2
688 S @700@,DVD 60 2
689 C I3TUN,@0@ 60 2
690 BU XYZ 60 2
691 A @410@,DVD 60 2
692 BCE *&8,LABELS, 60 2
693 A @300@,DVD 60 2
694 XYZ MLC @3@,DVR 60 2
695 MZ @0@,DVD 60 2
696 BCE INIT,I3TUN, BRANCH IF NOT 3-WAY MERGE 60 2
697 MLC @4@,DVR 60 2
698 INIT ZA @03@,INDEX 60 2
699 S @12@,DVD 60 2
700 B ED OP BRANCH TO DIVISION SUBROUTINE 60 2
701 MLC QUOT,UPLMT 60 2
702 BCE CHECKQ,FLR,1 BRANCH IF VARIABLE LENGTH REC 60 2
703 B CNITQ 60 2
704 CHECKQ BCE K3400,DESCND,1 BRANCH IF DESCENDING SEQUENCE 60 2
705 BCE CNITQ,NCF,1 60 2
706 K3400 C @3401@,UPLMT 60 2
707 BL CMPRLL-8 60 2
708 MLC @3400@,UPLMT 60 2
709 B CMPRLL-8 60 2
710 CNITQ C @4000@,UPLMT 60 2
711 BL CMPRLL-8 60 2
712 MLC @3999@,UPLMT 60 2
713 BCE LFTOUT,FLR,1 60 2
714 CMPRLL C BI,@001@ CHECK RECORD LENGTH SPEC FOR 60 2
715 BU CRLBCK FIXED LENGTH RECORDS 60 2
716 C L4,@0013@ 60 2
717 BH ERRMS3 RECORD SIZE TOO SMALL 60 2
718 B CMPRLU 60 2
719 ORG 4135 60 2
720 CRLBCK C L4,@0010@ 60 2
721 BH ERRMS3 60 2
722 B CMPRLU 60 2
723 LFTOUT C MXBLK4,UPLMT CHECK RECORD LENGTH SPEC FOR 60 2
724 BL NOSOAP VARIABLE LENGTH RECORDS 60 2
725 C MNREC4,@ @ 60 2
726 BE CMPRLL 60 2
727 C MNREC4,@0013@ 60 2
728 BH ERRMS3 60 2
729 B CMPRLL 60 2
730 NOSOAP CS 332 60 2
731 CS 60 2
732 MLC PRMS2A-1,223 60 2
733 W 60 2
734 CC 1 60 2
735 H *-3 OVERSIZE INPUT BLOCK-VLR 60 2
736 ERRMS2 CS 332 60 2
737 CS 60 2
738 MLC PRMS2,0230 60 2
739 W 60 2
740 CC 1 60 2
741 H *-3 OVERSIZED RECORD LENGTH 60 2
742 ERRMS3 CS 332 60 2
743 CS 60 2
744 MLC PRMS3,0229 60 2
745 W 60 2
746 CC 1 60 2
747 H *-3 UNDERSIZED RECORD LENGTH 60 2
748 CMPRLU C L4,UPLMT 60 2
749 BL ERRMS2 60 2
750 CMPTBT ZA UPLMT,DVD COMPUTE THEORETICAL B 60 2
751 ZA L4,DVR 60 2
752 ZA @02@,INDEX 60 2
753 B ED OP 60 2
754 MZ @0@,QUOT 60 2
755 MLC QUOT,BT 60 2
756 BCE VARBL,FLR,1 60 2
757 CBIBT C BI,BT TEST FOR OVERSIZE BI 60 2
758 BL ERRMSX 60 2
759 ADDBI A BI,B COMPUTE B 60 2
760 C B,BT 60 2
761 BH ADDBI 60 2
762 BE *&8 60 2
763 S BI,B 60 2
764 MZ @0@,B 60 2
765 MLC C16000,CONVRT 60 2
766 S B,CONVRT 60 2
767 B K5TOK3 60 2
768 MLC CONVRT,CCB 60 2
769 B CMPTBL 60 2
770 ERRMSX CS 332 60 2
771 CS 60 2
772 MLC BT,PRMSX1-8 60 2
773 MLC PRMSX1,258 60 2
774 W 60 2
775 CC 1 60 2
776 H *-3 OVERSIZE INPUT BLOCKING-FLR 60 2
777 ERRMSQ CS 332 60 2
778 CS 60 2
779 MLC PRMSQ,0220 60 2
780 W 60 2
781 CC 1 60 2
782 H *-3 OVERSIZE OUTPUT BLOCK-VLR 60 2
783 CMPTBL A L4,BL4 COMPUTE BLOCK LENGTH 60 2
784 A @1@,COUNT3 60 2
785 C COUNT3,B 60 2
786 BH CMPTBL 60 2
787 ZA BL4,CONVRT 60 2
788 B K5TOK3 60 2
789 MLC CONVRT,BL 60 2
790 B DNSTY 60 2
791 VARBL ZA UPLMT,CONVRT 60 2
792 B K5TOK3 60 2
793 MLC CONVRT,BL 60 2
794 ART MLC UPLMT,BL4 60 2
795 BCE *&22,LABELS,1 60 2
796 A @700@,TCOMET 60 2
797 MLZS @ @,TCOMET 60 2
798 MLC TCOMET,TCOMTF 60 2
799 A @100@,TCOMET 60 2
800 MZ BLNK1,TCOMET 60 2
801 S UPLMT,TCOMET 60 2
802 A L4,TCOMET 60 2
803 MZ BLNK1,TCOMET 60 2
804 MLC TCOMET,CONVRT 60 2
805 B K5TOK3 60 2
806 MLC CONVRT,COMET 60 2
807 MLC COMET,COMETF 60 2
808 BCE XXX,MAXBLO, 60 2
809 S MAXBLO,TCOMTF 60 2
810 A L4,TCOMTF 60 2
811 MLC TCOMTF,CONVRT 60 2
812 B K5TOK3 60 2
813 MLC CONVRT,COMETF 60 2
814 XXX C BI,@ @ 60 2
815 BU CCC3BI 60 2
816 MLC @10@,THIRTN 60 2
817 BCE DVD10,MNREC4, 60 2
818 ZA MXBLK4,DVD 60 2
819 ZA MNREC4,DVR 60 2
820 ZA @02@,INDEX 60 2
821 B ED OP 60 2
822 MLNS QUOT,BI 60 2
823 MLC 60 2
824 B CCC3BI 60 2
825 DVD10 A @9@,MXBLK4 60 2
826 MLC MXBLK4-1,BI 60 2
827 CCC3BI S BI,K16000 60 2
828 S BI,K16000 60 2
829 S BI,K16000 60 2
830 MLC K16000,CONVRT 60 2
831 B K5TOK3 60 2
832 MLC CONVRT,LRG2G1 60 2
833 BCE VARMFS,BO, 60 2
834 SBR COUNT3,0 60 2
835 CBOL A L4,BOLMAX DETERMINE OUTPUT BLOCK LENGTH-VLR 60 2
836 A @1@,COUNT3 60 2
837 C BO,COUNT3 60 2
838 BL CBOL 60 2
839 C UPLMT,BOLMAX 60 2
840 BH ERRMSQ 60 2
841 VARMFS SBR CMPMFS&27,BT 60 2
842 ZA NCF,DVR 60 2
843 A DVR 60 2
844 MLC @A@,CHNGOP 60 2
845 DNSTY BCE CMPMFS,LDI,1 60 2
846 BCE HIDNSY,LDI,2 60 2
847 MLC KLTD,KTD 60 2
848 MLC LDIRG,KIRG 60 2
849 B CMPMFS 60 2
850 HIDNSY MLC KHTD,KTD 60 2
851 MLC HDIRG,KIRG 60 2
852 CMPMFS MLC @000@,COUNT3 COMPUTE MAXIMUM FILE SIZE 60 2
853 A KTD,MFSDVD 60 2
854 A @1@,COUNT3 60 2
855 C COUNT3,B 60 2
856 BH CMPMFS&7 60 2
857 ZA MFSDVD,DVD 60 2
858 CHNGOP ZA BL4,DVR 60 2
859 A KIRG,DVR 60 2
860 ZA @07@,INDEX 60 2
861 B ED OP 60 2
862 MLNS QUOT,MFS 60 2
863 MLC 60 2
864 BCE *&5,I3TUN, 60 2
865 PLY111 A MFS 60 2
866 C EFS,MFS 60 2
867 BL MFSEXH 60 2
868 BCE HUH,FLR,1 60 2
869 C BO,B CHECK BO SPECIFIED 60 2
870 BL ERRMSY 60 2
871 BE HUH 60 2
872 MLC BO,BOSUBB 60 2
873 TM SHK A BO,BOSUBB 60 2
874 C BOSUBB,B 60 2
875 BH TM SHK 60 2
876 BE HUH 60 2
877 CS 332 60 2
878 CS 60 2
879 MLC B,HLMN&4 60 2
880 S BO,BOSUBB 60 2
881 MLZS @ @,BOSUBB 60 2
882 AUGBI A BI,BISUBB#3 60 2
883 C BISUBB,BOSUBB 60 2
884 BH AUGBI 60 2
885 MLC @000@,BISUBB 60 2
886 BE WRITEA-7 60 2
887 MLC PRMSZ1,302 60 2
888 B WRITEA 60 2
889 MLC PRMSZ,332 60 2
890 WRITEA W BO NOT SUBMULTIPLE OF B 60 2
891 CC 1 60 2
892 H HUH-14 60 2
893 MLC BOSUBB,B MAKE B A MULTIPLE OF BO 60 2
894 MLC @000@,COUNT3 RECOMPUTE SORT BLOCK LENGTH AND 60 2
895 MLC @0000@,BL4 MAXIMUM FILE SIZE 60 2
896 S MFSDVD 60 2
897 MLZS @ @,MFSDVD 60 2
898 B CMPTBL 60 2
899 ERRMSY CS 332 60 2
900 CS 60 2
901 MLC B,PRMSY-53 60 2
902 MLC PRMSY,288 60 2
903 W BO GREATER THAN B 60 2
904 CC 1 60 2
905 H HUH-14 60 2
906 * 60 2
907 * READ THE INPUT HEADER CARD 60 2
908 * 60 2
909 RDIH MLC 50,LBLBKT 60 2
910 MLC @1@,SW11 60 2
911 MLC @1@,SW14 60 2
912 SW LBLBKT-4,LBLBKT-9 60 2
913 SW LBLBKT-19,LBLBKT-23 60 2
914 MLC @1@,LBLBKT-32 60 2
915 MLC @1@,ITLI 60 2
916 B READC3 60 2
917 * 60 2
918 * READ THE OUTPUT HEADER CARD 60 2
919 * 60 2
920 RDOH BCE RDO120,LBBUCK,1 60 2
921 MLC 50,REELSQ&21 60 2
922 MLC @1@,SW12 60 2
923 MLC @1@,SW15 60 2
924 MLC 25,FLSERL 60 2
925 B READC3 60 2
926 RDO120 MLC 25,FILESE 60 2
927 SW 31,41 60 2
928 SW 47 60 2
929 MLC 49,RETPER 60 2
930 MLC 45,CREATD 60 2
931 MLC 29,RESEQE 60 2
932 MLC 40,FILNAM 60 2
933 CW 31,41 60 2
934 CW 47 60 2
935 MLC @1@,SW12 60 2
936 MLC @1@,SW15 60 2
937 MLC @N@,MVOHDT 60 2
938 MLC @N@,MVOHDT&7 60 2
939 MLC @N@,MVOHDT&14 60 2
940 B READC3 60 2
941 LAB120 BCE *&8,DATE, 60 2
942 MLC DATE,CREATD 60 2
943 B DATE80&7 60 2
944 ED OP SBR RETADD&3 DIVISION ROUTINE 60 2
945 S TEMP 60 2
946 MLC @3@,TEMP-19 60 2
947 S INDEX,TEMP-18 60 2
948 A LOC,TEMP-18 60 2
949 MLNS TEMP-18,SIGN&6 60 2
950 MLC 60 2
951 A @1@,TEMP-18 60 2
952 MLNS TEMP-18,SUBTCT&6 60 2
953 MLC 60 2
954 MLNS TEMP-18,OUT&6 60 2
955 MLC 60 2
956 MLNS TEMP-18,GOPOS&6 60 2
957 MLC 60 2
958 SUBTCT S DVR,000 60 2
959 OUT BWZ GOPOS,000,K 60 2
960 BAV *&1 60 2
961 A @1@,NEW 60 2
962 BAV OVER 60 2
963 B SUBTCT 60 2
964 OVER MLC @9@,QSS 60 2
965 A QSS 60 2
966 B RETADD 60 2
967 GOPOS A DVR,000 60 2
968 MLC NEW,TEMP 60 2
969 ZA 60 2
970 MLC TEMP&1,NEW 60 2
971 ZA 60 2
972 S @1@,INDEX 60 2
973 BWZ SUBTCT,INDEX,B 60 2
974 MLZS QSS,DVD 60 2
975 SIGN MLZS RMDRSN,0 60 2
976 RETADD B 000 60 2
977 ONETWO BIN SHINE, 60 2
978 ADDRSS DSA MAXBLK-3 60 2
979 CF1REX DCW @ @ 60 2
980 CF2REX @ @ 60 2
981 CF3REX @ @ 60 2
982 CF4REX @ @ 60 2
983 CF5REX @ @ 60 2
984 CF6REX @ @ 60 2
985 CF7REX @ @ 60 2
986 CF8REX @ @ 60 2
987 CF9REX @ @ 60 2
988 CF0REX @ @ 60 2
989 WKAREA @08000@ 60 2
990 CF1SLX @ @ 60 2
991 NC1CF @ @ 60 2
992 CTLCF @ @ 60 2
993 CNTNCF @ @ 60 2
994 COUNT2 @ @ 60 2
995 COUNT @ @ 60 2
996 NOOFCF 00 60 2
997 BT @000@ THEORETICAL SORT BLOCKING FACTOR 60 2
998 COUNT3 @000@ 60 2
999 BOSUBB 000 60 2
1000 BOLMAX 0000 60 2
1001 BL4 0000 BLOCK LENGTH 60 2
1002 L4 @0000@ 60 2
1003 MNREC4 0000 60 2
1004 MXBLK4 0000 60 2
1005 UPLMT 0000 60 2
1006 MFSDVD 00000000000 60 2
1007 MAXBLO DCW @ @ 60 2
1008 LDIRG 150 60 2
1009 KIRG 417 60 2
1010 HDIRG DCW @600@ 60 2
1011 PRMS1 DCW @MACHINE SIZE ERROR-FOR 8K,PRESS START@ 60 2
1012 PRMS2 @OVERSIZE RECORD LENGTH-RESTART@ 60 2
1013 PRMS3 @RECORD SIZE TOO SMALL-RESTART@ 60 2
1014 PRMS4 DCW @CF LNGH ERROR-FOR COMPUTED TLCF,PRESS START@ 60 2
1015 PRMS5 @TLCF GREATER THAN L@ 60 2
1016 PRMS6 DCW @TAPE UNIT NOT AVAILABLE-@ 60 2
1017 MFSEXH CS 332 60 2
1018 CS 60 2
1019 MLC EFSMES,277 60 2
1020 W 60 2
1021 CC 1 60 2
1022 H PLY111&16 60 2
1023 DCW @EFFECTIVE FILE SIZE GREATER THAN @ 60 2
1024 DC @MAXIMUM FILE SIZE. PRESS START TO @ 60 2
1025 EFSMES DC @CONTINUE.@ 60 2
1026 ERRMS5 CS 0332 60 2
1027 CS 60 2
1028 MLC PRMS5,0219 60 2
1029 W 60 2
1030 CC 1 60 2
1031 H *-3 CF LENGTH GREATER THAN RECORD 60 2
1032 MLC B,BO 60 2
1033 MLC BL4,BOLMAX 60 2
1034 HUH MLC @01@,COUNT2 60 2
1035 CIFXFY ZA CF2REX,CONVRT COMPUTE DISTANCE BETWEEN 60 2
1036 S CF1REX,CONVRT CONTROL FIELDS 60 2
1037 BWZ NEGIFD,CONVRT,K 60 2
1038 MZ @ @,CONVRT 60 2
1039 BRANCH B K5TOK3 60 2
1040 MLC CONVRT,IF1F2 60 2
1041 A @1@,COUNT2 60 2
1042 MA @004@,CIFXFY&3 60 2
1043 MA @004@,CIFXFY&10 60 2
1044 MA @003@,BRANCH&10 60 2
1045 C NCF,COUNT2 60 2
1046 BL CIFXFY 60 2
1047 B DECBY1 60 2
1048 NEGIFD A C16000,CONVRT 60 2
1049 MZ @ @,CONVRT 60 2
1050 B BRANCH 60 2
1051 SNGLCF ZA CF1SLX,CONVRT ROUTN FOR 1 CONTROL FIELD 60 2
1052 B K5TOK3 60 2
1053 MLC CONVRT,CF1SL 60 2
1054 A CF1SL,CF1RE 60 2
1055 MA NC1CF,CF1RE 60 2
1056 MLCWAONETWO&4,HUH&4 60 2
1057 SBR INDEX1,0 60 2
1058 B CRE&14 60 2
1059 SHINE C CF1SLX,@0001@ 60 2
1060 BU DECBY1 60 2
1061 MLC @1@,CNOP 60 2
1062 DECBY1 MA @I9I@,CF1SL 60 2
1063 A @1@,NOOFCF 60 2
1064 C NCF,NOOFCF 60 2
1065 BE *&12 60 2
1066 MA @003@,DECBY1&6 60 2
1067 B DECBY1 60 2
1068 SETWM CS 80 60 2
1069 BSS PLYIN2,C 60 2
1070 SW 24,56 60 2
1071 SW 63,67 60 2
1072 LDXQ R 56 60 2
1073 PLYIN1 MLC @0@,MI3TUN MULTIPHASE INITIALIZATION 60 2
1074 MLC @0@,I3TUN 60 2
1075 MLC @N@,PLY111 60 2
1076 B RWD2WY 60 2
1077 PLYIN2 MLC @ @,MI3TUN 60 2
1078 MLC @ @,I3TUN 60 2
1079 B SETWM&9 60 2
1080 * 60 2
1081 * PROCESS THE INPUT HEADER CARD 60 2
1082 * 60 2
1083 HLMN DCW @BO NOT SUBMULTIPLE OF B, TO SET BO EQUAL TO@ 60 2
1084 PRMSZ1 DC @ PRESS START. @ 60 2
1085 DC @TO MAKE B A MULTIPLE OF BO, PRESS START/RESET @ 60 2
1086 PRMSZ DC @AND START@ 60 2
1087 PRMSQ DCW @BOL TOO LARGE-RESTART@ 60 2
1088 PRMS2A DCW @OVERSIZE INPUT BLOCKING,@ 60 2
1089 PRMSX1 DC @ GREATEST POSSIBLE B -RESTART@ 60 2
1090 DCW @BO GREATER THAN B, BO MAY EQUAL @ 60 2
1091 DC @ OR ANY SUBMULTIPLE OF IT.@ 60 2
1092 PRMSY DC @ PRESS START FOR BO EQUAL B@ 60 2
1093 ERMCD CS 299 60 2
1094 MLC PRMCD,299 60 2
1095 W 60 2
1096 CS 299 60 2
1097 MLC PRMZQ,270 60 2
1098 QZWRT W 60 2
1099 CC 1 60 2
1100 H *-3 60 2
1101 PRMTPV DCW @USER AREA SPECIFIED ABOVE CORE SIZE-RESTART@ 60 2
1102 ERRTPV CS 299 60 2
1103 MLC PRMTPV,299 60 2
1104 W 60 2
1105 CC 1 60 2
1106 H *-3 USER AREA ABOVE CORE SIZE 60 2
1107 CSCAN SBR RTEND&3 CONTROL CARD SCAN ROUTINE 60 2
1108 MLC @000@,INDEX1 60 2
1109 CM201 C 201&X1,@0@ 60 2
1110 BH ERMCD 60 2
1111 MA @001@,INDEX1 60 2
1112 C INDEX1,CDLNG 60 2
1113 BH CM201 60 2
1114 MLC @00@,CDLNG 60 2
1115 RTEND B 000 60 2
1116 OKIND SBR RTFINI&3 60 2
1117 BRNON BCE RTOK,20&X1, 60 2
1118 BRNON1 BCE RTOK,20&X1,1 CHECK FOR PROPER INFORMATION 60 2
1119 BRNON2 BCE RTOK,20&X1,2 1,2,3,4, OR BLANK IN CC 60 2
1120 BRNON3 BCE RTOK,20&X1,3 60 2
1121 BRNON4 BCE RTOK,20&X1,4 60 2
1122 B ERMCD 60 2
1123 RTOK MLC TSERO-4,220&X1 60 2
1124 MA @001@,INDEX1 60 2
1125 RTFINI B 000 60 2
1126 ERMTP CS 299 60 2
1127 MLC PRMTP,299 60 2
1128 QZWRIT W TAPE UNIT INVALIDLY SPECIFIED 60 2
1129 CC L 60 2
1130 B ERMCD 60 2
1131 ERMDP CS 299 60 2
1132 MLC PRMDP,299 60 2
1133 W 60 2
1134 CC 1 60 2
1135 MLC @P@,URPI 60 2
1136 H ZZGX UNREADABLE RECORD PROCEDURE ERROR 60 2
1137 ERMCF CS 299 60 2
1138 MLC PRMCF,299 60 2
1139 B QZWRIT 60 2
1140 ERMRL CS 299 60 2
1141 MLC PRMRL,299 60 2
1142 B QZWRIT 60 2
1143 ERRCC CS 299 60 2
1144 MLC PRMCDX,299 60 2
1145 W 60 2
1146 CC 1 60 2
1147 H *-3 INVALID CONTROL CARD 60 2
1148 THIRTN DCW 0013 60 2
1149 ERRLBL CS 299 60 2
1150 MLC PRMLBL,299 60 2
1151 W 60 2
1152 CC 1 60 2
1153 H *-3 CONTROL CARD 4 AND/OR 5 MISSING 60 2
1154 PRMLBL DCW @CONTROL CARD#4 AND/OR #5 ARE MISSING@ 60 2
1155 ERMS6 CS 299 60 2
1156 SW 225 60 2
1157 MLC PRMDP,252 60 2
1158 MLC PRMS6 60 2
1159 W 60 2
1160 CC 1 60 2
1161 MLC @P@,URPI 60 2
1162 H BTPVLM DUMP TAPE NOT AVAILABLE 60 2
1163 SPCRLI BCE *&5,RCC4, DETERMINE IF RLI IS SPECIFIED FOR 60 2
1164 B CKOT VLR BLOCKED INPUT 60 2
1165 CS 299 60 2
1166 MLC @58-61@,ZQST 60 2
1167 SW 201 60 2
1168 MLC PRMRLI,233 60 2
1169 B QZWRT-7 60 2
1170 ERRLI CS 299 60 2
1171 MLC PRMRLI,280 60 2
1172 W 60 2
1173 CC 1 RLI LENGTH NOT SPECIFIED FOR 60 2
1174 H *-3 VLR LOAD MODE INPUT 60 2
1175 PRMTP DCW @TAPE UNIT IS INVALIDLY SPECIFIED@ 60 2
1176 DCW @URPI IS INVALIDLY SPECIFIED-@ 60 2
1177 PRMDP DC @PRESS START FOR PUNCH OPTION@ 60 2
1178 PRMCF DCW @NO. OF CONTROL FIELDS IS INVALIDLY SPECIFIED@ 60 2
1179 PRMRL DCW @NO. OF INPUT REELS IS INVALIDLY SPECIFIED@ 60 2
1180 PRMRLI DCW @THE LENGTH OF RCC IS NOT SPECIFIED FOR VARIABLE@ 60 2
1181 QRS EQU *&14 60 2
1182 DCW @CONTROL CARD#1 INVALIDLY PUNCHED@ 60 2
1183 PRMCDX DCW @AN INVALID CONTROL CARD IS PRESENT@ 60 2
1184 PRMCD DC @ OR OUT OF SEQUENCE @ 60 2
1185 ZQST EQU *&18 60 2
1186 PRMZQ DCW @CHECK COLUMN 33-36@ 60 2
1187 NCFCT DCW @01@ CONTROL FIELD COUNTER 60 2
1188 CDLNG DCW @75@ 60 2
1189 CSCNT DCW @00@ 60 2
1190 TSERO DCW @00000@ 60 2
1191 BLNK5 DCW @ @ 60 2
1192 QZSW1 DCW @ @ 60 2
1193 SW11 DCW #1 60 2
1194 SW12 DCW #1 60 2
1195 SW13 DCW #1 60 2
1196 SW14 DCW #1 60 2
1197 SW15 DCW #1 60 2
1198 TSINK DCW #50 60 2
1199 BLNK1 DCW @ @ 60 2
1200 HERTAG EQU HDRTAG 60 2
1201 RETPER EQU TPSERL RETENTION PERIOD 60 2
1202 CREATD EQU FLSERL CREATION DATE 60 2
1203 FILNAM EQU FLNAME-5 FILE NAME BUCKET 60 2
1204 FILESE EQU FLNAME FILE SERIAL NUMBER 60 2
1205 SYSCRE EQU OHDATE CREATING SUSTEMS 60 2
1206 RESEQE EQU RTCYCL REEL SEQUENCE NUMBER 60 2
1207 EX READCC 60 2
1208 JOB ** IBM 1401 SORT 7 VERSION 2 ASSIGNMENT PHASE 60 2
1209 ORG 700 60 2
1210 ENDAPH BCE CHECLA,LBBUCK,1 60 2
1211 BCE ENDMSG,FLR,1 60 2
1212 MLC L4,PRMS8-27 PRINT VALUES TO BE USED FOR 60 2
1213 MLC B,PRMS8-19 FIXED LENGTH RECORD SORT 60 2
1214 MLC BI,PRMS8-10 60 2
1215 MLC BO,PRMS8-1 60 2
1216 MLC BL4,PRMS8&9 60 2
1217 MLC MFS,PRMS8&23 60 2
1218 CS 332 60 2
1219 CS 60 2
1220 MLC PRMS8&23,0256 60 2
1221 W 60 2
1222 B MESS9 60 2
1223 ENDMSG C MNREC4,L4 60 2
1224 BL VLRER 60 2
1225 BCE AINT,RCDIST, 60 2
1226 BCE CST322,INMODE,M 60 2
1227 MLC @000@,INDEX1 60 2
1228 TSARNA C RCC4,CF1REX&X1 60 2
1229 BE CST322 60 2
1230 MA @004@,INDEX1 60 2
1231 A @1@,KRCNT#2 60 2
1232 C KRCNT,NCF 60 2
1233 BH TSARNA 60 2
1234 S KKK3,RCC4 60 2
1235 MLZS @ @,RCC4 60 2
1236 C RCC4,@0000@ 60 2
1237 BE CST322 60 2
1238 MLC @1@,KRUNCH 60 2
1239 ZA RCC4,CONVRT 60 2
1240 B K5TOK3 60 2
1241 MLC CONVRT,SLRCC 60 2
1242 CST322 CS 332 PRINT VALUES TO BE USED FOR 60 2
1243 CS VARIABLE LENGTH RECORD SORT 60 2
1244 MLC L4,PRMSU-28 60 2
1245 MLC BL4,PRMSU-14 60 2
1246 MLC MFS,PRMSU 60 2
1247 MLC PRMSU,0238 60 2
1248 W 60 2
1249 MESS9 CS 322 60 2
1250 CS 60 2
1251 MLC PRMS9,0223 60 2
1252 CC L 60 2
1253 W PRINT END OF ASSIGNMENT PHASE 60 2
1254 CC 1 60 2
1255 SW OHDATE-4 60 2
1256 BCE EXITAP,URPI,P 60 2
1257 BCE EXITAP,URPI,C 60 2
1258 MLC URPI,*&4 60 2
1259 RWD 0 60 2
1260 EXITAP NOP 0 USERS EXIT 60 2
1261 MLZS *-6,CENSIG 60 2
1262 CS 80 60 2
1263 SW 24,56 60 2
1264 SW 63,67 60 2
1265 R 56 LOAD PHASE ONE 60 2
1266 VLRER CS 332 60 2
1267 CS 60 2
1268 MLC VLRERM,253 60 2
1269 W 60 2
1270 CC 1 60 2
1271 H *-3 60 2
1272 AINT MLC @1@,RLIIND 60 2
1273 MLC @ @,CNOP 60 2
1274 MLC @004@,RCDIST 60 2
1275 MA @004@,CFIRE 60 2
1276 MLC @ @,COUNT2 60 2
1277 ISSO MA @004@,CF1RE 60 2
1278 A @1@,COUNT2 60 2
1279 C COUNT2,NCF 60 2
1280 NOMO BE SOS 60 2
1281 MA @003@,ISSO&6 60 2
1282 B ISSO 60 2
1283 SOS SBR ISSO&6,CF1SL 60 2
1284 SBR NOMO&3,UPDT 60 2
1285 B ISSO-7 60 2
1286 UPDT MA @I9F@,CCCFRE 60 2
1287 B CST322 60 2
1288 DCW @RECORD LENGTH ERROR-@ 60 2
1289 CHECLA BCE ERLAEL,TL,2 60 2
1290 BCE ERLAEL,TL,1 60 2
1291 BCE ERLAEL,OTLI,2 60 2
1292 BCE 60 2
1293 BCE ERLAEL,OTLI,1 60 2
1294 BCE *&8,ITLI, 60 2
1295 MLC @1@,ITLI 60 2
1296 B ENDAPH&8 60 2
1297 ERLAEL CS 332 60 2
1298 CS 60 2
1299 MLC @INVALID LABEL SPECIFICATION@,228 60 2
1300 W 60 2
1301 CC 1 60 2
1302 H HTMGHT 60 2
1303 C TL,@3@ 60 2
1304 BL *&8 60 2
1305 MLC @3@,TL 60 2
1306 C OTLI,@3@ 60 2
1307 BL *&8 60 2
1308 MLC @3@,OTLI 60 2
1309 BCE *&8,ITLI, 60 2
1310 MLC @1@,ITLI 60 2
1311 B ENDAPH&8 60 2
1312 HTMGHT C TL,@2@ 60 2
1313 BH OTLGHT 60 2
1314 BE OTLGHT 60 2
1315 MLC @1@,TL 60 2
1316 OTLGHT C OTLI,@2@ 60 2
1317 BH ITLGHT 60 2
1318 BE ITLGHT 60 2
1319 MLC @1@,OTLI 60 2
1320 ITLGHT C ITLI,@2@ 60 2
1321 BH LBBGHT 60 2
1322 MLC @1@,ITLI 60 2
1323 LBBGHT MLC @ @,LBBUCK 60 2
1324 B ENDAPH&8 60 2
1325 VLRERM DC @MAXIMUM LESS THAN MINIMUM-RESTART@ 60 2
1326 PRMS8 DCW @L B BI BO @ 60 2
1327 DC @ BL MFS @ 60 2
1328 PRMS9 DCW @END OF ASSIGNMENT PHASE@ 60 2
1329 PRMSU DCW @L MAX BL MAX MFS @ 60 2
1330 EX ENDAPH 60 2
1331 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 1 60 2
1332 ORG 87 60 2
1333 X1 DCW @000@ 60 2
1334 ORG 92 60 2
1335 X2 DCW @000@ 60 2
1336 ORG 97 60 2
1337 X3 DCW @000@ 60 2
1338 ORG 7998 60 2
1339 GM DCW @}@ 60 2
1340 ORG CCB&1 60 2
1341 ORG *&124 60 2
1342 HERE ORG * BEGINNING OF REDUNDANT REC RTN 60 2
1343 ORG *&135 60 2
1344 * 60 2
1345 PLYIN3 MLC @|@,000 60 2
1346 B NOSWCH 60 2
1347 K2FLD DCW 00 60 2
1348 BFRST3 DCW @0|0@ 60 2
1349 PCOMPL DCW 000 60 2
1350 K1BLNK DCW @ @ BLANK TO REMOVE GM AFTER READ 60 2
1351 G DCW 000 60 2
1352 DC 0 60 2
1353 P15999 DCW @I9I@ 60 2
1354 LBMI3T DSA MI3TUN 60 2
1355 LBI3T DSA I3TUN 60 2
1356 CPLITP DCW @99@ 60 2
1357 THREEB DCW 0 60 2
1358 NINE DCW @9@ 60 2
1359 NINTNN DCW @99@ 60 2
1360 TWO DCW @002@ 60 2
1361 K2BLNK @00@ 60 2
1362 MFSIZE DCW 0000000 MAXIMUM FILE SIZE 60 2
1363 NOTAPS DCW @4@ 60 2
1364 THREE DCW @003@ 60 2
1365 O1 DCW 000 60 2
1366 G1 DCW 000 60 2
1367 ONE DCW @001@ 60 2
1368 BLKCT1 DCW @00000@ 60 2
1369 ONERM DCW @|@ 60 2
1370 * 60 2
1371 CLRTN SW 000 CLEAR WORDMARK ROUTINE 60 2
1372 MLC CDTO,X3 60 2
1373 CLR1 S 0&X3 SUBTRACT TO WORDMARK 60 2
1374 SBR X3 SAVE ADDRESS 60 2
1375 MA ONE,X3 60 2
1376 CW 0&X3 CLEAR WORDMARK 60 2
1377 C ONPTAR,X3 INPUT AREA ALL CLEARED 60 2
1378 BU CLR1 60 2
1379 B VLRGET YES 60 2
1380 CDTO DCW #3 60 2
1381 ORG *&34 60 2
1382 * SET WORDMARK ROUTINE FOR VARIABLE 60 2
1383 * LENGTH RECORDS 60 2
1384 VARLNT SW 0&X2 60 2
1385 SW 0&X2,0&X2 60 2
1386 SW 0&X2,0&X2 60 2
1387 SW 0&X2,0&X2 60 2
1388 SW 0&X2,0&X2 60 2
1389 STWMVL SW 0&X2,0&X2 60 2
1390 SW 0&X2 60 2
1391 CNVRSN ZA 15998&X2,X3 60 2
1392 ZA X3-2,X3 60 2
1393 MLZS K1BLNK,X3 60 2
1394 CNVRS1 MLZS TBLE&X3,15997&X2 60 2
1395 B011TA A ONE,CTNR 60 2
1396 S ONE,MFSIZE 60 2
1397 B011T MLC X2,0 60 2
1398 B011TH NOP 0,0 60 2
1399 B011TB MA 15999&X2,X2 60 2
1400 MLC LRG2G1,CMPLRG 60 2
1401 MA B011T&6,CMPLRG 60 2
1402 BWZ SETG1H,CMPLRG,2 60 2
1403 STMRWM MA THREE,B011T&6 60 2
1404 STG1J C X2,X1 60 2
1405 SETG1J BU STWMVL 60 2
1406 CLWMVL B B013R 60 2
1407 SETG12 MA @I9G@,B011T&6 60 2
1408 SETG1 MLC B011T&6,G1 60 2
1409 MLC K1BLNK,0&X1 60 2
1410 B B4SS5 60 2
1411 SETG1H MLC @N@,CLWMVL 60 2
1412 B STMRWM 60 2
1413 LSTBLK MLC @N@,CLWMVL 60 2
1414 LSTBK1 B STWMVL 60 2
1415 CMPLRG DCW 000 60 2
1416 CMPCOW DCW 000 60 2
1417 CMPCOU DCW 000 60 2
1418 TBLE DC @9@ 60 2
1419 DC @Z@ 60 2
1420 DC @R@ 60 2
1421 DC @I@ 60 2
1422 DC @9@ 60 2
1423 * 60 2
1424 * S T E P D O W N R O U T I N E 60 2
1425 * 60 2
1426 * 60 2
1427 STPDNR MLC O1FA-3,X1 60 2
1428 LOADGM MLCWAGM,0 60 2
1429 MLC HOLDND,X3 60 2
1430 A ONE,CNSQ SEQUENCE COUNT 60 2
1431 * COMPARE LOWEST RECORD IN NEW G TO HIGHEST 60 2
1432 * RECORD IN PREVIOUS G 60 2
1433 STPCMP C 0,0 60 2
1434 STPCM1 BL NEXTTP IF LOW-SWITCH OUTPUT TAPES 60 2
1435 STPCM2 BE EQUALS IF EQUAL-TEST SECONDARY CFS 60 2
1436 * IF ALL CONTROL FIELDS ARE EQUAL OR IF 60 2
1437 * RECORD IS HIGH-KEEP OUTPUT BLOCKS OF NEW G ON 60 2
1438 * SAME OUTPUT TAPE UNIT AS WAS USED FOR 60 2
1439 * PREVIOUS G 60 2
1440 B NOSWCH 60 2
1441 EQUALS MA ONE,X3 60 2
1442 SBR B04EQ&3,STPCM2&5 60 2
1443 SBR B03EQ&3 60 2
1444 B EQLRTN 60 2
1445 NEXTTP MLC MI2TUN,TPBKT 60 2
1446 NXTTP1 C NEXTTP&3,&MI2TUN 60 2
1447 BE CYCLE 60 2
1448 MA ONE,NEXTTP&3 60 2
1449 B CYCLE1 60 2
1450 CYCLE SBR NEXTTP&3,MI1TUN 60 2
1451 CYCLE1 MLC TPBKT,B201W&3 60 2
1452 MLC TPBKT,TAPERW&3 60 2
1453 MLC TPBKT,B203W&3 60 2
1454 A ONE,CNOS1 SWITCH TAPE COUNT 60 2
1455 BSS PLYIN3,C 60 2
1456 NOSWCH B BP000 60 2
1457 HOLDND DCW 000 60 2
1458 TPBKT DCW 0 OUTPUT TAPE NUMBER 60 2
1459 * 60 2
1460 * PUT ROUTINE 60 2
1461 * 60 2
1462 BP000 SBR B212W&3,BP2200 60 2
1463 B2200 MLC O1FA-3,B2000&3 GET ADDR OF 1ST REC FROM ADDR 60 2
1464 BP2200 MLC 0,B2001&6 TABLE 60 2
1465 B2201V B B2000 60 2
1466 DC @ @ 60 2
1467 B220VL MLC 0,X1 60 2
1468 MA P15999,X1 60 2
1469 B2201 MA L,B2001&6 60 2
1470 B2000 MLC 0,X1 ADDR OF RECORD TO BE MOVED TO X1 60 2
1471 PUTEXT NOP 0 USERS EXIT 60 2
1472 B2001 MLCWA15999&X1,0 CHAIN MOVE RECORD TO OUTPUT AREA 60 2
1473 NOP THESE NOPS ARE CHANGED TO L 60 2
1474 NOP ACCORDING TO THE NUMBER OF 60 2
1475 NOP CONTROL FIELDS SPECIFIED BY THE 60 2
1476 NOP USER IN CC1 &2 60 2
1477 NOP 60 2
1478 NOP 60 2
1479 NOP 60 2
1480 NOP 60 2
1481 NOP 60 2
1482 NOP 60 2
1483 NOP 60 2
1484 B2211D NOP 0,0 60 2
1485 B2211B C B2000&3,G1 HAVE G RECORDS BEEN MOVED TO 60 2
1486 B2202 MA THREE,B2000&3 OUTPUT AREA 60 2
1487 B2202A BU B2211 NO-IS WRITE REQUIRED 60 2
1488 B2211C B BP001 YES-WRITE FINAL BLK OF G RECS 60 2
1489 B2211 C B2001&6,COUNTR TEST-IS WRITE REQUIRED 60 2
1490 B2212 BU B2201 NO-BR TO MOVE NEXT REC TO OUTPUT 60 2
1491 B BP002 60 2
1492 DC @ @ 60 2
1493 B B2201V 60 2
1494 N DCW @N@ 60 2
1495 * E Q U A L R O U T I N E 60 2
1496 EQUAL SBR B04EQ&3 STORE THE B REGISTER TO RETURN 60 2
1497 SBR B03EQ&3 TO THE COMPARE LOOP MAINLINE 60 2
1498 EQLRTN SBR B00EQ&3,BSCBSC MOVE ADDRESS OF 2ND-3RD-ETC CF 60 2
1499 B00EQ MLC 0,B01EQ&6 TO COMPARE INSTRUCTION 60 2
1500 B01EQ C 0,0 COMPARE SECONDARY CONT FLDS 60 2
1501 BE B07EQ BRANCH TO ALTER COMPARE 60 2
1502 MA @I9?@,B03EQ&3 60 2
1503 B03EQ BL 0 BR LOW TO MAINLINE BR LOW INSTR 60 2
1504 B04EQ B 0000 BR HI TO MAINLINE BR HI INSTR 60 2
1505 B07EQ C B00EQ&3,LAST TEST FOR OTHER CF IF EQ COMPARE 60 2
1506 BE B04EQ ALL CF HAVE BEEN COMPARED 60 2
1507 MA @006@,B00EQ&3 ALTER COMPARE INSTRUCTION 60 2
1508 B B00EQ BR TO COMPARE NEXT CF 60 2
1509 BSCBSC DCW 000000 THESE 6 CHARACTER BUCKETS 60 2
1510 DCW 000000 CONTAIN THE POSITION WITHIN 60 2
1511 DCW 000000 THE RECORD OF THE SECOND THRU 60 2
1512 DCW 000000 TENTH CONTROL FIELD IF MULTIPLE 60 2
1513 DCW 000000 CONTROL FIELDS ARE PRESENT 60 2
1514 DCW 000000 60 2
1515 DCW 000000 60 2
1516 DCW 000000 60 2
1517 DCW 000000 60 2
1518 LAST DCW 000 ADDR OF LAST 6 CHAR DCW 60 2
1519 * 60 2
1520 * WRITE ROUTINE 60 2
1521 * 60 2
1522 BP001 SBR B212W&3,B010R 60 2
1523 BP002 S B,MFSIZE 60 2
1524 BWZ MAXFS,MFSIZE,K 60 2
1525 WRTFL1 A B,CTNR 60 2
1526 WRITFL MLC @80@,CNTR50 60 2
1527 B211W MLC @N@,B202W 60 2
1528 RITEXT NOP 0 USERS EXIT 60 2
1529 B201W WT %U4,0 60 2
1530 BAV *&1 60 2
1531 BER TAPERW 60 2
1532 BEF EOFW 60 2
1533 PLYIN4 NOP K1BLNK,000 60 2
1534 B212W B B2201 60 2
1535 EOFW SBR OLGA&3 60 2
1536 EOFW2 NOP EOFWND 60 2
1537 MLC @B@,EOFW2 60 2
1538 SBR NOSWCH&3,NORSIF 60 2
1539 B NEXTTP 60 2
1540 EOFWND MLC @B@,CNTR 60 2
1541 B TSTFPD 60 2
1542 NORSIF MLC @ @,STPCMP&4 60 2
1543 MLC &BP000 60 2
1544 MLC @B@ 60 2
1545 OLGA B 0 60 2
1546 TAPERW BSP %U4 60 2
1547 B202W B ERSRTN 60 2
1548 MLC @B@,B202W 60 2
1549 B B201W 60 2
1550 ERSRTN A ONE,CNTR50 60 2
1551 BAV HLTWTR 60 2
1552 B203W SKP %U4 60 2
1553 B B211W 60 2
1554 HLTWTR H WRITFL 60 2
1555 MAXFS MLC NOP,BP002&7 60 2
1556 H WRTFL1 60 2
1557 NOP DCW @N@ 60 2
1558 CNTR50 DCW 00 60 2
1559 COUNTR DCW 000 60 2
1560 * 16000 - SIZE OF B - 1 IF VLR 60 2
1561 * 60 2
1562 * GET ROUTINE 60 2
1563 * 60 2
1564 VLRGET MLC @B@,CLWMVL 60 2
1565 MLC O1FA-3,B011T&6 60 2
1566 MLC ONPTAR,X2 60 2
1567 B010RI NOP K4,X1 60 2
1568 B010R MLC ONPTAR,X1 MOVE BEGINNING OF INPUT TO X1 60 2
1569 B013R MLC X1,X3 60 2
1570 B000R MLC ONE,CNTR INITIALIZE ERROR COUNTER 60 2
1571 A ONE,BLKCT1 ADD 1 TO # OF BLOCKS READ 60 2
1572 MLC CENSIG,13&X1 MOVE CENT SIGN TO 14TH POSITION 60 2
1573 * OF INPUT AREA FOR NOISE TEST 60 2
1574 B011R MLC K1BLNK,0&X1 BLANK GROUPMARK AT END OF RECORD 60 2
1575 B001R RT %U1,0&X1 READ INPUT BLOCK 60 2
1576 SBR X1 60 2
1577 MA P15999,X1 60 2
1578 BEF EOFRD TEST-END OF FILE ON READ 60 2
1579 CKNOIS BCE NOISRT,13&X3, BRANCH IF CENT SIGN STILL PRESENT 60 2
1580 BER TAPERD TEST-TAPE TRANSMISSION ERROR 60 2
1581 GETEXT NOP 0 USERS EXIT 60 2
1582 * AT THIS POINT USER MAY BRANCH TO HIS OWN ROUTINE 60 2
1583 * IF ADDITIONAL MANIPULATION OF RECORDS IS 60 2
1584 * DESIRED--CONTENTS OF INDEX REGISTERS MUST BE SAVED 60 2
1585 * AND RESTORED BEFORE RETURNING TO SORT PROGRAM. 60 2
1586 *** 60 2
1587 RNGLNQ BCE ACCEPT-7,0&X3,} CHECK RECORD LENGTH OF FIXED 60 2
1588 * LENGTH RECORDS 60 2
1589 RNGL1Q H 60 2
1590 RNGL2Q B HERE 60 2
1591 MLC K1BLNK,0&X1 THE GROUPMARK IS REMOVED FROM THE 60 2
1592 ACCEPT C X1,COWNTR IS INPUT AREA FILLED 60 2
1593 BU B013R RETURN TO READ ANOTHER BLOCK 60 2
1594 B002R B B4SS5 BRANCH TO SEQUENCE RECORDS 60 2
1595 DC @ @ 60 2
1596 RLINO B RLIYES 60 2
1597 DC @ @ 60 2
1598 MLC X1,CONVRT DETERMINE LENGTH OF VARIABLE LNG 60 2
1599 B EXPAND RECORDS WITH NO RLI SPECIFIED 60 2
1600 MLCWAHOLD,RLI 60 2
1601 MLC X3,CONVRT 60 2
1602 B EXPAND 60 2
1603 S HOLD,RLI 60 2
1604 MLZS K1BLNK,RLI 60 2
1605 SW RLI-3 60 2
1606 MLCWARLI,3&X2 60 2
1607 RLIYES BWZ LSTBLK,CMPCOW,2 60 2
1608 B002RA B STWMVL 60 2
1609 RLI DCW 00000 60 2
1610 NOISRT MLC K1BLNK,13&X3 CLEAR NOISE RECORD 60 2
1611 MLC 60 2
1612 MLC 60 2
1613 MLC 60 2
1614 MLC 60 2
1615 MLC 60 2
1616 MLC 60 2
1617 MLC 60 2
1618 MLC 60 2
1619 MLC 60 2
1620 MLC 60 2
1621 MLC 60 2
1622 MLC 60 2
1623 MLC 60 2
1624 MLC X3,X1 RESTORE INDEX REGISTERS 60 2
1625 B B011R-7 60 2
1626 EOFRD BAV *&1 60 2
1627 S ONE,BLKCT1 60 2
1628 MLZS K2BLNK,BLKCT1 60 2
1629 BCE *&5,TL, TEST FOR TRAILER LABEL 60 2
1630 LSTCHK B TRLENT BR TO PROC TRAILER LABEL 60 2
1631 S BLKCT1 ZERO BLOCK COUNT 60 2
1632 MLZS K2BLNK,BLKCT1 60 2
1633 BSS EOFRWD,D 60 2
1634 MLC @R@,EOFRWD&4 60 2
1635 EOFRWD RWU 0 60 2
1636 A ONE,CPLITP ADD 1 TO NO OF REELS PROC 60 2
1637 BAV TSTFPD TEST-MORE REELS TO PROC 60 2
1638 SWCTAP MLC K1BLNK,0&X1 60 2
1639 SBR X1 60 2
1640 BSS TAPRD1,B 60 2
1641 SWCHTP MLC I1TUN,ITPBKT SWITCH TAPES 60 2
1642 SCHTP1 C SWCHTP&3,&I2TUN 60 2
1643 BE CICLE 60 2
1644 MA ONE,SWCHTP&3 60 2
1645 B CICLE1 60 2
1646 CICLE SBR SWCHTP&3,I1TUN 60 2
1647 CICLE1 MLC ITPBKT,B001R&3 60 2
1648 MLC ITPBKT,EOFRWD&3 60 2
1649 MLC ITPBKT,TAPRD2&3 60 2
1650 TSTLBL BCE HDRENT,ITLI,1 TEST FOR HEADER LABEL 60 2
1651 B CHKPNT 60 2
1652 TAPRD1 H SWCHTP HALT BEFORE SWITCHING INPUT TPS 60 2
1653 TAPERD BAV *&1 60 2
1654 A ONE,CNTR 60 2
1655 BAV HERE 60 2
1656 TAPRD2 BSP 1 60 2
1657 MLC X3,X1 60 2
1658 B B001R-14 60 2
1659 * 80 CHARACTER HEADER-TRAILER ROUTINE 60 2
1660 * 60 2
1661 HDRENT SBR HDREXT&3 INITIALIZE LABEL ROUTINE 60 2
1662 MLC ITPBKT,RDHDRL&3 60 2
1663 MLC ITPBKT,RDTPMK&3 60 2
1664 MLC ITPBKT,BGET1&3 60 2
1665 MLC K2BLNK-1,CNTR 60 2
1666 MLC ITPBKT,*&4 60 2
1667 BCKHDR RWD %U0 REWIND UNIT 60 2
1668 RDHD1 MLCWAGM,281 LOAD GROUPMARK 60 2
1669 MLC CENSIG,214 60 2
1670 RDHDRL RTW 0,201 READ HEADER LABEL IN LOAD MODE 60 2
1671 SW 201 60 2
1672 LABNOS BCE NOISEL,214, CHECK FOR NOISE RECORD 60 2
1673 BER REREAD TAPE ERROR CHECK 60 2
1674 BCE *&8,LBLSAM, 60 2
1675 MLCWA240,RTCYCL&1 SAVE FIRST 40 POSITIONS OF LABEL 60 2
1676 MLC @N@,*-13 60 2
1677 NOP 000,000 60 2
1678 NOP 000,000 60 2
1679 BEF *&1 RESET INDICATOR 60 2
1680 W 60 2
1681 CC L 60 2
1682 BCE EXIT7,LBLBKT-32, IS LABEL TO BE CHECKED 60 2
1683 BCE FNAME,LBLBKT-31, YES-ALL VALUES OR FILE NAME ONLY 60 2
1684 C 215,LBLBKT-25 COMPARE FILE SERIAL NUMBER 60 2
1685 BU ERRHDR 60 2
1686 C 235,LBLBKT-5 COMPARE CREATION DATE 60 2
1687 BU ERRHDR 60 2
1688 C 210,LBLBKT-20 COMPARE REEL SEQUENCE NUMBER 60 2
1689 BU ERRHDR 60 2
1690 FNAME C 230,LBLBKT-10 COMPARE FILE NAMES 60 2
1691 BU ERRHDR 60 2
1692 BCE EXIT7-7,LBLBKT-30, 60 2
1693 A ONE,LBLBKT-21 UPDATE REEL SEQ NO 60 2
1694 MLCWAGM,281 60 2
1695 EXIT7 NOP 000 USERS EXIT 60 2
1696 RDTPMK RTW 0,240 READ TAPEMARK 60 2
1697 CS 299 60 2
1698 BEF HDREXT 60 2
1699 BGET1 BSP %U0 NO TAPE MARK PRESENT 60 2
1700 HDREXT B 000 60 2
1701 REREAD A ONE,CNTR 60 2
1702 BAV STOPH 60 2
1703 B BCKHDR 60 2
1704 NOISEL CS 220 60 2
1705 B RDHDRL-7 60 2
1706 ERRHDR CS 332 60 2
1707 CS 60 2
1708 MLC UCMSG,215 60 2
1709 MLC LBLBKT,255 MOVE CONTROL CARD CONSTANTS TO 60 2
1710 MLC PRINT AREA 60 2
1711 MLC 60 2
1712 MLC 60 2
1713 MLC 60 2
1714 W 60 2
1715 CC 1 60 2
1716 STOPH H EXIT7-22 60 2
1717 B BCKHDR-14 60 2
1718 UCMSG DCW @ERROR-SHOULD BE@ 60 2
1719 TRLENT SBR TRLEXT&3 60 2
1720 MLC ITPBKT,RDTRLL&3 60 2
1721 MLC ITPBKT,BCKTRL&3 60 2
1722 MLC K2BLNK-1,CNTR 60 2
1723 RDTL1 MLCWAGM,281 LOAD GROUPMARK 60 2
1724 RDTRLL RTW 0,201 READ TRAILER LABEL 60 2
1725 BEF *&1 RESET INDICATOR 60 2
1726 BER RERD TAPE ERROR CHECK 60 2
1727 W 60 2
1728 CC L 60 2
1729 BCE EXIT6,TL,1 IS LABEL TO BE CHECKED 60 2
1730 C 210,BLKCT1 60 2
1731 BU ERRTRL 60 2
1732 C 220,CNTR 60 2
1733 BE EXIT6 60 2
1734 SBR EREINE&3,CNTR PLACE RECORD COUNT IN MESSAGE 60 2
1735 B ERRTRL 60 2
1736 EXIT6 NOP 000 USERS EXIT 60 2
1737 TRLEXT B 000 60 2
1738 RERD A ONE,CNTR 60 2
1739 BAV STOPT 60 2
1740 BCKTRL BSP %U0 60 2
1741 B RDTRLL 60 2
1742 ERRTRL CS 332 PRINT UNEQUAL COMPARE MESSAGE 60 2
1743 CS 60 2
1744 MLC UCMSG,215 60 2
1745 EREINE MLC BLKCT1,230 60 2
1746 W 60 2
1747 CC 1 60 2
1748 H EXIT6 60 2
1749 STOPT H TRLEXT 60 2
1750 ONPTAR DCW 000 FIRST POSITION OF G AREA 60 2
1751 CNTR DCW 00 60 2
1752 COWNTR DCW 000 60 2
1753 * 16K - LAST POS G & MXBLKSIZ--VL 60 2
1754 ITPBKT DCW 0 60 2
1755 K4 DCW @004@ 60 2
1756 * 60 2
1757 * B I N A R Y S E A R C H 60 2
1758 * 60 2
1759 ZERO DCW &000 60 2
1760 HALF DCW &5 60 2
1761 D DCW 000 60 2
1762 E DCW 0000 60 2
1763 O1FA DCW 000000 60 2
1764 G/4 DCW 000 60 2
1765 DC 00 60 2
1766 LORCRD DCW @ @ 60 2
1767 SONED DCW @SXXXXXX@ 60 2
1768 * 60 2
1769 HLTMFS MLC @N@,CNTR 60 2
1770 TSTFPD CS 080 60 2
1771 SW 24,56 60 2
1772 SW 63,67 60 2
1773 R 056 60 2
1774 Z DCW 000 60 2
1775 LTORG* 60 2
1776 * 60 2
1777 HPNDPM DCW 000 60 2
1778 TPCNPM DCW @D99@ 60 2
1779 CLEARS NOP 0,0 60 2
1780 STRTCL CS 15999 CLEAR CORE 60 2
1781 SBR STRTCL&3 60 2
1782 C STRTCL&3,TPCNPM 60 2
1783 BU STRTCL 60 2
1784 LOADTB SW 0 60 2
1785 LODTB1 MLC ADRLRD,0 60 2
1786 LODTB2 MLC 0,0 60 2
1787 LODTB3 CW 0 60 2
1788 NOP @|@,000 60 2
1789 MAX MLC GM,0 60 2
1790 BCE NITTAP,FLR,1 60 2
1791 MLC TPCNPM,X1 60 2
1792 MLC K1BLNK,1&X1 60 2
1793 LDBKPM MLC K1BLNK,0&X1 CLEAR BY MOVING BLANKS 60 2
1794 SBR X1 60 2
1795 CW 1&X1 60 2
1796 C X1,HPNDPM IS THE INPUT AREA CLEARED 60 2
1797 BU LDBKPM 60 2
1798 MA ONPTAR,SETWMK&3 SET WORD MARKS 60 2
1799 STWMK1 MLC NCF,K2FLD 60 2
1800 MLC @000@,X3 60 2
1801 SETWMK SW 0&X3 60 2
1802 INSWIN MLC CF1SL,X3 60 2
1803 MA THREE,INSWIN&3 60 2
1804 A NINTNN,K2FLD 60 2
1805 BAV SETWMK 60 2
1806 SBR INSWIN&3,CF1SL 60 2
1807 MA L,SETWMK&3 60 2
1808 A K999,GCNTR 60 2
1809 BAV STWMK1 60 2
1810 C G,ONE G EQUALS ONE 60 2
1811 BU SETWM1 60 2
1812 SBR B002R&3,STPDNR 60 2
1813 SETWM1 MLC O1,X3 60 2
1814 MLC ONPTAR,ONPTRI 60 2
1815 ADRTBL MLC ONPTRI,0&X3 SET UP TABLE OF ADDRESSES 60 2
1816 MA L,ONPTRI 60 2
1817 C X3,G1 60 2
1818 MA THREE,X3 60 2
1819 BU ADRTBL 60 2
1820 NITTAP B 056 60 2
1821 ADRLRD DSA LORCRD 60 2
1822 ONPTRI DCW 000 60 2
1823 GCNTR DCW 000 60 2
1824 K999 DCW @999@ 60 2
1825 LTORG* 60 2
1826 ORG *&1 60 2
1827 B002B MLC 3&X2,X3 ENTER SORT LOOP HERE WHEN 60 2
1828 C 0&X3,0&X1 SORTING 2ND RECORD 60 2
1829 BL B4S07 60 2
1830 BE EQUAL 60 2
1831 B700B MA B002B&3,X2 60 2
1832 P003 B B4S07 60 2
1833 B004B MLC 6&X2,X3 ENTER SORT LOOP HERE WHEN 60 2
1834 C 0&X3,0&X1 SORTING 3RD OR 4TH RECORD 60 2
1835 BL B002B 60 2
1836 BE EQUAL 60 2
1837 B701B MLC 9&X2,X3 60 2
1838 C 0&X3,0&X1 60 2
1839 BL B712B 60 2
1840 BE EQUAL 60 2
1841 B702B MA B701B&3,X2 60 2
1842 B B4S07 60 2
1843 B712B MA B004B&3,X2 60 2
1844 P009 B B4S07 60 2
1845 B008B MLC 12&X2,X3 ENTER SORT LOOP HERE WHEN 60 2
1846 C 0&X3,0&X1 SORTING RECORDS 5 THRU 8 60 2
1847 BL B004B 60 2
1848 BE EQUAL 60 2
1849 B703B MLC 18&X2,X3 60 2
1850 C 0&X3,0&X1 60 2
1851 BL B715B 60 2
1852 BE EQUAL 60 2
1853 B705B MLC 21&X2,X3 60 2
1854 C 0&X3,0&X1 60 2
1855 BL B716B 60 2
1856 BE EQUAL 60 2
1857 B706B MA B705B&3,X2 60 2
1858 B B4S07 60 2
1859 B716B MA B703B&3,X2 60 2
1860 B B4S07 60 2
1861 B715B MLC 15&X2,X3 60 2
1862 C 0&X3,0&X1 60 2
1863 BL B714B 60 2
1864 BE EQUAL 60 2
1865 B704B MA B715B&3,X2 60 2
1866 B B4S07 60 2
1867 B714B MA B008B&3,X2 60 2
1868 P021 B B4S07 60 2
1869 B016B MLC 24&X2,X3 ENTER SORT LOOP HERE WHEN 60 2
1870 C 0&X3,0&X1 SORTING RECORDS 9 THRU 16 60 2
1871 BL B008B 60 2
1872 BE EQUAL 60 2
1873 B600B MA B016B&3,X2 60 2
1874 P024 B B008B 60 2
1875 B032B MLC 48&X2,X3 ENTER SORT LOOP HERE WHEN 60 2
1876 C 0&X3,0&X1 SORTING RECORDS 17 THRU 32 60 2
1877 BL B016B 60 2
1878 BE EQUAL 60 2
1879 B601B MLC 72&X2,X3 60 2
1880 C 0&X3,0&X1 60 2
1881 BL B612B 60 2
1882 BE EQUAL 60 2
1883 B602B MA B601B&3,X2 60 2
1884 B B008B 60 2
1885 B612B MA B032B&3,X2 60 2
1886 P072 B B008B 60 2
1887 B064B MLC 96&X2,X3 ENTER SORT LOOP HERE WHEN 60 2
1888 C 0&X3,0&X1 SORTING RECORDS 33 THRU 64 60 2
1889 BL B032B 60 2
1890 BE EQUAL 60 2
1891 B603B MLC 144&X2,X3 60 2
1892 C 0&X3,0&X1 60 2
1893 BL B615B 60 2
1894 BE EQUAL 60 2
1895 B605B MLC 168&X2,X3 60 2
1896 C 0&X3,0&X1 60 2
1897 BL B616B 60 2
1898 BE EQUAL 60 2
1899 B606B MA B605B&3,X2 60 2
1900 B B008B 60 2
1901 B616B MA B603B&3,X2 60 2
1902 B B008B 60 2
1903 B615B MLC 120&X2,X3 60 2
1904 C 0&X3,0&X1 60 2
1905 BL B614B 60 2
1906 BE EQUAL 60 2
1907 B604B MA B615B&3,X2 60 2
1908 B B008B 60 2
1909 B614B MA B064B&3,X2 60 2
1910 P144 B B008B 60 2
1911 B128B MLC 192&X2,X3 ENTER SORT LOOP HERE WHEN 60 2
1912 C 0&X3,0&X1 SORTING RECORDS 65 THRU 128 60 2
1913 BL B064B 60 2
1914 BE EQUAL 60 2
1915 B500B MA B128B&3,X2 60 2
1916 P192 B B064B 60 2
1917 B256B MLC 384&X2,X3 ENTER SORT LOOP HERE WHEN 60 2
1918 C 0&X3,0&X1 SORTING RECORDS 129 THRU 256 60 2
1919 BL B128B 60 2
1920 BE EQUAL 60 2
1921 B501B MLC 576&X2,X3 60 2
1922 C 0&X3,0&X1 60 2
1923 BL B522B 60 2
1924 BE EQUAL 60 2
1925 B502B MA B501B&3,X2 60 2
1926 B B064B 60 2
1927 B522B MA B256B&3,X2 60 2
1928 P576 B B064B 60 2
1929 B512B MLC 768&X2,X3 ENTER SORT LOOP HERE WHEN 60 2
1930 C 0&X3,0&X1 SORTING RECORDS 257 THRU 512 60 2
1931 BL B256B 60 2
1932 BE EQUAL 60 2
1933 B503B MLC 1152&X2,X3 60 2
1934 C 0&X3,0&X1 60 2
1935 BL B515B 60 2
1936 BE EQUAL 60 2
1937 B505B MLC 1344&X2,X3 60 2
1938 C 0&X3,0&X1 60 2
1939 BL B516B 60 2
1940 BE EQUAL 60 2
1941 B506B MA B505B&3,X2 60 2
1942 B B064B 60 2
1943 B516B MA B503B&3,X2 60 2
1944 B B064B 60 2
1945 B515B MLC 960&X2,X3 60 2
1946 C 0&X3,0&X1 60 2
1947 BL B514B 60 2
1948 BE EQUAL 60 2
1949 B504B MA B515B&3,X2 60 2
1950 B B064B 60 2
1951 B514B MA B512B&3,X2 60 2
1952 P1344 B B064B 60 2
1953 DCW @ @ 60 2
1954 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 1 60 2
1955 * 60 2
1956 * 60 2
1957 * 60 2
1958 LTORG* 60 2
1959 * 60 2
1960 * 60 2
1961 * 80 CHARACTER WORK LABEL ROUTINE 60 2
1962 * 60 2
1963 ORG 4175 60 2
1964 WLAREA DCW @1HDR 00000SORT7LABEL @ 60 2
1965 DC #50 60 2
1966 WLGM DCW @ @ 60 2
1967 INTIAL BCE TWLABL,MS,4 60 2
1968 MLC GPMARK,INTAL1&6 60 2
1969 INTAL1 MLCWAGM,0 60 2
1970 CW GM 60 2
1971 MLC GPMARK,RDHD1&3 60 2
1972 MLC GPMARK,RDTL1&3 60 2
1973 MLC GPMARK,EXIT7-4 60 2
1974 MLC GPMARK,LOADGM&3 60 2
1975 TWLABL BCE NXTINT,LBBUCK,1 CHECK FOR 120 CHARACTER LABELS 60 2
1976 MLC CENSIG,LABNOS&7 PRIME NOISE TEST WITH CENT SIGN 60 2
1977 BCE NXBYPS,LABELS, 60 2
1978 EXIT0 NOP 0 USER EXIT BEFORE READING WORK LBL 60 2
1979 SWKLB MLC MI1TUN,TPWKBK MOVE 1ST WORK TP NO TO BUCKET 60 2
1980 MLC TPWKBK,WLAREA-20 60 2
1981 MLC CENSIG,WKENOI&7 PRIME NOISE RECORD TEST 60 2
1982 MLC @00@,CRYBU1 60 2
1983 MA ONE,SWKLB&3 60 2
1984 MLC GPMARK,*&4 60 2
1985 MLCWAGM,WLGM-1 60 2
1986 BCE NOWL,WLBKT, NO LABEL-CREATE TEMP LABEL 60 2
1987 MLC K1BLNK,CNTR RESET COUNTER 60 2
1988 MLC TPWKBK,*&4 INITIALIZE REWIND INSTRUCTION 60 2
1989 RWD %U0 REWIND UNIT 60 2
1990 RDWL MLC CENSIG,WLAREA-16 LOAD CENT SIGN FOR NOISE TEST 60 2
1991 MLC TPWKBK,*&4 60 2
1992 RTW %U0,WLAREA-29 READ WORK LABEL 60 2
1993 SBR HDRBKT 60 2
1994 WKENOI BCE NOISEW,WLAREA-16, IS CENT SIGN STILL PRESENT 60 2
1995 BER RERDWL CHECK TAPE TRANS ERROR 60 2
1996 BEF *&1 RESET INDICATOR 60 2
1997 A ONE,TBC 60 2
1998 BCE EXIT5-12,WLBKT,0 0 IF HDR BUT NO CHK CC3COL4 60 2
1999 * RETENTION CYCLE CHECK 60 2
2000 ZA WLAREA&9,CRTCYL MOVE TAPE INFORMATION TO CHECK 60 2
2001 MLC BUCKET 60 2
2002 MLC 60 2
2003 SW OHDATE-2 60 2
2004 CLWL C OHDATE-3,CRTCYL-7 COMPARE YEAR 60 2
2005 BU MODYR 60 2
2006 A CRTCYL-4,CRTCYL ADD TAPE DAYS TO RT CYL 60 2
2007 S OHDATE,CRTCYL SUB CONT DAYS FROM RT CYL 60 2
2008 CW OHDATE-2 60 2
2009 BWZ EXIT5-12,CRTCYL,K CAN WE WRITE ON TAPE 60 2
2010 CS 332 NO-PRINT MESSAGE INDICATING 60 2
2011 CS DAYS TAPE IS TO BE RETAINED 60 2
2012 MLC SAVMSG,226 60 2
2013 MLNS CRTCYL,221 60 2
2014 MLNS 60 2
2015 MLNS 60 2
2016 MLC SAVMS1 60 2
2017 MLC TPWKBK 60 2
2018 MLC SAVMS2 60 2
2019 W 60 2
2020 CC 1 60 2
2021 H EXIT5-12 HIT START TO ACCEPT TAPE 60 2
2022 B RDWL-5 START RESET-START TO RECHECK 60 2
2023 MODYR S TSF,CRTCYL SUBTRACT 365 FROM RT CYL 60 2
2024 A AND ADD 1 TO TAPE YEARS 60 2
2025 A 60 2
2026 A @1@,CRYBU1 60 2
2027 BCE HLCRY1,CRYBU1-1,3 60 2
2028 B CLWL 60 2
2029 HLCRY1 H EXIT5-12 60 2
2030 MLC @00@,CRYBU1 60 2
2031 B CLWL 60 2
2032 CRYBU1 DCW @ @ 60 2
2033 DCW @1@ 60 2
2034 DCW @0@ 60 2
2035 TSF DCW @365@ 60 2
2036 SAVMS2 DCW @RETAIN TAPE @ 60 2
2037 SAVMS1 DCW @ FOR @ 60 2
2038 SAVMSG DCW @ DAYS@ 60 2
2039 DCW #2 60 2
2040 DCW #3 60 2
2041 CRTCYL DCW #4 60 2
2042 MLC TPWKBK,*&4 60 2
2043 RWD %U0 REWIND UNIT 60 2
2044 EXIT5 NOP 000 USER EXIT AFTER READING LABEL 60 2
2045 * OR BEFORE WRITING NEW WORK TAPE 60 2
2046 * LABEL 60 2
2047 MLC TPWKBK,*&4 60 2
2048 WTWL WT %U0,WLAREA-29 WRITE WORK HEADER LABEL 60 2
2049 BER EWWKL 60 2
2050 BEF *&1 60 2
2051 BCE EXIT9,THLTMO, TP MARK AFTER HEADER LABEL 60 2
2052 MLC TPWKBK,*&4 YES 60 2
2053 WTM %U0 WRITE TAPE MARK 60 2
2054 EXIT9 NOP 000 USER EXIT AFT WRITING WKLBL 60 2
2055 BCE TOOWA,MI3TUN, 3 WAY MERGE 60 2
2056 C TBC,@3@ YES 60 2
2057 BU SWKLB 60 2
2058 B NXBYPS 60 2
2059 TOOWA C TBC,@2@ 2 WAY MERGE 60 2
2060 BU SWKLB 60 2
2061 BCE NXBYPS,URPI,P 60 2
2062 BCE NXBYPS,URPI,C 60 2
2063 SBR EXIT9&7,NXBYPS 60 2
2064 MLC URPI,TPWKBK 60 2
2065 B SWKLB&7 60 2
2066 NXBYPS R 60 2
2067 BCE NXTINT,68,B 60 2
2068 B NXBYPS 60 2
2069 NXTINT CS 080 60 2
2070 SW 24,56 60 2
2071 SW 63,67 60 2
2072 R 056 60 2
2073 NOISEW MLC HDRBKT,X3 60 2
2074 MLC K2BLNK,0&X3 60 2
2075 CHAIN12 60 2
MLC 60 2
MLC 60 2
MLC 60 2
MLC 60 2
MLC 60 2
MLC 60 2
MLC 60 2
MLC 60 2
MLC 60 2
MLC 60 2
MLC 60 2
MLC 60 2
2076 B RDWL 60 2
2077 RERDWL A ONE,CNTR 60 2
2078 BAV STOPW 60 2
2079 B RDWL-5 60 2
2080 STOPW H ACPLB ERR ON READING WK LABEL 60 2
2081 B RDWL-5 HIT START TO ACCEPT AS READ 60 2
2082 * HIT START RESET-START-TO REREAD 60 2
2083 ACPLB BEF *&1 60 2
2084 A ONE,TBC 60 2
2085 B EXIT5-12 60 2
2086 NOWL A ONE,TBC NO WORK LABEL-CREATE TEMP 60 2
2087 B EXIT5 60 2
2088 EWWKL A ONE,CFIFTY WRITE ERROR ROUTINE 60 2
2089 MLC TPWKBK,*&4 60 2
2090 BSP %U0 60 2
2091 BAV H50 60 2
2092 MLC TPWKBK,*&4 60 2
2093 WT %U0,WLAREA-29 60 2
2094 BER *&5 60 2
2095 B WTWL&13 60 2
2096 MLC TPWKBK,*&4 60 2
2097 BSP %U0 60 2
2098 MLC TPWKBK,*&4 60 2
2099 SKP %U0 60 2
2100 B WTWL 60 2
2101 H50 MLC @80@,CFIFTY 60 2
2102 H WTWL-7 TRIED TO WRITE WORK LABEL 20 60 2
2103 * TIMES-HIT START TO TRY AGAIN 60 2
2104 TPWKBK DCW @ @ 60 2
2105 TBC DCW @0@ 60 2
2106 CFIFTY DCW @80@ 60 2
2107 HDRBKT DCW @000@ 60 2
2108 LTORG* 60 2
2109 EX INTIAL 60 2
2110 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 1 60 2
2111 * 60 2
2112 * 60 2
2113 * 60 2
2114 * 120 CHARACTER HEADER TRAILER ROUTINE 60 2
2115 * 60 2
2116 ORG HDRENT 60 2
2117 HDRANT SBR HDRAXT&3 INITIALIZE LABEL ROUTINE 60 2
2118 MLC ITPBKT,REHDRL&3 PRIME TAPE READ INSTRUCTION 60 2
2119 MLC ITPBKT,RETPMK&3 PRIME READ TAPEMARK ROUTINE 60 2
2120 MLC ITPBKT,CGET1&3 PRIME BACKSPACE COMMAND 60 2
2121 MLC ITPBKT,*&4 PRIME REWIND INSTRUCTION 60 2
2122 BCKHER RWD 0 REWIND TAPE UNIT PRIOR TO READ 60 2
2123 MLC K1BLNK,CNTR PRIME ERROR COUNTER 60 2
2124 REHD2 MLCWAGM,321 LOAD GROUPMARK INTO LABEL AREA 60 2
2125 MLC CENSIG,214 PRIME NOISE RECORD TEST 60 2
2126 REHDRL RTW 0,201 READ HEADER LABEL IN LOAD MODE 60 2
2127 SW 201 SET A WODRMARK TO LOAD RECORD 60 2
2128 ANOSCK BCE NOISBL,214, CHECK FOR NOISE RECORD 60 2
2129 BER REDOLB REDUNDANT RECORD ON TAPE READ 60 2
2130 BCE *&29,LBLSAM, BRANCH IF LABEL IS NOT TO BE 60 2
2131 * SAVED 60 2
2132 MLC 240,RESEQE&1 ONLY THE LABEL IS SAVED 60 2
2133 MLCWA230,FILESE 60 2
2134 SBR *-18,2500 60 2
2135 SBR *-18,2500 60 2
2136 BEF *&1 RESET END OF FILE INDICATOR 60 2
2137 W 60 2
2138 CC L 60 2
2139 BCE USEXT7,LBLBKT-32, IS LABEL TO BE CHECKED 60 2
2140 BCE NAMFIL,LBLBKT-31, ALL VALUES OR FILE NAME ONLY 60 2
2141 C 230,LBLBKT-25 COMPARE FILE SERIAL NUMBER 60 2
2142 BU FRRHDR UNEQUAL-BRANCH TO ERROR MESSAGE 60 2
2143 C 215,LBLBKT-5 COMPARE CREATION DATE 60 2
2144 BU FRRHDR UNEQUAL-BRANCH TO ERROR ROUTINE 60 2
2145 C 240,LBLBKT-20 COMPARE REEL SEQUENCE NUMBER 60 2
2146 BU FRRHDR UNEQUAL-BRANCH TO ERROR ROUTINE 60 2
2147 NAMFIL C 225,LBLBKT-10 COMPARE RREL NAMES 60 2
2148 BU FRRHDR 60 2
2149 BCE USEXT7-7,LBLBKT-30, 60 2
2150 A ONE,LBLBKT-21 60 2
2151 MLCWAGM,321 60 2
2152 USEXT7 NOP 000 USER EXIT FOR FURTHER CHECKING 60 2
2153 * OF INPUT HEADER LABELS.LABEL WIL 60 2
2154 * BE NOW FOUND IN RLAREA&80 60 2
2155 RETPMK RTW 0,319 READ TAPEMARK 60 2
2156 CS 332 60 2
2157 BEF HDRAXT 60 2
2158 CGET1 BSP 0 NO TAPE MARK IS PRESENT 60 2
2159 HDRAXT B 0 60 2
2160 REDOLB A ONE,CNTR REDUNDANT LABEL DETECTED 60 2
2161 BAV STOPIH 60 2
2162 B BCKHER REATTEMPT READ OPERATION 60 2
2163 NOISBL CS 220 CLEAR NOISE RECORD 60 2
2164 B REHDRL-7 60 2
2165 FRRHDR CS 332 60 2
2166 CS 60 2
2167 MLC UCMESG,215 60 2
2168 MLC LBLBKT,255 MOVE CONSTANTS FROM CONTROL CARD 60 2
2169 MLC TO PRINT AREA 60 2
2170 MLC 60 2
2171 MLC 60 2
2172 MLC 60 2
2173 MLC 60 2
2174 W 60 2
2175 CC 1 60 2
2176 STOPIH H USEXT7-22 60 2
2177 B BCKHER-14 60 2
2178 UCMESG DCW @ERROR-SHOULD BE@ 60 2
2179 * TRAILER LABEL ROUTINE 60 2
2180 TRLANT SBR TRLAXT&3 60 2
2181 MLC ITPBKT,RDTRAL&3 60 2
2182 MLC ITPBKT,BAKTRL&3 60 2
2183 MLC K2BLNK-1,CNTR 60 2
2184 RDTL2 MLCWAGM,321 LOAD GROUPMARK 60 2
2185 RDTRAL RTW 0,201 READ TRAILER INTO LABEL AREA 60 2
2186 BEF *&1 60 2
2187 BER RAREAT 60 2
2188 W 60 2
2189 CC L 60 2
2190 BCE USEXT6,TL,3 60 2
2191 C 272,BLKCT1 CHECK BLOCK COUNT 60 2
2192 BU ERETRL 60 2
2193 USEXT6 NOP 0 USER EXIT AFTER TRAILER READ 60 2
2194 TRLAXT B 000 60 2
2195 RAREAT A ONE,CNTR 60 2
2196 BAV STOPIT 60 2
2197 BAKTRL BSP 0 60 2
2198 B RDTRAL TRY TO REREAD LABEL 60 2
2199 ERETRL CS 332 PRINT UNEQUAL BLOCK COUNT MESSAGE 60 2
2200 CS 60 2
2201 MLC UCMESG,215 60 2
2202 MLC BLKCT1,230 60 2
2203 W 60 2
2204 CC 1 60 2
2205 H USEXT6 60 2
2206 STOPIT H TRLAXT BYPASS TRAILER READ 60 2
2207 * 60 2
2208 * 120 CHARACTER WORK LABEL ROUTINE 60 2
2209 ORG 4175 60 2
2210 DCW @1HDR SORT7LABEL @ 60 2
2211 DC @00000@ 60 2
2212 DC #45 60 2
2213 DC #40 60 2
2214 MAGMWL DCW @ @ 60 2
2215 WORTEN MLC MI1TUN,TPWRBK 60 2
2216 MLC CENSIG,ANOSCK&7 60 2
2217 MLC GPMARK,USEXT7-4 60 2
2218 MLC CENSIG,OTWNOI&7 60 2
2219 MLC GPMARK,REHD2&3 60 2
2220 SBR LSTCHK&3,TRLANT 60 2
2221 MLC GPMARK,RDTL2&3 60 2
2222 MLC @00@,CRYBU2 60 2
2223 MLC TPWRBK,WLAREA&5 60 2
2224 MA ONE,WORTEN&3 60 2
2225 MLC GPMARK,*&4 60 2
2226 MLCWAGM,MAGMWL-1 LOAD GROUPMARK FOR TAPE OPERATION 60 2
2227 USEXT0 NOP 000 USERS EXIT PRIOR TO READ LABEL 60 2
2228 BCE NYETWL,WLBKT, NO LABEL CREAT TEMP LABEL 60 2
2229 MLC TPWRBK,DARAWL&3 60 2
2230 MLC K1BLNK,CNTR RESET COUNTER 60 2
2231 MLC TPWRBK,*&4 60 2
2232 RWD 0 REWIND TAPE UNIT 60 2
2233 MLC CENSIG,WLAREA-16 PRIME NOISE ROUTINE TEST 60 2
2234 DARAWL RTW 0,WLAREA-29 READ WORK TAPE LABEL 60 2
2235 SBR HERBKT 60 2
2236 OTWNOI BCE NOISOW,WLAREA-16, CHECK NOISE RECORD 60 2
2237 BER OERDWL 60 2
2238 BEF *&1 60 2
2239 A ONE,OTW0BC 60 2
2240 BCE USEXT5-12,WLBKT,0 00 IF HEADER BUT NO CHECK CC3COL4 60 2
2241 * RETENTION CYCLE CHECKING 60 2
2242 MLC WLAREA-15,YEACHK 60 2
2243 MLC 60 2
2244 MLC 60 2
2245 SW CREATD-2 60 2
2246 CULLES C CREATD-3,YEACHK-3 COMPARE YEAR 60 2
2247 BU CHNGYR 60 2
2248 A YEACHK,YEACHK-5 ADD TAPE DAYS TO RETENTION CYCLE 60 2
2249 S CREATD,YEACHK-5 SUBTRACT CONT DAS FROM RET CYL 60 2
2250 CW CREATD-2 60 2
2251 BWZ USEXT5-12,YEACHK-5,K CAN WE WRITE ON TAPE 60 2
2252 CS 332 N/ PRINT MESSAGE INDICATING NUM 60 2
2253 CS OF DAYS TAPE IS TO BE RETAINED 60 2
2254 MLC SAVMES,226 60 2
2255 MLNS YEACHK-5,221 60 2
2256 MLNS 60 2
2257 MLNS 60 2
2258 MLC SVMES1 60 2
2259 MLC TPWRBK 60 2
2260 MLC SVMES2 60 2
2261 W 60 2
2262 CC 1 60 2
2263 H USEXT5-12 HIT START TO ACCEPT TAPE 60 2
2264 B USEXT0-7 60 2
2265 CHNGYR A REOYRE,YEACHK-5 SUBTRACT 365 FROM RETENTION CYL 60 2
2266 A AND ADD 1 TO TAPE YEARS 60 2
2267 S 60 2
2268 A @1@,CRYBU2 60 2
2269 BCE HLCRY2,CRYBU2-1,3 60 2
2270 B CULLES 60 2
2271 HLCRY2 H USEXT5-12 60 2
2272 MLC @00@,CRYBU2 60 2
2273 B CULLES 60 2
2274 CRYBU2 DCW @ @ 60 2
2275 DCW @365@ 60 2
2276 DCW @1@ 60 2
2277 REOYRE DCW @0@ 60 2
2278 SVMES2 DCW @RETAIN TAPE @ 60 2
2279 SVMES1 DCW @ FOR @ 60 2
2280 SAVMES DCW @ DAYS@ 60 2
2281 DCW #4 RETENTION CYCLE BUCKET 60 2
2282 DCW #2 YEAR 60 2
2283 YEACHK DCW #3 DAY 60 2
2284 MLC TPWRBK,*&4 60 2
2285 RWD 0 REWIND UNIT 60 2
2286 USEXT5 NOP 0 USER EXIT PRIOR TO WRITING 60 2
2287 * HEADER LABEL ON WORK TAPE 60 2
2288 MLC TPWRBK,*&4 60 2
2289 WETWIL WT 0,WLAREA-29 WRITE WORK HEADER LABEL 60 2
2290 BER EEWWKL 60 2
2291 BEF *&1 60 2
2292 BCE USEXT9,THLTMO, TAPEMARK AFTER HDR LABEL CHECK 60 2
2293 MLC TPWRBK,*&4 YES 60 2
2294 WTM 0 WRITE TAPEMARK 60 2
2295 USEXT9 NOP 0 USER EXIT AFTER WRITNIG HEADER 60 2
2296 * LABEL ON WORK TAPE 60 2
2297 BCE ZWEWAY,MI3TUN, THREEWAY MERGE 60 2
2298 C OTW0BC,@3@ YES 60 2
2299 BU WORTEN 60 2
2300 B LEVWLR 60 2
2301 ZWEWAY C OTW0BC,@2@ TWOWAY MERGE 60 2
2302 BU WORTEN 60 2
2303 BCE LEVWLR,URPI,P 60 2
2304 BCE LEVWLR,URPI,C 60 2
2305 SBR USEXT9&7,LEVWLR 60 2
2306 MLC URPI,TPWRBK 60 2
2307 B WORTEN&7 60 2
2308 LEVWLR CS 80 60 2
2309 SW 24,56 60 2
2310 SW 63,67 60 2
2311 R 56 60 2
2312 NOISOW MLC HERBKT,X3 60 2
2313 MLC K2BLNK,0&X3 60 2
2314 CHAIN12 60 2
MLC 60 2
MLC 60 2
MLC 60 2
MLC 60 2
MLC 60 2
MLC 60 2
MLC 60 2
MLC 60 2
MLC 60 2
MLC 60 2
MLC 60 2
MLC 60 2
2315 B DARAWL 60 2
2316 OERDWL A ONE,CNTR 60 2
2317 BAV OSTOPW 60 2
2318 B DARAWL-12 60 2
2319 OSTOPW H OACPLB ERROR ON READING WORK LABEL 60 2
2320 B DARAWL-12 HIT START TO ACCEPT AS READ 60 2
2321 * HIT START RESET&START TO REREAD 60 2
2322 OACPLB BEF *&1 60 2
2323 A ONE,OTW0BC 60 2
2324 B USEXT5-12 60 2
2325 NYETWL A ONE,OTW0BC NO WORK LABEL CREATE TEMPORARY 60 2
2326 B USEXT5 60 2
2327 EEWWKL A ONE,YFIFTY WRITE ERROR ROUTINE 60 2
2328 MLC TPWRBK,*&4 60 2
2329 BSP 0 60 2
2330 BAV OTW050 60 2
2331 MLC TPWRBK,*&4 60 2
2332 WT 0,WLAREA-29 60 2
2333 BER *&5 60 2
2334 B WETWIL&13 RETURN TO NORMAL ROUTINE 60 2
2335 MLC TPWRBK,*&4 60 2
2336 BSP 0 60 2
2337 MLC TPWRBK,*&4 60 2
2338 SKP 0 60 2
2339 B WETWIL 60 2
2340 OTW050 MLC @80@,YFIFTY TRIED TO WRITE WORK LABEL 20 60 2
2341 H WETWIL-7 TIMES HIT START TO TRY AGAIN 60 2
2342 TPWRBK DCW @ @ 60 2
2343 HERBKT DCW @000@ 60 2
2344 OTW0BC DCW @ @ 60 2
2345 YFIFTY DCW @ @ 60 2
2346 LTORG* 60 2
2347 DCW @3@ 60 2
2348 EX WORTEN 60 2
2349 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 1 60 2
2350 * 60 2
2351 * I N I T I A L I Z A T I O N P H A S E 60 2
2352 * 60 2
2353 ORG 4175 60 2
2354 * MULTIPHASE INITIALIZATION 60 2
2355 PLYIN5 MLC ONPTAR,B201W&6 60 2
2356 MA @001@,ONPTAR 60 2
2357 MLC ONPTAR,INTOUT 60 2
2358 SW B201W&4 60 2
2359 MLC B201W&6,PLYIN4&6 60 2
2360 MLC PLYIN5,PLYIN4 60 2
2361 MLC B201W&6,PLYIN3&6 60 2
2362 MLC B201W&6,LODTB3&10 60 2
2363 MLC @M@,LODTB3&4 60 2
2364 CW B201W&4 60 2
2365 B INSRT5&19 60 2
2366 ATEK MLC &INTOUT,BP2200&3 60 2
2367 MLC CENSIG,CKNOIS&7 INITIALIZE NOISE ROUTINE 60 2
2368 MLC GPMARK,LDGM&3 60 2
2369 MA CF1RE,BFRST3 60 2
2370 BCE *&15,UNLOAD, 60 2
2371 MLC @N@,EOFRWD-7 60 2
2372 MLC @U@,EOFRWD&4 60 2
2373 BCE PTCHB1,MI3TUN, 60 2
2374 MLC &LBMI3T,NXTTP1&6 60 2
2375 MLC &LBI3T,SCHTP1&6 60 2
2376 MLC @6@,NOTAPS 60 2
2377 PTCHB1 MLC NOTAPS,NOTAPG 60 2
2378 PTCHBR BCE VLTHRU,FLR,1 60 2
2379 * DETERMINE G BASED ON B FOR FLR 60 2
2380 MLC @B@,L10 60 2
2381 MLC @B@,L102 60 2
2382 A B,G 60 2
2383 G2TMS A G 60 2
2384 SETMXG C G,@512@ 60 2
2385 BH SETG 60 2
2386 BE SETG 60 2
2387 MLC @N@,DUBLGL 60 2
2388 L10 B L103 60 2
2389 VLTHRU BCE VLTHR2,MINREC, 60 2
2390 MLC BL,CONVRT 60 2
2391 B EXPAND 60 2
2392 MLC HOLD,HOLDGL 60 2
2393 DBLVLG A HOLDGL 60 2
2394 BCE VLTHR3,MI3TUN, 60 2
2395 GL3VL A HOLD,HOLDGL 60 2
2396 VLTHR3 MLC MINREC,CONVRT 60 2
2397 B EXPAND 60 2
2398 VLTHR1 S HOLD,HOLDGL 60 2
2399 A ONE,G 60 2
2400 BWZ VLTHR1,HOLDGL,B 60 2
2401 MA @I9I@,G 60 2
2402 C G,@512@ 60 2
2403 BH THRU 60 2
2404 VLTHR2 MLC @512@,G 60 2
2405 B THRU 60 2
2406 HOLDGL DCW 00000 60 2
2407 VLBL DCW 000 60 2
2408 MLC @N@,GL3NXT 60 2
2409 L103 MLC @N@,L10 60 2
2410 S B,G 60 2
2411 MLZS K1BLNK,G 60 2
2412 B SETMXG 60 2
2413 SETG MLC G,FIRSTG 60 2
2414 BCE THRU,NOTAPS,4 60 2
2415 G3TMS A B,G 60 2
2416 SETMG2 C G,@512@ 60 2
2417 BH SETGFR 60 2
2418 BE SETGFR 60 2
2419 MLC @N@,GL3NXT 60 2
2420 L102 B L104 60 2
2421 MLC @N@,DUBLGL 60 2
2422 L104 MLC @N@,L102 60 2
2423 S B,G 60 2
2424 MLZS K1BLNK,G 60 2
2425 B SETMG2 60 2
2426 SETGFR MLC G,FIRSTG 60 2
2427 BCE THRU,EFS, DETERMINE G FOR EXPECTED FILE SIZE 60 2
2428 MLC EFS,EFSTRT 60 2
2429 LOG3 MLC EFSTRT,EFSCPT 60 2
2430 A EFSCPT 60 2
2431 A EFSTRT,EFSCPT 60 2
2432 MLC @6@,BUCKET 60 2
2433 DIVTHR A EFSCPT,EFSTPT 60 2
2434 MA P15999,DIVTHR&6 60 2
2435 A NINE,BUCKET 60 2
2436 BAV DIVTHR 60 2
2437 ZA EFSTPT-7,EFSTRT 60 2
2438 MLZS K1BLNK,EFSTRT 60 2
2439 A ONE,EFSTRT 60 2
2440 C EFSTRT,G 60 2
2441 S EFSTPT 60 2
2442 MA @007@,DIVTHR&6 60 2
2443 BL LOG3 60 2
2444 S B,G 60 2
2445 MLZS K1BLNK,G 60 2
2446 C EFSTRT,G 60 2
2447 BL ADDBLF 60 2
2448 BE ADDBLF 60 2
2449 MLC @N@,GL3NXT 60 2
2450 B THRU 60 2
2451 ADDBLF A B,G 60 2
2452 THRU A INTGLG 60 2
2453 CMTGLG C INTGLG,G 60 2
2454 BH THRU 60 2
2455 MLC MFS,MFSIZE 60 2
2456 DETPRM MA @I9C@,DTPRM1&3 60 2
2457 DTPRM1 C PRGMSZ&7,INTGLG 60 2
2458 SAR MVNDPM&3 60 2
2459 BU DETPRM 60 2
2460 MVNDPM MLC 0,NDFPGM 60 2
2461 MLC NDFPGM,HPNDPM 60 2
2462 BCE CMPT52,DESCND,1 60 2
2463 MA @I9I@,HPNDPM 60 2
2464 BCE CMPT5G,NCF,1 60 2
2465 CMPT52 MA L,HPNDPM 60 2
2466 CMPT5G A INTGLG,HLD3G 60 2
2467 MA G,THREEG 60 2
2468 A NINE,HOLD2 60 2
2469 BAV CMPT5G 60 2
2470 MLC HLD3G,HLD34G 60 2
2471 A HLD34G 60 2
2472 A HLD34G 60 2
2473 A HLD3G,HLD34G 60 2
2474 MLC HLD34G-1,TREQRG&1 60 2
2475 A TREQRG&1 60 2
2476 A TREQRG&1 60 2
2477 A HLD34G-1,TREQRG&1 60 2
2478 MLC INTGLG,G/4INT 60 2
2479 MA ONE,HPNDPM 60 2
2480 MLC HPNDPM,ONPTAR 60 2
2481 MA ONE,ONPTAR 60 2
2482 INSRT5 BSS PLYIN5,C 60 2
2483 * DETERMINE ADDRESSES OF I/O AREAS 60 2
2484 MLC ONPTAR,INTOUT 60 2
2485 MLC ONPTAR,B201W&6 60 2
2486 MA BL,ONPTAR 60 2
2487 MLC ONPTAR,HOLDND 60 2
2488 MA COMPL,HOLDND 60 2
2489 MLC ONPTAR,LOADGM&6 60 2
2490 MLC ONPTAR,COUNTR 60 2
2491 MA @I9I@,COUNTR 60 2
2492 LDGM MLCWAGM,333 60 2
2493 MLC ONPTAR,X 60 2
2494 MA ONE,X 60 2
2495 MLC X,Y 60 2
2496 MA TREQRG,Y 60 2
2497 MA @I9I@,Y 60 2
2498 MLC Y,O1 60 2
2499 MA THREE,O1 60 2
2500 MLC O1,G1 60 2
2501 MA THREEG,G1 60 2
2502 MA @I9G@,G1 60 2
2503 MLC O1,O1FA 60 2
2504 MLC O1 60 2
2505 MA @003@,O1FA 60 2
2506 MLC O1,STPDNR&3 60 2
2507 MLC G1,ONPTAR 60 2
2508 MA ONE,ONPTAR 60 2
2509 MLC ONPTAR,Z 60 2
2510 MLC BL,GL 60 2
2511 DUBLGL MA GL 60 2
2512 MA GL,Z 60 2
2513 GL3 BCE *&8,NOTAPS,4 60 2
2514 GL3NXT MA BL,Z 60 2
2515 GL1111 BWZ SBTRCB,Z,2 DETERMINE IF INPUT AREA 60 2
2516 GL1112 MLC Z,CONVRT ALLOCATED IS SUFFICIENT 60 2
2517 B EXPAND 60 2
2518 MLC HOLD,Z5DIGT 60 2
2519 BCE TPPSBL,UAPHZ1, 60 2
2520 CTPAVL C Z5DIGT,UAPHZ1 60 2
2521 BH DUBLG 60 2
2522 SBTRCB A @7@,NOTAPG 60 2
2523 MLC @16000@,SXTNTH 60 2
2524 BAV RPCHBR 60 2
2525 CS 332 60 2
2526 CS 60 2
2527 MLC PRMSG7,250 60 2
2528 W 60 2
2529 CC 1 60 2
2530 H *&1 60 2
2531 MLC GPMARK,TPV1 60 2
2532 MLC @#@,GL3NXT 60 2
2533 MLC @#@,DUBLGL 60 2
2534 MLC @A@,DBLVLG 60 2
2535 MLC @A@,GL3VL 60 2
2536 MLC @#@,G3TMS 60 2
2537 MLC @#@,G2TMS 60 2
2538 MLC GPMARK,CONVRT 60 2
2539 B EXPAND 60 2
2540 MLC HOLD,UAPHZ1 60 2
2541 MLC FIRSTG,G 60 2
2542 B INRPCH 60 2
2543 TPPSBL MLC GPMARK,CONVRT 60 2
2544 B EXPAND 60 2
2545 MLC HOLD,UAPHZ1 60 2
2546 B CTPAVL 60 2
2547 RPCHBR MLC @N@,DUBLGL 60 2
2548 MLC @N@,DBLVLG 60 2
2549 MLC @N@,G2TMS 60 2
2550 NOP 60 2
2551 BCLWMK B CLWMK 60 2
2552 MLC @N@,GL3NXT 60 2
2553 MLC @N@,GL3VL 60 2
2554 MLC @N@,G3TMS 60 2
2555 CLWMK CW BCLWMK 60 2
2556 INRPCH MLC @0002@,INTGLG 60 2
2557 S EFSTRT 60 2
2558 MLC @0000@,G&1 60 2
2559 MLC &PRGMSZ&7,DTPRM1&3 60 2
2560 S HLD3G 60 2
2561 MLC @000@,THREEG 60 2
2562 MLC TWO,HOLD2 60 2
2563 S HLD34G 60 2
2564 S TREQRG&1 60 2
2565 B PTCHBR 60 2
2566 DCW &P1344&4 60 2
2567 DC 0512 60 2
2568 DCW &P576&4 60 2
2569 DC 0256 60 2
2570 DCW &P192&4 60 2
2571 DC 0128 60 2
2572 DCW &P144&4 60 2
2573 DC 0064 60 2
2574 DCW &P072&4 60 2
2575 DC 0032 60 2
2576 DCW &P024&4 60 2
2577 DC 0016 60 2
2578 DCW &P021&4 60 2
2579 DC 0008 60 2
2580 DCW &P009&4 60 2
2581 DC 0004 60 2
2582 DCW &P003&4 60 2
2583 PRGMSZ DC 0002 60 2
2584 KTWO DCW @ @ 60 2
2585 TWO2 DCW @002@ 60 2
2586 CMPRNS DCW 000000 60 2
2587 G/4INT DCW 000 60 2
2588 SEVEN DCW @7@ 60 2
2589 ISONED S ONE,D 60 2
2590 THRWSZ DCW @109@ 60 2
2591 BTRUTN DCW @998@ 60 2
2592 TPRUTN DCW @|98@ 60 2
2593 EQRTSZ DCW @127@ 60 2
2594 MODADR DSA 15001 60 2
2595 PRMSG7 DCW @PATCH PROGRAM TOO LARGE PRESS START - IGNORE PATCH@ 60 2
2596 CMPLBL DCW 000 60 2
2597 NOTAPG DCW 0 60 2
2598 Z5DIGT DCW 00000 60 2
2599 NOEQL MLC @N@,STPCM2 60 2
2600 B STCMP4 60 2
2601 BILRGM CS 332 60 2
2602 CS 60 2
2603 MLC PRMSX,231 60 2
2604 W 60 2
2605 CS 231 60 2
2606 MLC @G@,201 60 2
2607 MLC G,205 60 2
2608 W 60 2
2609 CC 1 60 2
2610 H *-3 60 2
2611 DUBLG MLC Z,COWNTR 60 2
2612 C G,BI 60 2
2613 BH BILRGM 60 2
2614 DUBLG2 MLC Y,H13H10-3 60 2
2615 MA @I9G@,Y 60 2
2616 MLC Y,H13H10 60 2
2617 MLC X,LOADTB&3 60 2
2618 MLC Y,LODTB3&3 60 2
2619 MLC H13H10,LODTB2&6 60 2
2620 MLC H13H10-3,LODTB1&6 60 2
2621 DUBLG1 MA CCCFRE,ADRLRD 60 2
2622 BCE DUBLG3,DESCND, DESCENDING 60 2
2623 MLC @5@,ASCNDN&6 YES-INITIALIZE COMPARE BUCKETS 60 2
2624 MLC @2@,ASCNDN&13 FOR DESCENDING 60 2
2625 MA @003@,ASCNDG&6 60 2
2626 DUBLG3 BCE NOEQL,NCF,1 TEST FOR NUM OF CONTROL FIELDS 60 2
2627 MLC NDFPGM,ADRLRD 60 2
2628 MA ONE,ADRLRD 60 2
2629 MLC NCF,POT 60 2
2630 S TWO,POT 60 2
2631 MLC &CF2RE,X1 INITIALIZE EQUAL ROUTINE 60 2
2632 MLC &BSCBSC-6,X2 CONSTANTS IF SECONDARY CONTROL 60 2
2633 STNEQL MLC 0&X1,6&X2 FIELDS ARE PRESENT 60 2
2634 MLC 0&X1 60 2
2635 ASCNDN MLZS @A@,2&X2 60 2
2636 MLZS @Z@,5&X2 60 2
2637 MA @006@,X2 60 2
2638 MA @003@,X1 60 2
2639 BAV *&1 60 2
2640 A NINTNN,POT 60 2
2641 BAV STNEQL 60 2
2642 MA X2,LAST 60 2
2643 MLC @6@,BKET 60 2
2644 MVNEQL MLC @N@,STCMPR&7 60 2
2645 MA @014@,MVNEQL&6 60 2
2646 A NINE,BKET 60 2
2647 BAV MVNEQL 60 2
2648 STCMP4 MLC BFRST3,CMPRNS 60 2
2649 MLC BFRST3 60 2
2650 ASCNDG MLZS @A@,CMPRNS-4 60 2
2651 MLC @013@,X1 60 2
2652 STCMPR MLC CMPRNS,B002B&X1 INITIALIZE COMPARE INSTRUCTIONS 60 2
2653 MLC @N@,B002B&6&X1 IN MAINLINE WITH RIGHT EDGE OF 60 2
2654 MLC CMPRNS,B004B&X1 MAJOR CONTROL FIELD 60 2
2655 MLC @N@,B004B&6&X1 60 2
2656 MLC CMPRNS,B701B&X1 60 2
2657 MLC @N@,B701B&6&X1 60 2
2658 MLC CMPRNS,B008B&X1 60 2
2659 MLC @N@,B008B&6&X1 60 2
2660 MLC CMPRNS,B703B&X1 60 2
2661 MLC @N@,B703B&6&X1 60 2
2662 MLC CMPRNS,B705B&X1 60 2
2663 MLC @N@,B705B&6&X1 60 2
2664 MLC CMPRNS,B715B&X1 60 2
2665 MLC @N@,B715B&6&X1 60 2
2666 STCMP5 MA @245@,X1 60 2
2667 C KTWO,@2@ 60 2
2668 A ONE,KTWO 60 2
2669 BU STCMPR 60 2
2670 CMPTGC MLC G,GCNTR 60 2
2671 S ONE,GCNTR 60 2
2672 S NOINTP,CPLITP 60 2
2673 A ONE,CPLITP 60 2
2674 CMPTG4 MLC G/4INT,G/4&2 60 2
2675 A G/4&2 60 2
2676 A G/4INT,G/4&1 60 2
2677 A G/4&2 60 2
2678 A G/4INT,G/4&2 60 2
2679 MLC B008B&13,STPCMP&6 60 2
2680 MLC ISONED&6,SONED 60 2
2681 CS 80 60 2
2682 SW 24,56 60 2
2683 SW 63,67 60 2
2684 R 56 60 2
2685 DCW @ @ 60 2
2686 ORG 6200 60 2
2687 PRMSG9 DCW @PHASE 1 INP OUT @ 60 2
2688 GCMPLT DCW @999@ 60 2
2689 POT DCW 00 60 2
2690 FIRSTG DCW 000 60 2
2691 EFSTRT DCW 00000000 60 2
2692 BLCMPT DCW 000 60 2
2693 BKET DCW 0 60 2
2694 SXTNTH DCW @16000@ 60 2
2695 VLRRTN DCW 000 60 2
2696 EFSCPT DCW 00000000 60 2
2697 BUCKET DCW 0 60 2
2698 EFSTPT DCW 00000000000000 60 2
2699 INTGLG DCW @0002@ 60 2
2700 THREEG DCW 0000 60 2
2701 HLD3G DCW 0000 60 2
2702 HOLDG DCW 000 60 2
2703 MOVPUT MLC X2,HOLDND 60 2
2704 HLD34G DCW 00000 60 2
2705 TREQRG DCW 00000 60 2
2706 DC 0 60 2
2707 HOLD2 DCW @2@ 60 2
2708 NDFPGM DCW @?00@ 60 2
2709 X DCW 000 60 2
2710 Y DCW 000 60 2
2711 NINEG DCW @009@ 60 2
2712 CMPGLG DCW @XXX@ 60 2
2713 GL DCW 00000 60 2
2714 NTOTVL DCW 000 60 2
2715 H13H10 DCW 000000 60 2
2716 PHZ1MG DCW @PHASE 1 INTERNAL SORT@ 60 2
2717 CHKPRT DCW @CHECKPOINT ON TAPE UNIT #@ 60 2
2718 LTORG* 60 2
2719 EX ATEK 60 2
2720 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 1 60 2
2721 ORG 4175 60 2
2722 FXCHEK BCE FLRRTN,FLR, FIXED LENGTH RECORDS BRANCH 60 2
2723 MLC @ @,RNGLNQ&4 INITIALIZE MAINLINE ROUTINES FOR 60 2
2724 MLC &B2211B,BTOHAS&3 VARIABLE LENGTH RECORDS 60 2
2725 MA BFRST3,B011TH&3 60 2
2726 MA RCDIST,CNVRSN&3 60 2
2727 MA RCDIST,CNVRS1&6 60 2
2728 MA RCDIST,B011TB&3 60 2
2729 MLC @N@,BP002 60 2
2730 MLC @N@,B2211D 60 2
2731 MLC &VLRGET,BP001&6 60 2
2732 BCE CNTVL1,DESCND,1 60 2
2733 MA ONE,STPCMP&3 60 2
2734 B CNTVLR 60 2
2735 NORLIN MLC @M@,B010RI 60 2
2736 MLC @#@,B010R 60 2
2737 MLC @N@,STG1J 60 2
2738 MLC @N@,SETG1J 60 2
2739 MLC @N@,SETG1&7 60 2
2740 MLCWARLINO2&6,RLINO&6 60 2
2741 MLCWARLINO1&6 60 2
2742 B CNTVL3 60 2
2743 CON16T DCW @16000@ 60 2
2744 RLINO2 MA K4,X1 60 2
2745 RLINO1 MLC K1BLNK,0&X1 60 2
2746 MLTIBL MA K4,X2 60 2
2747 CNTVL1 MA ONE,STPCMP&6 60 2
2748 CNTVLR CW B2212&5 60 2
2749 CW B002R 60 2
2750 MLCWAMLTIBL&6,B002R&8 60 2
2751 MLC &CMPCOW 60 2
2752 MLC @089@ 60 2
2753 MLC @#@ 60 2
2754 MLC &CMPCOW 60 2
2755 MLC &COWNTR 60 2
2756 MLC @M@ 60 2
2757 MLC @0!1@,WRTFL1&6 60 2
2758 MLC GPMARK 60 2
2759 MLC @L@ 60 2
2760 MLC @2@,B2212&14 60 2
2761 MLC &CMPCOU 60 2
2762 MLC &BP002 60 2
2763 MLCWA@V@ 60 2
2764 MLC &CMPCOU 60 2
2765 MLC @094@ 60 2
2766 MLC @#@ 60 2
2767 MLC &CMPCOU 60 2
2768 MLC &COUNTR 60 2
2769 MLC @M@ 60 2
2770 C BI,@001@ CHECK FOR UNBLOCKED INPUT 60 2
2771 BU CNTVL3 60 2
2772 BCE NORLIN,RLIIND,1 60 2
2773 MLCWARLINO&6,RLINO-1 60 2
2774 CNTVL3 MLC &B220VL&3,B2200&6 60 2
2775 MLC &B220VL&3,B2202&6 60 2
2776 MLC &B220VL&3,B2211B&3 60 2
2777 MLC @0!0@,B2001&6 60 2
2778 MLC @0|0@ 60 2
2779 MLC RCDIST,B2000&3 60 2
2780 MLCWA@#@ 60 2
2781 MLZS @S@,B2000&2 60 2
2782 MLC @094@,B2201&6 60 2
2783 MLC RCDIST 60 2
2784 MLC @#@ 60 2
2785 MLZS @S@,B2201&2 60 2
2786 MLCWAMOVPUT&6,B2201V&6 60 2
2787 MLC @094@ 60 2
2788 MLC @L@,B201W 60 2
2789 MLC @L@,B001R 60 2
2790 MLC L,CONVRT 60 2
2791 B EXPAND 60 2
2792 C @00999@,HOLD CHECK RECORD LENGTH 60 2
2793 BH BRMAX 60 2
2794 MLCWABRMAXL&4,CNVRSN&4 60 2
2795 BRMAX MA G1,LRG2G1 60 2
2796 MLC LRG2G1,CONVRT 60 2
2797 B EXPAND 60 2
2798 MLC CON16T,CONVRT 60 2
2799 S HOLD,CONVRT 60 2
2800 MLZS K1BLNK,CONVRT 60 2
2801 B K5TOK3 60 2
2802 MLC CONVRT,LRG2G1 60 2
2803 MLC UAPHZ1,CONVRT 60 2
2804 S @004@,CONVRT 60 2
2805 MLZS K1BLNK,CONVRT 60 2
2806 B K5TOK3 60 2
2807 MLC CONVRT,COWNTR 60 2
2808 MA CMXBLK,COWNTR 60 2
2809 MLC COWNTR,CONVRT 60 2
2810 B EXPAND 60 2
2811 MLC CON16T,CONVRT 60 2
2812 S HOLD,CONVRT 60 2
2813 MLZS K1BLNK,CONVRT 60 2
2814 B K5TOK3 60 2
2815 MLC CONVRT,COWNTR 60 2
2816 MA COMPL,COUNTR 60 2
2817 MA ONE,COUNTR 60 2
2818 MLC COUNTR,CONVRT 60 2
2819 B EXPAND 60 2
2820 MLC CON16T,CONVRT 60 2
2821 S HOLD,CONVRT 60 2
2822 MLZS K1BLNK,CONVRT 60 2
2823 B K5TOK3 60 2
2824 MLC CONVRT,COUNTR 60 2
2825 BCE *&8,KRUNCH, DETERMINE IF RLI REQUIRES THE 60 2
2826 MA SLRCC,STWMVL&10 SETTING OF A WORDMARK 60 2
2827 MLC @000@,X1 60 2
2828 BCE INVLWM,CNOP,1 60 2
2829 MA @003@,INVLWM&3 60 2
2830 INVLWM MLC INVLST&X1,X3 INITIALIZE SET WORDMARK ROUTINE 60 2
2831 MA CF1SL&X1,0&X3 FOR VARIABLE LENGTH RECORDS 60 2
2832 MA @003@,X1 60 2
2833 C X1,@030@ 60 2
2834 BU INVLWM 60 2
2835 MLC NCF,NCFTOP 60 2
2836 MLC &STWMVL,X2 60 2
2837 BCE INVLW1,CNOP,1 60 2
2838 A ONE,NCFTOP 60 2
2839 INVLW1 C NCFTOP,KTHREE 60 2
2840 BH INVLW2 60 2
2841 MA @I9C@,X2 60 2
2842 A @02@,KTHREE 60 2
2843 B INVLW1 60 2
2844 INVLW2 C NCFTOP,@11@ 60 2
2845 BU INVLW3 60 2
2846 MLC &STWMVL-32,X2 60 2
2847 INVLW3 MLC X2,SETG1J&3 60 2
2848 MLC X2,B002RA&3 60 2
2849 MLC X2,LSTBK1&3 60 2
2850 B INSTP 60 2
2851 BRMAXL B B011TA 60 2
2852 DC @ @ 60 2
2853 KTHREE DCW @03@ 60 2
2854 INVLST DC &STWMVL&3 60 2
2855 &STWMVL&6 60 2
2856 &STWMVL-1 60 2
2857 &STWMVL-4 60 2
2858 &STWMVL-8 60 2
2859 &STWMVL-11 60 2
2860 &STWMVL-15 60 2
2861 &STWMVL-18 60 2
2862 &STWMVL-22 60 2
2863 &STWMVL-25 60 2
2864 &STWMVL-29 60 2
2865 NCFTOP DCW @ @ 60 2
2866 NCFPUT DCW 00 60 2
2867 EMM DCW @L@ 60 2
2868 QOUNTR DCW 000 60 2
2869 BTOHAS B B2211D 60 2
2870 FLRRTN MA L,INTOUT 60 2
2871 MA L,B2001&3 60 2
2872 MLC &EQUAL,STPCM2&3 60 2
2873 QBACK MA L,RNGLNQ&6 60 2
2874 A @1@,QOUNTR 60 2
2875 C QOUNTR,BI 60 2
2876 BU QBACK 60 2
2877 MLC @N@,VLRGET 60 2
2878 MLC @N@,VLRGET&7 60 2
2879 MLC @N@,VLRGET&14 60 2
2880 MLC &B4SS5,B002R&3 60 2
2881 MLC BFRST3,B2211D&3 60 2
2882 INSTP MA @I9I@,INTOUT 60 2
2883 MLC MI1TUN,B201W&3 60 2
2884 MLC MI1TUN,B203W&3 60 2
2885 MLC MI1TUN,TAPERW&3 60 2
2886 BCE ANNENC,CNOP,1 60 2
2887 CTOL S CNOP,NCF 60 2
2888 S ONE,NCF 60 2
2889 MLZS K1BLNK,NCF 60 2
2890 MLC NCF,NCFPUT 60 2
2891 BCE *&8,KRUNCH, 60 2
2892 A @1@,NCFPUT 60 2
2893 MLC @001@,X1 60 2
2894 SETPUT MLCWAEMM,B2001&6&X1 INITIALIZE CHAINED MOVE IN 60 2
2895 A @1@,X1 PUT ROUTINE BASED ON THE NUMBER 60 2
2896 A NINTNN,NCFPUT OF CONTROL FIELDS 60 2
2897 BAV SETPUT 60 2
2898 C NCF,@05@ 60 2
2899 BL SBCNOP 60 2
2900 MLCWABTOHAS&3,B2001&9&X1 60 2
2901 SBCNOP A CNOP,NCF 60 2
2902 A ONE,NCF 60 2
2903 CTLAGN MLC COMPL,PCOMPL 60 2
2904 MA @I9I@,HPNDPM 60 2
2905 MA @I9I@,NDFPGM 60 2
2906 MLC HPNDPM-2,TPCNPM-2 60 2
2907 MLZS HPNDPM,TPCNPM 60 2
2908 MLC G,HOLDG 60 2
2909 C HPNDPM,TPCNPM 60 2
2910 BU *&8 60 2
2911 MLC BR&4,MAX&19 60 2
2912 CKPTCR BCE GPMRK,UAPHZ1, 60 2
2913 MLC UAPHZ1,CONVRT 60 2
2914 B K5TOK3 60 2
2915 MA CONVRT,STRTCL&3 60 2
2916 B CHECK 60 2
2917 GPMRK MA GPMARK,STRTCL&3 60 2
2918 CHECK CS 332 60 2
2919 CS 60 2
2920 C HPNDPM,TPCNPM 60 2
2921 BU DETS 60 2
2922 MLC BR&4,MAX&19 60 2
2923 B DETS 60 2
2924 BR BIN STWMK1-7, 60 2
2925 DETS BCE REVRS5,DESCND,1 60 2
2926 BCE SWCHTP,NCF,1 60 2
2927 B CMPTNC 60 2
2928 REVRS5 MA NDFPGM,REVRS3&3 60 2
2929 REVRS3 SW 1 60 2
2930 MLC HPNDPM,X1 60 2
2931 MLCWANINE,1&X1 60 2
2932 REVRS4 MLC 1&X1,0&X1 60 2
2933 SBR X1 60 2
2934 CW 1&X1 60 2
2935 C X1,NDFPGM 60 2
2936 BU REVRS4 60 2
2937 MLC K1BLNK,1&X1 60 2
2938 MLC NDFPGM,ADRLRD 60 2
2939 MA TWO,ADRLRD 60 2
2940 B SWCHTP 60 2
2941 CMPTNC MA NDFPGM,*&4 60 2
2942 SW 1 60 2
2943 MLC HPNDPM,X1 60 2
2944 LDNINE MLCWAK1BLNK,1&X1 60 2
2945 LDBLNK MLCWA1&X1,0&X1 60 2
2946 SBR X1 60 2
2947 BCE *&5,DESCND, 60 2
2948 CW 3&X1 60 2
2949 C X1,NDFPGM 60 2
2950 BU LDBLNK 60 2
2951 B SWCHTP 60 2
2952 ANNENC BCE *&5,NCF,1 60 2
2953 B CTOL 60 2
2954 BCE CTLAG6,KRUNCH, 60 2
2955 MLC EMM,B2001&7 60 2
2956 MLCWABTOHAS&3,B2001&11 60 2
2957 B CTLAG6&7 60 2
2958 CTLAG6 MLCWABTOHAS&3,B2001&10 60 2
2959 B CTLAGN 60 2
2960 CHKPNT CS 80 60 2
2961 SW 24,56 60 2
2962 SW 63,67 60 2
2963 R 056 60 2
2964 EX FXCHEK 60 2
2965 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 1 60 2
2966 * 60 2
2967 * BYPASS OR LOAD IN ROUTINE TO HANDLE FIXED 60 2
2968 * LENGTH RECORDS READ IN THE LOAD MODE 60 2
2969 * 60 2
2970 ORG 5000 60 2
2971 TESTML BCE TML,FLR,1 60 2
2972 BCE BPSS,INMODE,M 60 2
2973 LCRD CS 80 60 2
2974 SW 24,56 60 2
2975 SW 63,67 60 2
2976 R 056 60 2
2977 MLC @L@,B001R 60 2
2978 BPSS R 60 2
2979 BCE LCRD,68,B 60 2
2980 B BPSS 60 2
2981 TML BCE BPSS-7,INMODE,L 60 2
2982 BCE *&12,TPV1, 60 2
2983 MLC TPV1,CDTO 60 2
2984 B *&8 60 2
2985 MLC GPMARK,CDTO 60 2
2986 MA @I9I@,CDTO 60 2
2987 MLC ONPTAR,CLRTN&3 60 2
2988 MLC @M@,B001R 60 2
2989 MLC &CLRTN,BP001&6 60 2
2990 B BPSS 60 2
2991 DCW #1 60 2
2992 EX TESTML 60 2
2993 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 1 60 2
2994 * 60 2
2995 * SET WORD MARK ROUTINE FOR FIXED LENGTH 60 2
2996 * RECORDS READ IN THE LOAD MODE 60 2
2997 * 60 2
2998 ORG VARLNT 60 2
2999 MLC G,GCNT7 60 2
3000 MA P15999,GCNT7 60 2
3001 MLC @0?0@,SET7&3 60 2
3002 MA ONPTAR,SET7&3 60 2
3003 SET71 MLC NCF,NCF7 60 2
3004 MLC @000@,X3 60 2
3005 SET7 SW 0&X3 60 2
3006 INSWN7 MLC CF1SL,X3 60 2
3007 MA THREE,INSWN7&3 60 2
3008 BAV *&1 60 2
3009 A NINTNN,NCF7 60 2
3010 BAV SET7 60 2
3011 SBR INSWN7&3,CF1SL 60 2
3012 MA L,SET7&3 60 2
3013 A @999@,GCNT7 60 2
3014 BAV SET71 60 2
3015 B B4SS5 60 2
3016 INSWF MLC @L@,B001R 60 2
3017 MLC &VARLNT,B002R&3 60 2
3018 CS 80 60 2
3019 SW 24,56 60 2
3020 SW 63,67 60 2
3021 R 056 60 2
3022 GCNT7 DCW #3 60 2
3023 NCF7 DCW #2 60 2
3024 LTORG* 60 2
3025 EX INSWF 60 2
3026 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 1 60 2
3027 * 60 2
3028 * WRITE CHECKPOINT ROUTINE 60 2
3029 * 60 2
3030 ORG 5000 60 2
3031 CHKPT1 CW 333 WRITE CHECKPOINT 60 2
3032 SW 1,5 60 2
3033 MLC &RESTRT 60 2
3034 MLC @B@ 60 2
3035 MLC MI1TUN,WRTCHK&3 60 2
3036 MLC @80@,CNTR50 60 2
3037 RTCHK1 MLC @N@,BRNCHK 60 2
3038 WRTCHK WTW 0,1 60 2
3039 BER ERRCHK 60 2
3040 BEF EOFCHK 60 2
3041 RTCHK2 MLC Z,MAX&6 60 2
3042 MLC GPMARK 60 2
3043 MLC GPMARK,LDG333&3 60 2
3044 LDG333 MLCWAGM,333 60 2
3045 MLC &B013R,TSTLBL&11 60 2
3046 B MPZ1 60 2
3047 ERRCHK MN WRTCHK&3,ERCHK1&3 60 2
3048 ERCHK1 BSP 0 60 2
3049 BRNCHK B ERSCHK 60 2
3050 MLC @B@,BRNCHK 60 2
3051 B WRTCHK 60 2
3052 ERSCHK A ONE,CNTR50 60 2
3053 BAV HLTCHK 60 2
3054 MLNS WRTCHK&3,ERSHK1&3 60 2
3055 ERSHK1 SKP 0 60 2
3056 B RTCHK1 60 2
3057 HLTCHK H CHKPNT 60 2
3058 EOFCHK H RTCHK2 60 2
3059 RESTRT MLC GPMARK,X1 RESTART 60 2
3060 RWD 1 60 2
3061 CS 332 60 2
3062 CS 60 2
3063 SW 0&X1 60 2
3064 MLC @,@,PRMSG9-1 60 2
3065 MLC MI2TUN 60 2
3066 MLC @,@ 60 2
3067 MLC MI1TUN 60 2
3068 BCE TOWYMG,NOTAPS,4 60 2
3069 MLC MI3TUN,PRMSG9 60 2
3070 MLC I3TUN,PRMSG9-10 60 2
3071 MLZS *-6,CENSIG 60 2
3072 TOWYMG MLC @,@,PRMSG9-11 60 2
3073 MLC I2TUN 60 2
3074 MLC @,@ 60 2
3075 MLC I1TUN 60 2
3076 RWD 1 60 2
3077 MLC PRMSG9,227 60 2
3078 W 60 2
3079 CC 1 60 2
3080 NDRSTT H CHKPT1 60 2
3081 MPZ1 CS 299 60 2
3082 MLC PHZ1MG,222 60 2
3083 W 60 2
3084 CS 299 60 2
3085 MLC MI1TUN,226 60 2
3086 MLC CHKPRT 60 2
3087 W 60 2
3088 BCE ENDPRT,FLR,1 60 2
3089 CMPT3B A ONE,THREEB 60 2
3090 S B,HOLDG 60 2
3091 BWZ CMPT3B,HOLDG,B 60 2
3092 S ONE,THREEB 60 2
3093 CS 226 60 2
3094 MLC @G@,201 60 2
3095 MLC G,205 60 2
3096 W 60 2
3097 ENDPRT CC 1 60 2
3098 RDURLD CS 080 60 2
3099 SW 24,56 60 2
3100 SW 63,67 60 2
3101 WHICH BCE STURPI,URPI,P 60 2
3102 BCE STURPI,URPI,C 60 2
3103 MLC @T@,DECIDE&7 60 2
3104 B DECIDE-1 60 2
3105 STURPI MLC URPI,DECIDE&7 DETERMINE REDUNDANCY ROUTINE 60 2
3106 R REQUESTED BY USER 60 2
3107 DECIDE BCE 056,079, LOAD IT AND BYPASS OTHERS 60 2
3108 R DECIDE 60 2
3109 FRED CS 080 60 2
3110 SW 24,56 60 2
3111 SW 63,67 60 2
3112 R 60 2
3113 BCE CLEARS,079, 60 2
3114 R *-11 60 2
3115 EX CHKPT1 60 2
3116 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 1 CORRECT URPI 60 2
3117 ORG HERE 60 2
3118 SBR MOVUR&3,0&X3 60 2
3119 CS 332 60 2
3120 CS 60 2
3121 SBR MOVUR&13,201 60 2
3122 MOVUR MLC 0,CNTR1 60 2
3123 MLC CNTR1,201 60 2
3124 MA ONE,MOVUR&3 60 2
3125 MA ONE,MOVUR&13 60 2
3126 C MOVUR&3,X1 60 2
3127 BE CRLNLR 60 2
3128 BCE JDYLNR,MOVUR&11,3 60 2
3129 B MOVUR 60 2
3130 JDYLNR W MOVUR-12 PRINT UNREADABLE INPUT BLOCK 60 2
3131 CRLNLR W 60 2
3132 CC 1 60 2
3133 TSTSSG H WRLERT 60 2
3134 BSS TAPRD2,G 60 2
3135 B ACCEPT 60 2
3136 CNTR1 DCW @ @ 60 2
3137 WRLERT MLC K1BLNK,0&X1 60 2
3138 MLC X3,X1 60 2
3139 WRGSET MLCWAGM,0 60 2
3140 B B000R 60 2
3141 DCW @ @ 60 2
3142 ORG 5000 60 2
3143 CORINI MLC GPMARK,WRGSET&3 60 2
3144 MLC Z,WRGSET&6 60 2
3145 B FRED 60 2
3146 DCW @ @ 60 2
3147 EX CORINI 60 2
3148 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 1 TAPE URPI 60 2
3149 ORG HERE 60 2
3150 BWZ NOLNZG,0&X1,1 60 2
3151 MLC CLR1&15,CLWMGM 60 2
3152 B WTWTT-4 60 2
3153 NOLNZG MLC @N@,CLWMGM 60 2
3154 SW 0&X1 60 2
3155 WTWTT WT 0,0&X3 WRITE UNREADABLE INPUT BLOCK ON 60 2
3156 BEF HOUT DUMP TAPE 60 2
3157 BER ETND 60 2
3158 CLWMGM CW 0&X1 60 2
3159 MLC *-6,0&X1 60 2
3160 CS 332 60 2
3161 CS 60 2
3162 MLC TURMSG,226 60 2
3163 W 60 2
3164 CC 1 60 2
3165 MLC X3,X1 60 2
3166 B B011R 60 2
3167 ETND BSP %U0 60 2
3168 SKP %U0 60 2
3169 B WTWTT 60 2
3170 HOUT H WTWTT 60 2
3171 TURMSG DCW @UNREAD BLK WRITTEN ON TU @ 60 2
3172 LTORG* 60 2
3173 ORG 5000 60 2
3174 INTTER MLC URPI,WTWTT&3 SET DUMP TAPE UNIT NUM 60 2
3175 MLC URPI,ETND&3 60 2
3176 MLC URPI,ETND&8 60 2
3177 MLC URPI,TURMSG 60 2
3178 B FRED 60 2
3179 DCW @ @ 60 2
3180 EX INTTER 60 2
3181 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 1 PUNCH URPI 60 2
3182 ORG HERE 60 2
3183 MLC X3,CTBL 60 2
3184 MLC @0?0@,PBDBK3&3 60 2
3185 PBDBK1 SBR PBDBK3&13,100 60 2
3186 CS 180 60 2
3187 PBDBK2 MA ONE,PBDBK3&13 60 2
3188 PBDBK3 MLC 0&X3,CNTR2 60 2
3189 MLC CNTR2,0 60 2
3190 MA ONE,CTBL 60 2
3191 MA ONE,PBDBK3&3 60 2
3192 C CTBL,X1 60 2
3193 BE PBDBK4 60 2
3194 BCE PBDBK5,PBDBK3&12,8 60 2
3195 B PBDBK2 60 2
3196 PBDBK4 MLCWAGM,0 60 2
3197 MLC K1BLNK,0&X1 60 2
3198 MLC X3,X1 60 2
3199 P B011R PUNCH UNREADABLE INPUT BLOCK 60 2
3200 PBDBK5 P PBDBK1 60 2
3201 CTBL DCW @000@ 60 2
3202 CNTR2 DCW @ @ 60 2
3203 LTORG* 60 2
3204 ORG 5000 60 2
3205 PUNINI MLC GPMARK,PBDBK4&3 60 2
3206 MLC Z,PBDBK4&6 60 2
3207 B FRED 60 2
3208 DCW @ @ 60 2
3209 EX PUNINI 60 2
3210 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 1 60 2
3211 ORG HPNDPM-2 60 2
3212 B4S10 C E-1,G/4 60 2
3213 MA THREE,PLC1&3 60 2
3214 BH B4S10A 60 2
3215 MLC B4S10A&3,*&11 60 2
3216 MLCWAN,B4S18A&4 60 2
3217 MLC 0 60 2
3218 MLC @B@,B4S18A 60 2
3219 B B4S21 60 2
3220 B4S10A MLC BRNCH,BBS10&3 60 2
3221 SAR B4S10A&3 60 2
3222 A E 60 2
3223 ZA E-1,D 60 2
3224 B B4S21 60 2
3225 PLCFRF DSA 15994 60 2
3226 DSA 15988 60 2
3227 DSA 15976 60 2
3228 DSA 15952 60 2
3229 DSA 15904 60 2
3230 DSA 15808 60 2
3231 DSA 15616 60 2
3232 DSA 15232 60 2
3233 DSA 14464 60 2
3234 DCW &B512B 60 2
3235 &B256B 60 2
3236 &B128B 60 2
3237 &B064B 60 2
3238 &B032B 60 2
3239 &B016B 60 2
3240 &B008B 60 2
3241 &B004B 60 2
3242 BRNCH DCW &B002B 60 2
3243 * 60 2
3244 * THIS ROUTINE DETERMINES WHICH RECORD OF G 60 2
3245 * RECORDS IS BEING SORTED AND AT WHICH LOCATION 60 2
3246 * TO ENTER THE COMPARE LOOP 60 2
3247 * HAVING DETERMINED WHERE LAST RECORD SORTED 60 2
3248 * IS TO BE PLACED-INSERT ITS ADDRESS IN THE 60 2
3249 * TABLE OF ADDRESSES 60 2
3250 B4SS5 MLC O1FA-3,O1 60 2
3251 MLC O1FA,B4S08&6 60 2
3252 ZA HALF,E 60 2
3253 MLC 60 2
3254 SBR B4S10A&3,BRNCH 60 2
3255 SBR PLC1&3,PLCFRF-3 60 2
3256 MLCWASONED,B4S18A&6 60 2
3257 B B4S19 60 2
3258 B4S07 SW 0&X2 60 2
3259 B4S08 MLC 0,0 60 2
3260 MA THREE,B4S08&6 60 2
3261 MA THREE,B4S08&3 60 2
3262 MLC X1,3&X2 60 2
3263 CW 60 2
3264 B4S19 C O1,G1 60 2
3265 B4S18 MA 60 2
3266 B4S20 BE STPDNR 60 2
3267 B4S21 MLC O1,X2 60 2
3268 MLC 0&X2,X1 60 2
3269 PLC1 MA PLCFRF-3,X2 60 2
3270 B4S18A S ONE,D 60 2
3271 BBS10 BWZ 0000,D,B 60 2
3272 BBS100 B B4S10 60 2
3273 * 60 2
3274 EX VLRGET 60 2
3275 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 1 60 2
3276 ORG VLRGET 60 2
3277 EOFMFS BWZ NOPMFS,CNTR,2 60 2
3278 BCE EOFRIT,CNTR,B 60 2
3279 EOFRIT CS 332 60 2
3280 CS 60 2
3281 MLC EOFPNT,221 60 2
3282 W 60 2
3283 CC 1 60 2
3284 H *-3 60 2
3285 EOFPNT DCW @EOR ON 2 OUTPUT TAPES@ 60 2
3286 NOPMFS MLC @N@,BP002&7 60 2
3287 PADVLR MA X1,PDCHCK PADDING ROUTINE 60 2
3288 BCE CPDON,FLR, 60 2
3289 BCE *&5,RLIIND,1 60 2
3290 B *&8 60 2
3291 MA @I9F@,PDCHCK 60 2
3292 CPDON C PDCHCK,ONPTAR 60 2
3293 BE OPNGRT 60 2
3294 BCE VLRPAD,FLR,1 60 2
3295 SW 0&X3 60 2
3296 MA @I9H@,Z 60 2
3297 MA @I9I@,PDCHCK 60 2
3298 MLC Z,X2 60 2
3299 MLC PI,1&X2 60 2
3300 PDEXIT NOP 0 60 2
3301 MVPADG MLC 1&X2,0&X2 60 2
3302 SBR X2 60 2
3303 C X2,PDCHCK 60 2
3304 BU PDEXIT 60 2
3305 MA ONE,Z 60 2
3306 PADRTN MA PCOMPL,Z 60 2
3307 BCE QNRCMK,RCMKPI, 60 2
3308 MA L,X2 60 2
3309 MLC ONERM,0&X2 60 2
3310 QNRCMK A ONE,PDCPUT 60 2
3311 C Z,PDCHCK 60 2
3312 BU PADRTN 60 2
3313 MLC &NSHKFZ,B212W&3 60 2
3314 MLC @N@,BP000 60 2
3315 MLC @N@,BP001 60 2
3316 MLC &PADBO1,B2200&3 60 2
3317 MLC O1FA-3,PADBO1 60 2
3318 BCE SHKFZ,DESCND, 60 2
3319 MLC @ @,SHKFZD&7 60 2
3320 SHKFZ S B,PDCPUT 60 2
3321 BWZ ADDB,PDCPUT,K 60 2
3322 S ONE,THREEB 60 2
3323 SHKFZD BCE SHKFZ,PI,9 60 2
3324 MA B,PADBO1 60 2
3325 MA B,PADBO1 60 2
3326 MA B,PADBO1 60 2
3327 B SHKFZ 60 2
3328 ADDB A B,PDCPUT 60 2
3329 MLZS K1BLNK,PDCPUT 60 2
3330 BCE ENDPAD,INMODE,M 60 2
3331 B VARLNT 60 2
3332 ENDPAD B B4SS5 60 2
3333 VLRPAD MLC EOPNGT,BP001&6 60 2
3334 B SETG12 60 2
3335 COPNGT DCW &EOPNGT 60 2
3336 EOPNGT DCW &OPNGRT 60 2
3337 NDFZ1 DCW @END OF INTERNAL SORT@ 60 2
3338 PADBO1 DCW 000 60 2
3339 PDCHCK DCW @I9I@ 60 2
3340 PLZERO DCW &0 60 2
3341 NSHKFZ S ONE,THREEB 60 2
3342 C PLZERO,THREEB 60 2
3343 BU BP2200 60 2
3344 OPNGRT MLC MI1TUN,*&4 60 2
3345 WTM 1 60 2
3346 CW 333 60 2
3347 BCE *&22,UNLOAD, 60 2
3348 MLC @U@,URTAPE-24 60 2
3349 MLC @U@,URTAPE-48 60 2
3350 MLC @U@,URTAPE&36 60 2
3351 * REWIND OUTPUT TAPES 60 2
3352 MLC MI1TUN,*&4 60 2
3353 RWD 1 60 2
3354 MLC MI2TUN,*&4 60 2
3355 WTM 1 60 2
3356 MLC MI2TUN,*&4 60 2
3357 RWD 1 60 2
3358 BCE ENDE,URPI,P 60 2
3362 ENDE BCE RDCARD,NOTAPS,4 60 2
3363 MLC MI3TUN,*&4 60 2
3364 WTM 1 60 2
3365 MLC MI3TUN,*&4 60 2
3366 RWD 1 60 2
3367 RDCARD CS 332 60 2
3368 CS 60 2
3369 MLC NDFZ1,220 60 2
3370 W PRINT END OF INTERNAL SORT 60 2
3371 CC 1 60 2
3372 BCE SKEIGT,LBBUCK,1 120 CHARACTER LABEL BYPASS 60 2
3373 TWNEXT CS 80 READ NEXT OVERLAY 60 2
3374 SW 24,56 60 2
3375 SW 63,67 60 2
3376 R 056 60 2
3377 SKEIGT R BYPASS 80 CHARACTER ROUTINE 60 2
3378 BCE TWNEXT,68,B CHECK FOR EX CARD 60 2
3379 B SKEIGT 60 2
3380 EX EOFMFS 60 2
3381 JOB ** IBM 1401 SORT 7 VERSION 2 WORK LABEL ROUTINE,80 60 2
3382 * 60 2
3383 * PROCESS HEADER LABELS ON ALL PHASE I WORK TAPES 60 2
3384 * PRIOR TO INITIATING PASS 60 2
3385 * THIS ROUTINE INCLUDES THE SENSE SWITCH D HALT 60 2
3386 * OPTION WHICH ALLOWS THE USER TO MOUNT WORK 60 2
3387 * TAPES ON THE PHASE 1 INPUT DRIVES 60 2
3388 * 60 2
3389 SWKLBA EQU 700 RT-WT H.L.AREA 60 2
3390 ORG 780 60 2
3391 DCW @}@ 60 2
3392 ORG 600 60 2
3359 BCE ENDE,URPI,C 60 2
3360 MLC URPI,URTAPE&3 60 2
3361 URTAPE WTM 1 TAPE MARK DUMP TAPE 60 2
3393 * 60 2
3394 PREPH1 MLC @99@,PREPC3 60 2
3395 H PREOTX BRANCH TO ACCEPT 60 2
3396 B PREST2 BRANCH TO RETRY 60 2
3397 * READ REDUNDANCY WHILE READING LABEL ON PASS 1 60 2
3398 * OUTPUT TAPES %SPECIFIED IN COL 1-3 CTL CD 1) 60 2
3399 * DEPRESS - START - TO ACCEPT THE LABEL AS READ 60 2
3400 * -BYPASS RETENTION CYCLE CHECK 60 2
3401 * DEPRESS - START RESET - THEN - START - 60 2
3402 * TO REREAD 99 MORE TIMES . TO OPEN A NEW TAPE 60 2
3403 * LOAD IT IN PLACE OF THE ONE IN ERROR AND 60 2
3404 * DEPRESS - START RESET - AND - START - 60 2
3405 * 60 2
3406 PREPH2 H PREST2 BRANCH TO OPEN A NEW TAPE 60 2
3407 MLC @10@,PREPC4 RESET ERROR COUNTER 60 2
3408 B PAREXT-5 BRANCH TO RETRY WRITE 60 2
3409 * 60 2
3410 * A WRITE REDUNDANCY HAS OCCURRED WHILE TRYING 60 2
3411 * TO WRITE THE HEADER LABEL ON THE PASS 1 OUTPUT 60 2
3412 * TAPE. 9 SKIP CYCLES HAVE BEEN MADE . 60 2
3413 * DEPRESS - START - TO OPEN NEW TAPE 60 2
3414 * DEPRESS START RESET THEN START TO RETRY 60 2
3415 * 60 2
3416 PREPH3 H PREOTX BRANCH TO ACCEPT 60 2
3417 B PREST2 BRANCH TO OPEN NEW REEL 60 2
3418 * 60 2
3419 * RETENTION CYCLE ON OUTPUT TAPE INDICATES 60 2
3420 * TAPE SHOULD BE RETAINED 60 2
3421 * DEPRESS - START- TO ACCEPT TAPE AS WORK TAPE 60 2
3422 * DEPRESS -START RESET- THEN -START- IF A NEW 60 2
3423 * TAPE HAS BEEN MOUNTED 60 2
3424 * 60 2
3425 PREPH4 H *-3 NO T/M AFTER H.L.-WITH 60 2
3426 * A 1 IN COL.5 CC3 60 2
3427 * RESTART PROG. 60 2
3428 * 60 2
3429 PREPH5 H PREIPX PRESS START TO BY PASS 60 2
3430 * UNREADABLE H.L.-INPUT 60 2
3431 B PREST2 PRESS RESET START AND START 60 2
3432 * TO TRY READING UP TO 99 MORE TIMES 60 2
3433 * 60 2
3434 DCW @ @ 60 2
3435 ORG 800 60 2
3436 PREPC1 DCW @B@ 2-WAY CONST 60 2
3437 PREPC2 DCW @B@ 2-WAY CONST 60 2
3438 PREST0 BCE *&15,I3TUN, IF 2 WAY 60 2
3439 MLC @C@,PREPC1 ALTER CONST.S FOR 3-WAY 60 2
3440 MLC @C@,PREPC2 60 2
3441 MLC &I1TUN,X1 ADDR OF PH2 OUTP TAPE NO.S 60 2
3442 EXDTAP NOP 0 DUMP TAPE H.L.EXIT 60 2
3443 BSS *&5,D 60 2
3444 B RWDINP 60 2
3445 CS 332 60 2
3446 CS 60 2
3447 MLC PRMSF,228 TAPE SAVE MESSAGE 60 2
3448 W 60 2
3449 CC 1 60 2
3450 H *&1 60 2
3451 RWDINP MLNS MI1TUN,*&4 REWIND PH2 INPUT TAPES 60 2
3452 RWD 0 60 2
3453 MLNS MI2TUN,*&4 60 2
3454 RWD 0 60 2
3455 BCE PREST1-16,MI3TUN, 60 2
3456 MLNS MI3TUN,*&4 60 2
3457 RWD 0 60 2
3458 BCE PRERDR,LABELS, NO LABELS BRANCH 60 2
3459 BCE RETNOP,LBBUCK,1 60 2
3460 PREST1 S &1,PREPC1 60 2
3461 BM PREIRT,PREPC1 INIT FOR PH2 INPUT TAPES 60 2
3462 MLNS 0&X1,PREST2&21 60 2
3463 MN 0&X1,PRERTI&3 60 2
3464 MN 0&X1,PREOTX&7 60 2
3465 MN 0&X1,PREOTX&12 60 2
3466 MN 0&X1,PREPSW-2 60 2
3467 MN 0&X1,PAREXT-2 60 2
3468 MN 0&X1,PREIPX&15 60 2
3469 MN 0&X1,PREOTX&33 60 2
3470 MN 0&X1,SAVM2 60 2
3471 MA @001@,X1 UP DATE FOR NEXT TAPE NO 60 2
3472 MLC @00@,CRYBU4 60 2
3473 PREST2 MLC @99@,PREPC3 60 2
3474 MLC @10@,PREPC4 60 2
3475 CS 779 60 2
3476 RWD 0 60 2
3477 BCE SORTWL,WLBKT, IF FIRST PASS-PH2 OUTP 60 2
3478 * TAPES HAVE SORT 7 60 2
3479 * H.LABELS-COL.4 CC.3 IS 60 2
3480 * A BLANK 60 2
3481 MLC CENSIG,SWKLBA&13 MOVE CENT SIGN FOR NOISE TEST 60 2
3482 MLC CENSIG,WLANOI&7 60 2
3483 PRERTI RTW 0,SWKLBA 60 2
3484 WLANOI BCE PRENOS,SWKLBA&13, CHECK FOR CENT SIGN 60 2
3485 BEF *&1 60 2
3486 BER PREPRT 60 2
3487 B PRERCT 60 2
3488 PREIPX NOP 0 PH2 INPUT H.L. EXIT 60 2
3489 BCE PREST1,THLTMO, IF NO T/M AFTER H.L. 60 2
3490 RT 0,SWKLBA READ T/M 60 2
3491 BEF PREST1 IF SENSED A T/M 60 2
3492 B PREPH4 T/M WAS NOT SENSED-ERROR 60 2
3493 PRENOS CS 730 60 2
3494 B PRERTI-14 60 2
3495 PRERCT BCE PRECT1,WLBKT,1 60 2
3496 B PREOTX 60 2
3497 DCW #2 60 2
3498 DCW #3 60 2
3499 CRTCY DCW #4 60 2
3500 PRECT1 ZA SWKLBA&39,CRTCY MOVE TAPE INFO TO CHECK BUCKET 60 2
3501 MLC 60 2
3502 MLC 60 2
3503 SW OHDATE-2 60 2
3504 CLW C OHDATE-3,CRTCY-7 COMPARE YEAR 60 2
3505 BU MODY 60 2
3506 A CRTCY-4,CRTCY ADD TAPE DAYS TO RT CYCLE 60 2
3507 S OHDATE,CRTCY SUB CONT DAYS FROM RT CYCLE 60 2
3508 CW OHDATE-2 60 2
3509 BWZ PREOTX,CRTCY,K CAN WE WRITE ON TAPE 60 2
3510 CS 332 NO-PRINT MESSAGE 60 2
3511 CS INDICATING DAYS TAPE 60 2
3512 MLC SAVMS,227 IS TO BE RETAINED 60 2
3513 MLNS CRTCY,222 60 2
3514 MLNS 60 2
3515 MLNS 60 2
3516 MLC SAVM1 60 2
3517 MLC SAVM2 60 2
3518 W 60 2
3519 CC 1 60 2
3520 B PREPH3 60 2
3521 MODY S TSF1,CRTCY SUBTRACT 365 FROM 60 2
3522 A RT CYCLE AND ADD 1 TO 60 2
3523 A TAPE YEARS 60 2
3524 A @1@,CRYBU4 60 2
3525 BCE HLCRY4,CRYBU4-1,3 60 2
3526 B CLW 60 2
3527 HLCRY4 H PREOTX 60 2
3528 MLC @00@,CRYBU4 60 2
3529 B CLW 60 2
3530 CRYBU4 DCW @ @ 60 2
3531 DCW @1@ 60 2
3532 DCW @0@ 60 2
3533 TSF1 DCW @365@ 60 2
3534 SAVM2 DCW @RETAIN TAPE @ 60 2
3535 SAVM1 DCW @ FOR @ 60 2
3536 SAVMS DCW @ DAYS@ 60 2
3537 PREOTX NOP 0 WT. H.L.EXIT FOR OUTPUT 60 2
3538 RWD 0 60 2
3539 WT 0,SWKLBA 60 2
3540 BER PREPWT 60 2
3541 BCE PREST1,THLTMO, IF T/M IS NOT TO BE WRITTEN 60 2
3542 WTM 0 60 2
3543 B PREST1 60 2
3544 PREIRT SBR PREST1&10,PRERDR 60 2
3545 SBR PREST1&13,PREPC2 60 2
3546 SBR PREST1&6,PREPC2 60 2
3547 MLC @N@,PRERTI-22 60 2
3548 MLC @N@,PREIPX-4 60 2
3549 SBR PREPRT&24,PREPH5 60 2
3550 MLC &MI1TUN,X1 60 2
3551 B PREST1 60 2
3552 DCW @ @ 60 2
3553 PRERDR CS 1599 60 2
3554 CS 1299 60 2
3555 CS 60 2
3556 CS 60 2
3557 CS 60 2
3558 CS 60 2
3559 CS 60 2
3560 CS 60 2
3561 BYLAPS R 60 2
3562 BCE RETNOP,68,B 60 2
3563 B BYLAPS 60 2
3564 RETNOP CS 80 60 2
3565 SW 24,56 60 2
3566 SW 63,67 60 2
3567 R 056 60 2
3568 DCW @ @ 60 2
3569 SORTWL MN PRERTI&3,SORTRP&10 TAPE # INTO TAPE SERIAL # 60 2
3570 MLC SORTLB,779 60 2
3571 B PREOTX 60 2
3572 SORTRP DCW @ @ 60 2
3573 DCW @1HDR 00000SORT7LABEL @ 60 2
3574 SORTLB DC #50 60 2
3575 PRMSF DCW @INPUT TAPES MAY BE SAVED@ 60 2
3576 * 60 2
3577 * HEADER LABEL ERROR ROUTINE 60 2
3578 * 60 2
3579 PREPRT SBR PAREXT&3,PRERTI-14 READ ENTRANCE 60 2
3580 MLC @B@,PREPSW 60 2
3581 S &1,PREPC3#2 60 2
3582 BM PREPH1,PREPC3 UNREADABLE BLK 60 2
3583 BSP 0 60 2
3584 PREPSW B PAREXT NOP IF WRITE 60 2
3585 BCE *&5,PREPC3,G IF TIME TO SKIP 60 2
3586 B PAREXT 60 2
3587 MLC @9@,PREPC3 60 2
3588 S &1,PREPC4#2 60 2
3589 BM PREPH2,PREPC4 BAD TAPE 60 2
3590 SKP 0 60 2
3591 PAREXT B 0 60 2
3592 PREPWT SBR PAREXT&3,PREOTX&9 60 2
3593 MLC @N@,PREPSW 60 2
3594 B PREPRT&14 60 2
3595 LTORG* 60 2
3596 EX PREST0 60 2
3597 JOB ** IBM 1401 SORT 7 VERSION 2 WORK LABEL ROUTINE 120 60 2
3598 * PROCESS HEADER LABELS ON ALL PHASE I WORK TAPES 60 2
3599 * PRIOR TO INITIALIZATION PASS 60 2
3600 * THIS ROUTINE INCLUDES THE SSW D HALT 60 2
3601 * OPTION WHICH ALLOWS THE USER TO MOUNT WORK 60 2
3602 * TAPES ON PHASE 1 INPUT DRIVES 60 2
3603 SWKLBB EQU 700 RT-WT HL AREA 60 2
3604 ORG 820 60 2
3605 DCW @}@ 60 2
3606 ORG 600 60 2
3607 PRAPH1 MLC @99@,PREPC3 60 2
3608 H PRAOTX BRANCH TO ACCEPT 60 2
3609 B PRAST2 BRANCH TO RETRY 60 2
3610 * 60 2
3611 * READ REDUNDANCY WHILE READING LABEL ON PASS 1 60 2
3612 * OUTPUT TAPES SPECIFIED IN COL 1-3 CTL CD 1 60 2
3613 * PRESS-START-TO ACCEPT THE LABEL AS READ 60 2
3614 * -BYPASS RETENTION CYCLE CHECK 60 2
3615 * PRESS START RESET-THEN START-TO REREAD 99 MORE 60 2
3616 * TIMES.TO OPEN A NEW TAPE LOAD IT IN PLACE OF THE 60 2
3617 * ONE IN ERROR AND PRESS START RESET AND START 60 2
3618 PRAPH2 H PRAST2 BRANCH TO OPEN A NEW TAPE 60 2
3619 MLC @10@,PRAPC4 RESET ERROR COUNTER 60 2
3620 B PARAXT-5 BRANCH TO RETRY WRITE 60 2
3621 * 60 2
3622 * A WRITE REDUNDANCY HAS OCCURRED WHILE TRYING 60 2
3623 * TO WRITE THE HEADER LABEL ON THE PASS 1 OUTPUT 60 2
3624 * TAPE. 9 SKIP CYCLES HAVE BEEN MADE.PRESS START TO 60 2
3625 * OPEN NEW TAPE PRESS START RESET & START TO RETRY 60 2
3626 PRAPH3 H PRAOTX BRANCH TO ACCEPT 60 2
3627 B PRAST2 BRANCH TO OPEN NEW REEL 60 2
3628 * 60 2
3629 * RETENTION CYCLE ON OUTPUT TAPE INDICATES TAPE SHOUL 60 2
3630 * BE RETAINED.PRESS START TO ACCEPT TAPE AS WORK TAPE 60 2
3631 * PRESS START RESET THEN START IF A NEW TAPE HAS BEEN 60 2
3632 * MOUNTED 60 2
3633 * 60 2
3634 PRAPH4 H *-3 NO TAPEMARK AFTER HEADER LABEL 60 2
3635 * WITH A -1- IN COLUMN 5 OF CC3 60 2
3636 * RESTART THE PROGRAM 60 2
3637 * 60 2
3638 PRAPH5 H PRAIPX PRESS START TO BYPASS 60 2
3639 * UNREADABLE HEADER LABEL-INPUT 60 2
3640 B PRAST2 PRESS START RESET AND START 60 2
3641 * TO TRY READING UP TO 99 MORE TIMES 60 2
3642 * 60 2
3643 DCW @ @ 60 2
3644 ORG 821 60 2
3645 PRAPC1 DCW @B@ TWO WAY CONST 60 2
3646 PRAPC2 DCW @B@ TWO WAY CONST 60 2
3647 PRASTO BCE *&15,I3TUN, BRANCH IF TWO WAY 60 2
3648 MLC @C@,PRAPC1 ALTER CONST.S FOR 3-WAY 60 2
3649 MLC @C@,PRAPC2 60 2
3650 MLC &I1TUN,X1 60 2
3651 EXETAP NOP 0 DUMP TAPE HEADER LABEL EXIT 60 2
3652 BSS *&5,D 60 2
3653 B RWDJNP 60 2
3654 CS 332 60 2
3655 CS 60 2
3656 MLC PRMSEF,228 TAPE SAVE MESSAGE 60 2
3657 W 60 2
3658 CC 1 60 2
3659 H *&1 60 2
3660 RWDJNP MLNS MI1TUN,*&4 60 2
3661 RWD 0 60 2
3662 MLNS MI2TUN,*&4 60 2
3663 RWD 0 60 2
3664 BCE PRAST1-8,MI3TUN, 60 2
3665 MLNS MI3TUN,*&4 60 2
3666 RWD 0 60 2
3667 BCE PRARDR,LABELS, NO LABELS BRANCH 60 2
3668 PRAST1 S &1,PRAPC1 60 2
3669 BM PRAIRT,PRAPC1 INIT FOR PH2 INPUT TAPES 60 2
3670 MLNS 0&X1,PRARTI-24 60 2
3671 MLNS 0&X1,PRARTI&3 60 2
3672 MLNS 0&X1,PRAOTX&7 60 2
3673 MLNS 0&X1,PRAOTX&12 60 2
3674 MLNS 0&X1,PRAPSW-2 60 2
3675 MLNS 0&X1,PARAXT-2 60 2
3676 MLNS 0&X1,PRAIPX&15 60 2
3677 MLNS 0&X1,PRAOTX&33 60 2
3678 MLNS 0&X1,SAVMB2 60 2
3679 MA @001@,X1 UPDATE FOR NEXT TAPE NO. 60 2
3680 MLC @00@,CRYBU3 60 2
3681 PRAST2 MLC @99@,PRAPC3 60 2
3682 MLC @10@,PRAPC4 60 2
3683 CS 819 60 2
3684 CS 60 2
3685 RWD 0 60 2
3686 BCE SRTWLB,WLBKT, IF FIRST PASS PH2 OUTPUT TAPES 60 2
3687 * HAVE SORT 7 120 CHARACTER HEADE 60 2
3688 * LABELS-COLUMN 4 CC3 IS BLANK 60 2
3689 MLC CENSIG,SWKLBB&13 60 2
3690 MLC CENSIG,WLBNOI&7 60 2
3691 PRARTI RTW 0,SWKLBB 60 2
3692 WLBNOI BCE PRANOS,SWKLBB&13, 60 2
3693 BEF *&1 60 2
3694 BER PRAPRT 60 2
3695 B PRARCT 60 2
3696 PRAIPX NOP 0 PHASE 2 INPUT HEADER LABEL EXIT 60 2
3697 BCE PRAST1,THLTMO, 60 2
3698 RT 0,SWKLBB READ TAPEMARK 60 2
3699 BEF PRAST1 BRANCH IF TAPEMARK IS SENSED 60 2
3700 B PRAPH4 NO TM SENSED - ERROR 60 2
3701 PRANOS CS 730 60 2
3702 B PRARTI-14 60 2
3703 PRARCT BCE PRACT1,WLBKT,1 60 2
3704 B PRAOTX 60 2
3705 DCW #4 60 2
3706 DCW #2 60 2
3707 CRTCYB DCW #3 60 2
3708 PRACT1 ZA SWKLBB&14,CRTCYB MOVE TAPE INFORMATION INTO 60 2
3709 MLC CHECK BUCKET 60 2
3710 MLC 60 2
3711 SW CREATD-2 60 2
3712 CLWOTW C CREATD-3,CRTCYB-3 COMPARE YEAR 60 2
3713 BU MODIFY 60 2
3714 S CREATD,CRTCYB-5 60 2
3715 CW CREATD-2 60 2
3716 BWZ PRAOTX,CRTCYB-5,K CAN WE WRITE ON TAPE 60 2
3717 CS 332 NO-PRINT MESSAGE INDICATING DAYS 60 2
3718 CS TAPE IS TO BE RETAINED 60 2
3719 MLC SAVMBS,227 60 2
3720 MLNS CRTCYB-5,222 60 2
3721 MLNS 60 2
3722 MLNS 60 2
3723 MLC SAVMB1 60 2
3724 MLC SAVMB2 60 2
3725 W 60 2
3726 CC 1 60 2
3727 B PRAPH3 60 2
3728 MODIFY S TESFB1,CRTCYB-5 SUBTRACT 365 FROM RETENTION CYCLE 60 2
3729 A TESFB1-3,CRTCYB-3 AND ADDD 1 TO TAPE YEARS 60 2
3730 A @1@,CRYBU3 60 2
3731 BCE HLCRY3,CRYBU3-1,3 60 2
3732 B CLWOTW 60 2
3733 HLCRY3 H PRAOTX 60 2
3734 MLC @00@,CRYBU3 60 2
3735 B CLWOTW 60 2
3736 CRYBU3 DCW @ @ 60 2
3737 DCW @1@ 60 2
3738 TESFB1 DCW @365@ 60 2
3739 SAVMB2 DCW @RETAIN TAPE @ 60 2
3740 SAVMB1 DCW @ FOR @ 60 2
3741 SAVMBS DCW @ DAYS@ 60 2
3742 PRAOTX NOP 0 WT HDR LBL EXIT FOR OUTPUT 60 2
3743 RWD 0 60 2
3744 WT 0,SWKLBB 60 2
3745 BER PRAPWT 60 2
3746 BCE PRAST1,THLTMO, BRANCH IF NO TM IS TO BE WRITTEN 60 2
3747 WTM 0 60 2
3748 B PRAST1 60 2
3749 PRAIRT SBR PRAST1&10,PRARDR 60 2
3750 SBR PRAST1&13,PRAPC2 60 2
3751 SBR PRAST1&6,PRAPC2 60 2
3752 MLC @N@,PRARTI-22 60 2
3753 MLC @N@,PRAIPX-4 60 2
3754 SBR PRAPRT&24,PRAPH5 60 2
3755 MLC &MI1TUN,X1 60 2
3756 B PRAST1 60 2
3757 DCW @ @ 60 2
3758 PRARDR CS 1599 60 2
3759 CS 1299 60 2
3760 CS 60 2
3761 CS 60 2
3762 CS 60 2
3763 CS 60 2
3764 CS 60 2
3765 CS 60 2
3766 CS 080 60 2
3767 SW 24,56 60 2
3768 SW 63,67 60 2
3769 R 56 60 2
3770 DCW @ @ 60 2
3771 SRTWLB MLNS PRARTI&3,SBRTRP 60 2
3772 MLC SBRTLB,819 60 2
3773 B PRAOTX 60 2
3774 DCW @1HDR SORT7LABEL @ 60 2
3775 SBRTRP DC @00000@ 60 2
3776 DC #45 60 2
3777 SBRTLB DC #40 60 2
3778 PRMSEF DCW @INPUT TAPES MAY BE SAVED@ 60 2
3779 * 60 2
3780 * HEADER LABEL ERROR ROUTINE 60 2
3781 * 60 2
3782 PRAPRT SBR PARAXT&3,PRARTI-14 READ ENTRANCE 60 2
3783 MLC @B@,PRAPSW 60 2
3784 S &1,PRAPC3#2 60 2
3785 BM PRAPH1,PRAPC3 UNREADABLE BLOCK 60 2
3786 BSP 0 60 2
3787 PRAPSW B PARAXT NOP IF WRITE 60 2
3788 BCE *&5,PRAPC3,G IS IT TIME TO SKIP 60 2
3789 B PARAXT 60 2
3790 MLC @9@,PRAPC3 60 2
3791 S &1,PRAPC4#2 60 2
3792 BM PRAPH2,PRAPC4 BAD TAPE 60 2
3793 SKP 0 60 2
3794 PARAXT B 0 60 2
3795 PRAPWT SBR PARAXT&3,PRAOTX&9 60 2
3796 MLC @N@,PRAPSW 60 2
3797 B PRAPRT&14 60 2
3798 LTORG* 60 2
3799 EX PRASTO 60 2
3800 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 2 ENTRY 60 2
3801 ORG 575 60 2
3802 TEST C BSS ENTMLT,C TEST SENSE SWITCH C 60 2
3803 CS 80 NOT ON LOAD BALANCED MERGE 60 2
3804 SW 24,56 60 2
3805 SW 63,67 60 2
3806 R 56 60 2
3807 ENTMLT R ON BYPASS BALANCED MERGE AND 60 2
3808 C 10,CONMLT LOAD MULTIPHASE MERGE 60 2
3809 BE 040 60 2
3810 B ENTMLT 60 2
3811 CONMLT DCW @MULTIPHASE@ 60 2
3812 EX TEST C 60 2
3813 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 2 60 2
3814 ORG STPH2 60 2
3815 REMTS MLC CSTCNS,CLPH1&3 CLEAR PHASE ONE 60 2
3816 CS 180 60 2
3817 CLPH1 CS 0 60 2
3818 SBR CLPH1&3 60 2
3819 C CLPH1&3,@699@ 60 2
3820 BU CLPH1 60 2
3821 CS 080 60 2
3822 SW 24,56 60 2
3823 SW 63,67 60 2
3824 R 056 60 2
3825 EX REMTS 60 2
3826 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 2 60 2
3827 ORG STPH2 60 2
3828 I1TUHA DCW @ @ 60 2
3829 I2TUHA @ @ 60 2
3830 I3TUHA @ @ 60 2
3831 O1TUHA @ @ 60 2
3832 O2TUHA @ @ 60 2
3833 O3TUHA @ @ 60 2
3834 CNMP @00@ 60 2
3835 NMPL @ @ 60 2
3836 CNTRA @ @ 60 2
3837 CNTRB @ @ 60 2
3838 STREND DCW @000@ END OF CURRENT INPUT BLOCK 60 2
3839 PTCHP2 DA 1X100,C 60 2
3840 NXTPS EQU GMSET 60 2
3841 GMSET LCA 0,0 SET GM FOR CHECK POINT 60 2
3842 RDCPT RTW 0,1 READ CHECKPOINT 60 2
3843 BER RREDCP-4 60 2
3844 BEF EOFCP 60 2
3845 B STPASS 60 2
3846 H STPASS 60 2
3847 RREDCP BSP 0 60 2
3848 B RDCPT 60 2
3849 LGMEOA LCA 0,0 SET GMKS IN I/O AREAS 60 2
3850 LCA 0,0 60 2
3851 LCA 0,0 60 2
3852 LCA 0,0 60 2
3853 READTP B READ1-14 60 2
3854 GO SBR READ1&15,EORA 60 2
3855 SBR READ2&15,EORB 60 2
3856 SBR READTP&2,2500 60 2
3857 SBR FSTRD1&2 60 2
3858 SBR FSTRD2&2 60 2
3859 SBR FSTRD3&2 60 2
3860 RUNOUT B SKIP1 RUNOUT SWITCH 60 2
3861 SKIP1 B COMPAB BYPASS SWITCH 60 2
3862 COMPAB C 0,0 COMPARE A&B 60 2
3863 BL SKIP2 B LT A 60 2
3864 BH SKIP3 A LT B 60 2
3865 B EQU 60 2
3866 SKIP2 B COMPBC BYPASS SWITCH 60 2
3867 COMPBC C 0,0 COMPARE B&C 60 2
3868 BL CLOW-7 60 2
3869 BH BLOW-7 60 2
3870 B EQU 60 2
3871 SKIP3 B COMPAC BYPASS SWITCH 60 2
3872 COMPAC C 0,0 COMPARE A&C 60 2
3873 BL CLOW-7 60 2
3874 BH ALOW-7 60 2
3875 B EQU 60 2
3876 NOP 0,L 60 2
3877 ALOW MZ *-6,MTOA&2 60 2
3878 MA L,MTOA&6 60 2
3879 NOP 0,0 REM ZONE IN VARY 60 2
3880 NOP 0&X1,BLKCT GENERATE BLK COUNT 60 2
3881 INCR1 MA L,IREG1 60 2
3882 B IMOVE 60 2
3883 B ISAMT 60 2
3884 NOP 0,L 60 2
3885 BLOW MZ WRITE,MTOA&2 60 2
3886 MA L,MTOA&6 60 2
3887 NOP 0,0 REM ZONE IN VARY 60 2
3888 NOP 0&X2,BLKCT GENERATE BLK COUNT 60 2
3889 INCR2 MA L,IREG2 60 2
3890 B IMOVE 60 2
3891 B ISBMT 60 2
3892 NOP 0,L 60 2
3893 CLOW MZ RUNOUT,MTOA&2 60 2
3894 MA L,MTOA&6 60 2
3895 NOP 0,0 REM ZONE IN VARY 60 2
3896 NOP 0&X3,BLKCT GENERATE BLK COUNT 60 2
3897 INCR3 MA L,IREG3 60 2
3898 B IMOVE 60 2
3899 B ISCMT 60 2
3900 IMOVE SBR RETURN#3 MOVE RECORD TO OUTPUT 60 2
3901 MTOA MLC 0,0 MOVE TO OUTPUT ROUTINE 60 2
3902 MLC 60 2
3903 MLC 60 2
3904 MLC 60 2
3905 MLC 60 2
3906 MLC 60 2
3907 MLC 60 2
3908 MLC 60 2
3909 MLC 60 2
3910 MLC 60 2
3911 LMV MLC 60 2
3912 NOP 60 2
3913 MZ *-6,SJA 60 2
3914 ADDTO NOP BLKCT,0 MOVE BLOCK COUNT TO OUTPUT AREA 60 2
3915 VARYCT NOP @1@,0 60 2
3916 MLC SDCMPV,LSTSD INCR STEPDOWN CHECK 60 2
3917 MA L,SDCMPV 60 2
3918 CKOUT C 0,ARELO 60 2
3919 BE WRITE 60 2
3920 VARYSD B RTRN1-7 60 2
3921 DC @ @ 60 2
3922 MLC RETURN,RTRN1&3 60 2
3923 RTRN1 B 0 60 2
3924 WRITE MLC AREFO,MTOA&6 RESET MOVE TO OUTPUT 60 2
3925 MLC SDCOMP,SDCMPV RESET SD COMPARE 60 2
3926 MZ BLANK,SJA 60 2
3927 NOP 0 SWITCH- WRITE TAPE 60 2
3928 KOWNT A B,0 60 2
3929 PDSW B WOBR-11 60 2
3930 BPADQ8 BCE WOBR-11,0,1 60 2
3931 AWAY C 0,PADCT#6 60 2
3932 BL RTRN2-7 60 2
3933 REPL BE RTRN2-7 60 2
3934 BPADQ7 MLC @N@,SPADQ6 60 2
3935 EXIT1 NOP 0 USERS EXIT 60 2
3936 MLC BLANK2,CNRR 60 2
3937 WOBR WT 0,0 WRITE OUTPUT BLOCK 60 2
3938 SBR RMVRGM&6 60 2
3939 BER WORED 60 2
3940 NOP @1@,TAPBLC#5 60 2
3941 SETBAK NOP @4@,0 RESET BLOCK COUNT 60 2
3942 RMVRGM NOP REKMKS,0 60 2
3943 BEF EOFW1 60 2
3944 MLC RETURN,RTRN2&3 60 2
3945 RTRN2 B 0 60 2
3946 ISAMT C IREG1,ENDRA1 ARE WE READY TO READ A 60 2
3947 BU RUNOUT 60 2
3948 OKRD1 MLC INPUT1,IREG1 60 2
3949 MLC BLANK2,CNRR 60 2
3950 MLC CENSIG,13&X1 60 2
3951 READ1 RT 0,0 READ NEXT A BLOCK 60 2
3952 SBR STREND 60 2
3953 BEF EOF1 60 2
3954 MZ *-6,SJA 60 2
3955 B NOISE 60 2
3956 B RIDGM1 60 2
3957 B CLRGMP 60 2
3958 BER RED 60 2
3959 EXIT2 NOP 0 USERS EXIT 60 2
3960 FSTRD1 B READ2-14 60 2
3961 * STEPDOWN TEST FOR TAPE A 60 2
3962 MLC LSTSD,STEPA&3 60 2
3963 STEPA C 0,0 TEST SD OF A 60 2
3964 BL EOSA STEPDOWN EXISTS 60 2
3965 BH RUNOUT NO STEPDOWN 60 2
3966 B EQU 60 2
3967 ISBMT C IREG2,ENDRA2 ARE WE READY TO READ B 60 2
3968 BU RUNOUT 60 2
3969 OKRD2 MLC INPUT2,IREG2 60 2
3970 MLC BLANK2,CNRR 60 2
3971 MLC CENSIG,13&X2 60 2
3972 READ2 RT 0,0 READ NEXT B BLOCK 60 2
3973 SBR STREND 60 2
3974 BEF EOF2 60 2
3975 MZ @N@,SJA 60 2
3976 B NOISE 60 2
3977 B RIDGM2 60 2
3978 B CLRGMP 60 2
3979 BER RED 60 2
3980 EXIT3 NOP 0 USERS EXIT 60 2
3981 FSTRD2 B READ3-14 60 2
3982 * STEPDOWN CHECK FOR TAPE B 60 2
3983 MLC LSTSD,STEPB&3 60 2
3984 STEPB C 0,0 TEST SD OF B 60 2
3985 BL EOSB STEPDOWN EXISTS 60 2
3986 BH RUNOUT NO STEPDOWN 60 2
3987 B EQU 60 2
3988 ISCMT C IREG3,ENDRA3 ARE WE READY TO READ C 60 2
3989 BU RUNOUT 60 2
3990 OKRD3 MLC INPUT3,IREG3 60 2
3991 MLC BLANK2,CNRR 60 2
3992 MLC CENSIG,13&X3 60 2
3993 READ3 RT 0,0 READ NEXT C BLOCK 60 2
3994 SBR STREND 60 2
3995 BEF EORC 60 2
3996 MZ COMPAB,SJA 60 2
3997 B NOISE 60 2
3998 B RIDGM3 60 2
3999 B CLRGMP 60 2
4000 BER RED 60 2
4001 EXIT4 NOP 0 USERS EXIT 60 2
4002 FSTRD3 B GO BR ON 1ST RD 60 2
4003 * STEPDOWN CHECK FOR TAPE C 60 2
4004 MLC LSTSD,STEPC&3 60 2
4005 STEPC C 0,0 TEST SD OF C 60 2
4006 BL EOSC STEPDOWN EXISTS 60 2
4007 BH RUNOUT NO STEPDOWN 60 2
4008 B EQU 60 2
4009 CLRGMP SBR RTN1&3 60 2
4010 MA I99,STREND 60 2
4011 MLC STREND,*&7 60 2
4012 MLC REKMKS-1,0 60 2
4013 RTN1 B 0 60 2
4014 NOISE SBR NSE&3 CHECK FOR NOISE RECORDS 60 2
4015 SBR NSERTN&3 60 2
4016 MZ SJA,NSE&5 60 2
4017 NSE BCE 0,13,} BRANCH FOR NOISE RECORD 60 2
4018 MA @004@,NSERTN&3 60 2
4019 NSERTN B 0 RETURN TO CLEAR GPMK 60 2
4020 RIDGM1 SBR RTREAD&3,READ1-7 INITIALIZE RETURN 60 2
4021 B RIDGM 60 2
4022 RIDGM2 SBR RTREAD&3,READ2-7 60 2
4023 B RIDGM 60 2
4024 RIDGM3 SBR RTREAD&3,READ3-7 60 2
4025 RIDGM MZ SJA,*&6 MOVE IN ZONE FOR INDEXING 60 2
4026 MN *,13 START CLEARING 13 POSITIONS 60 2
4027 MN 60 2
4028 MN 60 2
4029 MN 60 2
4030 MN 60 2
4031 MN 60 2
4032 MN 60 2
4033 MN 60 2
4034 MN 60 2
4035 MN 60 2
4036 MN 60 2
4037 MN 60 2
4038 MN 60 2
4039 RTREAD B 0 60 2
4040 EOSA A @1@,CNTRB END OF SEQ A 60 2
4041 B EOSTST 60 2
4042 EOSB A @2@,CNTRB END OF SEQ B 60 2
4043 B EOSTST 60 2
4044 EOSC A @4@,CNTRB END OF SEQ C 60 2
4045 EOSTST BCE GO,READTP,B 60 2
4046 BCE SDALL,CNTRB,7 TEST EOS ON ALL TAPES 60 2
4047 BCE SDAC,CNTRB,5 TEST EOS ON A&C 60 2
4048 BCE SDAB,CNTRB,3 TEST EOS ON A&B 60 2
4049 BCE SDBC,CNTRB,6 TEST EOS ON B&C 60 2
4050 BCE SDA,CNTRB,1 TEST EOS ON A ALONE 60 2
4051 BCE SDB,CNTRB,2 TEST EOS ON B ALONE 60 2
4052 BCE SDC,CNTRB,4 TEST EOS ON C ALONE 60 2
4053 B RUNOUT 60 2
4054 SDALL SBR RUNOUT&3,SKIP1 60 2
4055 MLC BLANK,CNTRB 60 2
4056 BCE SWOT,I3TUN, 60 2
4057 SBR COMPAB&10,SKIP2 60 2
4058 SBR COMPAB&15,SKIP3 60 2
4059 B SWOT 60 2
4060 SDAC BCE SDALL,CNTRA,2 STEPDOWN ON A&C 60 2
4061 SBR RUNOUT&3,BLOW-7 60 2
4062 B RUNOUT 60 2
4063 SDAB BCE SDALL,CNTRA,4 STEPDOWN ON A&B 60 2
4064 SBR RUNOUT&3,CLOW-7 60 2
4065 B RUNOUT 60 2
4066 SDBC BCE SDALL,CNTRA,1 STEPDOWN ON B&C 60 2
4067 SBR RUNOUT&3,ALOW-7 60 2
4068 B RUNOUT 60 2
4069 SDA BCE SDALL,CNTRA,6 STEPDOWN ON A 60 2
4070 BCE RNOUTB,CNTRA,4 60 2
4071 BCE RNOUTC,CNTRA,2 60 2
4072 SBR RUNOUT&3,SKIP2 60 2
4073 B RUNOUT 60 2
4074 SDB BCE SDALL,CNTRA,5 STEPDOWN ON B 60 2
4075 BCE RNOUTA,CNTRA,4 60 2
4076 BCE RNOUTC,CNTRA,1 60 2
4077 SBR RUNOUT&3,COMPAC 60 2
4078 B RUNOUT 60 2
4079 SDC BCE SDALL,CNTRA,3 STEPDOWN ON C 60 2
4080 BCE RNOUTA,CNTRA,2 60 2
4081 BCE RNOUTB,CNTRA,1 60 2
4082 SBR COMPAB&15,ALOW-7 60 2
4083 SBR COMPAB&10,BLOW-7 60 2
4084 B RUNOUT 60 2
4085 RNOUTB SBR RUNOUT&3,BLOW-7 60 2
4086 B RUNOUT 60 2
4087 RNOUTA SBR RUNOUT&3,ALOW-7 60 2
4088 B RUNOUT 60 2
4089 RNOUTC SBR RUNOUT&3,CLOW-7 60 2
4090 B RUNOUT 60 2
4091 EORA A @1@,CNTRA END OF FILE A 60 2
4092 B EOFTST 60 2
4093 EORB A @2@,CNTRA END OF FILE B 60 2
4094 B EOFTST 60 2
4095 EORC A @4@,CNTRA END OF FILE C 60 2
4096 EOFTST BCE EOFBC,CNTRA,6 TEST EOF ON B&C 60 2
4097 BCE EOFAC,CNTRA,5 TEST EOF ON A&C 60 2
4098 BCE EOFC,CNTRA,4 TEST EOF ON C 60 2
4099 BCE EOFAB,CNTRA,3 TEST EOF ON A&B 60 2
4100 BCE EOFB,CNTRA,2 TEST EOF ON B 60 2
4101 BCE EOFA,CNTRA,1 TEST EOF ON A 60 2
4102 ENDPAS NOP QTRL,SJA,2 EOF ON ALL 60 2
4103 NOP LASTWT 60 2
4104 QTRL NOP LPTRS1 60 2
4105 OUTTM WTM 0 60 2
4106 WTM 0 60 2
4107 REWIND RWD 0 60 2
4108 RWD 0 60 2
4109 RWD 0 60 2
4110 RWD 0 60 2
4111 BCE *&16,I3TUN, 60 2
4112 THDTP WTM 0 60 2
4113 RWD 0 60 2
4114 RWD 0 60 2
4115 SBR CLINP2&3,HDTRS0&4 ENTER FROM MAIN LINE 60 2
4116 B *&8 60 2
4117 SBR CLINP2&3,INWM12-15 60 2
4118 CLSTX1 SW 4300 60 2
4119 CS 0 60 2
4120 SBR CLSTX1&7 60 2
4121 BWZ CLSTX1&4,4300,1 60 2
4122 MLC CSTCNS,CLSTX1&7 60 2
4123 CLINP2 B 0 60 2
4124 LASTWT SBR RETURN,QTRL 60 2
4125 B SETGM 60 2
4126 LSTOUT A @1@,CNTBO1 60 2
4127 C CNTBO1,BO 60 2
4128 BU RTRN1-7 60 2
4129 MLC BLANK2,CNTBO1 60 2
4130 MLC 60 2
4131 SETGM SW GPMK&4 60 2
4132 MLC MTOA&6,GPMK&6 60 2
4133 CW GPMK&4 60 2
4134 MA @001@,GPMK&6 60 2
4135 GPMK LCA 7998,0 LOAD GROUPMARK AT END OF OUTPUT 60 2
4136 B WRITE 60 2
4137 EOFBC SBR SKIP1&3,ALOW-7 60 2
4138 B EOSTST 60 2
4139 EOFAC SBR SKIP1&3,BLOW-7 60 2
4140 B EOSTST 60 2
4141 EOFC SBR SKIP3&3,ALOW-7 60 2
4142 SBR SKIP2&3,BLOW-7 60 2
4143 B EOSTST 60 2
4144 EOFAB SBR SKIP1&3,CLOW-7 60 2
4145 B EOSTST 60 2
4146 EOFB SBR SKIP1&3,SKIP3 60 2
4147 SBR SKIP2&3,CLOW-7 60 2
4148 B EOSTST 60 2
4149 EOFA SBR SKIP1&3,SKIP2 END OF FILE ON A 60 2
4150 B EOSTST 60 2
4151 * SWITCH OUTPUT TAPES 60 2
4152 SWOT MLC O2TUHA,SLOT1#1 60 2
4153 CNTSW A @1@,0 INCREMENT COUNTER 60 2
4154 NOP RUNOUT 60 2
4155 NOSW NOP @B@,CNTSW&7 60 2
4156 C SWOT&3,&O3TUHA READY TO CYCLE 60 2
4157 BU SETNOS NO 60 2
4158 SBR SWOT&3,O1TUHA REINITIALIZE FOR FIRST TAPE 60 2
4159 B MNO 60 2
4160 SETNOS MA @001@,SWOT&3 UPDATE WRITE ROUTINES FOR 60 2
4161 MNO MLC SLOT1,WOBR&3 NEXT OUTPUT TAPE UNIT 60 2
4162 MLC SLOT1,WORED&3 60 2
4163 MLC SLOT1,ERTAPE&3 60 2
4164 EOFRTN NOP FRAN 60 2
4165 B RUNOUT 60 2
4166 FRAN MLC @M@,NOSW 60 2
4167 MLC @N@,EOFRTN 60 2
4168 B RTRN2-7 60 2
4169 * REDUNDANCY SUB-ROUTINE 60 2
4170 RED SBR RETN&3 STORE RETURN TO MAINLINE 60 2
4171 SBR TUNOS&3 60 2
4172 SBR SOMORE&3 60 2
4173 MA @I5B@,RETN&3 60 2
4174 MA @I6B@,TUNOS&3 60 2
4175 BAV *&1 60 2
4176 A @1@,CNRR 60 2
4177 BAV BBP2 DUMP TAPE RCD IF 100 TRIAL READS 60 2
4178 TUNOS MN 0,BACKSP&3 60 2
4179 BACKSP BSP 0 BACKSPACE TAPE 60 2
4180 RETN B 0 RETURN TO REREAD RECORD 60 2
4181 EOF2 A @2@,CNTRA EOF ON SECOND INPUT TAPE 60 2
4182 B READ3-14 60 2
4183 EOF1 H *-3 EOF ON FIRST INPUT TAPE 60 2
4184 EOFW1 BCE LPTRS1,QTRL,B END OF REEL ON WRITE 60 2
4185 MLC @B@,EOFRTN 60 2
4186 B SWOT 60 2
4187 CNRR DCW @00@ 60 2
4188 BLANK DCW @ @ 60 2
4189 BLANK2 DCW @00@ 60 2
4190 * WRITE REDUNDANCY ROUTINE 60 2
4191 WORED BSP 0 BACKSPACE TAPE 60 2
4192 BCE ERASE,CNRR,1 SECOND TRY 60 2
4193 A @1@,CNRR 60 2
4194 B WOBR BRANCH TO WRITE SECOND TIME 60 2
4195 ERASE A @1@,CNEOR INCREMENT COUNTER 60 2
4196 BCE HWRED,CNEOR-1,1 TWENTY TRIES ON THIS TAPE 60 2
4197 ERTAPE SKP 0 NO-ERASE FORWARD 60 2
4198 B WOBR-7 BRANCH TO WRITE 60 2
4199 *** USER MAY LOAD ANOTHER TAPE OR PRESS START 60 2
4200 *** TO TRY WRITING 20 MORE TIMES 60 2
4201 HWRED H 60 2
4202 MLC BLANK2,CNEOR BLANK COUNTER 60 2
4203 B ERTAPE 60 2
4204 CNEOR DCW @ @ 60 2
4205 ARELBO DCW @ @ 60 2
4206 AGMEOA DCW #3 60 2
4207 AGMEBO DCW @ @ 60 2
4208 AO2THA DSA O2TUHA 60 2
4209 I99 DSA 16000-1 60 2
4210 AOWA DSA 3900 60 2
4211 NOZNE DCW @ @ 60 2
4212 AIRA1 DCW @ @ 60 2
4213 AIRA2 DCW @ @ 60 2
4214 AIRA3 DCW @ @ 60 2
4215 INPUT1 DCW @ @ 60 2
4216 INPUT2 DCW @ @ 60 2
4217 INPUT3 DCW @ @ 60 2
4218 ENDRA1 DCW @ @ 60 2
4219 ENDRA2 @ @ 60 2
4220 ENDRA3 @ @ 60 2
4221 ARELO @ @ 60 2
4222 COMP11 @ @ 60 2
4223 COMP12 @ @ 60 2
4224 COMP13 @ @ 60 2
4225 ACNT DCW @ @ 60 2
4226 ACTNR @ @ 60 2
4227 SDCOMP @ @ 60 2
4228 SDCMPV @ @ 60 2
4229 LSTSD @ @ 60 2
4230 BOL DCW @ @ 60 2
4231 AREFO @ @ 60 2
4232 VARY EQU FLR 60 2
4233 REKMKS DCW @||@ 60 2
4234 SJA DCW @ @ 60 2
4235 CLEPS @ @ 60 2
4236 N99P2 DCW @99@ 60 2
4237 TWOBL DCW @ @ 60 2
4238 BLKCT DCW @0000@ 60 2
4239 SET1MV DCW @ @ 60 2
4240 REMOVE DCW @ @ 60 2
4241 TRIHLD DCW @ @ 60 2
4242 CNTBO1 DCW @ @ 60 2
4243 *** EQUAL ROUTINE 60 2
4244 EQU SBR EQHLD#3 60 2
4245 MLC IREG1,HOLDX1#3 SAVE INDEX REGISTER ONE 60 2
4246 MLC EQHLD,IREG1 60 2
4247 MA @I8E@,IREG1 60 2
4248 MLC 10&X1,CMNCF&16 INITIALIZE THE EQUAL ROUTINE 60 2
4249 MLC 60 2
4250 MLC 60 2
4251 MLC 9&X1,NEXTCF&17 60 2
4252 MLC HOLDX1,IREG1 60 2
4253 MLC BLANK2,CNCF2#2 60 2
4254 SBR ICFL&3,IF1F2 60 2
4255 SBR ICFL2&3 60 2
4256 NEXTCF A @1@,CNCF2 60 2
4257 C CNCF2,NCF LAST CONTROL FIELD 60 2
4258 BE 0 EXIT 60 2
4259 ICFL MA 0,CMNCF&3 UPDATE COMPARE FOR NEXT 60 2
4260 ICFL2 MA 0,CMNCF&6 CONTROL FIELD 60 2
4261 CMNCF C 0,0 COMPARE 60 2
4262 BL 0 LOW 60 2
4263 BH 0 HIGH 60 2
4264 MA @003@,ICFL&3 GET NEXT CONTROL FIELD 60 2
4265 MA @003@,ICFL2&3 60 2
4266 B NEXTCF 60 2
4267 LTORG* 60 2
4268 SAVE ORG * 60 2
4269 * 60 2
4270 ORG *&154 60 2
4271 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 2 60 2
4272 * TAPES ARE REFERRED TO AS OUTPUT OR INPUT DEPENDING 60 2
4273 * UPON WHETHER THEY ARE OUTPUT OR INPUT REELS 60 2
4274 * TO THE NEXT PASS-WE OPEN OUTPUT TAPES FIRST 60 2
4275 * 60 2
4276 HTHAL1 MLC @99@,HDTRC3 60 2
4277 H HTEXWT-7 PRESS START TO ACCEPT LABELS AS 60 2
4278 * READ. THE REDUNDANT RECORD WILL 60 2
4279 * BE WRITTEN AS THE HL-OUTPUT TAPE 60 2
4280 * PRESS START/RESET AND START 60 2
4281 B HTPRSW-5 TO RETRY UP TO 99 TIMES 60 2
4282 * 60 2
4283 HTHAL2 H PRESS START TO TRY TO 60 2
4284 MLC @9@,HDTRC4 WRITE H.L. AGAIN-UP TO 60 2
4285 B HTEXWT&9 9 SKIPS. 60 2
4286 * 60 2
4287 HTHAL3 H HTEXRT PRESS START TO ACCEPT 60 2
4288 * H.L.AS READ 60 2
4289 MLC @99@,HDTRC3 PRESS RESET START AND START 60 2
4290 B HTPRSW-5 TO RETRY UP TO 99 TIMES 60 2
4291 * 60 2
4292 HTHAL4 H *-3 NO T/M AFTER H.L.-THERE IS A 60 2
4293 * 1 IN COL.5 CC3. RESTART PROG 60 2
4294 * 60 2
4295 HDTRC1 DCW @C@ B FOR 2-WAY 60 2
4296 HDTRC2 DCW @C@ B FOR 2-WAY 60 2
4297 HDTRC8 DCW @C@ 60 2
4298 DCW #1 60 2
4299 HDTRS0 SBR HDTREX&3 60 2
4300 CS 181 60 2
4301 MLC GPMARK,*&4 60 2
4302 MLCWA0,181 SET GM/WM 60 2
4303 MLC HDTRC6,IREG1 ADDR TAPE # BUCKET-OUTPUT 60 2
4304 HDTRS1 S &1,HDTRC1 60 2
4305 BM HDTRRI,HDTRC1 60 2
4306 MLNS 0&X1,HDTRS2&26 60 2
4307 MLNS 0&X1,HDTRS2&21 60 2
4308 MN 0&X1,HTEXWT&7 60 2
4309 MN 0&X1,HTEXWT&12 60 2
4310 MN 0&X1,HTPRSW-2 60 2
4311 MN 0&X1,HTPEX-10 60 2
4312 MN 0&X1,HTEXRT&15 60 2
4313 MN 0&X1,HTNOSR-6 60 2
4314 MA @001@,IREG1 60 2
4315 HDTRS2 MLC @99@,HDTRC3#2 INIT PARITY RD BUCKET 60 2
4316 CS 180 60 2
4317 MLC CENSIG,113 60 2
4318 RWD 0 60 2
4319 RT 0,101 READ HEADER LABEL 60 2
4320 NSYHDR BCE HTNOSR,113, 60 2
4321 BEF *&1 60 2
4322 BER HDTRPR IF PARITY ERROR 60 2
4323 B HTEXWT-7 NOP FOR INPUT 60 2
4324 HTEXRT NOP 0 CUSTOMER EXIT-ACCESS 60 2
4325 * TO H.L. OF INPUT TAPE 60 2
4326 BCE HDTRS1,THLTMO, IF NO T/M AFTER HEADER 60 2
4327 RT 0,101 60 2
4328 BEF HDTRS1 60 2
4329 B HTHAL4 60 2
4330 MLC @9@,HDTRC4#1 60 2
4331 HTEXWT NOP 0 CUSTOMER EXIT-ACCESS TO 60 2
4332 * H.L.OF OUTPUT TAPE 60 2
4333 BSP 0 60 2
4334 WT 0,101 WRITE HEADER LABEL 60 2
4335 BER HDTRPW 60 2
4336 BCE HDTRS1,THLTMO, IF T/M IS NOT TO BE WRITTEN 60 2
4337 WTM 0 60 2
4338 B HDTRS1 60 2
4339 HTNOSR CS 120 NOISE RECORD CLEAR 60 2
4340 B HDTRS2&16 60 2
4341 HDTRPW SBR HTPEX&3,HTEXWT&9 RETURN TO WRITE INST 60 2
4342 MLC @N@,HTPRSW BYPASS SKIP ROUTINE 60 2
4343 B *&15 60 2
4344 HDTRPR SBR HTPEX&3,HDTRS2&16 RETURN TO READ INST 60 2
4345 MLC @B@,HTPRSW ACTIVATE SKIP ROUTINE 60 2
4346 S &1,HDTRC3 60 2
4347 BM HTHAL1,HDTRC3 60 2
4348 BSP 0 60 2
4349 HTPRSW B HTPEX BR IF READ I/O 60 2
4350 BCE *&5,HDTRC3,G 60 2
4351 B HTPEX 60 2
4352 MLC @9@,HDTRC3 60 2
4353 S &1,HDTRC4 60 2
4354 SKP 0 60 2
4355 BM HTHAL2,HDTRC4 60 2
4356 HTPEX B 0 EX PARITY ERROR ROUTINE 60 2
4357 HDTRRI SBR HDTRS1&6,HDTRC2 INIT ROUT.TO PROC.INPUT 60 2
4358 SBR HDTRS1&13,HDTRC2 60 2
4359 SBR HDTRS1&10,HDTREX-8 60 2
4360 SBR HTPRSW-10,HTHAL3 60 2
4361 MLC @N@,HTEXRT-4 60 2
4362 MLC HDTRC7,IREG1 ADDR TAPE # BUCKET-INPUT 60 2
4363 B HDTRS1 60 2
4364 CS 080 60 2
4365 CS 181 CLEAR GM/WM 60 2
4366 HDTREX B NXTPS GENERAL EXIT 60 2
4367 HDTRC6 DSA I1TUHA 60 2
4368 HDTRC7 DSA O1TUHA 60 2
4369 LTORG* 60 2
4370 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 2 60 2
4371 ORG 087 60 2
4372 IREG1 DCW 000 60 2
4373 ORG 092 60 2
4374 IREG2 DCW 000 60 2
4375 ORG 097 60 2
4376 IREG3 DCW 000 60 2
4377 ORG 4200 60 2
4378 LAYCHK BCE PLEPAS,LBBUCK,1 60 2
4379 MLC CENSIG,NSYHDR&7 60 2
4380 B SKIPPS 60 2
4381 PLEPAS CS 80 LOAD 120 CHARACTER LABEL ROUTINE 60 2
4382 SW 24,56 60 2
4383 SW 63,67 60 2
4384 R 56 60 2
4385 SKIPPS R 60 2
4386 BCE OVLAP1,68,B 60 2
4387 B SKIPPS 60 2
4388 OVLAP1 BCE STRTN,VARY, BRANCH IF FIXED LENGTH RECORDS 60 2
4389 MLC @L@,MTOA INITIALIZATION OF MOVE ROUTINE 60 2
4390 MLC @L@,SBR-6 FOR VARIABLE LENGTH RECORDS 60 2
4391 MODMV MLC @L@,LMV 60 2
4392 BCE *&8,KRUNCH, 60 2
4393 MLC @L@,LMV&1 60 2
4394 BCE STRTN,CTMV-1,1 60 2
4395 A @1@,CTMV#2 60 2
4396 MA I99,MODMV&6 60 2
4397 B MODMV 60 2
4398 STRTN MLC &RETURN,ARTRN 60 2
4399 MLC @H@ 60 2
4400 MLC &MTOA,IREG1 60 2
4401 MLC NCF,NCFHLD#2 60 2
4402 MLC GPMARK,*&4 60 2
4403 LCA 0,ITLI LOAD GROUPMARK IN ITLI 60 2
4404 MLC @N@,AWAY&12 60 2
4405 SBR AOWA,3900 60 2
4406 SBR SETBAK&6 60 2
4407 SBR ADDTO&6 60 2
4408 MA I99,SETBAK&6 60 2
4409 MA I99,ADDTO&6 60 2
4410 BCE MAOWA,LABELS,1 60 2
4411 SBR AOWA,3200 INITIALIZE FOR NO LABELS 60 2
4412 SBR SETBAK&6 60 2
4413 SBR ADDTO&6 60 2
4414 MA I99,SETBAK&6 60 2
4415 MA I99,ADDTO&6 60 2
4416 MAOWA MLC AOWA,AIRA1 60 2
4417 MA BL,AIRA1 I/O AREA 60 2
4418 MLC AIRA1,AGMEOA 60 2
4419 MA @002@,AIRA1 60 2
4420 MLC AIRA1,AIRA2 60 2
4421 MA BL,AIRA2 60 2
4422 MLC AIRA2,LGMEOA&13 60 2
4423 MA @002@,AIRA2 60 2
4424 MLC AIRA2,AIRA3 60 2
4425 MA BL,AIRA3 60 2
4426 MLC AIRA3,LGMEOA&20 60 2
4427 BCE ONLY2,I3TUN, 60 2
4428 MA @002@,AIRA3 60 2
4429 MLC AIRA3,AIRA4#3 60 2
4430 MA BL,AIRA4 60 2
4431 MLC AIRA4,LGMEOA&27 60 2
4432 MLC AIRA3,READ3&6 60 2
4433 MLC AIRA3,INPUT3 60 2
4434 MA I99,INPUT3 60 2
4435 ONLY2 MLC AIRA1,READ1&6 60 2
4436 MLC AIRA2,READ2&6 60 2
4437 MLC AOWA,WOBR&6 60 2
4438 MLC AOWA,AREFO INIT MOVE TO OUTPUT 60 2
4439 MA I99,AREFO 60 2
4440 MLC AIRA1,INPUT1 60 2
4441 MA I99,INPUT1 60 2
4442 MLC AIRA2,INPUT2 60 2
4443 MA I99,INPUT2 60 2
4444 MLC GPMARK,GPMK&3 INIT INSTRUCTIONS TO LOAD 60 2
4445 MLC GPMARK,GMSET&3 GROUPMARKS AT THE END OF I/O 60 2
4446 MLC GPMARK,LGMEOA&3 60 2
4447 MLC GPMARK,LGMEOA&10 60 2
4448 MLC GPMARK,LGMEOA&17 60 2
4449 MLC GPMARK,LGMEOA&24 60 2
4450 MZ *-6,INCR1-5 60 2
4451 MZ MSBR,INCR2-5 60 2
4452 MZ CMTOA,INCR3-5 60 2
4453 MLC CENSIG,NSE&7 60 2
4454 CMTOA C NCFHLD,@10@ INITIALIZE MTOA ROUTINE ACCORDING 60 2
4455 BE MSBR TO NUMBER OF CONTROL FIELDS 60 2
4456 MA @001@,IREG1 60 2
4457 A @1@,NCFHLD 60 2
4458 B CMTOA 60 2
4459 MSBR LCA SBR,6&X1 60 2
4460 LCA 60 2
4461 MLC IREG1,SET1MV 60 2
4462 MA @006@,SET1MV 60 2
4463 MLC SET1MV,WRITE&6 60 2
4464 MLC SET1MV,ALOW&13 60 2
4465 MLC SET1MV,BLOW&13 60 2
4466 MLC SET1MV,CLOW&13 60 2
4467 MLC SET1MV,CKOUT&3 60 2
4468 MLC SET1MV,SETGM&7 60 2
4469 MLC IREG1,IREG2 60 2
4470 MA @I9F@,IREG2 60 2
4471 MLC IREG2,INCR1&10 60 2
4472 MLC IREG2,INCR2&10 60 2
4473 MLC IREG2,INCR3&10 60 2
4474 MLC IREG1,IREG3 60 2
4475 MA @002@,IREG3 60 2
4476 MLC IREG3,ALOW&6 60 2
4477 MLC IREG3,BLOW&6 60 2
4478 MLC IREG3,CLOW&6 60 2
4479 MLC @I9W@,IREG1 60 2
4480 BCE LD12K,MS,5 60 2
4481 BCE LD16K,MS,6 60 2
4482 LDCST LCA CNOS1,0&X1 MOVE COUNTERS INTO UPPER CORE 60 2
4483 LCA 60 2
4484 LCA 60 2
4485 MLC IREG1,ACNT 60 2
4486 MLC ACNT,CNTSW&6 60 2
4487 MA @I9D@,IREG1 60 2
4488 MLC IREG1,ACTNR 60 2
4489 MLC ACTNR,KOWNT&6 60 2
4490 MLC ACTNR,AWAY&3 60 2
4491 MA @I9D@,IREG1 60 2
4492 MA @I9D@,IREG1 60 2
4493 MLC IREG1,CLEPS 60 2
4494 MLC IREG1,GMSET&6 60 2
4495 TSTVRY BCE RDCRD,VARY, 60 2
4496 MA RCDIST,INCR1-4 INIT MAINLINE FOR VARIABLE 60 2
4497 MA RCDIST,INCR2-4 LENGTH RECORDS 60 2
4498 MA RCDIST,INCR3-4 60 2
4499 MLC RCDIST,ALOW-4 60 2
4500 SBR SDAC-1,BPADQ8&1 60 2
4501 SBR SDALL&17 60 2
4502 MLC @L@,RMVRGM 60 2
4503 MLC RCDIST,BLOW-4 60 2
4504 MLC RCDIST,CLOW-4 60 2
4505 MZ *-6,ALOW-5 60 2
4506 MZ @L@,BLOW-5 60 2
4507 MZ TSTVRY,CLOW-5 60 2
4508 MLC @M@,ALOW-7 60 2
4509 MLC @M@,BLOW-7 60 2
4510 MLC @M@,CLOW-7 60 2
4511 MLC ACTNR,VARYCT&6 60 2
4512 C L-2,@0@ 60 2
4513 BH *&5 60 2
4514 SW BLKCT-2 60 2
4515 MOADD MLC @L@,WOBR 60 2
4516 MLC @L@,READ1 60 2
4517 MLC @L@,READ2 60 2
4518 MLC @L@,READ3 60 2
4519 MLC @N@,LGMEOA 60 2
4520 MLC @N@,KOWNT 60 2
4521 MLC @A@,VARYCT 60 2
4522 MLC @V@,ENDPAS 60 2
4523 MLC @B@,ENDPAS&8 60 2
4524 MZ *-6,CONST1-3 60 2
4525 MZ @L@,CONST2-3 60 2
4526 MZ TSTVRY,CONST3-3 60 2
4527 MLC REKMKS,TWOBL 60 2
4528 LCA CONST1&3,ISAMT&11 60 2
4529 LCA 60 2
4530 LCA CONST2&3,ISBMT&11 60 2
4531 LCA 60 2
4532 LCA CONST3&3,ISCMT&11 60 2
4533 LCA 60 2
4534 MLC SET1MV,VRBSD&3 60 2
4535 LCA FAKE&7,VARYSD&9 INIT FOR CHECK IF OUTPUT 60 2
4536 LCA IS FULL 60 2
4537 LCA 60 2
4538 MLC SET1MV,WTNOW&3 60 2
4539 LCA LOU&4,REPL&4 INIT TAPE SWITCHING TO FORCE 60 2
4540 LCA WRITE ON LAST BLOCK IN SEQ. 60 2
4541 LCA 60 2
4542 LCA 60 2
4543 LCA 60 2
4544 MLC @N@,PDSW 60 2
4545 RDCRD CS 080 60 2
4546 SW 24,56 60 2
4547 SW 63,67 60 2
4548 CHOOSE BCE SETURQ,URPI,P DECIDE WHICH BAD BLOCK 60 2
4549 BCE SETURP,URPI,C PROCEDURE TO LOAD 60 2
4550 MLC @T@,IDENT&7 60 2
4551 MLC @N@,RED&8 60 2
4552 B IDENT-1 60 2
4553 SETURQ MLC @N@,RED&8 60 2
4554 SETURP MLC URPI,IDENT&7 60 2
4555 R LOAD BAD BLOCK PROCEDURE 60 2
4556 IDENT BCE 056,079, 60 2
4557 R IDENT 60 2
4558 RANOUT CS 080 60 2
4559 SW 24,56 60 2
4560 SW 63,67 60 2
4561 R FORGET 60 2
4562 FORGET BCE 056,079, 60 2
4563 R FORGET 60 2
4564 LD12K MA @00|@,IREG1 60 2
4565 B LDCST 60 2
4566 LD16K MA @00!@,IREG1 INITIALIZE FOR 16K 60 2
4567 B LDCST 60 2
4568 VRBSD MLC 0,TRIHLD CHECK TO SEE IF OUTPUT IS FULL 60 2
4569 MA COMET,TRIHLD 60 2
4570 FAKE BWZ SETGM,TRIHLD,2 60 2
4571 B WOBR-11 60 2
4572 WTNOW C 0,AREFO FORCE LAST BLOCK PER SEQUENCE 60 2
4573 BE SWOT 60 2
4574 SBR RETURN,SWOT 60 2
4575 LOU BIN SETGM, 60 2
4576 ARTRN DCW @ @ 60 2
4577 SBR DCW @M000000@ MOVE TO OUTPUT CONSTANT 60 2
4578 BCE OKRD1,1,| 60 2
4579 CONST1 B RUNOUT 60 2
4580 BCE OKRD2,1,| 60 2
4581 CONST2 B RUNOUT 60 2
4582 BCE OKRD3,1,| 60 2
4583 CONST3 B RUNOUT 60 2
4584 ARNOUT DSA RUNOUT 60 2
4585 NG1 DCW @ @ 60 2
4586 NG2 DCW @ @ 60 2
4587 NG3 DCW @ @ 60 2
4588 EX LAYCHK 60 2
4589 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 2 60 2
4590 ORG HTHAL1 60 2
4591 HTHEL1 MLC @99@,HDTSC3 60 2
4592 H HTAXWT-7 PRESS START TO ACCEPT LABELS AS 60 2
4593 * READ.THE REDUNDANT RECORD WILL B 60 2
4594 * WRITTEN AS THE HL-OUTPUT TAPE 60 2
4595 * PRESS START/RESET AND START TO 60 2
4596 B HTPSSW-5 RETRY UP TO 99 TIMES 60 2
4597 HTHEL2 H PRESS START TO RETRY TO WRITE HL 60 2
4598 MLC @9@,HDTSC4 UP TO 9 SKIPS 60 2
4599 B HTAXWT&9 60 2
4600 HTHEL3 H HTAXRT PRESS START TO ACCEPT HL AS READ 60 2
4601 MLC @99@,HDTSC3 PRESS START RESET AND START TO 60 2
4602 B HTPSSW-5 RETRY UP TO 99 TIMES 60 2
4603 HTHEL4 H *-3 NO TAPEMARK AFTER HEADER LABEL 60 2
4604 * THERE IS A 1 IN COL.5 CC3-RESTAR 60 2
4605 HDTSC1 DCW @C@ B FOR 2-WAY 60 2
4606 HDTSC2 DCW @C@ B FOR 2-WAY 60 2
4607 HDTSC8 DCW @C@ 60 2
4608 DCW #1 60 2
4609 HDTSS0 SBR HDTREX&3 60 2
4610 CS 320 60 2
4611 MLC GPMARK,*&4 60 2
4612 MLCWA0,321 60 2
4613 MLC HDTSC6,IREG1 ADDR TAPE # BUCKET OUTPUT 60 2
4614 HDTSS1 S &1,HDTSC1 60 2
4615 BM HDTSR1,HDTSC1 60 2
4616 MLNS 0&X1,HDTSS2&15 INITIALIZE I/O INSTRUCTIONS 60 2
4617 MLNS 0&X1,HDTSS2&34 60 2
4618 MLNS 0&X1,HTAXWT&7 60 2
4619 MLNS 0&X1,HTAXWT&12 60 2
4620 MLNS 0&X1,HTPSSW-2 60 2
4621 MLNS 0&X1,HTPAX-10 60 2
4622 MLNS 0&X1,HTAXRT&15 60 2
4623 MLNS 0&X1,HTNPSR-6 60 2
4624 MA @001@,IREG1 60 2
4625 HDTSS2 MLC @99@,HDTSC3#2 INIT PARITY RD BUCKET 60 2
4626 CS 320 60 2
4627 CS 60 2
4628 RWD 0 60 2
4629 MLC CENSIG,HSSSSS&7 60 2
4630 MLC CENSIG,213 60 2
4631 RTW 0,201 60 2
4632 HSSSSS BCE HTNPSR,213, 60 2
4633 BEF *&1 60 2
4634 BER HDTSPR BRANCH ON PARITY ERROR 60 2
4635 B HTAXWT-7 NOP FOR INPUT 60 2
4636 HTAXRT NOP 0 USER EXIT-HL OF INPUT TAPE 60 2
4637 BCE HDTSS1,THLTMO, BRANCH IF NO TAPE MARK REQUIRED 60 2
4638 RTW 0,201 60 2
4639 BEF HDTSS1 60 2
4640 B HTHEL4 60 2
4641 MLC @9@,HDTSC4#1 60 2
4642 HTAXWT NOP 0 USER EXIT-PRIOR TO HL WRITE-OUTPT 60 2
4643 BSP 0 60 2
4644 WT 0,201 60 2
4645 BER HDTSPW 60 2
4646 BCE HDTSS1,THLTMO, BRANCH IF TAPE MARK IS NO TO BE 60 2
4647 WTM 0 WRITTEN 60 2
4648 B HDTSS1 60 2
4649 HTNPSR CS 220 CLEAR NOISE RECORD 60 2
4650 B HDTSS2&17 60 2
4651 HDTSPW SBR HTPAX&3,HDTSS2&17 RETURN TO READ INSTRUCTION 60 2
4652 MLC @N@,HTPSSW BYPASS SKIP ROUTINE 60 2
4653 B *&15 60 2
4654 HDTSPR SBR HTPAX&3,HDTSS2&17 RETURN TO READ INSTRUCTION 60 2
4655 MLC @B@,HTPSSW ACTIVATE SKIP ROUTINE 60 2
4656 S &1,HDTSC3 60 2
4657 BM HTHEL1,HDTSC3 60 2
4658 BSP 0 60 2
4659 HTPSSW B HTPAX 60 2
4660 BCE *&5,HDTSC3,G 60 2
4661 B HTPAX 60 2
4662 MLC @9@,HDTSC3 60 2
4663 S &1,HDTSC4 60 2
4664 SKP 0 60 2
4665 BM HTHEL2,HDTRC4 60 2
4666 HTPAX B 0 EX PARITY ERROR ROUTINE 60 2
4667 HDTSR1 SBR HDTSS1&6,HDTSC2 INIT ROUTINE TO PROCESS INPUT 60 2
4668 SBR HDTSS1&13,HDTSC2 60 2
4669 SBR HDTSS1&10,HDTRAX-9 60 2
4670 SBR HTPSSW-10,HTHEL3 60 2
4671 MLC @N@,HTAXRT-4 60 2
4672 MLC HDTSC7,IREG1 ADDR TAPE # BUCKET-INPUT 60 2
4673 B HDTSS1 60 2
4674 CS 80 60 2
4675 CS 332 CLEAR GROUPMARK-WORDMARK 60 2
4676 CS 60 2
4677 HDTRAX B NXTPS 60 2
4678 HDTSC6 DSA I1TUHA 60 2
4679 HDTSC7 DSA O1TUHA 60 2
4680 LTORG* 60 2
4681 EX OVLAP1 60 2
4682 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 2 PUNCH URPI 60 2
4683 ORG SAVE 60 2
4684 BBP2 NOP 60 2
4685 MZ SJA,SETPUN&5 60 2
4686 SPADQ6 MLC @1@,0 MOVE 1 INTO REDUND. BUCKET 60 2
4687 MA I99,STREND 60 2
4688 SETPUN SBR MOVPUN&3,0 60 2
4689 MA @001@,MOVPUN&3 60 2
4690 SBR MOVPUN&13,101 60 2
4691 CS 180 60 2
4692 MOVPUN MLC 0,PUNBKT MOVE CHAR. TO INTERMED. BUCKET 60 2
4693 MLC PUNBKT,101 60 2
4694 C MOVPUN&3,STREND 60 2
4695 BE PCHBB1 60 2
4696 BCE PCHBB2,MOVPUN&12,8 60 2
4697 MA @001@,MOVPUN&3 60 2
4698 MA @001@,MOVPUN&13 60 2
4699 B MOVPUN 60 2
4700 PCHBB2 P SETPUN&7 60 2
4701 PCHBB1 P PUNCH LAST BLOCK 60 2
4702 CS 180 60 2
4703 MA @I9C@,RETN&3 MODIFY EXIT TO READ NEXT BLOCK 60 2
4704 MLC @B@,PDSW 60 2
4705 B RETN 60 2
4706 PUNBKT DCW @0@ INTERMEDIATE BUCKET 60 2
4707 LTORG* 60 2
4708 EX RANOUT 60 2
4709 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 2 TAPE URPI 60 2
4710 ORG SAVE 60 2
4711 BBP4 MA @I9C@,RETN&3 60 2
4712 NOP 60 2
4713 MLC @1@,0 60 2
4714 MZ SJA,BBPQ8G&5 60 2
4715 MLC STREND,LGMTP&6 60 2
4716 LGMTP LCA 0,0 LOAD GROUPMARK 60 2
4717 BBPQ8G WT 0,1 60 2
4718 BEF BBPHLT 60 2
4719 BER BBPSKP 60 2
4720 MLC STREND,*&7 60 2
4721 LCA BLANK,0 CLEAR GROUPMARK 60 2
4722 CS 332 60 2
4723 CS 60 2
4724 MLC UNMSG,223 60 2
4725 W PRINT MESSAGE 60 2
4726 CC 1 60 2
4727 MLC *&1,PDSW 60 2
4728 B RETN 60 2
4729 BBPSKP BSP 0 60 2
4730 SKP 0 60 2
4731 B BBPQ8G 60 2
4732 BBPHLT H BBPQ8G 60 2
4733 WTMBD WTM 0 CLOSE REDUNDANCY TAPE 60 2
4734 RWU 0 60 2
4735 B NDSRT 60 2
4736 UNMSG DCW @UNREAD BLK WRITTEN-TU 0@ 60 2
4737 LTORG* 60 2
4738 ORG 4000 60 2
4739 INITTP MLC URPI,BBPQ8G&3 INITIALIZE FOR TAPE NUMBER 60 2
4740 MLC URPI,BBPSKP&3 60 2
4741 MLNS URPI,BBPSKP&8 60 2
4742 MLC URPI,UNMSG 60 2
4743 MLC URPI,WTMBD&3 60 2
4744 MLC URPI,WTMBD&8 60 2
4745 MLC GPMARK,LGMTP&3 60 2
4746 B RANOUT 60 2
4747 NOP 60 2
4748 EX INITTP 60 2
4749 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 2 CORRECT URPI 60 2
4750 ORG SAVE 60 2
4751 BBP3 NOP 60 2
4752 MZ SJA,*&13 60 2
4753 NOP 0,0 60 2
4754 SBR MOVCOR&3,0 INITIALIZE MOVE INSTRUCTION 60 2
4755 MA @001@,MOVCOR&3 60 2
4756 CS 332 60 2
4757 CS 60 2
4758 SBR MOVCOR&13,201 60 2
4759 MOVCOR MLC 0,CORBKT MOVE CHAR. TO INTERMEDIATE BKT 60 2
4760 MLC CORBKT,201 MOVE CHARACTER TO PRINT AREA 60 2
4761 MA @001@,MOVCOR&3 UPDATE MOVE INSTRUCTIONS 60 2
4762 MA @001@,MOVCOR&13 60 2
4763 C MOVCOR&3,STREND CHECK FOR END OF INPUT BLOCK 60 2
4764 BE PRTBB2 END OF BLOCK 60 2
4765 C MOVCOR&13,@301@ 60 2
4766 BE PRTBB1 60 2
4767 B MOVCOR 60 2
4768 PRTBB1 W MOVCOR-12 60 2
4769 PRTBB2 W PRINT LAST BLOCK 60 2
4770 CC 1 60 2
4771 TSSG2 H 60 2
4772 *** TURN SENSE SWITCH G ON TO BACKSPACE AND 60 2
4773 *** REREAD IN ORDER TO CORRECT. IF TAPE 60 2
4774 *** RECORD IS TO BE ACCEPTED AFTER CORRECTION, 60 2
4775 *** TURN SENSE SWITCH G OFF AND PRESS START. 60 2
4776 BSS BACKSP,G 60 2
4777 SOMORE B 0 RETURN TO PROCESS RECORD 60 2
4778 CORBKT DCW @0@ INTERMEDIATE STORAGE BUCKET 60 2
4779 LTORG* 60 2
4780 EX RANOUT 60 2
4781 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 2 60 2
4782 * OVERLAP AREA 60 2
4783 ORG 4200 60 2
4784 PADQNA DCW @ @ 60 2
4785 NOP1 LCA @N@,CTMSG-36 60 2
4786 B SETTP 60 2
4787 OVLAP BCE NOP1,VARY,1 60 2
4788 MLC AGMEOA,LGMEOA&6 LOAD GROUPMARK 60 2
4789 SETTP MLC MI1TUN,RDCPT&3 SET CHECKPOINT TAPE UNIT NUM 60 2
4790 MLC MI1TUN,O1TUHA 60 2
4791 MLC MI1TUN,RREDCP&3 60 2
4792 MLC MI2TUN,O2TUHA 60 2
4793 MLC I1TUN,I1TUHA 60 2
4794 MLC I2TUN,I2TUHA 60 2
4795 A @1@,CNOS1 60 2
4796 MLC GMSET&3,PADQNA 60 2
4797 MA @I9I@,PADQNA 60 2
4798 MLC PADQNA,BPADQ8&6 60 2
4799 MLC PADQNA,SPADQ6&6 60 2
4800 BCE FORTWO,I3TUN, 60 2
4801 MLC MI3TUN,O3TUHA 60 2
4802 MLC I3TUN,I3TUHA 60 2
4803 CTMSG MLC CTNR,CNAR#6 60 2
4804 S PDCPUT,CNAR 60 2
4805 MZ BLANK,CNAR 60 2
4806 ZA @3@,NOMP#6 60 2
4807 MZ @3@,NOMP 60 2
4808 DNMP C NOMP,CNSQ DETERMINE MAX NUM OF MERGE PASSES 60 2
4809 A @1@,NMPP2#2 60 2
4810 BE PRINT1 60 2
4811 BL PRINT1 60 2
4812 SWP1 B TRITST 60 2
4813 A NOMP 60 2
4814 OK1 C NMPP2,@18@ 60 2
4815 BE NMPE 60 2
4816 B DNMP 60 2
4817 PRINT1 MLC NMPP2,PRMSA-6 60 2
4818 MLC NMPP2,NMPL 60 2
4819 CS 332 60 2
4820 CS 60 2
4821 MLC PRMSA-6,218 60 2
4822 W 60 2
4823 CC K 60 2
4824 B DETANM 60 2
4825 TRITST MLC NOMP,CTNOMP#6 60 2
4826 A CTNOMP 60 2
4827 A NOMP,CTNOMP 60 2
4828 MLC CTNOMP,NOMP 60 2
4829 AMY B OK1 60 2
4830 NMPE H *-3 60 2
4831 DETANM ZA @3@,NOMP 60 2
4832 MZ @3@,NOMP 60 2
4833 MLC &OK2,AMY&3 60 2
4834 DNMP2 C NOMP,CNOS1 DETERMINE EST NUM OF MERGE PASSES 60 2
4835 A @1@,NMAP2#2 60 2
4836 BE PRINT2 60 2
4837 BL PRINT2 60 2
4838 SWP2 B TRITST 60 2
4839 A NOMP 60 2
4840 OK2 C NMAP2,@18@ 60 2
4841 BE NMPE 60 2
4842 B DETANM&14 60 2
4843 FORTWO MLC TWI,@3@ 60 2
4844 MLC @N@,SWP1 60 2
4845 MLC @N@,SWP2 60 2
4846 MLC @B@,HDTRC1 60 2
4847 MLC @B@,HDTRC2 60 2
4848 MLC @B@,HDTRC8 60 2
4849 MLC &AO2THA,NOSW&13 60 2
4850 MLC @4@,CNTRA 60 2
4851 MLC &EOFTST,FRAN&3 60 2
4852 MLC &CNTSW&7,FRAN&6 60 2
4853 SBR READ2&15,EORB 60 2
4854 SBR EOF1-1,GO 60 2
4855 SBR COMPAB&10,BLOW-7 60 2
4856 SBR COMPAB&15,ALOW-7 60 2
4857 MLC &GO,FSTRD2&3 60 2
4858 MLC @N@,LGMEOA&21 60 2
4859 B CTMSG 60 2
4860 PRINT2 MLC NMAP2,PRMSB-6 60 2
4861 CS 332 60 2
4862 CS 60 2
4863 MLC PRMSB-6,218 60 2
4864 W 60 2
4865 CC L 60 2
4866 CC L 60 2
4867 MLC CTNR,PRMSC1-22 60 2
4868 MLC CNAR,PRMSD-21 60 2
4869 MLC PRMSD,227 60 2
4870 W 60 2
4871 CS 332 60 2
4872 CS 60 2
4873 BCE PSPAFQ,VARY,1 60 2
4874 MLC PDCPUT,PRMSE-22 60 2
4875 MLC PRMSE,228 60 2
4876 W 60 2
4877 CS 332 60 2
4878 CS 60 2
4879 PSPAFQ MLC PRMSC1,228 60 2
4880 W 60 2
4881 CC K 60 2
4882 REBLK MLC AIRA1,ENDRA1 END OF FIRST READ AREA 60 2
4883 MA BL,ENDRA1 60 2
4884 MA I99,ENDRA1 60 2
4885 MLC AIRA2,ENDRA2 END OF SECOND READ AREA 60 2
4886 MA BL,ENDRA2 60 2
4887 MA I99,ENDRA2 60 2
4888 MLC AIRA3,ENDRA3 END OF THIRD READ AREA 60 2
4889 MA BL,ENDRA3 60 2
4890 MA I99,ENDRA3 60 2
4891 MLC CFIRE,COMPAB&3 SET COMPARE INSTR 60 2
4892 MLC CFIRE,COMPAB&6 60 2
4893 MLC CFIRE,COMPBC&3 60 2
4894 MLC CFIRE,COMPBC&6 60 2
4895 MLC CFIRE,COMPAC&3 60 2
4896 MLC CFIRE,COMPAC&6 60 2
4897 BCE SETDEC,DESCND,1 60 2
4898 MZ *-6,COMPAB&2 60 2
4899 MZ *-6,COMPAC&2 60 2
4900 MZ REBLK,COMPAB&5 60 2
4901 MZ REBLK,COMPBC&2 60 2
4902 MZ DETANM,COMPAC&5 60 2
4903 MZ DETANM,COMPBC&5 60 2
4904 CMPRE MLC BL,ARELO RT EDGE OF OUTPUT 60 2
4905 MA I99,ARELO 60 2
4906 MA AOWA,ARELO 60 2
4907 MLC AIRA1,COMP11 FIRST READ AREA CF 60 2
4908 MA CFIRE,COMP11 60 2
4909 MA I99,COMP11 60 2
4910 MLC AIRA2,COMP12 SECOND READ AREA CF 60 2
4911 MA CFIRE,COMP12 60 2
4912 MA I99,COMP12 60 2
4913 MLC AIRA3,COMP13 THIRD READ AREA CF 60 2
4914 MA CFIRE,COMP13 60 2
4915 MA I99,COMP13 60 2
4916 MLC COMP11,STEPA&6 60 2
4917 MLC COMP12,STEPB&6 60 2
4918 MLC COMP13,STEPC&6 60 2
4919 MLC AOWA,SDCOMP OUTPUT AREA CF1 60 2
4920 MA CFIRE,SDCOMP 60 2
4921 MA I99,SDCOMP 60 2
4922 BCE CCFW1,CNOP, 60 2
4923 MLC @N@,LMV 60 2
4924 CCFW1 C NCF,@1@ 60 2
4925 BU CMBOL-8 60 2
4926 * CLEAR EQUALS ROUTINE 60 2
4927 MLC BLANK,COMPAB&16 60 2
4928 MLC BLANK,COMPBC&16 60 2
4929 MLC BLANK,COMPAC&16 60 2
4930 BCE CMBOL-8,DESCND,1 60 2
4931 MLC BLANK,STEPA&16 60 2
4932 MLC BLANK,STEPB&16 60 2
4933 MLC BLANK,STEPC&16 60 2
4934 BCE RIDZN,VARY,1 60 2
4935 CMBOL MA L,BOL COMPUTE OUTPUT BLOCK LENGTH FOR 60 2
4936 A @1@,CNBOL#3 FIXED LENGTH RECORDS 60 2
4937 C CNBOL,BO 60 2
4938 BU CMBOL 60 2
4939 MLC AOWA,ARELBO 60 2
4940 MA BOL,ARELBO 60 2
4941 MA I99,ARELBO 60 2
4942 MLC ARELBO,AGMEBO 60 2
4943 MA @001@,AGMEBO 60 2
4944 BCE REED,PI,6 60 2
4945 MLC PDCPUT,PDELIM#3 DETERMINE PADDING 60 2
4946 HOWMCH S BO,PDELIM REQUIREMENTS 60 2
4947 BWZ REED,PDELIM,K 60 2
4948 A BO,REMOVE 60 2
4949 B HOWMCH 60 2
4950 REED CS 080 60 2
4951 SW 24,56 60 2
4952 SW 63,67 60 2
4953 R 56 60 2
4954 RIDZN MLC RCDIST,NOZNE 60 2
4955 MA @I9H@,NOZNE 60 2
4956 B REED 60 2
4957 SETDEC MLC @T@,STEPA&16 INITIALIZE FOR DESCENDING ORDER 60 2
4958 MLC @U@,STEPA&11 OF SORT 60 2
4959 MLC @T@,STEPB&16 60 2
4960 MLC @U@,STEPB&11 60 2
4961 MLC @U@,STEPC&11 60 2
4962 MLC @T@,STEPC&16 60 2
4963 MZ REBLK,COMPAB&2 60 2
4964 MZ DETANM,COMPAC&2 60 2
4965 MZ *-6,COMPAB&5 60 2
4966 MZ DETANM,COMPBC&2 60 2
4967 MZ *-6,COMPAC&5 60 2
4968 MZ REBLK,COMPBC&5 60 2
4969 C NCF,@01@ 60 2
4970 BU GOCFQ 60 2
4971 MLC COMPAB&10,SKIP2-1 60 2
4972 MLC COMPBC&10,SKIP3-1 60 2
4973 MLC COMPAC&10,ALOW-8 60 2
4974 MLC STEPA&15,ISBMT-1 60 2
4975 MLC STEPB&15,ISCMT-1 60 2
4976 MLC STEPC&15,RIDGM1-1 60 2
4977 GOCFQ BCE SW9PD,PI,9 60 2
4978 MLC @9@,PI 60 2
4979 B CMPRE 60 2
4980 SW9PD MLC @ @,PI 60 2
4981 B CMPRE 60 2
4982 TWI DCW @2@ 60 2
4983 LRUN DSA RUNOUT 60 2
4984 PRMSA DCW @MAX PH 2 PASSES 00-ERROR@ 60 2
4985 PRMSB DCW @EST PH 2 PASSES 00-ERROR@ 60 2
4986 PRMSC1 DCW @ REC PROCESSED-PASS 00@ 60 2
4987 PRMSD DCW @ -RECORDS READ-PASS 00@ 60 2
4988 PRMSE DCW @000 PAD REC ADDED-PASS 00@ 60 2
4989 EX OVLAP 60 2
4990 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 2 60 2
4991 ORG 3900 60 2
4992 WMIRA5 CS 4299 CLEAR SET WORD MARK ROUTINE 60 2
4993 CS 60 2
4994 CS 60 2
4995 NOP NF0?,CLSTX1&3 60 2
4996 NOP NF0?,CLSTX1&18 60 2
4997 CS LGMEOA,3999 60 2
4998 NF0? DCW @F0?@ 60 2
4999 COA EQU WMIRA5 60 2
5000 BCE COA,VARY,1 60 2
5001 MLC BLANK2,CNCF#2 60 2
5002 INWM12 MLC AIRA1,ICF12#3 SET WORD MARKS IRA1 60 2
5003 MA CF1SL,ICF12 60 2
5004 MLC ICF12,WMS12&3 60 2
5005 MLC @ @,CNTB#3 60 2
5006 *** SET WORD MARKS LEFT EDGE OF CONTROL FIELDS 60 2
5007 WMS12 SW 0 60 2
5008 A *-6,CNTB 60 2
5009 C CNTB,B 60 2
5010 BE SWNCF 60 2
5011 MA L,WMS12&3 60 2
5012 B WMS12 60 2
5013 SWNCF A *-6,CNCF NEXT CONTROL FIELD 60 2
5014 C CNCF,NCF 60 2
5015 BE SWIRA2 60 2
5016 MA @003@,INWM12&10 60 2
5017 B INWM12 60 2
5018 SWIRA2 NOP SWIRA3-8 RESET FOR IRA2 60 2
5019 MLC @B@,SWIRA2 60 2
5020 SBR INWM12&3,AIRA2 60 2
5021 SBR INWM12&10,CF1SL 60 2
5022 B INWM12-7 60 2
5023 BCE INWMBI,I3TUN, BRANCH IF TWO-WAY MERGE 60 2
5024 SWIRA3 NOP INWMBI RESET FOR IRA3 60 2
5025 MLC @B@,SWIRA3 60 2
5026 SBR INWM12&3,AIRA3 60 2
5027 SBR INWM12&10,CF1SL 60 2
5028 B INWM12-7 60 2
5029 *** SET WORD MARKS LEFT EDGE OF EACH RECORD 60 2
5030 INWMBI MLC AIRA1,ICF12 60 2
5031 MLC ICF12,SW122&3 60 2
5032 MLC @ @,CNTB 60 2
5033 SW122 SW 0 60 2
5034 A *-6,CNTB 60 2
5035 C CNTB,B 60 2
5036 BE WMIRA2 60 2
5037 MA L,SW122&3 60 2
5038 B SW122 60 2
5039 WMIRA2 NOP WMIRA3-8 60 2
5040 MLC @B@,WMIRA2 60 2
5041 MLC AIRA2,ICF12 60 2
5042 B INWMBI&7 60 2
5043 BCE COA,I3TUN, BRANCH IF TWO-WAY MERGE 60 2
5044 WMIRA3 NOP COA 60 2
5045 MLC @B@,WMIRA3 60 2
5046 MLC AIRA3,ICF12 60 2
5047 B INWMBI&7 60 2
5048 LTORG* 60 2
5049 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 2 60 2
5050 SETCLR BCE PASMLT,LABELS,1 60 2
5051 SBR CLSTX1&3,3600 NO LABELS INITIALIZATION 60 2
5052 SBR CLSTX1&18 60 2
5053 SBR CLSTX1-12,NXTPS 60 2
5054 SW CPTGM-1 60 2
5055 SBR QTRL&3,OUTTM 60 2
5056 MLC @N@,CPTGM&14 60 2
5057 MLC @N@,NOPPS2-18 60 2
5058 MLC @N@,NOPPS2-11 60 2
5059 MLC @N@,NOPPS2-4 60 2
5060 CS 080 60 2
5061 SW 024,056 60 2
5062 SW 063,067 60 2
5063 R 056 60 2
5064 PASMLT R BYPASS MULTIPHASE PROGRAM 60 2
5065 C 021,CONEND 60 2
5066 BU PASMLT 60 2
5067 R NXTPS 60 2
5068 BUCPYS SW FILNAM&1,FILESE&1 60 2
5069 SW SYSCRE&1 60 2
5070 MLC @N@,NOPDDD&14 60 2
5071 MLC @N@,NOPDDD&21 60 2
5072 B NOPDDD 60 2
5073 CONEND DCW @HEADER-TRAILER-PHASE2@ 60 2
5074 STPASS NOP WRCK2 60 2
5075 NOP TSTPS 60 2
5076 MLC @B@,STPASS&4 60 2
5077 BCE *&16,LABELS, 60 2
5078 BCE BUCPYS,LBBUCK,1 60 2
5079 NOPDDD MLC @N@,HSSD-9 NOP SW D OPTION IF LABELS 60 2
5080 MLC CTNR,CTNR1 60 2
5081 SW OHDATE-4,TPSERL-4 60 2
5082 SW FLSERL-4 60 2
5083 C PDCPUT,@000@ 60 2
5084 BU *&8 60 2
5085 MLC @6@,PI 60 2
5086 BCE NXTINS,UNLOAD, 60 2
5087 MLC @U@,REWIND&4 INITIALIZATION FOR UNLOAD OPTION 60 2
5088 MLC @U@,REWIND&9 60 2
5089 MLC @U@,REWIND&14 60 2
5090 MLC @U@,REWIND&19 60 2
5091 MLC @U@,THDTP&9 60 2
5092 MLC @U@,THDTP&14 60 2
5093 NXTINS NOP 60 2
5094 MLC GPMARK,CPTGM&3 60 2
5095 MLC GPMARK,SETBK&3 60 2
5096 BCE TOOQ,LDI,1 60 2
5097 BCE TOOQ,LDI,2 60 2
5098 B MUSHQ 60 2
5099 TOOQ MLC SET1MV,SETOUT&6 60 2
5100 MLC ACNT,COMP2&3 SET COUNTERS 60 2
5101 MLC ACTNR,RESET&3 60 2
5102 MLC ACTNR,PAD9&3 60 2
5103 MLC ACNT,SETNMP&3 60 2
5104 MLC ACNT,SETNMP&10 60 2
5105 MLC CLEPS,GMCLR&3 60 2
5106 MLC ACNT,TSTPS&3 60 2
5107 MLC ACNT,TSTPS&44 60 2
5108 MLC ACTNR,SETEND&28 60 2
5109 MLC ACTNR,RESET&10 60 2
5110 MLC ACTNR,COMPCT-4 60 2
5111 MLC GMSET&3,PADQQA 60 2
5112 MA @I9I@,PADQQA 60 2
5113 MLC PADQQA,PADQCZ&6 60 2
5114 MLC ACTNR,COMPCT&6 60 2
5115 MLC CSTCNS,CLSTX1&7 60 2
5116 BCE TSTPS,I3TUN, 60 2
5117 MN @2@,ZEROS1 60 2
5118 TSTPS C 0,@000000@ 60 2
5119 MLZS *-6,CENSIG 60 2
5120 BCE *&8,LBBUCK,1 60 2
5121 MLC CENSIG,NSYHDR&7 60 2
5122 MLC CENSIG,NSE&7 60 2
5123 BE TLMPC 60 2
5124 C 0,ZEROS1 60 2
5125 BL PSCNT 60 2
5126 B SLMP 60 2
5127 PADQQA DCW @ @ 60 2
5128 PSCNT CS 332 60 2
5129 CS 60 2
5130 MLC CNMP,PRMSC-6 60 2
5131 C CNMP,@00@ PASS TO PASS MESSAGES 60 2
5132 BE GOON 60 2
5133 MLC 0,PRMSC-28 60 2
5134 COMPCT C CTNR1,0 COMPARE RECORD COUNT 60 2
5135 BU ERRCT 60 2
5136 SUBPAD NOP REMOVE,PRMSC-28 60 2
5137 MZ SETNOS-1,PRMSC-28 60 2
5138 MLC PRMSC-6,228 60 2
5139 PRCT W 60 2
5140 CC K 60 2
5141 NOP THIS BECOMES A HALT IF THERE IS 60 2
5142 * AN ERROR IN THE RECORD COUNT 60 2
5143 MLC @N@,PRCT&3 60 2
5144 GOON A @1@,CNMP 60 2
5145 S @1@,NMPL 60 2
5146 MZ BLANK,NMPL 60 2
5147 B INIT1 60 2
5148 MUSHQ MLC @ LOW@,PDTYQ-8 60 2
5149 B TOOQ 60 2
5150 ERRCT MLC PRMSC,234 60 2
5151 MLC 206,CTNR1 MOVE NEW COUNT TO CTNR1 60 2
5152 MLC SLMP-4,PRCT&3 60 2
5153 B PRCT 60 2
5154 TLMPC NOP SETEND 60 2
5155 B SLMP 60 2
5156 SETEND LCA ENDBR&4,GOON&4 END OF SORT 60 2
5157 PADQCZ BCE PSCNT,0,1 60 2
5158 MLC @S@,SUBPAD 60 2
5159 MZ @ @,0 60 2
5160 B PSCNT 60 2
5161 ENDBR BIN EPH2, 60 2
5162 LMPMSG CS 332 60 2
5163 CS 60 2
5164 MLC PRMSLP,225 60 2
5165 W PRINT LAST MERGE PASS MESSAGE 60 2
5166 CC 1 60 2
5167 H SLMP&5 60 2
5168 SLMP BSS LMPMSG,B 60 2
5169 EXTLMP NOP 0 USERS EXIT 60 2
5170 LCA @N@,CNTSW LAST MERGE PASS INITIALIZATION 60 2
5171 LCA @N@,TSTPS&11 60 2
5172 MLC @B@,TLMPC 60 2
5173 MLC @B@,QTRL 60 2
5174 MLC @B@,PSLMP 60 2
5175 SBR EPH2-1,RDLBRT 60 2
5176 MLC @#@,WMIRA5&6 60 2
5177 MLC @#@,WMIRA5&13 60 2
5178 BCE *&22,LABELS,1 60 2
5179 MLC @#@,WMIRB5&6 60 2
5180 MLC @#@,WMIRB5&13 60 2
5181 SBR EPH2-1,PASS 60 2
5182 MLC @A@,SETBAK-7 60 2
5183 BCE LSTVRY,VARY,1 60 2
5184 BCE NEWOUT,PI,6 CHECK PADDING INDICATOR 60 2
5185 MLC @N@,PDSW 60 2
5186 BCE PAD9,PI,9 60 2
5187 BCE PAD,PI, 60 2
5188 PAD9 MLC 0,PADCT 60 2
5189 S REMOVE,PADCT 60 2
5190 MZ @ @,PADCT 60 2
5191 B NEWOUT 60 2
5192 PAD ZA REMOVE,PADCT 60 2
5193 MZ @ @,PADCT 60 2
5194 MLC @U@,AWAY&11 60 2
5195 MLC @B@,AWAY&12 60 2
5196 NEWOUT MLC AGMEBO,LGMEOA&6 60 2
5197 MLC ARELBO,ARELO 60 2
5198 OURBK MLC &BO,KOWNT&3 60 2
5199 MLC OUTMOD,WOBR SET OUTPUT MODE 60 2
5200 SBR CLINP2&3,INWM12-15 60 2
5201 BCE INTRWU,VARY,1 60 2
5202 BCE CKWM,CNOP, 60 2
5203 MA I99,CKWM&6 60 2
5204 MA I99,MOVOUT&6 60 2
5205 CKWM BWZ MOVOUT,LMV,1 60 2
5206 SW CKWM&4 60 2
5207 MLC CKWM&6,LSTMOD&6 60 2
5208 MA @I9D@,LSTMOD&6 60 2
5209 LSTMOD MLC OUTMOD,0 60 2
5210 B INTRWU 60 2
5211 MOVOUT MLC OUTMOD,LMV 60 2
5212 MA I99,CKWM&6 60 2
5213 MA I99,MOVOUT&6 60 2
5214 B CKWM 60 2
5215 INTRWU MLC @U@,REWIND&19 60 2
5216 MLC I2TUHA,WOBR&3 60 2
5217 MLC I2TUHA,WORED&3 60 2
5218 MLC I2TUHA,ERTAPE&3 60 2
5219 B PSCNT 60 2
5220 * SET TAPE UNIT NUMBERS 60 2
5221 INIT1 MLC I1TUHA,WRCKT&3 60 2
5222 MLC I1TUHA,WRDCK&3 60 2
5223 MLC I1TUHA,ERSE1&3 60 2
5224 ROTP MLC I1TUHA,CNRR 60 2
5225 MLC O1TUHA,I1TUHA 60 2
5226 MLC CNRR,O1TUHA 60 2
5227 MLC I2TUHA,CNRR 60 2
5228 MLC O2TUHA,I2TUHA 60 2
5229 MLC CNRR,O2TUHA 60 2
5230 MLC I1TUHA,REWIND&3 60 2
5231 MLC I1TUHA,READ1&3 60 2
5232 MLC I2TUHA,REWIND&8 60 2
5233 MLC I2TUHA,READ2&3 60 2
5234 MLC O1TUHA,REWIND&13 60 2
5235 MLC O1TUHA,OUTTM&3 60 2
5236 PSLMP NOP CNTUE 60 2
5237 MLC O1TUHA,WOBR&3 60 2
5238 MLC O1TUHA,WORED&3 60 2
5239 MLC O1TUHA,ERTAPE&3 60 2
5240 CNTUE MLC O2TUHA,OUTTM&8 60 2
5241 MLC O2TUHA,REWIND&18 60 2
5242 MLC I3TUHA,CNRR 60 2
5243 MLC O3TUHA,I3TUHA 60 2
5244 MLC CNRR,O3TUHA 60 2
5245 MLC I3TUHA,READ3&3 60 2
5246 MLC O3TUHA,THDTP&3 60 2
5247 MLC I3TUHA,THDTP&8 60 2
5248 MLC O3TUHA,THDTP&13 60 2
5249 SBR RUNOUT&3,SKIP1 60 2
5250 SBR SKIP1&3,COMPAB 60 2
5251 SBR SWOT&3,O2TUHA 60 2
5252 MLC SDCOMP,SDCMPV 60 2
5253 MLC SDCOMP,STEPA&3 60 2
5254 MLC SDCOMP,STEPB&3 60 2
5255 MLC SDCOMP,STEPC&3 60 2
5256 MLC O2TUHA,OUTTM&8 60 2
5257 MLC O2TUHA,REWIND&18 60 2
5258 MLC O1TUHA,RDCPT&3 60 2
5259 MLC O1TUHA,RREDCP&3 60 2
5260 SETOUT MLC AREFO,0 60 2
5261 MLC BLANK2,CNEOR 60 2
5262 BCE WRCK2,I3TUN, BRANCH IF 2-WAY MERGE 60 2
5263 MLC BLANK,CNTRA 60 2
5264 MLC BLANK,CNTRB 60 2
5265 SBR COMPAB&10,SKIP2 60 2
5266 SBR COMPAB&15,SKIP3 60 2
5267 SBR SKIP2&3,COMPBC 60 2
5268 SBR SKIP3&3,COMPAC 60 2
5269 WRCK2 SW 1,5 SET RESTART BRANCH 60 2
5270 MLC &HRES 60 2
5271 MLC @B@ 60 2
5272 CW ITLI 60 2
5273 MLC @N@,STPASS 60 2
5274 BIN HSSD,D 60 2
5275 B IWRCK 60 2
5276 HSSD CS 332 SENSE SWITCH D INTERRUPT 60 2
5277 CS 60 2
5278 MLC PRMXX,222 60 2
5279 W PRINT DENSITY MESSAGE 60 2
5280 CC 1 60 2
5281 H *&1 60 2
5282 IWRCK MLC @ @,CNEOR 60 2
5283 MLC BLANK2,CNRR 60 2
5284 GMCLR CW 0 60 2
5285 EXTCKP NOP 0 USERS EXIT 60 2
5286 WRCKT WTW 0,1 WRITE CHECKPOINT 60 2
5287 BER WRDCK 60 2
5288 BEF WEFCK2 60 2
5289 TFI BIN INTRPT,E 60 2
5290 RESET S 0 60 2
5291 MZ BLANK,0 60 2
5292 MLC INPUT1,IREG1 60 2
5293 MLC INPUT2,IREG2 60 2
5294 MLC INPUT3,IREG3 60 2
5295 SETNMP S 0 PRINT MERGE PASS NUM MESSAGE 60 2
5296 MZ BLANK,0 60 2
5297 CS 332 60 2
5298 CS 60 2
5299 MLC CNMP,PRMSH-27 60 2
5300 MLC O1TUHA,PRMSH-20 60 2
5301 MLC I1TUHA,PRMSH-14 60 2
5302 MLC I2TUHA,PRMSH-12 60 2
5303 MLC I3TUHA,PRMSH-10 60 2
5304 MLC PRMSH-10,226 60 2
5305 W 60 2
5306 CC 1 60 2
5307 B CLSTX1-7 60 2
5308 EPH2 CS 332 60 2
5309 CS 60 2
5310 MLC O1TUHA,RWES&3 60 2
5311 MLC O2TUHA,PRMSG-12 60 2
5312 MLC PRMSG,218 60 2
5313 W PRINT END OF SORT MESSAGE 60 2
5314 CC 1 60 2
5315 RWES RWD 0 REWIND CHECKPOINT TAPE 60 2
5316 BCE NDSRT,URPI,P 60 2
5317 BCE NDSRT,URPI,C 60 2
5318 B WTMBD BRANCH TO CLOSE REDUNDANCY TAPE 60 2
5319 INTRPT MLC CNMP,PRMSH-27 SENSE SWITCH E INTERRUPT 60 2
5320 MLC O1TUHA,PRMSH-20 60 2
5321 MLC I1TUHA,PRMSH-14 60 2
5322 MLC I2TUHA,PRMSH-12 60 2
5323 MLC I3TUHA,PRMSH-10 60 2
5324 CS 332 60 2
5325 CS 60 2
5326 MLC PRMSH,234 60 2
5327 W PRINT INTERRUPT MESSAGE 60 2
5328 CS 239 60 2
5329 MLC PDTYQ,212 60 2
5330 W 60 2
5331 CC 1 60 2
5332 H RESET 60 2
5333 PASS R 60 2
5334 BCE CLSTX1-7,040,/ 60 2
5335 B PASS 60 2
5336 HRES CS 332 RESTART ROUTINE 60 2
5337 CS 60 2
5338 RWD 1 60 2
5339 SETBK SW 0 INITIALIZE MESSAGES 60 2
5340 MLC CNMP,PRMSI-20 60 2
5341 MLC I1TUHA,PRMSI-14 60 2
5342 MLC I2TUHA,PRMSI-12 60 2
5343 MLC I3TUHA,PRMSI-10 60 2
5344 MLC O1TUHA,PRMSI-4 60 2
5345 MLC O2TUHA,PRMSI-2 60 2
5346 MLC O3TUHA,PRMSI 60 2
5347 MLC PRMSI,227 60 2
5348 W PRINT RESTART MESSAGES 60 2
5349 CS 228 60 2
5350 MLC PDTYQ,212 60 2
5351 W 60 2
5352 CS 228 60 2
5353 MLC CARDMG,231 60 2
5354 W 60 2
5355 CPTGM LCA 0,ITLI LOAD GROUPMARK TO STOP TAPE READ 60 2
5356 MLC @B@,STPASS 60 2
5357 MLC @N@,NOPPS1 NOP IF NO LABELS 60 2
5358 BEF *&1 60 2
5359 MLZS *-6,CENSIG 60 2
5360 BCE *&8,LBBUCK,1 60 2
5361 MLC CENSIG,NSYHDR&7 60 2
5362 MLC CENSIG,NSE&7 60 2
5363 CC 1 60 2
5364 H 60 2
5365 BCE *&19,LBBUCK, 60 2
5366 SBR HDTSS1-4,HDTSC7 60 2
5367 SBR HDTRAX-17,HDTSC6 60 2
5368 B HDTSS0 60 2
5369 SBR HDTRS1-4,HDTRC7 60 2
5370 SBR HDTREX-16,HDTRC6 60 2
5371 B HDTRS0 OPEN THE TAPES 60 2
5372 NOPPS2 MLNS I1TUHA,RCCP&3 60 2
5373 MLC @ @,ERRCNT INITIALIZE ERROR COUNTER 60 2
5374 MLNS I1TUHA,RSTBER&3 60 2
5375 RCCP RTW %U0,001 60 2
5376 BER RSTBER 60 2
5377 BEF RSTBEF 60 2
5378 NOPPS1 B WRCK2 60 2
5379 SBR HDTRS1-4,HDTRC6 60 2
5380 SBR HDTREX-16,HDTRC7 60 2
5381 SBR HDTRS1&10,HDTRRI 60 2
5382 MLC HDTRC8,HDTRC1 60 2
5383 MLC HDTRC8,HDTRC2 60 2
5384 SBR HTPRSW-10,HTHAL1 60 2
5385 SBR HDTRS1&6,HDTRC1 60 2
5386 SBR HDTRS1&13,HDTRC1 60 2
5387 MLC @B@,HTEXRT-4 60 2
5388 MLC @B@,NOPPS1 60 2
5389 SBR HDTREX&3,NXTPS 60 2
5390 B WRCK2 60 2
5391 RSTBEF H WRCK2 60 2
5392 RSTBER BSP %U0 60 2
5393 CPTERR A @1@,ERRCNT 60 2
5394 BAV CPTHLT 60 2
5395 B RCCP 60 2
5396 CPTHLT H NOPPS2 60 2
5397 COMP2 C 0,@000001@ 60 2
5398 BL SETNMP 60 2
5399 B SLMP 60 2
5400 EOFCP H STPASS 60 2
5401 B RREDCP 60 2
5402 NDSRT H *-3 END OF SORT 60 2
5403 WRDCK BSP 0 WRITE CHECKPOINT ERROR ROUTINE 60 2
5404 BCE ERCKP,CNRR,1 60 2
5405 A @1@,CNRR 60 2
5406 B WRCKT 60 2
5407 ERCKP A @1@,CNEOR 60 2
5408 C CNEOR,@10@ 60 2
5409 BE HRTRY 60 2
5410 ERSE1 SKP 0 60 2
5411 B IWRCK&7 60 2
5412 LSTVRY MA NOZNE,ALOP&6 LAST MERGE PASS INITIALIZATION 60 2
5413 MA @004@,COMETF ALLOW FOR BLOCK COUNT FOR VLR 60 2
5414 MA NOZNE,ALOP&13 FOR VARIABLE LENGTH RECORDS 60 2
5415 MA NOZNE,ALOP&20 60 2
5416 MLC ALOP&6,INCR1-8 60 2
5417 MLC ALOP&13,INCR2-8 60 2
5418 MLC ALOP&20,INCR3-8 60 2
5419 C BO,@001@ 60 2
5420 BE ARL&8 60 2
5421 MLC AOWA,SWOWA&3 60 2
5422 MA @I9F@,SWOWA&3 60 2
5423 SWOWA SW 0 60 2
5424 MLC COMETF,COMET 60 2
5425 MLC @M@,INCR1-7 60 2
5426 MLC @M@,INCR2-7 60 2
5427 MLC @M@,INCR3-7 60 2
5428 MLC @?@,SETBAK 60 2
5429 MLC @A@,ADDTO 60 2
5430 MLC AOWA,*&14 60 2
5431 MA I99,*&7 60 2
5432 LCA @000D@,0 60 2
5433 SW SWOWA&1 60 2
5434 MLC SWOWA&3,WOBR&6 60 2
5435 ARL BCE OURBK&7,BO, 60 2
5436 BCE ELIMIT,RLIIND,1 60 2
5437 MLC &LSTOUT,ISOFL-1 60 2
5438 LCA ISOFL,CKOUT&4 60 2
5439 B OURBK&7 60 2
5440 CNTBO DCW @ @ 60 2
5441 ERRCNT DCW @ @ ERROR BUCKET FOR CHECKPOINT READ 60 2
5442 ISOFL @B000 @ 60 2
5443 HRTRY H IWRCK 60 2
5444 WEFCK2 H TFI 60 2
5445 ZEROS1 DCW @000001@ 60 2
5446 ALOP MZ BLANK,0&X1 60 2
5447 MZ BLANK,0&X2 60 2
5448 MZ BLANK,0&X3 60 2
5449 ELIMIT BCE ARL&16,RTAIN,1 60 2
5450 MA @004@,WOBR&6 ELIMINATE RLI-VLR UNBLOCKED 60 2
5451 B ARL&16 60 2
5452 RDLBRT CS 80 READ IN THE FINAL HEADER- 60 2
5453 SW 24,56 TRAILER ROUTINE 60 2
5454 SW 63,67 60 2
5455 BCE NORMAL,LBBUCK, BRANCH IF 80 CHARACTER ROUTINE 60 2
5456 ABNORM R 60 2
5457 BCE NORMAL,68,B 60 2
5458 B ABNORM 60 2
5459 NORMAL R 56 60 2
5460 CTNR1 DCW @000000@ 60 2
5461 PRMSLP DCW @LAST MERGE PASS-INTERRUPT@ 60 2
5462 PRMSC DCW @ REC PROCESSED-PASS 00-ERROR@ 60 2
5463 PRMXX DCW @DENSITY MAY BE CHANGED@ 60 2
5464 PRMSG DCW @OUTP -END OF SORT@ 60 2
5465 PRMSH DCW @PASS 00-CKPT 0-INP 0,0,0 INTERRUPT@ 60 2
5466 PRMSI @PASS 00 INP 0,0,0 OUT 0,0,0@ 60 2
5467 PDTYQ DCW @HIGH DENSITY@ 60 2
5468 CARDMG DCW @PLACE CARDS FROM 1442 IN READER@ 60 2
5469 LTORG* 60 2
5470 EX SETCLR 60 2
5471 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 2 60 2
5472 ORG CLSTX1-18 60 2
5473 SBR CLINP2&3,NXTPS 60 2
5474 B CLSTX1 60 2
5475 SBR CLINP2&3,INWM22-15 60 2
5476 ORG EOFW1 60 2
5477 BCE RWD,QTRL,B 60 2
5478 ORG HTHAL1 60 2
5479 RWD MLNS WOBR&3,*&4 60 2
5480 WTM 0 60 2
5481 MLNS WOBR&3,*&4 60 2
5482 RWU 0 60 2
5483 BCE HLT,O3TUHA, 60 2
5484 C WOBR&3,O3TUHA 60 2
5485 BU RTRN2-7 60 2
5486 H SWOT 60 2
5487 HLT H RTRN2-7 60 2
5488 NOP 60 2
5489 *** 60 2
5490 *** SET WORD MARK ROUTINE WITHOUT LABELS 60 2
5491 *** 60 2
5492 ORG 3200 60 2
5493 WMIRB5 CS 3599 60 2
5494 CS 60 2
5495 CS 60 2
5496 NOP NF0?1,CLSTX1&3 60 2
5497 NOP NF0?1,CLSTX1&18 60 2
5498 CS LGMEOA,3299 60 2
5499 NF0?1 DCW @F0?@ 60 2
5500 BCE WMIRB5,VARY,1 60 2
5501 MLC BLANK2,CNCFB#2 60 2
5502 INWM22 MLC AIRA1,ICF22#3 60 2
5503 MA CF1SL,ICF22 60 2
5504 MLC ICF22,WMS22&3 60 2
5505 MLC @ @,CNTBB#3 60 2
5506 *** SET WORD MARKS LEFT EDGE OF CONTROL FIELDS 60 2
5507 WMS22 SW 0 SET WORD MARK 60 2
5508 A *-6,CNTBB 60 2
5509 C CNTBB,B 60 2
5510 BE SWNCFB 60 2
5511 MA L,WMS22&3 60 2
5512 B WMS22 60 2
5513 SWNCFB A *-6,CNCFB NEXT CONTROL FIELD 60 2
5514 C CNCFB,NCF 60 2
5515 BE SWIRB2 60 2
5516 MA @003@,INWM22&10 60 2
5517 B INWM22 60 2
5518 SWIRB2 NOP SWIRB3-8 NEXT INPUT AREA 60 2
5519 MLC @B@,SWIRB2 60 2
5520 SBR INWM22&3,AIRA2 60 2
5521 SBR INWM22&10,CF1SL 60 2
5522 B INWM22-7 60 2
5523 BCE INWMCI,I3TUN, BRANCH IF TWO-WAY MERGE 60 2
5524 SWIRB3 NOP INWMCI NEXT INPUT AREA 60 2
5525 MLC @B@,SWIRB3 60 2
5526 SBR INWM22&3,AIRA3 60 2
5527 SBR INWM22&10,CF1SL 60 2
5528 B INWM22-7 60 2
5529 *** SET WORD MARKS LEFT EDGE OF EACH RECORD 60 2
5530 INWMCI MLC AIRA1,ICF22 60 2
5531 MLC ICF22,SW22&3 60 2
5532 MLC @ @,CNTBB 60 2
5533 SW22 SW 0 60 2
5534 A *-6,CNTBB 60 2
5535 C CNTBB,B 60 2
5536 BE WMIRB2 60 2
5537 MA L,SW22&3 60 2
5538 B SW22 60 2
5539 WMIRB2 NOP WMIRB3-8 60 2
5540 MLC @B@,WMIRB2 60 2
5541 MLC AIRA2,ICF22 60 2
5542 B INWMCI&7 60 2
5543 BCE WMIRB5,I3TUN, BRANCH IF TWO-WAY MERGE 60 2
5544 WMIRB3 NOP WMIRB5 60 2
5545 MLC @B@,WMIRB3 60 2
5546 MLC AIRA3,ICF22 60 2
5547 B INWMCI&7 60 2
5548 LTORG* 60 2
5549 EX PASMLT 60 2
5550 JOB ** IBM 1401 SORT 7 VERSION 2 MULTIPHASE 60 2
5551 ORG STRTMP 60 2
5552 SFX # 60 2
5553 DCW @MULTIPHASE@ 60 2
5554 * CLEAR CORE FROM END OF AVAILABLE 60 2
5555 * PHASE 2 AREA TO 700 60 2
5556 REPH1 MLC CSTCNS,CLPH1&3 60 2
5557 SW 700 60 2
5558 CLPH1 CS 0 CLEARING BEGINS FROM PH2 USER 60 2
5559 SBR CLPH1&3 AREA 60 2
5560 BWZ CLPH1,700,1 60 2
5561 * LOAD MAINLINE AND FIRST INIT RTN 60 2
5562 * BRANCH TO STRTN 60 2
5563 CS 80 READ FIRST MULTIPHASE OVERLAY 60 2
5564 SW 24,56 60 2
5565 SW 63,67 60 2
5566 R 056 60 2
5567 NOP 60 2
5568 EX REPH1 60 2
5569 JOB ** IBM 1401 SORT 7 VERSION 2 MULTIPHASE 60 2
5570 SFX # 60 2
5571 ORG STRTMP 60 2
5572 OWA DCW @B01@ START OF OUTPUT AREA 60 2
5573 CNMP DCW @00@ CURRENT MERGE PASS NUMBER 60 2
5574 NMPL DCW @ @ NUM OF MULTIPHASE PASSES LEFT 60 2
5575 CNTRB DCW @ @ NUM OF SEQ IF LESS THAN 8 60 2
5576 CLEPS @ @ LOC OF GMWM FOR CHECKPOINT 60 2
5577 ACTNR @ @ LOC OF TOTAL RCD COUNT 60 2
5578 ACNT DCW @ @ LOC OF UNREADABLE RCD COUNT 60 2
5579 NOMP DCW @00@ TOTAL NUM OF MERGE PASSES 60 2
5580 SEQMRG DCW @000000@ NUM SEQ TO BE MERGED CURRENT PASS 60 2
5581 YCNTR DCW @000000@ 60 2
5582 * ALGORITHM COMPUTATION BUCKETS 60 2
5583 PCNTR DCW @000000@ 60 2
5584 XAREA DCW @000000@ 60 2
5585 YAREA DCW @000001@ 60 2
5586 * MULTIPHASE CONSTANTS 60 2
5587 LIT001 DCW @001@ 60 2
5588 LIT003 DCW @003@ 60 2
5589 SIX 0S DCW @000000@ 60 2
5590 NOP DCW @N@ 60 2
5591 KB DCW @B@ 60 2
5592 AONE DCW @1@ 60 2
5593 ATWO DCW @2@ 60 2
5594 AFOUR DCW @4@ 60 2
5595 TWOBL DCW @ @ 60 2
5596 I99 DCW @I9I@ 60 2
5597 BLANK EQU TWOBL-1 60 2
5598 AZERO EQU SIX 0S-5 60 2
5599 RUNOTP EQU RNOUTP 60 2
5600 * MULTIPHASE LABELS EQUATED WITH THOSE FROM ASSN PHASE 60 2
5601 SFX 60 2
5602 THEDTE EQU DATE 60 2
5603 OTMOMP EQU HTMO 60 2
5604 OHLIMP EQU OTLI OUTPUT HDR LABEL 60 2
5605 WLBKTM EQU WLBKT 60 2
5606 OHLOPM EQU OHLOP 60 2
5607 OTLIMP EQU TLO OUTPUT TRAILER LABEL 60 2
5608 OUTMLT EQU OUTMOD OUTPUT MODE INDICATOR 60 2
5609 LMULTI EQU L RECORD LENGTH 60 2
5610 BMULTI EQU B SORT BLOCKING 60 2
5611 BOMULT EQU BO OUTPUT BLOCKING 60 2
5612 NCFMLT EQU NCF NUM CONTROL FIELDS 60 2
5613 BLMULT EQU BL SORT BLOCK LENGTH 60 2
5614 CTNRML EQU CTNR TOTAL NUM OF RCDS 60 2
5615 PIMULT EQU PI PADDING IND 60 2
5616 URPIML EQU URPI UNREADABLE RCD PROCED IND 60 2
5617 IF1F2M EQU IF1F2 DISTANCE BETWEEN CFS 60 2
5618 CNOSIM EQU CNOS1 NUM TIMES TAPES SWITCHED IN PH 1 60 2
5619 * INPUT TAPE UNIT NUMBERS 60 2
5620 I1TUNM EQU I1TUN 60 2
5621 I2TUNM EQU I2TUN 60 2
5622 I3TUNM EQU I3TUN 60 2
5623 MSMULT EQU MS CORE SIZE 60 2
5624 CFIREM EQU CFIRE UNITS POS CF 1 60 2
5625 CNOPML EQU CNOP 1 IF CF IN FIRST POS OF RCD 60 2
5626 LDIMLT EQU LDI DENSITY INDICATOR 60 2
5627 CF1SLM EQU CF1SL HI ORDER POS CF 1 60 2
5628 SFX # 60 2
5629 ACNTR DCW @0@ STEPDOWN COUNTER 60 2
5630 SPLCHR DCW @|@ STEPDOWN COUNTER 60 2
5631 PADQNQ DCW @ @ LOC OF REDUNDANCY IND 60 2
5632 * TAPE UNIT AND SEQ COUNT BUCKETS 60 2
5633 I2TUHP DCW @0@ 60 2
5634 I1TUHP DCW @0@ 60 2
5635 O1TUHP DCW @0000000@ 60 2
5636 O2TUHP DCW @0000000@ 60 2
5637 TUHOLD DCW @0000000@ 60 2
5638 TAPSEQ DCW @000000@ 60 2
5639 AGMEOP DCW #3 END OF OUTPUT AREA 60 2
5640 ARELBP DCW @ @ END OF OUTPUT AREA-LAST PASS 60 2
5641 AGMEBP DCW @ @ LOC OF GMWM-LAST PASS 60 2
5642 * START OF INPUT AREAS 60 2
5643 INPT1P DCW @ @ 60 2
5644 INPT2P DCW @ @ 60 2
5645 INPT3P DCW @ @ 60 2
5646 * END OF INPUT AREAS 60 2
5647 NDRA1P DCW @ @ 60 2
5648 NDRA2P @ @ 60 2
5649 NDRA3P @ @ 60 2
5650 * UNITS POS CF1 REL TO INPUT AREAS 60 2
5651 CMP11P @ @ 60 2
5652 CMP12P @ @ 60 2
5653 CMP13P @ @ 60 2
5654 ST1MVP DCW @ @ LOC OF MTOA&6 60 2
5655 RMOVEP DCW @ @ NUM OF PADDED RCDS TO BE REMOVED 60 2
5656 * START OF INPUT AREAS & 1 60 2
5657 AIRA1 DCW @ @ 60 2
5658 AIRA2 DCW @ @ 60 2
5659 AIRA3 DCW @ @ 60 2
5660 * START OF INPUT AREAS & 13 60 2
5661 NG1 DCW @ @ 60 2
5662 NG2 DCW @ @ 60 2
5663 NG3 DCW @ @ 60 2
5664 ARELO @ @ OUTPUT AREA & BLOCK LENGTH 60 2
5665 BOL DCW @ @ BLOCK LENGTH-FINAL OUTPUT 60 2
5666 AREFO @ @ START OF OUTPUT AREA&1 60 2
5667 CNRR DCW @ @ COUNT NUM TIMES RETRY READ 60 2
5668 SJA DCW @ @ STORE ZONE FOR REDUND READ 60 2
5669 CNEOR DCW @ @ COUNT NUM TIMES ERASE TAPE 60 2
5670 * STANDARD LABEL BUCKETS 60 2
5671 OPENID DCW @ @ 60 2
5672 TPNOBK DCW @0@ 60 2
5673 KO DCW @O@ 60 2
5674 KI DCW @I@ 60 2
5675 EOJBK DCW @ @ 60 2
5676 MULBKC DCW @00000@ BLOCK COUNT 60 2
5677 SKIP1 EQU CMPABP 60 2
5678 SKIP2 EQU CMPBCP 60 2
5679 SKIP3 EQU CMPACP 60 2
5680 * 60 2
5681 * MAINLINE PROGRAM 60 2
5682 * 60 2
5683 LGMEOP LCA 0,0 SET GMKS IN I/O AREAS 60 2
5684 LCA 0,0 60 2
5685 LCA 0,0 60 2
5686 LCA 0,0 60 2
5687 MLC SPLCHR,0 60 2
5688 REDETP B STRD1 60 2
5689 RNOUTP B SKIP1 RUNOUT SWITCH 60 2
5690 CMPABP C 0,0 COMPARE A&B 60 2
5691 BL SKIP2 B LT A 60 2
5692 BH SKIP3 A LT B 60 2
5693 B EQU 60 2
5694 CMPBCP C 0,0 COMPARE B&C 60 2
5695 BL CLOW C LT B 60 2
5696 BH BLOW B LT C 60 2
5697 B EQU 60 2
5698 CMPACP C 0,0 COMPARE A&C 60 2
5699 BL CLOW C LT A 60 2
5700 BH ALOW A LT C 60 2
5701 B EQU 60 2
5702 IMOVE SBR RTRN1&3 60 2
5703 SBR RTRN2&3 60 2
5704 MTOA MLC 0,0 NUM MOVE INST EQUALS NUM CF 60 2
5705 MLC PLUS ONE IF CF NOT IN FIRST 60 2
5706 MLC POSITION OF RECORD 60 2
5707 MLC 60 2
5708 MLC 60 2
5709 MLC 60 2
5710 MLC 60 2
5711 MLC 60 2
5712 MLC 60 2
5713 MLC 60 2
5714 LMV MLC 60 2
5715 CKOUT C 0,ARELO Q OUTPUT BLOCK FULL 60 2
5716 BE WRITE 60 2
5717 RTRN1 B 0 60 2
5718 WRITE MLC OWA,MTOA&6 60 2
5719 WTEX NOP 0 USERS EXIT PRIOR TO WRITE TAPE 60 2
5720 KOWNT NOP BMULTI,0 COUNT OUTPUT RECORDS 60 2
5721 PDSW B WOBR-7 NOP IF LAST PASS AND PAD. RCDS 60 2
5722 BPAQQ8 BCE WOBR-7,0,1 60 2
5723 AWAY C 0,PADCT#6 Q PADDED RECORD COUNT 60 2
5724 BL RTRN2 60 2
5725 BE RTRN2 60 2
5726 NOP NOP,BBP2 60 2
5727 MLC TWOBL,CNRR 60 2
5728 WOBR WT 0,0 WRITE OUTPUT BLOCK 60 2
5729 BER WORED 60 2
5730 MLC BLANK,0 CLEAR FIRST POS OF OUTPUT AREA 60 2
5731 * LAST PASS REPLACE ABOVE WITH 60 2
5732 * INCREMENT BLOCK COUNT INST 60 2
5733 BEF EOFW1 60 2
5734 RTRN2 B 0 60 2
5735 ALOW MZ *-6,MTOA&2 INIT TO MOVE RCD FROM A TO OUTPUT 60 2
5736 MA LMULTI,MTOA&6 60 2
5737 INCR1 MA LMULTI,IREG1 60 2
5738 B IMOVE 60 2
5739 C IREG1,NDRA1P ALL A RECORDS MOVED 60 2
5740 BU RNOUTP B SOME REMAIN 60 2
5741 MLC INPT1P,IREG1 INITIALIZE INDEX REGISTER 60 2
5742 STRD1 SBR RTRD&3,READ1-7 60 2
5743 SBR RETN&3 60 2
5744 MZ *-6,SJA STORE ZONE FOR REDUN READ 60 2
5745 MLC TWOBL 60 2
5746 MLC CENSIG,NG1 60 2
5747 READ1 RT 0,0 READ FIRST INPUT TAPE 60 2
5748 BEF EOF1 60 2
5749 INTF1 BCE RDGM,NG1,} 60 2
5750 BER RED 60 2
5751 NOP SPLCHR,0&X1 60 2
5752 MLC NOP,*-13 60 2
5753 RD1EX NOP 0 USERS EXIT AFTER READ FIRST TAPE 60 2
5754 RDFST1 B STRD2 FIRST RECORD SWITCH 60 2
5755 STEPA B NEWASQ,0,| START OF NEW SEQUENCE 60 2
5756 B RNOUTP 60 2
5757 BLOW MZ NOP,MTOA&2 INIT TO MOVE RCD FROM B TO OUTPUT 60 2
5758 MA LMULTI,MTOA&6 60 2
5759 INCR2 MA LMULTI,IREG2 60 2
5760 B IMOVE 60 2
5761 C IREG2,NDRA2P ALL B RECORDS MOVED 60 2
5762 BU RNOUTP B SOME REMAIN 60 2
5763 MLC INPT2P,IREG2 INITIALIZE INDEX REGISTER 60 2
5764 STRD2 SBR RTRD&3,READ2-7 60 2
5765 SBR RETN&3 60 2
5766 MZ NOP,SJA STORE ZONE FOR REDUN READ 60 2
5767 MLC TWOBL 60 2
5768 MLC CENSIG,NG2 60 2
5769 READ2 RT 0,0 READ SECOND INPUT TAPE 60 2
5770 BEF EOF2 60 2
5771 INTF2 BCE RDGM,NG2,} 60 2
5772 BER RED 60 2
5773 NOP SPLCHR,0&X2 60 2
5774 MLC NOP,*-13 60 2
5775 RD2EX NOP 0 USERS EXIT AFTER READ SECOND TAPE 60 2
5776 RDFST2 B STRD3 FIRST RECORD SWITCH 60 2
5777 STEPB B NEWBSQ,0,| START OF NEW SEQUENCE 60 2
5778 B RNOUTP 60 2
5779 CLOW MZ KB,MTOA&2 INIT TO MOVE RCD FROM C TO OUTPUT 60 2
5780 MA LMULTI,MTOA&6 60 2
5781 INCR3 MA LMULTI,IREG3 60 2
5782 B IMOVE 60 2
5783 C IREG3,NDRA3P ALL C RECORDS MOVED 60 2
5784 BU RNOUTP SOME REMAIN 60 2
5785 MLC INPT3P,IREG3 INITIALIZE INDEX REGISTER 60 2
5786 STRD3 SBR RTRD&3,READ3-7 60 2
5787 SBR RETN&3 60 2
5788 MZ KB,SJA STORE ZONE FOR REDUN READ 60 2
5789 MLC TWOBL 60 2
5790 MLC CENSIG,NG3 60 2
5791 READ3 RT 0,0 READ THIRD INPUT TAPE 60 2
5792 BEF EOF3 60 2
5793 INTF3 BCE RDGM,NG3,} 60 2
5794 BER RED 60 2
5795 NOP SPLCHR,0&X3 60 2
5796 MLC NOP,*-13 60 2
5797 RD3EX NOP 0 USERS EXIT AFTER READ THIRD TAPE 60 2
5798 RDFST3 B RNOUTP FIRST RECORD SWITCH 60 2
5799 STEPC B NEWCSQ,0,| START OF NEW SEQUENCE 60 2
5800 B RNOUTP ADD THE NUMBER ASSOCIATED 60 2
5801 NEWASQ A AONE,ACNTR WITH UNIT THAT HAS REACHED 60 2
5802 B EOSTSP A NEW SEQUENCE 60 2
5803 NEWBSQ A ATWO,ACNTR 60 2
5804 B EOSTSP 60 2
5805 NEWCSQ A AFOUR,ACNTR 60 2
5806 B EOSTSP 60 2
5807 * CLEAR NOISE RECORD 60 2
5808 RDGM MZ SJA,*&6 60 2
5809 MN TWOBL,13 60 2
5810 MN 60 2
5811 MN 60 2
5812 MN 60 2
5813 MN 60 2
5814 MN 60 2
5815 MN 60 2
5816 MN 60 2
5817 MN 60 2
5818 MN 60 2
5819 MN 60 2
5820 MN 60 2
5821 MN 60 2
5822 MN 60 2
5823 RTRD B 0 RETURN TO READ TAPE 60 2
5824 * DETERMINE CONTENTS OF ACNTR AND BRANCH TO 60 2
5825 * CORRESPONDING RTN TO SET RUNOUT SWITCH 60 2
5826 EOSTSP BCE SDALL,ACNTR,7 Q NEW SEQ ON ALL UNITS 60 2
5827 BCE SDAC,ACNTR,5 B TO INSTRUCTIONS WHICH 60 2
5828 BCE SDAB,ACNTR,3 RE-INITIALIZE COMPARE INSTRUCTION 60 2
5829 BCE SDBC,ACNTR,6 FOR UNITS THAT HAVE NOT 60 2
5830 BCE SDA,ACNTR,1 REACHED A NEW SEQUENCE 60 2
5831 BCE SDB,ACNTR,2 60 2
5832 BCE SDC,ACNTR,4 60 2
5833 B RNOUTP 60 2
5834 SDAC SBR RNOUTP&3,BLOW 60 2
5835 B RNOUTP 60 2
5836 SDAB SBR RNOUTP&3,CLOW 60 2
5837 B RNOUTP 60 2
5838 SDBC SBR RNOUTP&3,ALOW 60 2
5839 B RNOUTP 60 2
5840 SDA SBR RNOUTP&3,SKIP2 60 2
5841 B RNOUTP 60 2
5842 SDB SBR RNOUTP&3,CMPACP 60 2
5843 B RNOUTP 60 2
5844 SDC SBR CMPABP&15,ALOW 60 2
5845 SBR CMPABP&10,BLOW 60 2
5846 B RNOUTP 60 2
5847 SDALL SBR RNOUTP&3,SKIP1 RESET TO ORIGINAL COMPARE INST 60 2
5848 SBR CMPABP&10,SKIP2 WHEN NEW SEQUENCE OR EOF HAS BEEN 60 2
5849 SBR CMPABP&15,SKIP3 REACHED ON ALL TAPES 60 2
5850 MLC AZERO,ACNTR 60 2
5851 MLC SPLCHR,0 SET SEQ CHAR IN WRITE OUT AREA 60 2
5852 SEQCMP C 0,PCNTR Q ALL SEQUENCES PROCESSED 60 2
5853 * END OF PASS BRANCH 60 2
5854 BE RWINDP 60 2
5855 A AONE,PCNTR 60 2
5856 B RNOUTP 60 2
5857 * LAST PASS ROUTINE 60 2
5858 LPEOJ MLC AONE,EOJBK 60 2
5859 BCE RWINDP,OTLIMP, 60 2
5860 B LMHLTP STANDARD TRAILER LABEL BRANCH 60 2
5861 RWINDP WTM 0 WRITE T M ON OUTPUT TAPE 60 2
5862 RWD 0 60 2
5863 CW 0 CLEAR WORD MARKS AT END OF 60 2
5864 CW 0 I/O AREAS TO ALLOW WRITING 60 2
5865 CW 0 OF CHECKPOINT 60 2
5866 CW 0 60 2
5867 * MAINLINE BRANCH TO WKLBLI 60 2
5868 ENDMP B ENDMLT 60 2
5869 * WRITE REDUNDANCY ROUTINE 60 2
5870 WORED BSP 0 60 2
5871 BCE ERASE,CNRR,1 60 2
5872 A AONE,CNRR 60 2
5873 B WOBR 60 2
5874 ERASE A AONE,CNEOR 60 2
5875 BCE HWRED,CNEOR,0 TEN SKIPS BRANCH 60 2
5876 ERTAPP SKP 0 60 2
5877 B WOBR-7 60 2
5878 HWRED H 60 2
5879 MLC TWOBL,CNEOR 60 2
5880 B ERTAPP 60 2
5881 * EQUAL ROUTINE 60 2
5882 EQU SBR EQHLD#3 SET INSTRUCTIONS 60 2
5883 MLC IREG1,HLDX1P#3 TO COMPARE SECONDARY 60 2
5884 MLC EQHLD,IREG1 CONTROL FIELDS 60 2
5885 MA @I8E@,IREG1 60 2
5886 MLC 0&X1,CMNCF&6 60 2
5887 MLC 4&X1,CMNCF&10 60 2
5888 MLC 9&X1,NXTCFP&17 60 2
5889 MLC 9&X1,CMNCF&15 60 2
5890 MLC HLDX1P,IREG1 60 2
5891 MLC TWOBL,CNCF2#2 60 2
5892 SBR ICFL&3,IF1F2M 60 2
5893 SBR ICFL2&3,IF1F2M 60 2
5894 NXTCFP A AONE,CNCF2 60 2
5895 C CNCF2,NCFMLT 60 2
5896 BE 0 60 2
5897 ICFL MA 0,CMNCF&3 60 2
5898 ICFL2 MA 0,CMNCF&6 60 2
5899 CMNCF C 0,0 60 2
5900 BL 0 60 2
5901 BH 0 60 2
5902 MA LIT003,ICFL&3 60 2
5903 MA LIT003,ICFL2&3 60 2
5904 B NXTCFP 60 2
5905 * READ REDUNDANCY ROUTINE 60 2
5906 RED SBR TUNOS&3 60 2
5907 SBR SMOREP&3 60 2
5908 MA @I7G@,TUNOS&3 60 2
5909 A AONE,CNRR 60 2
5910 NOP SJA,REDSQ-3 60 2
5911 SETZN MZ SJA,MHBB&2 60 2
5912 BWZ SUBT B,CNRR-1,S 60 2
5913 TUNOS MN 0,BCKSPP&3 60 2
5914 BCKSPP BSP 0 60 2
5915 RETN B 0 60 2
5916 SUBT B NOP BMULTI,0 ADD IF NOT CORRECT OPTION 60 2
5917 B BBP2 60 2
5918 EOF1 A AONE,ACNTR END OF FILE ON FIRST INPUT UNIT 60 2
5919 RWD 0 60 2
5920 MLC BLANK,0 REMOVE 1401 GENERATED GP MK 60 2
5921 B EOSTSP 60 2
5922 EOF2 A ATWO,ACNTR END OF FILE ON SECOND INPUT UNIT 60 2
5923 RWD 0 60 2
5924 MLC BLANK,0 REMOVE 1401 GENERATED GP MK 60 2
5925 B EOSTSP 60 2
5926 EOF3 A AFOUR,ACNTR END OF FILE ON THIRD INPUT UNIT 60 2
5927 RWD 0 60 2
5928 MLC BLANK,0 REMOVE 1401 GENERATED GP MK 60 2
5929 B EOSTSP 60 2
5930 * END OF REEL ON OUTPUT UNIT 60 2
5931 EOFW1 NOP LPSQCP LAST PASS BRANCH 60 2
5932 CS 332 60 2
5933 CS 60 2
5934 MLC WROM,227 60 2
5935 W 60 2
5936 CC 1 60 2
5937 H *-3 60 2
5938 LPSQCP C ACTNR,CTNRML 60 2
5939 BE LPEOJ END OF JOB BRANCH 60 2
5940 B LMHLTP END OF REEL BRANCH 60 2
5941 WROM DCW @OUTPUT EXCEEDS REEL LENGTH@ 60 2
5942 LTORG* 60 2
5943 SAVE ORG * 60 2
5944 JOB ** IBM 1401 SORT 7 VERSION 2 MULTIPHASE 60 2
5945 ORG ADJEND 60 2
5946 * MULTIPHASE WORK LABEL ROUTINE TO PROCESS STANDARD 60 2
5947 * HEADER LABELS ON ALL WORK TAPES 60 2
5948 * 60 2
5949 * TAPES ARE REFERRED TO AS OUTPUT OR INPUT DEPENDING 60 2
5950 * UPON WHETHER THEY ARE OUTPUT OR INPUT REELS TO THE 60 2
5951 * NEXT PASS. 60 2
5952 * 60 2
5953 MLHHL1 H MULEX1 PRESS START TO ACCEPT LABEL 60 2
5954 * AS READ.THE REDUNDANT REC. 60 2
5955 * WILL BE WRITTEN AS THE H.L. 60 2
5956 B MULHRD-19 PRESS START RESET/START TO 60 2
5957 * RETRY UP TO 99 MORE TIMES. 60 2
5958 * 60 2
5959 MLHHL2 H PRESS START TO TRY TO WRITE 60 2
5960 MLC AZERO,MULHC2 THE HEADER LABEL AGAIN UP TO 60 2
5961 B MULHWT 9 SKIPS. 60 2
5962 * 60 2
5963 MLHHL3 H MULEX1 PRESS START TO ACCEPT INPUT 60 2
5964 * HEADER LABEL AS READ. 60 2
5965 B MULHRD-19 PRESS START RESET/START TO 60 2
5966 * RETRY UP TO 99 MORE TIMES. 60 2
5967 * 60 2
5968 MLHHL4 H *-3 NO T/M AFTER H.L. WHEN ONE 60 2
5969 * HAS BEEN SPECIFIED AS BEING 60 2
5970 * THERE-RESTART PROG. 60 2
5971 MLHENT SBR MLHEXT&3 60 2
5972 MN TPNOBK,MULST1&14 60 2
5973 MN TPNOBK,MULHRD&3 60 2
5974 MN TPNOBK,MULTMR&3 60 2
5975 MN TPNOBK,MLHST3&11 60 2
5976 MULST1 CS 181 CLEAR HDR LABEL READ/WRITE AREA 60 2
5977 MLCWA0,181 60 2
5978 RWD 0 60 2
5979 MLC SIX 0S-4,MULHC1#2 INIT ERROR COUNTER 60 2
5980 MLC CENSIG,MULHRD&15 60 2
5981 MLC CENSIG,114 60 2
5982 MULHRD RTW 0,101 60 2
5983 BCE MLHNOS,114, IF NOISE RECORD 60 2
5984 BEF *&1 60 2
5985 BER MLHRDP PARITY ERROR ROUTINE 60 2
5986 MULEX1 NOP 0 USERS EXIT 60 2
5987 BCE MULST2,OPENID,O IF OUTPUT TAPE 60 2
5988 BCE CLR280,THLTMO, IF NO TM AFTER HL 60 2
5989 MULTMR RT 0,101 READ TAPEMARK 60 2
5990 BEF CLR280 60 2
5991 B MLHHL4 ERROR CONDITION 60 2
5992 MULST2 MN TPNOBK,MULEX2&7 INIT I/O INSTRUCTIONS 60 2
5993 MN TPNOBK,MULHWT&3 60 2
5994 MN TPNOBK,CLR280-2 60 2
5995 MN TPNOBK,MLHPWT&10 60 2
5996 MN TPNOBK,MLHST4&3 60 2
5997 MLC @09@,MULHC1 RESET ERROR COUNTER 60 2
5998 MLC AZERO,MULHC2#1 60 2
5999 MULEX2 NOP 0 USERS EXIT 60 2
6000 RWD 0 60 2
6001 MULHWT WT 0,101 60 2
6002 BER MLHPWT PARITY ERROR 60 2
6003 BCE *&6,THLTMO, IF NO T/M AFTER H.L. 60 2
6004 WTM 0 60 2
6005 CLR280 CS 181 60 2
6006 MLHEXT B 0 RETURN TO NEXT SEQUENTIAL INST 60 2
6007 * 60 2
6008 MLHNOS CS 114 60 2
6009 B MULHRD-14 60 2
6010 * 60 2
6011 * READ PARITY ERROR ROUTINE 60 2
6012 * 60 2
6013 * TRY TO READ HEADER 99 TIMES THEN HALT 60 2
6014 MLHRDP BCE *&12,OPENID,O IF OUTPUT TAPE 60 2
6015 SBR MLHST3&3,MLHHL3 60 2
6016 B *&8 60 2
6017 SBR MLHST3&3,MLHHL1 60 2
6018 A AONE,MULHC1 60 2
6019 MLHST3 BWZ MLHHL1,MULHC1-1,S IF 99 TRIES 60 2
6020 BSP 0 60 2
6021 B MULHRD-14 60 2
6022 * 60 2
6023 * WRITE PARITY ERROR ROUTINE 60 2
6024 * 60 2
6025 * TRY TO WRITE HEADER TWICE IN SAME PLACE THEN 60 2
6026 * SPACE FORWARD AFTER TEN SKIPS HALT 60 2
6027 MLHPWT S AONE,MULHC1 60 2
6028 BSP 0 60 2
6029 BCE *&5,MULHC1,G 60 2
6030 B MULHWT 60 2
6031 MLC @09@,MULHC1 60 2
6032 MLHST4 SKP 0 60 2
6033 A AONE,MULHC2 60 2
6034 BCE MLHHL2,MULHC2,0 60 2
6035 B MULHWT 60 2
6036 LTORG* 60 2
6037 WKLEND ORG * 60 2
6038 JOB ** IBM 1401 SORT 7 VERSION 2 MULTIPHASE 60 2
6039 ORG KEEP 60 2
6040 MLTPHZ SBR REDETP&3,STRD1 START OF MULTIPHASE ADJUSTMENT 60 2
6041 B STRD2 60 2
6042 * PASS P1 SEQUENCES ROUTINE 60 2
6043 PASSP1 MLC BLANK,0 60 2
6044 MLC NOP,RDFST2 60 2
6045 BCE SETP3,CNTRB,1 60 2
6046 P1CHAR MLC SPLCHR,0 MOVE SEQ CHAR TO OUTPUT AREA 60 2
6047 C P1AREA,PCNTR Q SEQ PASSED EQUAL TO P1 60 2
6048 BE SETP2 60 2
6049 A AONE,PCNTR BUMP SEQUENCE COUNTER 60 2
6050 B RNOUTP 60 2
6051 P1EOF RWD 0 60 2
6052 MLC BLANK,0 REMOVE 1401 GENERATED GP MK 60 2
6053 C P1AREA,SIX 0S 60 2
6054 BE SETP2 60 2
6055 SBR RDFST2&3,PASSP1 60 2
6056 P1EOF2 A AONE,PCNTR 60 2
6057 MLC KB,RDFST2 60 2
6058 MLC I2TUHP,TPNOBK 60 2
6059 MLC KI 60 2
6060 B MLHENT 60 2
6061 B STRD2 60 2
6062 * INIT TO PASS P2 SEQ 60 2
6063 SETP2 MN O1TUHP,WOBR&3 SET NEW OUTPUT TAPE 60 2
6064 MN O1TUHP,WORED&3 60 2
6065 MN O1TUHP,ERTAPP&3 60 2
6066 MLC SIX 0S,PCNTR RESET SEQUENCE COUNTER 60 2
6067 SBR STEPB&3,PASSP2 60 2
6068 SBR READ2&11,P2EOF 60 2
6069 * PASS P2 SEQUENCES ROUTINE 60 2
6070 PASSP2 MLC BLANK,0 60 2
6071 P2CHAR MLC SPLCHR,0 MOVE SEQ CHAR TO OUTPUT AREA 60 2
6072 MLC NOP,RDFST2 60 2
6073 C P2AREA,PCNTR Q SEQ PASSED EQUAL TO P2 60 2
6074 BE SETP3 60 2
6075 A AONE,PCNTR BUMP COUNTER 60 2
6076 B RNOUTP 60 2
6077 P2EOF RWD 0 60 2
6078 MLC BLANK,0 60 2
6079 C P2AREA,SIX 0S 60 2
6080 BE SETP3 60 2
6081 SBR RDFST2&3,PASSP2 60 2
6082 B P1EOF2 60 2
6083 * INIT TO PASS P3 SEQ 60 2
6084 SETP3 MLC SIX 0S,PCNTR RESET SEQUENCE COUNTER 60 2
6085 RTNPP3 MLC GPMARK,*&4 60 2
6086 LCA 0,002 BYPASS CHECKPOINT WRITTEN 60 2
6087 MLC I1TUHP,*&4 DURING PHASE 1 60 2
6088 RT 0,001 60 2
6089 SBR RNOUTP&3,ALOW SET RUNOUT TO PASS SEQUENCES 60 2
6090 MLC INPT1P,STEPA&6 FROM FIRST UNIT 60 2
6091 SBR STEPA&3,PASSP3 60 2
6092 B STRD1 READ FIRST RECORD 60 2
6093 * PASS P3 SEQUENCES ROUTINE 60 2
6094 PASSP3 MLC BLANK,0 60 2
6095 P3CHAR MLC SPLCHR,0 MOVE SEQ CHAR TO OUTPUT AREA 60 2
6096 MLC NOP,RDFST1 60 2
6097 C P3AREA,PCNTR Q SEQ PASSED EQUAL TO P3 60 2
6098 BE READ X 60 2
6099 A AONE,PCNTR BUMP COUNTER 60 2
6100 B RNOUTP 60 2
6101 P3EOF RWD 0 60 2
6102 MLC BLANK,0 REMOVE 1401 GENERATED GP MK 60 2
6103 SBR RDFST1&3,PASSP3 60 2
6104 MLC KB,RDFST1 60 2
6105 A AONE,PCNTR BUMP COUNTER 60 2
6106 MLC I1TUHP,TPNOBK 60 2
6107 MLC KI 60 2
6108 B MLHENT 60 2
6109 B RTNPP3 60 2
6110 READ X CS 080 READ IN ROUTINE 60 2
6111 SW 024,056 FOR MERGING X SEQUENCES 60 2
6112 SW 063,067 60 2
6113 R 056 60 2
6114 P1AREA DCW @000000@ 60 2
6115 P2AREA DCW @000000@ 60 2
6116 P3AREA DCW @000000@ 60 2
6117 LTORG* 60 2
6118 ADJEND ORG * 60 2
6119 ORG 087 60 2
6120 IREG1 DCW 000 60 2
6121 ORG 092 60 2
6122 IREG2 DCW 000 60 2
6123 ORG 097 60 2
6124 IREG3 DCW 000 60 2
6125 ORG 3200 60 2
6126 LLCHEK BCE STRTN,LBBUCK, 60 2
6127 CS 80 60 2
6128 SW 24,56 60 2
6129 SW 63,67 60 2
6130 R 56 60 2
6131 STRTN BCE STU,LABELS,1 LABELS BRANCH 60 2
6132 MLC NOP,SETP2-8 NOP BRANCHES TO WORK LABEL RTN 60 2
6133 MLC NOP,READ X-8 60 2
6134 SBR OWA,2801 SET NO LABELS OUTPUT AREA 60 2
6135 STU BCE FRAMOR,LBBUCK, 60 2
6136 SBR SETP2-5,MLHANT BRANCHES CHANGED FOR 120 CHAR. 60 2
6137 SBR READ X-5,MLHANT 60 2
6138 SBR RWINDP-1,LMHKTP 60 2
6139 SBR LPSQCP&15 60 2
6140 FRAMOR MLC I1TUNM,O1TUHP STORE INPUT AND OUTPUT TAPE 60 2
6141 MLC I2TUNM,O2TUHP UNIT NUMBERS AS USED IN 60 2
6142 MLC MI1TUN,I1TUHP PHASE 1 60 2
6143 MLC MI2TUN,I2TUHP 60 2
6144 SBR IREG1,MTOA 60 2
6145 MLC NCFMLT,NCFHDP#2 60 2
6146 MLC NOP,AWAY&12 60 2
6147 MLC OWA,AIRA1 60 2
6148 MA BLMULT,AIRA1 SET LOCATIONS FOR 60 2
6149 MLC AIRA1,AGMEOP GROUP MARK WORD MARK AT END OF 60 2
6150 MLC AIRA1,LGMEOP&6 EACH INPUT 60 2
6151 MLC AIRA1,RWINDP&25 AND OUTPUT AREA 60 2
6152 MA @002@,AIRA1 60 2
6153 MLC AIRA1,AIRA2 60 2
6154 MA BLMULT,AIRA2 60 2
6155 MA LIT001,AIRA2 60 2
6156 MLC AIRA2,LGMEOP&13 60 2
6157 MLC AIRA2,RWINDP&13 60 2
6158 MA @002@,AIRA2 60 2
6159 MLC AIRA2,AIRA3 60 2
6160 MA BLMULT,AIRA3 60 2
6161 MA LIT001,AIRA3 60 2
6162 MLC AIRA3,LGMEOP&20 60 2
6163 MLC AIRA3,RWINDP&17 60 2
6164 MA @002@,AIRA3 60 2
6165 MLC AIRA1,EOF1&18 INITIALIZE REMOVAL OF 1401 60 2
6166 MLC AIRA2,EOF2&18 GENERATED GROUP MARK 60 2
6167 MLC AIRA3,EOF3&18 60 2
6168 MLC AIRA3,AIRA4#3 60 2
6169 MA BLMULT,AIRA4 60 2
6170 MA LIT001,AIRA4 60 2
6171 MLC AIRA4,LGMEOP&27 60 2
6172 MLC AIRA4,RWINDP&21 60 2
6173 MLC AIRA3,INPT3P 60 2
6174 MA I99,INPT3P 60 2
6175 MLC INPT3P,READ3&6 60 2
6176 MLC OWA,AREFO 60 2
6177 MA I99,OWA 60 2
6178 MLC OWA,WOBR&6 60 2
6179 MLC OWA,WOBR&19 SET LOCATIONS FOR START OF 60 2
6180 MLC AIRA1,INPT1P INPUT READ AREAS 60 2
6181 MA I99,INPT1P 60 2
6182 MLC INPT1P,READ1&6 60 2
6183 MLC AIRA2,INPT2P 60 2
6184 MA I99,INPT2P 60 2
6185 MLC INPT2P,READ2&6 60 2
6186 * SET ADDR OF GROUP MARK WORD MARK 60 2
6187 MLC GPMARK,LGMEOP&3 60 2
6188 MLC GPMARK,LGMEOP&10 60 2
6189 MLC GPMARK,LGMEOP&17 60 2
6190 MLC GPMARK,LGMEOP&24 60 2
6191 BCE *&12,LBBUCK, 60 2
6192 MLC GPMARK,MVLST1&8 60 2
6193 B *&8 60 2
6194 MLC GPMARK,MULST1&7 60 2
6195 MLC AIRA1,NG1 SET NOISE RECORD TEST 60 2
6196 MA @012@,NG1 60 2
6197 MLC AIRA2,NG2 60 2
6198 MA @012@,NG2 60 2
6199 MLC AIRA3,NG3 60 2
6200 MA @012@,NG3 60 2
6201 MLC NG1,INTF1&6 60 2
6202 MLC NG2,INTF2&6 60 2
6203 MLC NG3,INTF3&6 60 2
6204 MLC CENSIG,INTF1&7 60 2
6205 MLC CENSIG,INTF2&7 60 2
6206 MLC CENSIG,INTF3&7 60 2
6207 MLC NG1,READ1-1 60 2
6208 MLC NG2,READ2-1 60 2
6209 MLC NG3,READ3-1 60 2
6210 * LOAD MODE INITIALIZATION 60 2
6211 BCE CMTOA,OUTMLT,M OUTPUT MOVE MODE BRANCH 60 2
6212 MLC OUTMLT,SBR-6 60 2
6213 MODMV MLC OUTMLT,LMV CHANGE MOVE INST TO LOAD INST 60 2
6214 BCE CMTOA,CTMV-1,1 60 2
6215 A AONE,CTMV#2 60 2
6216 MA I99,MODMV&6 60 2
6217 B MODMV 60 2
6218 CMTOA C NCFHDP,@10@ INITIALIZE MOVE TO 60 2
6219 BE CKPOS1 OUTPUT AREA DEPENDENT 60 2
6220 MA LIT001,IREG1 UPON NUMBER OF CONTROL FIELDS 60 2
6221 A AONE,NCFHDP 60 2
6222 B CMTOA 60 2
6223 CKPOS1 BCE MSBR,CNOPML, 60 2
6224 MA LIT001,IREG1 EXEC ONLY IF CF IN FIRST RCD POS 60 2
6225 MSBR LCA SBR,6&X1 60 2
6226 LCA 60 2
6227 LCA 60 2
6228 MLC IREG1,ST1MVP 60 2
6229 MA LIT006,ST1MVP 60 2
6230 MLC ST1MVP,*&7 60 2
6231 MLC OWA,0 MOVE START OF OUTPUT INTO MTOA&6 60 2
6232 MLC ST1MVP,WRITE&6 60 2
6233 MLC ST1MVP,ALOW&13 60 2
6234 MLC ST1MVP,BLOW&13 60 2
6235 MLC ST1MVP,CLOW&13 60 2
6236 MLC ST1MVP,CKOUT&3 60 2
6237 MLC IREG1,IREG2 60 2
6238 MA @I9B@,IREG2 ESTABLISH LOCATION OF IMOVE 60 2
6239 MLC IREG2,INCR1&10 60 2
6240 MLC IREG2,INCR2&10 60 2
6241 MLC IREG2,INCR3&10 60 2
6242 MLC IREG1,IREG3 60 2
6243 MA @002@,IREG3 ESTABLISH LOCATION OF MTOA&2 60 2
6244 MLC IREG3,ALOW&6 60 2
6245 MLC IREG3,BLOW&6 60 2
6246 MLC IREG3,CLOW&6 60 2
6247 * ESTABLISH S, N, A1, B1, AND C1 60 2
6248 * S, TOTAL NUM OF SEQ PRIOR TO ADJUSTMENT 60 2
6249 * N, TOTAL NUM OF SEQ AFTER ADJUSTMENT 60 2
6250 * A1,B1,C1 NUM OF SEQ ON EACH INPUT TAPE 1,3,4 60 2
6251 * RESPECTIVELY AFTER ADJUSTMENT 60 2
6252 * COMPUTE ADJUSTMENT VALUES Y, X, P1, P2, P3 60 2
6253 * Y, NUM OF SEQ TO BE 3 WAY MERGED TO HIGH OUTPUT 60 2
6254 * X, NUM OF SEQ TO BE 2 WAY MERGED TO LOW OUTPUT 60 2
6255 * P1, NUM OF SEQ TO BE PASSED FROM HIGH INPUT TO 60 2
6256 * HIGH OUTPUT TAPE 60 2
6257 * P2, NUM OF SEQ TO BE PASSED FROM HIGH INPUT TO 60 2
6258 * LOW OUTPUT TAPE 60 2
6259 * P3, NUM OF SEQ TO BE PASSED FROM LOW INPUT TO 60 2
6260 * LOW OUTPUT TAPE 60 2
6261 A AONE,CNOSIM 60 2
6262 MLC CNOSIM,NOSQCT 60 2
6263 A NOSQCT FIND NUMBER OF SEQUENCES 60 2
6264 A NOSQCT ON EACH INPUT TAPE REEL 60 2
6265 A CNOSIM,NOSQCT 60 2
6266 MLC CNOSIM,SQHOLD 60 2
6267 MLC NOSQCT-1,SEQ1 60 2
6268 MLC NOSQCT-1,SEQ2 60 2
6269 A AONE,NOMP BUMP NUM OF MERGE COUNTER 60 2
6270 C NOSQCT,@5@ 60 2
6271 BE SEQ/ 60 2
6272 TEST7 C CNOSIM,@000008@ Q TOTAL SEQUENCES LESS THAN 8 60 2
6273 BH MODIF1 60 2
6274 MLC @9@,CNTRB 60 2
6275 * TEST TO FIND FIRST N&3C1 FROM TABLE WHICH IS EQUAL 60 2
6276 * TO OR GREATER THAN S 60 2
6277 LOOKUP C HOLDC1,CNOSIM 60 2
6278 BH UPTBLE 60 2
6279 S AREAN,SQHOLD FIND Y EQUAL TO S-N DIVIDED 60 2
6280 MZ AONE,SQHOLD BY THREE[TRUNCATED] 60 2
6281 MLC SQHOLD,HOLDSN 60 2
6282 A HOLDSN 60 2
6283 A SQHOLD,HOLDSN 60 2
6284 MLC HOLDSN,ADHOLD 60 2
6285 A ADHOLD,HOLDSN-1 60 2
6286 A ADHOLD,HOLDSN-2 60 2
6287 A ADHOLD,HOLDSN-3 60 2
6288 A ADHOLD,HOLDSN-4 60 2
6289 A ADHOLD,HOLDSN-5 60 2
6290 A ADHOLD,HOLDSN-6 60 2
6291 A @5@,HOLDSN-5 60 2
6292 MLC HOLDSN-7,YAREA 60 2
6293 MLC SQHOLD,XAREA FIND X EQUALTO S-N-2Y 60 2
6294 MLC YAREA,SQHOLD 60 2
6295 A SQHOLD 60 2
6296 S SQHOLD,XAREA 60 2
6297 MZ AONE,XAREA 60 2
6298 MLC AREAC1,P1AREA FIND PASS P1 EQUAL TO C1-Y 60 2
6299 S YAREA,P1AREA 60 2
6300 MZ AONE,P1AREA 60 2
6301 MLC SEQ2,P2AREA 60 2
6302 S XAREA,P2AREA FIND PASS P2 EQUAL TO A-X-C1 60 2
6303 S AREAC1,P2AREA 60 2
6304 MZ AONE,P2AREA 60 2
6305 MLC SEQ1,P3AREA FIND PASS P3 EQUAL TO A&K-X-Y-A1 60 2
6306 S XAREA,P3AREA 60 2
6307 S YAREA,P3AREA 60 2
6308 S AREAA1,P3AREA 60 2
6309 MZ AONE,P3AREA 60 2
6310 SPCRTN MLC INPT2P,STEPB&6 INITIALIZE INSTRUCTIONS IN 60 2
6311 MLC I2TUHP,READ2&3 ADJUSTMENT ROUTINE TO PASS 60 2
6312 MLC I1TUHP,P3EOF&3 P1,P2,AND P3 NUMBER 60 2
6313 MLC I2TUHP,P1EOF&3 OF SEQUENCES 60 2
6314 MLC I2TUHP,P2EOF&3 60 2
6315 MA EOF1&18,P1EOF&11 60 2
6316 MA EOF2&18,P2EOF&11 60 2
6317 MA EOF3&18,P3EOF&11 60 2
6318 MLC INPT2P,PASSP1&6 60 2
6319 MLC INPT3P,STEPC&6 60 2
6320 SBR RDFST2&3,PASSP1 60 2
6321 SBR STEPB&3,PASSP1 60 2
6322 SBR RNOUTP&3,BLOW 60 2
6323 MLC OWA,P1CHAR&6 60 2
6324 MLC INPT2P,PASSP2&6 60 2
6325 MLC OWA,P2CHAR&6 60 2
6326 MLC INPT1P,PASSP3&6 60 2
6327 MLC OWA,P3CHAR&6 60 2
6328 MLC SIX 0S-5,I3TUNM 60 2
6329 MLC SIX 0S-5,MI3TUN 60 2
6330 SBR RDFST1&3,PASSP3 60 2
6331 MLC P1AREA,YCNTR 60 2
6332 A YAREA,YCNTR 60 2
6333 MN O2TUHP,WOBR&3 60 2
6334 MN O2TUHP,WORED&3 60 2
6335 MN O2TUHP,ERTAPP&3 60 2
6336 MN O1TUHP,READ3&3 60 2
6337 A P3AREA,O2TUHP-1 60 2
6338 A XAREA,O2TUHP-1 60 2
6339 MLC SEQ1,TUHOLD-1 60 2
6340 MLC O2TUHP-1,TAPSEQ 60 2
6341 A P2AREA,TAPSEQ 60 2
6342 SBR READ2&11,P1EOF 60 2
6343 MLC I1TUHP,READ1&3 60 2
6344 MLC I1TUHP,EOF1&10 60 2
6345 SBR READ1&11,P3EOF 60 2
6346 MLC OWA,REDETP-1 60 2
6347 CS 080 READ OVERLAP INST INTO CORE 60 2
6348 SW 24,56 60 2
6349 SW 63,67 60 2
6350 BCE WLBLOL,LBBUCK, 60 2
6351 OLYRED R 056 60 2
6352 WLBLOL R 60 2
6353 BCE OLYRED,68,B 60 2
6354 B WLBLOL 60 2
6355 SEQ/ A AONE,SEQ1 INCREASE SEQ1 WHEN TOTAL NUM 60 2
6356 B TEST7 OF SEQUENCES IS ODD 60 2
6357 * LOOP TO REACH THE NEXT HIGHER LEVEL OF THE 60 2
6358 * MULTIPHASE MERGE TABLE 60 2
6359 UPTBLE MLC AREAC1,HOLDC1 60 2
6360 A AREAB1,AREAC1 60 2
6361 MLC HOLDC1,AREAB1 60 2
6362 A AREAA1,AREAB1 60 2
6363 MLC HOLDC1,AREAA1 60 2
6364 A AREAB1,HOLDC1 60 2
6365 A AREAC1,HOLDC1 60 2
6366 MLC HOLDC1,AREAN 60 2
6367 A AREAC1,HOLDC1 60 2
6368 A AREAC1,HOLDC1 60 2
6369 A AREAC1,HOLDC1 60 2
6370 A AONE,NOMP 60 2
6371 B LOOKUP 60 2
6372 SBR RTRN1&3 60 2
6373 SBR RTRN2&3 60 2
6374 SBR DCW @M000000@ 60 2
6375 HOLDSN DCW @0000000000000@ 60 2
6376 MODIF1 BCE SEQNO1,CNOSIM,1 SET INSTRUCTIONS FOR EXCEPTION 60 2
6377 BCE SEQNO2,CNOSIM,2 CASES WHERE TOTAL NUMBER OF 60 2
6378 BCE SEQNO3,CNOSIM,3 SEQUENCES IS LESS THAN EIGHT 60 2
6379 BCE SEQNO4,CNOSIM,4 60 2
6380 BCE SEQNO5,CNOSIM,5 60 2
6381 BCE SEQNO6,CNOSIM,6 60 2
6382 MLC @7@,CNTRB SEQUENCE TOTAL EQUALS SEVEN 60 2
6383 MLC ATWO,NOMP SET NOMP TO TWO 60 2
6384 A AONE,P1AREA SET P1 TO ONE 60 2
6385 A AONE,P2AREA SET P2 TO ONE 60 2
6386 A ATWO,P3AREA SET P3 TO TWO 60 2
6387 MLC AONE,YAREA SET Y TO ONE 60 2
6388 B SPCRTN 60 2
6389 SEQNO1 MLC AONE,CNTRB SEQUENCE TOTAL EQUALS ONE 60 2
6390 B SPCRTN 60 2
6391 SEQNO2 MLC ATWO,CNTRB SEQUENCE TOTAL EQUALS TWO 60 2
6392 B SPCRTN 60 2
6393 SEQNO3 MLC AONE,XAREA SEQUENCE TOTAL EQUALS THREE 60 2
6394 MLC LIT003,CNTRB SET X TO ONE 60 2
6395 B SPCRTN 60 2
6396 SEQNO4 MLC AFOUR,CNTRB SEQUENCE TOTAL EQUALS FOUR 60 2
6397 MLC AONE,P2AREA SET P2 TO ONE 60 2
6398 MLC AONE,P3AREA SET P3 TO ONE 60 2
6399 MLC AONE,YAREA SET Y TO ONE 60 2
6400 B SPCRTN 60 2
6401 SEQNO5 MLC @5@,CNTRB SEQUENCE TOTAL EQUALS FIVE 60 2
6402 MLC AONE,XAREA SET X TO ONE 60 2
6403 MLC AONE,P3AREA SET P3 TO ONE 60 2
6404 MLC AONE,YAREA SET Y TO ONE 60 2
6405 B SPCRTN 60 2
6406 SEQNO6 MLC ATWO,XAREA SEQUENCE TOTAL EQUALS SIX 60 2
6407 MLC LIT006,CNTRB SET X TO TWO 60 2
6408 MLC AONE,YAREA SET Y TO ONE 60 2
6409 B SPCRTN 60 2
6410 AREAC1 DCW @000001@ 60 2
6411 AREAB1 DCW @000001@ 60 2
6412 AREAA1 DCW @000001@ 60 2
6413 ADHOLD DCW @000000@ 60 2
6414 NOSQCT DCW @0000000@ 60 2
6415 SQHOLD DCW @000000@ 60 2
6416 SEQ1 DCW @000000@ 60 2
6417 SEQ2 DCW @000000@ 60 2
6418 AREAN DCW @000003@ 60 2
6419 HOLDC1 DCW @000006@ 60 2
6420 LIT006 DCW @006@ 60 2
6421 EX LLCHEK 60 2
6422 JOB ** IBM 1401 SORT 7 VERSION 2 MULTIPHASE 60 2
6423 * 60 2
6424 * 120 CHARACTER WORK LABEL ROUTINE 60 2
6425 ORG ADJEND 60 2
6426 * TAPES ARE REFERRED TO AS OUTPUT OR INPUT DEPENDING 60 2
6427 * ON WHETHER THEY ARE OUTPUT OR INPUT REELS TO NXT PS 60 2
6428 MLHIL1 H MULAX1 PRESS START TO ACCEPT LABEL AS 60 2
6429 * READ.THE REDUNDANT RECORD WILL 60 2
6430 * BE WRITTEN AS THE HEADER LABEL 60 2
6431 B MVLHRD-14 PRESS START/RESET-START TO RETRY 60 2
6432 * UP TO 99 MORE TIMES 60 2
6433 MLHIL2 H PRESS START TO TRY TO WRITE THE 60 2
6434 MLC AZERO,MVLHC2 60 2
6435 B MVLHWT 60 2
6436 MLHIL3 H MULAX1 PRESS START TO ACCEPT INPUT HDR 60 2
6437 B MVLHRD-14 LABEL AS READ.PRESS START RESET 60 2
6438 * START TO RETRY UP TO 99 TIMES 60 2
6439 MLHIL4 H *-3 NO TAPEMARK AFTER HL WHEN ONE HAS 60 2
6440 * BEEN SPECIFIED-RESTART PROGRAM 60 2
6441 MLHANT SBR MLHAXT&3 60 2
6442 MLNS TPNOBK,MVLST1&15 60 2
6443 MLNS TPNOBK,MVLHRD&3 60 2
6444 MLNS TPNOBK,MVLTMR&3 60 2
6445 MLNS TPNOBK,MEHST3&11 60 2
6446 MVLST1 CS 332 60 2
6447 CS 60 2
6448 MLCWA0,321 60 2
6449 RWD 0 60 2
6450 MLC SIX 0S-4,MVLHC1#2 60 2
6451 MLC CENSIG,MKHNOS&7 60 2
6452 MLC CENSIG,214 60 2
6453 MVLHRD RTW 0,201 60 2
6454 MKHNOS BCE MLHNUS,214, BRANCH IF NOISE RECORD 60 2
6455 BEF *&1 60 2
6456 BER MEHRDP BRANCH TO PARITY ERROR ROUTINE 60 2
6457 MULAX1 NOP 0 USERS EXIT 60 2
6458 BCE MVLST2,OPENID,O IF OUTPUT TAPE 60 2
6459 BCE CLR331,THLTMO, NO TAPEMARK AFTER HEADER LABEL 60 2
6460 MVLTMR RT 0,201 READ TAPEMARK 60 2
6461 BEF CLR331 60 2
6462 B MLHIL4 A TAPEMARK SHOULD BE PRESENT 60 2
6463 MVLST2 MLNS TPNOBK,MULAX2&7 INIT I/O INSTRUCTIONS 60 2
6464 MLNS TPNOBK,MVLHWT&3 60 2
6465 MLNS TPNOBK,CLR331-2 60 2
6466 MLNS TPNOBK,MEHPWT&10 60 2
6467 MLNS TPNOBK,MEHST4&3 60 2
6468 MLC AZERO,MVLHC2#1 60 2
6469 MLC @09@,MVLHC1 RESET ERROR COUNTER 60 2
6470 MULAX2 NOP 0 USER EXIT 60 2
6471 RWD 0 60 2
6472 MVLHWT WT 0,201 60 2
6473 BER MEHPWT PARITY ERROR 60 2
6474 BCE *&6,THLTMO, NO TAPEMARK AFTER HEADER LABEL 60 2
6475 WTM 0 60 2
6476 CLR331 CS 332 60 2
6477 CS 60 2
6478 MLHAXT B 0 RETURN TO NEXT SEQUENTIAL INST 60 2
6479 MLHNUS CS 220 CLEAR NOISE RECORD 60 2
6480 B MVLHRD 60 2
6481 * 60 2
6482 * READ PARITY ERROR ROUTINE 60 2
6483 * TRY TO READ HEADER 99 TIMES THEN HALT 60 2
6484 MEHRDP BCE *&12,OPENID,O IF OUTPUT TAPE 60 2
6485 SBR MEHST3,MLHIL3 60 2
6486 B *&8 60 2
6487 SBR MEHST3,MLHIL1 60 2
6488 A AONE,MVLHC1 60 2
6489 MEHST3 BWZ MLHIL1,MVLHC1-1,S IF 99 TRIES 60 2
6490 BSP 0 60 2
6491 B MVLHRD 60 2
6492 * 60 2
6493 * WRITE PARITY ERROR ROUTINE 60 2
6494 * 60 2
6495 * TRY TO WRITE HEADER TWICE IN SAME PLACE THEN SPACE 60 2
6496 * FOWARD----AFTER TEN SKIPS-HALT---- 60 2
6497 MEHPWT S AONE,MVLHC1 60 2
6498 BSP 0 60 2
6499 BCE *&5,MVLHC1,G 60 2
6500 B MVLHWT 60 2
6501 MLC @09@,MVLHC1 60 2
6502 MEHST4 SKP 0 60 2
6503 A AONE,MVLHC2 60 2
6504 BCE MLHIL2,MVLHC2,0 60 2
6505 B MVLHWT 60 2
6506 LTORG* 60 2
6507 WKLAND ORG * 60 2
6508 EX STRTN 60 2
6509 JOB ** IBM 1401 SORT 7 VERSION 2 MULTIPHASE 60 2
6510 ORG 3200 60 2
6511 OVLAP MLC CTNRML,CNAR#6 ESTABLISH NUM OF RCDS 60 2
6512 S PDCPUT,CNAR 60 2
6513 MZ BLANK,CNAR 60 2
6514 MLC NOMP,NMPP2#2 60 2
6515 MLC NMPP2,PRMSA 60 2
6516 MLC NMPP2,NMPL 60 2
6517 CS 332 60 2
6518 CS 60 2
6519 MLC PRMSA,227 60 2
6520 W 60 2
6521 CC K PRINT TOTAL NUMBER OF MERGES 60 2
6522 MLC CTNRML,PMSC1P-22 60 2
6523 MLC CNAR,PRMSD-22 60 2
6524 CS 228 60 2
6525 MLC PRMSD,228 60 2
6526 W PRINT ACTUAL NUMBER OF RECORDS 60 2
6527 CS 332 60 2
6528 CS 60 2
6529 MLC PDCPUT,PRMSE-22 60 2
6530 MLC PRMSE,228 60 2
6531 W PRINT NUMBER OF PADDED RECORDS 60 2
6532 CS 332 60 2
6533 CS 60 2
6534 MLC PMSC1P,228 60 2
6535 W PRINT TOTAL OF ACTUAL AND 60 2
6536 CC 1 PADDED RECORDS 60 2
6537 MLC @I9W@,IREG1 60 2
6538 BCE LD12K,MSMULT,5 60 2
6539 BCE LD16K,MSMULT,6 60 2
6540 LDCST LCA SIX 0S,0&X1 INITIALIZE AREA AND INSTRUCTIONS 60 2
6541 LCA SIX 0S FOR COUNTING NUMBER OF RECORDS 60 2
6542 SBR CLEPS PROCESSED 60 2
6543 MLC IREG1,ACNT 60 2
6544 MLC ACNT,SUBT B&6 60 2
6545 MA @I9D@,IREG1 60 2
6546 MLC IREG1,ACTNR 60 2
6547 MLC ACTNR,KOWNT&6 60 2
6548 MLC ACTNR,AWAY&3 60 2
6549 MLC ACTNR,LPSQCP&3 60 2
6550 MLC AIRA1,NDRA1P END OF FIRST READ AREA 60 2
6551 MA BLMULT,NDRA1P 60 2
6552 MA I99,NDRA1P 60 2
6553 MLC AIRA2,NDRA2P END OF SECOND READ AREA 60 2
6554 MA BLMULT,NDRA2P 60 2
6555 MA I99,NDRA2P 60 2
6556 MLC AIRA3,NDRA3P END OF THIRD READ AREA 60 2
6557 MA BLMULT,NDRA3P 60 2
6558 MA I99,NDRA3P 60 2
6559 MLC CFIREM,CMPABP&3 SET COMPARE INSTR 60 2
6560 MLC CFIREM,CMPABP&6 60 2
6561 MLC CFIREM,CMPBCP&3 60 2
6562 MLC CFIREM,CMPBCP&6 60 2
6563 MLC CFIREM,CMPACP&3 60 2
6564 MLC CFIREM,CMPACP&6 60 2
6565 MZ *-6,CMPABP&2 60 2
6566 MZ *-6,CMPACP&2 60 2
6567 MZ NOP,CMPABP&5 60 2
6568 MZ NOP,CMPBCP&2 60 2
6569 MZ KB,CMPACP&5 60 2
6570 MZ KB,CMPBCP&5 60 2
6571 MLC OWA,ARELO 60 2
6572 MA BLMULT,ARELO 60 2
6573 MLC AIRA1,CMP11P FIRST READ AREA CF 60 2
6574 MA CFIREM,CMP11P 60 2
6575 MA I99,CMP11P 60 2
6576 MLC AIRA2,CMP12P SECOND READ AREA CF 60 2
6577 MA CFIREM,CMP12P 60 2
6578 MA I99,CMP12P 60 2
6579 MLC AIRA3,CMP13P THIRD READ AREA CF 60 2
6580 MA CFIREM,CMP13P 60 2
6581 MA I99,CMP13P 60 2
6582 BCE CCFW1,DESCND, 60 2
6583 MLC SNGLET,CMPABP&16 DESCENDING ORDER INITIALIZATION 60 2
6584 MLC SNGLET,CMPBCP&16 EXCHANGE BHS AND BLS 60 2
6585 MLC SNGLET,CMPACP&16 60 2
6586 MLC SNGLET,CMNCF&16 60 2
6587 MLC SNGLEU,CMPABP&11 60 2
6588 MLC SNGLEU,CMPBCP&11 60 2
6589 MLC SNGLEU,CMPACP&11 60 2
6590 MLC SNGLEU,CMNCF&11 60 2
6591 BCE CCFW1,PIMULT,6 60 2
6592 BCE CHG9PD,PIMULT,9 CHANGE PADDING INDICATOR 60 2
6593 MLC SNGLE9,PIMULT 60 2
6594 CCFW1 C NCFMLT,AONE 60 2
6595 BU CKRWD 60 2
6596 * CLEAR EQUALS ROUTINE 60 2
6597 MLC BLANK,CMPABP&16 60 2
6598 MLC BLANK,CMPBCP&16 60 2
6599 MLC BLANK,CMPACP&16 60 2
6600 CKRWD BCE CMBOL,UNLOAD, 60 2
6601 MLC SNGLEU,EOF1&11 REWIND AND UNLOAD INITIALIZATION 60 2
6602 MLC SNGLEU,EOF2&11 60 2
6603 MLC SNGLEU,EOF3&11 60 2
6604 MLC SNGLEU,RWINDP&9 60 2
6605 * COMPUTE OUTPUT BLOCK LENGTH 60 2
6606 CMBOL MA LMULTI,BOL 60 2
6607 A AONE,CNBOL#3 60 2
6608 C CNBOL,BOMULT 60 2
6609 BU CMBOL 60 2
6610 MLC OWA,ARELBP 60 2
6611 MA BOL,ARELBP 60 2
6612 MLC ARELBP,AGMEBP 60 2
6613 MA LIT001,AGMEBP 60 2
6614 * COMPUTE PADDING REQUIREMENTS 60 2
6615 BCE REED,PIMULT,6 60 2
6616 MLC PDCPUT,PDELMP#3 60 2
6617 HWMCHP S BOMULT,PDELMP 60 2
6618 BWZ REED,PDELMP,K 60 2
6619 A BOMULT,RMOVEP 60 2
6620 B HWMCHP 60 2
6621 CHG9PD MLC BLANK,PIMULT 60 2
6622 B CCFW1 60 2
6623 LD12K MA @00|@,IREG1 MODIFY FOR 12K SYSTEM 60 2
6624 B LDCST 60 2
6625 LD16K MA @00!@,IREG1 MODIFY FOR 16K SYSTEM 60 2
6626 B LDCST 60 2
6627 REED CS 080 DETERMINE REDUNDANCY ROUTINE 60 2
6628 MLC INPT1P,IREG1 REQUESTED BY USER 60 2
6629 MLC INPT2P,IREG2 60 2
6630 MLC INPT3P,IREG3 60 2
6631 SW 24,56 60 2
6632 SW 63,67 60 2
6633 BCE STURPP,URPIML,C 60 2
6634 SBR RED&7,REDSQ&6 60 2
6635 MLC SETZN,SETZN-7 60 2
6636 MLC @A@,SUBT B 60 2
6637 MLC *-6,WOBR-14 60 2
6638 BCE STURQP,URPIML,P 60 2
6639 SBR SETZN&6,BBPQQG&5 60 2
6640 MLC SNGLET,IDENT&7 60 2
6641 B IDENT-1 60 2
6642 STURQP SBR SETZN&6,MHBB1&2 60 2
6643 STURPP MLC URPIML,IDENT&7 READ INTO CORE 60 2
6644 R REQUESTED REDUNDANCY ROUTINE 60 2
6645 IDENT BCE 056,079, 60 2
6646 R IDENT 60 2
6647 RANOTP CS 080 60 2
6648 SW 24,56 60 2
6649 SW 63,67 60 2
6650 R FRGETP 60 2
6651 * BYPASS OTHER REDUND RTN 60 2
6652 * LOAD NEXT INIT RTN AND BR TO STBRG 60 2
6653 FRGETP BCE 056,079, 60 2
6654 R FRGETP 60 2
6655 SNGLET DCW @T@ 60 2
6656 SNGLEU DCW @U@ 60 2
6657 SNGLE9 DCW @9@ 60 2
6658 PRMSA DCW @NUM OF MULTIPHASE PASSES 00@ 60 2
6659 PMSC1P DCW @ -RECORDS READ-PASS 00@ 60 2
6660 PRMSD DCW @ -RECORDS READ-PASS 00@ 60 2
6661 PRMSE DCW @000 PAD REC ADDED-PASS 00@ 60 2
6662 EX OVLAP 60 2
6663 JOB ** IBM 1401 SORT 7 VERSION 1 MULTIPHASE PUNCH URPI 60 2
6664 ORG SAVE 60 2
6665 BBP2 MLC AONE,0 60 2
6666 BCE *&8,0, IF START OF SEQUENCE 60 2
6667 REDSQ MLC *-6,0 ACTIVATE SEQ CHAR MOVE 60 2
6668 MLC SIX 0S-3,CT3DG 60 2
6669 PBB SBR MHBB1&13,100 60 2
6670 CS 180 60 2
6671 MBB2 MA LIT001,MHBB1&3 60 2
6672 MA LIT001,MHBB1&13 60 2
6673 MHBB1 MLC 0,CNRR-1 60 2
6674 MLC CNRR-1,0 60 2
6675 MA LIT001,CT3DG 60 2
6676 C CT3DG,BLMULT 60 2
6677 BE PCHB1P 60 2
6678 BCE PCHB2P,MHBB1&12,8 60 2
6679 B MBB2 60 2
6680 PCHB2P P PBB PUNCH FULL CARD 60 2
6681 PCHB1P P PUNCH LAST CHAR OF UNREADABLE BLK 60 2
6682 MLC SIX 0S-3,MHBB1&3 60 2
6683 MA @I8I@,RETN&3 60 2
6684 MLC KB,PDSW 60 2
6685 CS 180 60 2
6686 B RETN 60 2
6687 CT3DG DCW @ @ 60 2
6688 LTORG* 60 2
6689 KEEP ORG * 60 2
6690 EX RANOTP 60 2
6691 JOB ** IBM 1401 SORT 7 VERSION 2 MULTIPHASE CORRECT 60 2
6692 ORG SAVE 60 2
6693 BBP3 NOP TSSG2 60 2
6694 MLC SIX 0S,CT3G1P#3 60 2
6695 PRTBB SBR MHBB&13,200 60 2
6696 CS 332 60 2
6697 CS 60 2
6698 MBB1 MA LIT001,MHBB&3 60 2
6699 MA LIT001,MHBB&13 60 2
6700 MHBB MLC 0,CNRR-1 60 2
6701 MLC CNRR-1,0 60 2
6702 MA LIT001,CT3G1P 60 2
6703 C CT3G1P,BLMULT 60 2
6704 BE PRTB2P 60 2
6705 BCE PRTB1P,MHBB&11,3 60 2
6706 B MBB1 60 2
6707 COREKP MLC KB,BBP3 60 2
6708 B BCKSPP 60 2
6709 PRTB1P W PRTBB PRINT UNREADABLE BLOCK 60 2
6710 PRTB2P W 100 CHARACTERS PER LINE 60 2
6711 MLC SIX 0S-3,MHBB&3 60 2
6712 CC 1 60 2
6713 TSSG2 H 60 2
6714 * PUT SENSE SWITCH G ON TO REREAD RECORD IN ORDER TO 60 2
6715 * CORRECT. IF RECORD IS TO BE ACCEPTED AFTER 60 2
6716 * CORRECTION, SET SENSE SWITCH G OFF AND PRESS START. 60 2
6717 BSS COREKP,G 60 2
6718 MLC NOP,BBP3 60 2
6719 SMOREP B 0 60 2
6720 LTORG* 60 2
6721 EX RANOTP 60 2
6722 JOB ** IBM 1401 SORT 7 VERSION 2 MULTIPHASE TAPE URPI 60 2
6723 ORG SAVE 60 2
6724 BBP4 MLC AONE,0 60 2
6725 BCE *&8,0, IF START OF SEQUENCE 60 2
6726 MLC *-6,0 ACTIVATE SEQ CHAR MOVE 60 2
6727 BBPQQG WT 0,1 WRITE UNREADABLE BLOCK ON TAPE 60 2
6728 BEF BTPEF 60 2
6729 BER BTPER 60 2
6730 CS 332 60 2
6731 CS 60 2
6732 MLC UNMSG,223 60 2
6733 W 60 2
6734 CC 1 60 2
6735 MLC KB,PDSW 60 2
6736 MA @I8I@,RETN&3 60 2
6737 B RETN 60 2
6738 BTPER BSP 0 60 2
6739 SKP 0 60 2
6740 B BBPQQG 60 2
6741 BTPEF H BBPQQG 60 2
6742 UNMSG DCW @UNREAD BLK WRITTEN-TU 0@ 60 2
6743 LTORG* 60 2
6744 ORG WKLAND 60 2
6745 INTBT MLC URPIML,BTPER&3 MOVE DUMP TAPE UNIT NUM INTO INST 60 2
6746 MLC URPIML,BBPQQG&3 60 2
6747 MLC URPIML,UNMSG 60 2
6748 MLC URPIML,BTPER&8 60 2
6749 B RANOTP 60 2
6750 NOP 60 2
6751 EX INTBT 60 2
6752 JOB ** IBM 1401 SORT 7 VERSION 2 MULTIPHASE 60 2
6753 ORG WKLAND 60 2
6754 * LABELS ROUTINE TO CLEAR AREAS AND SET WORDMARKS 60 2
6755 ACOA SBR REDETP&3,MLTPHZ 60 2
6756 CS 3499 60 2
6757 CS CLEAR OUTPUT AREA 60 2
6758 CS 60 2
6759 B LGMEOP 60 2
6760 STBRG MLC NDRA3P,ACLINP&3 60 2
6761 SW 3500 60 2
6762 ACLINP CS 0 CLEAR INPUT AREAS 60 2
6763 SBR ACLINP&3 60 2
6764 BWZ ACLINP,3500,1 60 2
6765 MLC TWOBL,ACNCF#2 SET WORD MARKS IN 60 2
6766 ANWM12 MLC AIRA1,AICF12#3 INPUT AREAS FOR CONTROL 60 2
6767 MA CF1SLM,AICF12 FIELD DESIGNATION 60 2
6768 MLC AICF12,AWMS12&3 60 2
6769 MLC @ @,ACNTB 60 2
6770 AWMS12 SW 0 60 2
6771 A AONE,ACNTB 60 2
6772 C ACNTB,BMULTI 60 2
6773 * BRANCH TO GET NEXT CF 60 2
6774 BE ASWNCF 60 2
6775 MA LMULTI,AWMS12&3 60 2
6776 B AWMS12 60 2
6777 ASWNCF A AONE,ACNCF 60 2
6778 C ACNCF,NCFMLT 60 2
6779 * BRANCH TO INIT NEXT INPUT AREA 60 2
6780 BE AWIRA2 60 2
6781 MA LIT003,ANWM12&10 60 2
6782 B ANWM12 60 2
6783 AWIRA2 NOP AWIRA3 60 2
6784 MLC KB,AWIRA2 60 2
6785 SBR ANWM12&3,AIRA2 60 2
6786 SBR ANWM12&10,CF1SLM 60 2
6787 B ANWM12-7 60 2
6788 AWIRA3 NOP AWMSET 60 2
6789 MLC KB,AWIRA3 60 2
6790 SBR ANWM12&3,AIRA3 60 2
6791 SBR ANWM12&10,CF1SLM 60 2
6792 B ANWM12-7 60 2
6793 AWMSET BCE ACOA,CNOPML,1 WM ALREADY SET IN FIRST POS 60 2
6794 ANWMBI MLC AIRA1,AICF12 60 2
6795 MLC AICF12,ASW12&3 60 2
6796 MLC @ @,ACNTB#3 60 2
6797 * SET WORD MARKS IN FIRST POS OF EAC 60 2
6798 * RECORD IN INPUT AREAS 60 2
6799 ASW12 SW 0 60 2
6800 A AONE,ACNTB 60 2
6801 C ACNTB,BMULTI 60 2
6802 BE AMIRA2 60 2
6803 MA LMULTI,ASW12&3 60 2
6804 B ASW12 60 2
6805 AMIRA2 NOP AMIRA3 60 2
6806 MLC KB,AMIRA2 60 2
6807 MLC AIRA2,AICF12 60 2
6808 B ANWMBI&7 60 2
6809 AMIRA3 NOP ACOA 60 2
6810 MLC KB,AMIRA3 60 2
6811 MLC AIRA3,AICF12 60 2
6812 B ANWMBI&7 60 2
6813 LTORG* 60 2
6814 AMV MLC GPMARK,PADQNQ SET REDUNDANCY INDICATOR 60 2
6815 MA I99,PADQNQ 60 2
6816 MLC PADQNQ,BPAQQ8&6 60 2
6817 BCE *&8,URPIML,C 60 2
6818 MLC PADQNQ,BBP2&6 60 2
6819 BCE YSLBL,LABELS,1 60 2
6820 CS 080 LOAD NO LABELS CLEAR ROUTINE 60 2
6821 SW 24,56 60 2
6822 SW 63,67 60 2
6823 R 056 60 2
6824 YSLBL R BYPASS NO LABELS CLEAR ROUTINE 60 2
6825 BCE STBRG,068,B 60 2
6826 B YSLBL 60 2
6827 NOP 60 2
6828 EX AMV 60 2
6829 JOB ** IBM 1401 SORT 7 VERSION 2 MULTIPHASE 60 2
6830 ORG ADJEND 60 2
6831 * NO LABELS ROUTINE TO CLEAR AREAS AND SET WORDMARKS 60 2
6832 BCOA SBR REDETP&3,MLTPHZ 60 2
6833 CS 3199 CLEAR OUTPUT AREA 60 2
6834 CS 60 2
6835 CS 60 2
6836 CS 60 2
6837 B LGMEOP 60 2
6838 BST MLC NDRA3P,BCLIN&3 60 2
6839 SW 3200 60 2
6840 BCLIN CS 0 CLEAR INPUT AREAS 60 2
6841 SBR BCLIN&3 60 2
6842 BWZ BCLIN,3200,1 60 2
6843 MLC TWOBL,BCNCF#2 SET WORD MARKS IN INPUT AREAS FOR 60 2
6844 BAR1 MLC AIRA1,BICF#3 CONTROL FIELD DESIGNATION 60 2
6845 MA CF1SLM,BICF 60 2
6846 MLC BICF,BWMS&3 60 2
6847 MLC @ @,BCNTA#3 60 2
6848 BWMS SW 0 60 2
6849 A AONE,BCNTA 60 2
6850 C BCNTA,BMULTI 60 2
6851 BE BSWNCF BRANCH TO GET NEXT CF 60 2
6852 MA LMULTI,BWMS&3 60 2
6853 B BWMS 60 2
6854 BSWNCF A AONE,BCNCF 60 2
6855 C BCNCF,NCFMLT 60 2
6856 BE BAR2 BRANCH TO INIT NEXT INPUT AREA 60 2
6857 MA LIT003,BAR1&10 60 2
6858 B BAR1 60 2
6859 BAR2 NOP BAR3 60 2
6860 MLC KB,BAR2 60 2
6861 SBR BAR1&3,AIRA2 60 2
6862 SBR BAR1&10,CF1SLM 60 2
6863 B BAR1-7 60 2
6864 BAR3 NOP BWMST 60 2
6865 MLC KB,BAR3 60 2
6866 SBR BAR1&3,AIRA3 60 2
6867 SBR BAR1&10,CF1SLM 60 2
6868 B BAR1-7 60 2
6869 BWMST BCE BCOA,CNOPML,1 WM ALREADY SET IN FIRST POS 60 2
6870 BWMBI MLC AIRA1,BICF 60 2
6871 MLC BICF,BSWN1&3 60 2
6872 MLC @ @,BCNTA 60 2
6873 BSWN1 SW 0 SET WORD MARKS IN FIRST RCD POS 60 2
6874 A AONE,BCNTA 60 2
6875 C BCNTA,BMULTI 60 2
6876 BE BLDAR2 60 2
6877 MA LMULTI,BSWN1&3 60 2
6878 B BSWN1 60 2
6879 BLDAR2 NOP BLDAR3 60 2
6880 MLC KB,BLDAR2 60 2
6881 MLC AIRA2,BICF 60 2
6882 B BWMBI&7 60 2
6883 BLDAR3 NOP BCOA 60 2
6884 MLC KB,BLDAR3 60 2
6885 MLC AIRA3,BICF 60 2
6886 B BWMBI&7 60 2
6887 LTORG* 60 2
6888 EX BST 60 2
6889 JOB ** IBM 1401 SORT 7 VERSION 2 MULTIPHASE 60 2
6890 * 60 2
6891 * TWO WAY MERGE X SEQUENCES ROUTINE 60 2
6892 * 60 2
6893 ORG KEEP 60 2
6894 SET X MLC SIX 0S,PCNTR INITIALIZE INSTRUCTIONS FOR 60 2
6895 MLC OWA,XCHAR&6 TWO WAY MERGE OF X NUMBER 60 2
6896 MLC INPT1P,MRGE X&6 OF SEQUENCES 60 2
6897 MLC INPT2P,MRGE X&13 60 2
6898 SBR RUNOTP&3,SKIP1 60 2
6899 SBR CMPABP&15,ALOW 60 2
6900 SBR READ1&11,ASDEOF 60 2
6901 SBR READ2&11,BSDEOF 60 2
6902 MLC I2TUHP,BSDEOF&3 60 2
6903 MLC I1TUHP,ASDEOF&3 60 2
6904 MLC EOF2&18,BSDEOF&11 60 2
6905 MLC EOF1&18,ASDEOF&11 60 2
6906 SBR CMPABP&10,BLOW 60 2
6907 SBR STEPA&3,ASD 60 2
6908 SBR STEPB&3,BSD 60 2
6909 MLC AZERO,ACNTR 60 2
6910 BCE MRGE X,LABELS,1 60 2
6911 MLC NOP,ASDEND-8 NOP BRANCHES TO WORK LABEL RTN 60 2
6912 MLC NOP,BSDEND-8 60 2
6913 MRGE X MLC BLANK,0 60 2
6914 MLC BLANK,0 60 2
6915 XCHAR MLC SPLCHR,0 60 2
6916 C XAREA,PCNTR Q X SEQUENCES MERGED 60 2
6917 BE READ Y 60 2
6918 A AONE,PCNTR 60 2
6919 B RUNOTP 60 2
6920 ASDEOF RWD 0 60 2
6921 MLC BLANK,0 60 2
6922 SBR RDFST1&3,ASDEND 60 2
6923 MLC KB,RDFST1 60 2
6924 MLC I1TUHP,TPNOBK SETX EOF 60 2
6925 MLC KI 60 2
6926 B MLHENT 60 2
6927 B STRD1 60 2
6928 ASDEND MLC NOP,RDFST1 60 2
6929 ASD SBR RUNOTP&3,BLOW SET TO RUNOUT SECOND UNIT 60 2
6930 A AONE,ACNTR 60 2
6931 B ALGEOS 60 2
6932 BSDEOF RWD 0 60 2
6933 MLC BLANK,0 60 2
6934 SBR RDFST2&3,BSDEND 60 2
6935 BCE BSDEND,CNTRB,3 60 2
6936 MLC KB,RDFST2 60 2
6937 MLC I2TUHP,TPNOBK SETX EOF 60 2
6938 MLC KI 60 2
6939 B MLHENT 60 2
6940 B STRD2 60 2
6941 BSDEND MLC NOP,RDFST2 60 2
6942 BSD SBR RUNOTP&3,ALOW SET TO RUNOUT FIRST UNIT 60 2
6943 A ATWO,ACNTR 60 2
6944 ALGEOS B ABSD,ACNTR,3 Q NEW SEQ ON BOTH UNITS 60 2
6945 B RUNOTP 60 2
6946 ABSD SBR RUNOTP&3,SKIP1 RESTORE COMPARE INST 60 2
6947 MLC AZERO,ACNTR RESET COUNTER 60 2
6948 B MRGE X 60 2
6949 READ Y CS 080 READ INTO CORE ROUTINE 60 2
6950 SW 024,056 TO THREEWAY MERGE Y NUMBER 60 2
6951 SW 063,067 OF SEQUENCES 60 2
6952 R 056 60 2
6953 NOP 60 2
6954 EX SET X 60 2
6955 JOB ** IBM 1401 SORT 7 VERSION 2 MULTIPHASE 60 2
6956 ORG KEEP 60 2
6957 * 60 2
6958 * THREE WAY MERGE Y SEQUENCES ROUTIN 60 2
6959 * 60 2
6960 SET Y MLC SIX 0S,PCNTR INITIALIZE MAIN LINE PROGRAM 60 2
6961 * FOR 3 WAY MERGING Y NUM OF SEQ 60 2
6962 MN O1TUHP,EOF3&10 60 2
6963 MN O1TUHP,Y TPMK&3 60 2
6964 MN O1TUHP,Y TPMK&8 60 2
6965 C O2TUHP-1,SIX 0S 60 2
6966 BE *&11 60 2
6967 Y TPMK WTM 0 60 2
6968 RWD 0 60 2
6969 SBR RUNOTP&3,SKIP1 60 2
6970 SBR CMPABP&10,SKIP2 60 2
6971 SBR CMPABP&15,SKIP3 60 2
6972 MLC I1TUHP,EOF1&10 60 2
6973 MLC I2TUHP,EOF2&10 60 2
6974 MLC AZERO,ACNTR 60 2
6975 * SET OUTPUT TAPE UNIT NUM 60 2
6976 SW O2TUHP 60 2
6977 MLC O2TUHP,RWINDP&3 60 2
6978 MLC O2TUHP,RWINDP&8 60 2
6979 MLC O2TUHP,WOBR&3 60 2
6980 MLC O2TUHP,WORED&3 60 2
6981 MLC O2TUHP,ERTAPP&3 60 2
6982 CW O2TUHP 60 2
6983 SBR STEPA&3,NEWASQ 60 2
6984 SBR STEPB&3,NEWBSQ 60 2
6985 SBR STEPC&3,NEWCSQ 60 2
6986 SBR SEQCMP&10,RWINDP 60 2
6987 SBR SEQCMP&3,YAREA 60 2
6988 MLC OWA,SEQCMP-1 60 2
6989 MLC YAREA,SEQMRG 60 2
6990 MLC INPT3P,ENTER3&20 60 2
6991 SBR RDFST3&3,ENTER3 60 2
6992 SBR READ1&11,EOF1 60 2
6993 SBR READ2&11,EOF2 60 2
6994 BCE *&8,LABELS,1 60 2
6995 MLC NOP,ENTER3-8 NOP BRANCH TO WORK LABEL RTN 60 2
6996 BCE *&8,LBBUCK, 60 2
6997 SBR ENTER3-5,MLHANT 60 2
6998 * DETERMINE IF SPECIAL CASE TOTAL 60 2
6999 C YLIT3,CNTRB NUM OF SEQ LESS THAN 7 60 2
7000 BL SETONE 60 2
7001 BCE SETHRE,CNTRB,3 60 2
7002 C CNTRB,YLIT7 60 2
7003 BH SET456 60 2
7004 RDHDR3 MLC O1TUHP,TPNOBK SETY RD HDR ON INPUT 60 2
7005 MLC KI 60 2
7006 B MLHENT 60 2
7007 B STRD3 READ FIRST RECORD OF THIRD UNIT 60 2
7008 ENTER3 MLC NOP,RDFST3 60 2
7009 SBR REDETP&3,RUNOTP 60 2
7010 MLC BLANK,0 60 2
7011 C YAREA,PCNTR Q Y SEQUENCES MERGED 60 2
7012 BE ENDMLT 60 2
7013 A AONE,PCNTR 60 2
7014 B RUNOTP 60 2
7015 SETONE MLC AZERO,O1TUHP-1 SET ROTATION FOR LESS THAN 60 2
7016 MLC AZERO,TUHOLD-1 FOUR SEQUENCES 60 2
7017 MLC AZERO,O2TUHP-1 60 2
7018 MLC AONE,SEQMRG 60 2
7019 B ENDMLT 60 2
7020 SETHRE SBR ENTER3-1,ENDMLT 60 2
7021 SET456 MLC AONE,O2TUHP-1 60 2
7022 MLC ATWO,TUHOLD-1 60 2
7023 MLC AZERO,SEQMRG 60 2
7024 MLC AZERO,TAPSEQ 60 2
7025 MLC AZERO,O1TUHP-1 60 2
7026 B RDHDR3 60 2
7027 ENDMLT CS 080 LOAD NEXT BLOCK-ADJMS 60 2
7028 SW 24,56 60 2
7029 SW 63,67 60 2
7030 R 056 60 2
7031 YLIT3 DCW @3@ 60 2
7032 YLIT7 DCW @7@ 60 2
7033 EX SET Y 60 2
7034 JOB ** IBM 1401 SORT 7 VERSION 2 MULTIPHASE 60 2
7035 ORG KEEP 60 2
7036 ADJMS CS 332 60 2
7037 CS 60 2
7038 MLC MLTMSG,228 PRINT END OF ADJUSTMENT MESSAGE 60 2
7039 W 60 2
7040 CC 1 60 2
7041 SBR SEQCMP&3,SEQMRG INITIALIZE MAINLINE INSTRUCTIONS 60 2
7042 SBR ENDMP&3,WKLBLI 60 2
7043 SBR RDFST1&3,STRD2 60 2
7044 SBR RDFST2&3,STRD3 60 2
7045 C PDCPUT,SIX 0S-3 60 2
7046 BU *&8 60 2
7047 MLC @6@,PIMULT 60 2
7048 SW 3200 60 2
7049 MLC CSTCNS,CLADJ&3 60 2
7050 CLADJ CS 0 60 2
7051 SBR CLADJ&3 60 2
7052 REPLAC BWZ CLADJ,3200,1 60 2
7053 BCE CLAD,LABELS,1 60 2
7054 CS 3199 60 2
7055 CS 60 2
7056 CS 60 2
7057 CS 60 2
7058 CLAD CS 180 60 2
7059 * LOAD RESTART AND PHASE TO PHASE RT 60 2
7060 CS 080 60 2
7061 SW 24,56 60 2
7062 SW 63,67 60 2
7063 R 056 60 2
7064 MLTMSG DCW @END OF MULTIPHASE ADJUSTMENT@ 60 2
7065 LTORG* 60 2
7066 EX ADJMS 60 2
7067 JOB ** IBM 1401 SORT 7 VERSION 2 MULTIPHASE 60 2
7068 * RESTART ROUTINE 60 2
7069 * EXECUTED ONLY IF PROGRAM INTERRUPTED AND SUBSEQUENTL 60 2
7070 * RESTARTED BY TAPE LOAD OF CHECKPOINT 60 2
7071 * NOTE NOT APPLICABLE FOR RUN REQUIRING ONLY ONE MERGE PAS 60 2
7072 * SENSE SWITCH F MUST BE ON TO RESTART LAST PASS 60 2
7073 ORG RSTORG 60 2
7074 HRES MLC PRMSJ,231 PRINT CARD READER MESSAGE 60 2
7075 W 60 2
7076 BEF *&1 60 2
7077 MLZS *-6,CENSIG 60 2
7078 MLC CENSIG,INTF1&7 60 2
7079 MLC CENSIG,INTF2&7 60 2
7080 MLC CENSIG,INTF3&7 60 2
7081 MLC GPMARK,IREG1 SET GMWM IN UPPER CORE 60 2
7082 SW 0&X1 60 2
7083 MLC GM,0&X1 60 2
7084 MLC INPT1P,IREG1 60 2
7085 BSS FSTLP,F RESTART LAST PASS BRANCH 60 2
7086 SWFRTN CS 240 60 2
7087 MLC PRMSI,238 60 2
7088 MLC PRMSH-9 60 2
7089 W PRINT RESTART MESSAGE 60 2
7090 CS 240 60 2
7091 MLC PDTYQP,212 60 2
7092 W PRINT DENSITY MESSAGE 60 2
7093 CC 1 60 2
7094 BSS ALTRD,F LAST PASS BRANCH TAPES SHOULD 60 2
7095 * ALREADY BE POS PAST HDRS IF PRESEN 60 2
7096 H HALT SET TAPE UNIT NUMS 60 2
7097 * READY CARD READER[IF NOT LAST PASS 60 2
7098 BCE *&22,LBBUCK, 60 2
7099 SBR ALTRD-1,MLHANT 60 2
7100 SBR ALTRD-12,MLHANT 60 2
7101 SBR ALTRD-23,MLHANT 60 2
7102 BCE ALTRD,LABELS, NO LABELS BRANCH 60 2
7103 MLC I1TUHP,TPNOBK INIT TO RD HDR ON INPUT TAPES 60 2
7104 MLC KI 60 2
7105 B MLHENT 60 2
7106 MLC I2TUHP,TPNOBK 60 2
7107 B MLHENT 60 2
7108 MLC O1TUHP,TPNOBK 60 2
7109 B MLHENT 60 2
7110 * ALTER RD TAPE 1 RD AREA & BRS 60 2
7111 ALTRD MLC INTF1&4,SAVE4 60 2
7112 MLC BLANK,INTF1&4 60 2
7113 SBR INTF1&3,RDFST1 60 2
7114 SBR READ1&6,245 60 2
7115 SBR STEPA&6 60 2
7116 SW 249 SET GMWM 60 2
7117 MLC GM,249 60 2
7118 SBR STEPA&11,READ1 60 2
7119 SBR STEPA&3,REENT1 60 2
7120 B READ1 60 2
7121 * READ TAPE 1 UNTIL POS CORRECTLY 60 2
7122 REENT1 A AONE,RECNT#6 60 2
7123 C O2TUHP-1,RECNT 60 2
7124 BH RSTRD1 60 2
7125 B READ1 60 2
7126 * RESTORE RD TAPE 1 RTN AND ALTER 60 2
7127 * RD TAPE 2 RD AREA & BRS 60 2
7128 RSTRD1 MLC SAVE4,INTF1&4 60 2
7129 MLC INPT1P,READ1&6 60 2
7130 MLC INPT1P,STEPA&6 60 2
7131 MLC INTF2&4,SAVE4 60 2
7132 MLC BLANK,INTF2&4 60 2
7133 SBR INTF2&3,RDFST2 60 2
7134 SBR READ2&6,245 60 2
7135 SBR STEPB&6 60 2
7136 SBR STEPB&11,READ2 60 2
7137 SBR STEPB&3,REENT2 60 2
7138 MLC XAREA,RECNT 60 2
7139 B READ2 60 2
7140 * READ TAPE 2 UNTIL POS CORRECTLY 60 2
7141 REENT2 A AONE,RECNT 60 2
7142 C O1TUHP-1,RECNT 60 2
7143 BH RSTRD2 60 2
7144 B READ2 60 2
7145 * RESTORE RD TAPE 2 RTN 60 2
7146 RSTRD2 MLC SAVE4,INTF2&4 60 2
7147 MLC INPT2P,READ2&6 60 2
7148 MLC INPT2P,STEPB&6 60 2
7149 MLC BLANK,249 CLEAR GMWM 60 2
7150 SBR STEPA&11,RUNOTP 60 2
7151 SBR STEPB&11,RUNOTP 60 2
7152 SBR STEPA&3,NEWASQ 60 2
7153 SBR STEPB&3,NEWBSQ 60 2
7154 C AZERO1,CNMP 60 2
7155 RESUME BE SCLINP FIRST AND LAST PASS BRANCH 60 2
7156 SW 249 60 2
7157 MLC GM,249 60 2
7158 MLC READ3&3,RDT3&3 60 2
7159 RDT3 RT 0,245 60 2
7160 MLC BLANK,249 60 2
7161 B SCLINP 60 2
7162 FSTLP CC 1 60 2
7163 H HALT TO READY CARD RDR 60 2
7164 * SET TAPE UNIT NUMS 60 2
7165 BCE FSETLP,LABELS, NO LABELS BRANCH 60 2
7166 MLC I1TUHP,TPNOBK READ HDR ON INPUT TAPES PRIOR TO 60 2
7167 MLC KI LAST PASS RESTART INIT 60 2
7168 BCE *&8,LBBUCK, 60 2
7169 SBR *&4,MLHANT 60 2
7170 B MLHENT 60 2
7171 MLC O1TUHP,TPNOBK 60 2
7172 BCE *&8,LBBUCK, 60 2
7173 SBR *&4,MLHANT 60 2
7174 B MLHENT 60 2
7175 FSETLP MLC BLANK,RESUME&4 RESTART LAST PASS INIT 60 2
7176 MLC BLANK,PPSMS&25 60 2
7177 MLC &SWFRTN 60 2
7178 MLC KB 60 2
7179 B PSTPAS 60 2
7180 PRMSJ DCW @PLACE CARDS FROM 1507 IN READER@ 60 2
7181 LTORG* 60 2
7182 SAVE4 DCW #04 60 2
7183 GM DC @}@ 60 2
7184 RSTEND ORG * 60 2
7185 * 60 2
7186 * READ CHECKPOINT ROUTINE 60 2
7187 * 60 2
7188 ORG KEEP 60 2
7189 * INIT FOR NEXT MERGE PASS 60 2
7190 WKLBLI MLC O2TUHP,TPNOBK INIT TO READ HDR ON INPUT 60 2
7191 MLC KI 60 2
7192 B MLHENT BRANCH TO WORK LABEL ROUTINE 60 2
7193 FRSTME B PSTPAS FIRST PASS BRANCH ONLY 60 2
7194 GMSET LCA 0,0 SET GM FOR CHECK POINT 60 2
7195 RDCPT RTW 0,1 READ CHECKPOINT 60 2
7196 BER RERDCP-4 60 2
7197 BEF EOFCP 60 2
7198 B PSTPAS 60 2
7199 H PSTPAS 60 2
7200 RERDCP BSP 0 60 2
7201 B RDCPT 60 2
7202 ASIX DCW @6@ 60 2
7203 MLEND ORG * 60 2
7204 ORG RSTEND 60 2
7205 EOFCP H PSTPAS 60 2
7206 B RERDCP 60 2
7207 LBLCK BCE RDEOJ-22,LABELS, 60 2
7208 BCE *&15,LBBUCK, 60 2
7209 SBR GO ON-8,MLHANT 60 2
7210 SBR FRSTME-1,MLHANT 60 2
7211 SBR PSTPAS&10,PNWM12-8 60 2
7212 MLC NOP,IWRCK-5 NOP SW D OPTION IF LABELS 60 2
7213 RDBY R 60 2
7214 BCE *&5,068,B 60 2
7215 B RDBY 60 2
7216 RDBY1 SBR RDBY&4,*&5 BYPASS LAST 2 BLOCKS OF BAL MERGE 60 2
7217 B RDBY 60 2
7218 SBR RDBY&4,*&5 60 2
7219 B RDBY 60 2
7220 SBR RDBY&4,*&5 60 2
7221 B RDBY 60 2
7222 C ATWO,CNTRB CHECK FOR 1 OR 2 SEQ 60 2
7223 BH WKLBLI 60 2
7224 MN O2TUHP,*&4 60 2
7225 RWD 0 60 2
7226 * PHASE TO PHASE ROUTINE 60 2
7227 * START OF NEXT MERGE PASS FOLLOWING THE READING 60 2
7228 * INTO CORE OF CHECKPOINT 60 2
7229 PSTPAS NOP TSTPS 60 2
7230 LCA LGMEOP&27,NLAR1-8 INIT INST TO LOAD GMWMS 60 2
7231 LCA 60 2
7232 LCA 60 2
7233 MLC KB,PSTPAS 60 2
7234 * EXECUTE PSTPAS ROUTINE ONLY ONCE THEREAFTER, BRANC 60 2
7235 * DIRECTLY TO TSTPS RTN TO DETERMINE MERGE PASS NUM 60 2
7236 MLC NOP,FRSTME 60 2
7237 MLC GPMARK,GMSET&3 60 2
7238 MLC CLEPS,GMSET&6 60 2
7239 MLC ACNT,PDCHKP&3 60 2
7240 MLC ST1MVP,STOUTP&6 60 2
7241 MLC CLEPS,GMCLR&3 60 2
7242 BCE MUSHQP,LDIMLT, 60 2
7243 TSTPS C AZERO1,NMPL START OF LAST MERGE PASS 60 2
7244 MLZS *-6,CENSIG 60 2
7245 MLC CENSIG,INTF1&7 60 2
7246 MLC CENSIG,INTF2&7 60 2
7247 MLC CENSIG,INTF3&7 60 2
7248 BE SLMP 60 2
7249 MLC I2TUHP,WRCKT&3 60 2
7250 MLC I2TUHP,WRDCK&3 SET TAPE UNIT NUM FOR 60 2
7251 MLC I2TUHP,ERSE1&3 READING AND WRITING OF 60 2
7252 MLC I2TUHP,PRMSH-26 CHECKPOINT 60 2
7253 MLC I2TUHP,RDCPT&3 60 2
7254 MLC I2TUHP,TPNOBK INIT TO WRITE HDR ON OUTPUT 60 2
7255 MLC KO 60 2
7256 B MLHENT BRANCH TO WORK LABEL ROUTINE 60 2
7257 MLC I2TUHP,RERDCP&3 60 2
7258 GO ON A AONE,CNMP BUMP MERGE COUNTER 60 2
7259 A @I9@,NMPL DECREASE COUNT OF MERGES LEFT 60 2
7260 NOP RSTONE 60 2
7261 MLC SIX 0S,PCNTR 60 2
7262 * ROTATE TAPE UNIT NUMS AND ESTABLISH NUM SEQ TO BE 60 2
7263 * MERGED IN PASS 60 2
7264 MLC I2TUHP,TUHOLD STORE SECOND TAPE UNIT NUMBER 60 2
7265 MLC I1TUHP,I2TUHP 60 2
7266 MLC O1TUHP,I1TUHP 60 2
7267 MLC O2TUHP,O1TUHP MOVE CNT OF SEQ MRGED ON 1ST UNIT 60 2
7268 MLC TUHOLD,O2TUHP 60 2
7269 UPDTCT MLC SEQMRG,O2TUHP-1 MOVE CNT OF LAST MERGE FOR 2ND 60 2
7270 A O2TUHP-1,O1TUHP-1 ADD TOT SEQ MERGED ON 1ST AND 2ND 60 2
7271 S O1TUHP-1,TUHOLD-1 SUB FROM TOT SEQ INIT ON 3RD 60 2
7272 MZ BLANK,TUHOLD-1 STORE RESULT FOR NUM OF SEQ 60 2
7273 MLC TUHOLD-1,SEQMRG IN NEXT MERGE PASS 60 2
7274 MLC TAPSEQ,TUHOLD-1 MOVE SEQ TOT OF PREVIOUS MERGE 60 2
7275 MLC YCNTR,TAPSEQ MOVE SEQ TOT OF PASS P1 & Y MERGE 60 2
7276 SBR *-10,O2TUHP-1 AFTER 1ST MERGE REPLACE YCNTR 60 2
7277 * WITH TOTAL FROM PREVIOUS MERGE 60 2
7278 * SET INPUT AND OUTPUT UNIT NUMS FOR PASS 60 2
7279 FORONE SW O2TUHP,O1TUHP 60 2
7280 MLC O2TUHP,PRMSH-10 60 2
7281 MLC O2TUHP,WOBR&3 60 2
7282 MLC O2TUHP,WORED&3 60 2
7283 MLC O2TUHP,ERTAPP&3 60 2
7284 MLC O2TUHP,RWINDP&3 60 2
7285 MLC O2TUHP,RWINDP&8 60 2
7286 MLC I1TUHP,READ1&3 60 2
7287 MLC I1TUHP,EOF1&10 60 2
7288 MLC I2TUHP,READ2&3 60 2
7289 MLC I2TUHP,EOF2&10 60 2
7290 MLC O1TUHP,READ3&3 60 2
7291 MLC O1TUHP,EOF3&10 60 2
7292 MLC O1TUHP,PRMSH-16 60 2
7293 CW O2TUHP,O1TUHP 60 2
7294 STBCK MLC I1TUHP,BACK2&3 60 2
7295 MLC I2TUHP,BACK1&3 60 2
7296 A AONE,PCNTR 60 2
7297 * SET BRANCH INST FOR RESTART 60 2
7298 SW 1,5 60 2
7299 MLC &HRES 60 2
7300 MLC KB 60 2
7301 BIN HSSD,D 60 2
7302 IWRCK MLC TWOBL,CNEOR RESET CHECKPOINT REDUND COUNTER 60 2
7303 MLC TWOBL,CNRR 60 2
7304 STOUTP MLC OWA,0 RESET MOVE TO OUTPUT AREA 60 2
7305 CS 332 60 2
7306 CS 60 2
7307 PPSMS MLC CNMP,PRMSH-33 60 2
7308 MLC I2TUHP,PRMSH-18 60 2
7309 MLC I1TUHP,PRMSH-20 60 2
7310 MLC PRMSH-10,230 PRINT MESSAGE LISTING UNIT 60 2
7311 W NUMBERS OF INPUT,OUTPUT,AND 60 2
7312 CC 1 CHECKPOINT TAPES 60 2
7313 GMCLR CW 0 60 2
7314 MLC SIX 0S,XAREA 60 2
7315 C AZERO1,CNMP 60 2
7316 BU WRCKT-4 60 2
7317 MLC AONE,XAREA 60 2
7318 CPEX NOP 0 USERS EXIT PRIOR TO WRITE CHKPT 60 2
7319 WRCKT WTW 0,1 WRITE CHECKPOINT 60 2
7320 BER WRDCK 60 2
7321 BEF WFCK2P 60 2
7322 TF1 BIN INTRPP,E INTERRUPT IF SENSE SWITCH E IS ON 60 2
7323 B SCLINP 60 2
7324 BLKCNT A AONE,MULBKC LAST PASS INST TO INC BLK COUNT 60 2
7325 MUSHQP MLC @ LOW@,PDTYQP-8 60 2
7326 B TSTPS 60 2
7327 SLMP C LIT003,CNTRB LAST MERGE PASS INITIALIZATION 60 2
7328 BL *&12 60 2
7329 MLC I2TUHP,TPNOBK 60 2
7330 B *&8 60 2
7331 MLC O2TUHP,TPNOBK 60 2
7332 SLMP1 BSS LPMSGP,B 60 2
7333 LPEX NOP 0 USERS EXIT LAST MERGE PASS INIT 60 2
7334 MLC @N00@,WRCKT&2 60 2
7335 MLC BLANK,SEQCMP&11 60 2
7336 MLC @A@,KOWNT 60 2
7337 MLC @U@,RWINDP&9 UNLOAD FINAL OUTPUT TAPE 60 2
7338 MLC KB,EOFW1 INIT LAST PASS BRANCH 60 2
7339 SBR SEQCMP&10,LPEOJ 60 2
7340 MLC OWA,WOBR&6 60 2
7341 MA LIT001,WOBR&6 60 2
7342 LCA RDEOJ,GMSET&3 INSERT RTN TO LOAD END OF JOB IN 60 2
7343 LCA WKLBLI SO EXEC AT END OF LAST PASS 60 2
7344 LCA 60 2
7345 LCA 60 2
7346 LCA 60 2
7347 BCE BYLBL,LABELS, NO LABELS BRANCH 60 2
7348 * LOAD FINAL LABEL RTN 60 2
7349 BCE OKEIGH,LBBUCK, 60 2
7350 NOKEIY R 60 2
7351 BCE OKEIGH,68,B 60 2
7352 B NOKEIY 60 2
7353 WELEAT R 60 2
7354 BCE INTLB,68,B 60 2
7355 B WELEAT 60 2
7356 OKEIGH CS 80 60 2
7357 SW 24,56 60 2
7358 SW 63,67 60 2
7359 R 56 60 2
7360 RDEOJ NOP LOAD RTN FOR END OF JOB 60 2
7361 * INIT FINAL LABEL RTN 60 2
7362 INTLB MLC TPNOBK,FPHDS3-10 60 2
7363 MLC TPNOBK,FPHDS3&3 60 2
7364 MLC TPNOBK,FPHDX2&7 60 2
7365 MLC TPNOBK,FPHDX1&7 60 2
7366 MLC TPNOBK,FPHDX3&15 60 2
7367 MLC TPNOBK,FPPSW-2 60 2
7368 MLC TPNOBK,FPPARX-17 60 2
7369 MLC TPNOBK,LMHLTP&22 60 2
7370 MLC TPNOBK,FTREX1&21 60 2
7371 MLC TPNOBK,FTREX2&26 60 2
7372 MLC TPNOBK,FTREX2&31 60 2
7373 MLC TPNOBK,FPTSMG INIT CHANGE REEL MSG 60 2
7374 MLC TPNOBK,SAVM2 60 2
7375 BCE *&15,OHLIMP,2 60 2
7376 MLC NOP,FPHDX1&24 NOP CHAINED MOVES IF INPUT HDR 60 2
7377 MLC NOP,FPHDX1&25 AND OUTPUT HDR ARE THE SAME 60 2
7378 MLC GPMARK,LMHLTP&7 60 2
7379 MLC GPMARK,FPHDS1&7 60 2
7380 MLC BLKCNT&6,WOBR&19 INSERT INST TO INC BLOCK COUNT 60 2
7381 BCE NWOUTP,PIMULT,6 SET FOR ELIMINATION 60 2
7382 PDCHKP C 0,SIX 0S 60 2
7383 BU NWOUTP 60 2
7384 MLC NOP,PDSW OF RECORD PADDING 60 2
7385 BCE PAD9,PIMULT,9 60 2
7386 BCE PAD,PIMULT, 60 2
7387 PAD9 MLC CTNRML,PADCT 60 2
7388 S RMOVEP,PADCT 60 2
7389 B PAD&21 60 2
7390 PAD MLC @U@,AWAY&11 60 2
7391 MLC KB,AWAY&12 60 2
7392 ZA RMOVEP,PADCT 60 2
7393 MZ BLANK,PADCT 60 2
7394 NWOUTP MLC AGMEBP,LGMEOP&6 SET BLOCKING FOR 60 2
7395 MLC AGMEBP,ENDMP-1 FINAL OUTPUT 60 2
7396 MLC ARELBP,ARELO 60 2
7397 SBR KOWNT&3,BOMULT 60 2
7398 BCE *&8,OUTMLT,M OUTPUT MOVE MODE BRANCH 60 2
7399 MLC OUTMLT,WOBR CHANGE WT INST SO FINAL OUTPUT 60 2
7400 * IN LOAD MODE 60 2
7401 BCE SPLCAS,LABELS, 60 2
7402 BCE FPHES1,LBBUCK,1 60 2
7403 B FPHDS1 BRANCH TO FINAL LABEL ROUTINE 60 2
7404 SPLCAS C ASIX,CNTRB CHECK FOR NUM SEQ LESS THAN 7 60 2
7405 BH GO ON 60 2
7406 LCA PRMSH-33,PRMSH-26 ELIMINATE CHECKPOINT REF IN MSG 60 2
7407 SBR PPSMS&6,PRMSH-26 WHEN ONLY ONE PASS 60 2
7408 SBR PPSMS&27,223 60 2
7409 SBR INTRPP&6,233 60 2
7410 BCE ONESEQ,CNTRB,1 60 2
7411 BCE TWOSEQ,CNTRB,2 60 2
7412 BCE TRISEQ,CNTRB,3 60 2
7413 FIVSEQ SBR RSTONE&10,GO ON&18 NUM OF SEQ IS 4,5 OR 6 60 2
7414 MLC ATWO,ACNTR 60 2
7415 SBR ONESEQ&17,I1TUHP 60 2
7416 B ONESEQ&7 60 2
7417 ONESEQ MLC ASIX,ACNTR 60 2
7418 MLC I2TUHP,I2HOLD#1 60 2
7419 MLC O1TUHP,I2TUHP 60 2
7420 MLC KB,GO ON&14 60 2
7421 MKSBR MLC FIVSEQ,ENTRTN&21 60 2
7422 B GO ON 60 2
7423 RSTONE MLC I2HOLD,I2TUHP 60 2
7424 B FORONE 60 2
7425 TWOSEQ MLC AFOUR,ACNTR 60 2
7426 B ONESEQ&7 60 2
7427 TRISEQ SBR TWOSEQ-1,UPDTCT 60 2
7428 MLC NOP,ONESEQ&7 60 2
7429 MLC O1TUHP,I2HOLD 60 2
7430 MLC O2TUHP,O1TUHP 60 2
7431 MLC I2TUHP,O2TUHP 60 2
7432 MLC AZERO,O1TUHP-1 60 2
7433 MLC AONE,O2TUHP-1 60 2
7434 SBR STEPA&3,EOSTSP 60 2
7435 SBR STEPB&3 60 2
7436 SBR STEPC&3 60 2
7437 MLNS I1TUHP,*&4 60 2
7438 BSP 0 60 2
7439 MLC NOP,RSTONE-11 60 2
7440 B TWOSEQ 60 2
7441 HSSD CS 332 SENSE SWITCH D ON 60 2
7442 CS 60 2
7443 MLC PRMSF,222 60 2
7444 W PRINT DENSITY CHANGE MESSAGE 60 2
7445 CC 1 60 2
7446 H IWRCK RETURN TO INIT PRIOR TO WT CHKPT 60 2
7447 * LAST MERGE PASS INTERRUPT 60 2
7448 * SENSE SWITCH B ON 60 2
7449 LPMSGP CS 332 60 2
7450 CS 60 2
7451 MLC TPNOBK,PRMSH-10 60 2
7452 SW 216 60 2
7453 MLC PRMSH,231 60 2
7454 MLC PMSLPP 60 2
7455 W 60 2
7456 CC 1 60 2
7457 H SLMP1&5 60 2
7458 PDTYQP DCW @HIGH DENSITY@ 60 2
7459 * NO LABELS RTN-EXEC IN LAST PASS INIT 60 2
7460 BYLBL MLC TPNOBK,WROM1 SET UP CHANGE REEL MESSAGE 60 2
7461 MLCWAWROM1,WROM 60 2
7462 SBR LPSQCP-1,RTRN2 60 2
7463 MLC TPNOBK,MARTIF&3 60 2
7464 MLC TPNOBK,MARTEF-2 60 2
7465 MLCWAMARTEF&4,WROM-15 60 2
7466 MLCWA 60 2
7467 MLCWA 60 2
7468 MLCWA 60 2
7469 MLC NOP,WOBR&13 NOP INST TO CLEAR FIRST POS OUTPT 60 2
7470 BYLBL1 R BYPASS FINAL LABEL ROUTINE 60 2
7471 BCE *&5,68,B 60 2
7472 B BYLBL1 60 2
7473 SBR BYLBL1&4,PDCHKP-8 60 2
7474 B BYLBL1 60 2
7475 MARTIF WTM 0 60 2
7476 RWU 0 60 2
7477 MARTEF B EOFW1&4 60 2
7478 DCW @ @ 60 2
7479 WROM1 DCW @CHANGE UNIT 0@ 60 2
7480 * SENSE SWITCH E ON INTERRUPT 60 2
7481 INTRPP MLC PRMSH,240 60 2
7482 W 60 2
7483 CS 240 60 2
7484 MLC PDTYQP,212 60 2
7485 W 60 2
7486 CC 1 60 2
7487 H SCLINP 60 2
7488 * WRITE CHECKPOINT ERROR ROUTINE 60 2
7489 WRDCK BSP 0 60 2
7490 BCE ERCKP,CNRR,1 60 2
7491 A AONE,CNRR 60 2
7492 B WRCKT 60 2
7493 ERCKP A AONE,CNEOR 60 2
7494 BCE HRTRY,CNEOR,0 TEN SKIPS BRANCH 60 2
7495 ERSE1 SKP 0 60 2
7496 MLC TWOBL,CNRR 60 2
7497 B WRCKT 60 2
7498 HRTRY H IWRCK 60 2
7499 WFCK2P H TF1 60 2
7500 AZERO1 DCW @01@ 60 2
7501 PMSLPP DCW @LAST MERGE PASS@ 60 2
7502 PRMSF DCW @DENSITY MAY BE CHANGED@ 60 2
7503 PRMSH DCW @PASS 00-CKPT 0-INP 0,0,0 OUT-0 INTERRUPT@ 60 2
7504 PRMSI DCW @RESTART@ 60 2
7505 LTORG* 60 2
7506 ORG WKLAND 60 2
7507 * 60 2
7508 * LABELS ROUTINE TO CLEAR AREAS AND SET WORDMARKS 60 2
7509 * 60 2
7510 ENTRTN MLC NOP,RDFST1 RETURN FROM READING INPUT TAPE[S] 60 2
7511 MLC NOP,RDFST2 60 2
7512 MLC NOP,RDFST3 60 2
7513 NOP REDETP&3,EOSTSP SBR INST IF NUM SEQ 1,2,4,5 OR 6 60 2
7514 SBR RDFST3&3,RUNOTP 60 2
7515 CS 3599 CLEAR OUTPUT AREA 60 2
7516 CS 60 2
7517 ENCSTN CS 60 2
7518 CS 60 2
7519 B LGMEOP 60 2
7520 COAP SBR RDFST3&3,ENTRTN 60 2
7521 C ASIX,CNTRB TEST FOR NUM OF SEQ LESS THAN 7 60 2
7522 BH ENTREC 60 2
7523 C LIT003,CNTRB 60 2
7524 BE CNTRB3 NUM OF SEQ IS 3 60 2
7525 BL CNTRB2 NUM OF SEQ IS 1 OR 2 60 2
7526 SBR RDFST1&3,STRD3 NUM OF SEQ IS 4, 5 OR 6 60 2
7527 * RESTORE FIRST RCD SWITCHES AND 60 2
7528 * BACKSPACE TWO TAPES 60 2
7529 ENTREC MLC KB,RDFST3 60 2
7530 MLC KB,RDFST2 60 2
7531 BACK2 BSP 0 60 2
7532 MLC KB,RDFST1 60 2
7533 BACK1 BSP 0 60 2
7534 * READ INPUT TAPES 60 2
7535 B STRD1 60 2
7536 CNTRB2 MN O1TUHP,*&4 60 2
7537 RWD 0 60 2
7538 BCE ENTRTN,CNTRB,3 60 2
7539 BCE CNTQQ1,CNTRB,2 60 2
7540 SBR RDFST1&3,ENTRTN 60 2
7541 B BACK2-7 60 2
7542 CNTQQ1 SBR RDFST2&3,ENTRTN 60 2
7543 B BACK2-7 60 2
7544 CNTRB3 SBR RDFST2&3,CNTRB2 60 2
7545 MLC KB,RDFST2 60 2
7546 B STRD2 60 2
7547 SW 3600 60 2
7548 CLINPP CS 0 CLEAR INPUT AREAS 60 2
7549 SBR CLINPP&3 60 2
7550 BWZ CLINPP,3600,1 60 2
7551 LCA 0,0 SET GMWMS IN INPUT AREAS PRIOR 60 2
7552 LCA 0,0 TO READING TAPES 60 2
7553 LCA 0,0 60 2
7554 MLC TWOBL,PCNCF SET WORD MARKS IN 60 2
7555 PNWM12 MLC AIRA1,PICF12 INPUT AREAS FOR CONTROL 60 2
7556 MA CF1SLM,PICF12 FIELD DESIGNATION 60 2
7557 MLC PICF12,PWMS12&3 60 2
7558 MLC SIX 0S-3,PCNTB 60 2
7559 PWMS12 SW 0 60 2
7560 A AONE,PCNTB 60 2
7561 C PCNTB,BMULTI 60 2
7562 * BRANCH TO GET NEXT CF 60 2
7563 BE PSWNCF 60 2
7564 MA LMULTI,PWMS12&3 60 2
7565 B PWMS12 60 2
7566 PSWNCF A AONE,PCNCF 60 2
7567 C PCNCF,NCFMLT 60 2
7568 * BRANCH TO INIT NEXT INPUT AREA 60 2
7569 BE PWIRA2 60 2
7570 MA LIT003,PNWM12&10 60 2
7571 B PNWM12 60 2
7572 PWIRA2 NOP PWIRA3 60 2
7573 MLC KB,PWIRA2 60 2
7574 SBR PNWM12&3,AIRA2 60 2
7575 SBR PNWM12&10,CF1SLM 60 2
7576 B PNWM12-7 60 2
7577 PWIRA3 NOP PWMSET 60 2
7578 MLC KB,PWIRA3 60 2
7579 SBR PNWM12&3,AIRA3 60 2
7580 SBR PNWM12&10,CF1SLM 60 2
7581 B PNWM12-7 60 2
7582 PWMSET BCE COAP,CNOPML,1 WM ALREADY SET IN FIRST POS 60 2
7583 PNWMBI MLC AIRA1,PICF12 60 2
7584 MLC PICF12,PSW12&3 60 2
7585 MLC SIX 0S-3,PCNTB#3 60 2
7586 * SET WORD MARK IN FIRST POS OF EACH 60 2
7587 * RECORD IN INPUT AREAS 60 2
7588 PSW12 SW 0 60 2
7589 A AONE,PCNTB 60 2
7590 C PCNTB,BMULTI 60 2
7591 BE PMIRA2 60 2
7592 MA LMULTI,PSW12&3 60 2
7593 B PSW12 60 2
7594 PMIRA2 NOP PMIRA3 60 2
7595 MLC KB,PMIRA2 60 2
7596 MLC AIRA2,PICF12 60 2
7597 B PNWMBI&7 60 2
7598 PMIRA3 NOP COAP 60 2
7599 MLC KB,PMIRA3 60 2
7600 MLC AIRA3,PICF12 60 2
7601 B PNWMBI&7 60 2
7602 LTORG* 60 2
7603 PCNCF EQU CNRR 60 2
7604 PICF12 EQU CSTCNS 60 2
7605 SCLINP MLC NDRA3P,CLINPP&3 60 2
7606 MLC TWOBL,CNRR 60 2
7607 B CLINPP-4 60 2
7608 NOP 60 2
7609 RSTORG ORG * 60 2
7610 EX LBLCK 60 2
7611 JOB ** IBM 1401 SORT 7 VERSION 2 MULTIPHASE 60 2
7612 * 60 2
7613 * NO LABELS ROUTINE TO CLEAR AREAS AND SET WORDMARKS 60 2
7614 * 60 2
7615 ORG RESUME 60 2
7616 BE NLST 60 2
7617 ORG FSTLP-4 60 2
7618 B NLST 60 2
7619 ORG WKLBLI&11 60 2
7620 NOP MLHENT 60 2
7621 ORG GO ON-11 60 2
7622 NOP MLHENT 60 2
7623 ORG STBCK 60 2
7624 MLC I1TUHP,NLBK2&3 60 2
7625 MLC I2TUHP,NLBK1&3 60 2
7626 ORG TF1&5 60 2
7627 B NLST 60 2
7628 ORG MKSBR 60 2
7629 MLC FIVSEQ,NLENT&21 60 2
7630 ORG INTRPP&22 60 2
7631 H NLST 60 2
7632 ORG MLEND 60 2
7633 NLENT MLC NOP,RDFST1 RETURN FROM READING INPUT TAPE[S] 60 2
7634 MLC NOP,RDFST2 60 2
7635 MLC NOP,RDFST3 60 2
7636 NOP REDETP&3,EOSTSP SBR INST IF NUM SEQ 1,2,4,5 OR 6 60 2
7637 SBR RDFST3&3,RUNOTP 60 2
7638 CS LGMEOP,2899 60 2
7639 NLCLO SBR RDFST3&3,NLENT 60 2
7640 C ASIX,CNTRB TEST FOR NUM SEQ LESS THAN 7 60 2
7641 BH NLREC 60 2
7642 C LIT003,CNTRB 60 2
7643 BE BCNTR3 NUM OF SEQ IS 3 60 2
7644 BL BCNTR2 NUM OF SEQ IS 1 OR 2 60 2
7645 SBR RDFST1&3,STRD3 NUM OF SEQ IS 4,5, OR 6 60 2
7646 NLREC MLC KB,RDFST3 60 2
7647 MLC KB,RDFST2 60 2
7648 NLBK2 BSP 0 60 2
7649 MLC KB,RDFST1 60 2
7650 NLBK1 BSP 0 60 2
7651 B STRD1 READ INPUT TAPE[S] 60 2
7652 BCNTR2 MN O1TUHP,*&4 60 2
7653 RWD 0 60 2
7654 BCE NLENT,CNTRB,3 60 2
7655 BCE NLCTQ,CNTRB,2 60 2
7656 SBR RDFST1&3,NLENT 60 2
7657 B NLBK2-7 60 2
7658 NLCTQ SBR RDFST2&3,NLENT 60 2
7659 B NLBK2-7 60 2
7660 BCNTR3 SBR RDFST2&3,BCNTR2 60 2
7661 MLC KB,RDFST2 60 2
7662 B STRD2 60 2
7663 NLST MLC NDRA3P,NLCLI&3 60 2
7664 SW 2900 60 2
7665 NLCLI CS 0 CLEAR INPUT AREAS AND TO 2900 60 2
7666 SBR NLCLI&3 60 2
7667 BWZ NLCLI,2900,1 60 2
7668 LCA 0,0 SET GMWMS IN INPUT AREAS PRIOR 60 2
7669 LCA 0,0 TO READING TAPES 60 2
7670 LCA 0,0 60 2
7671 MLC TWOBL,NLCNF#2 SET WORD MARKS IN INPUT AREAS FOR 60 2
7672 NLAR1 MLC AIRA1,NLPCF#3 CONTROL FIELD DESIGNATION 60 2
7673 MA CF1SLM,NLPCF 60 2
7674 MLC NLPCF,NLSWM&3 60 2
7675 MLC @ @,NLCNT#3 60 2
7676 NLSWM SW 0 60 2
7677 A AONE,NLCNT 60 2
7678 C NLCNT,BMULTI 60 2
7679 BE NLNCF BRANCH TO GET NEXT CF 60 2
7680 MA LMULTI,NLSWM&3 60 2
7681 B NLSWM 60 2
7682 NLNCF A AONE,NLCNF 60 2
7683 C NLCNF,NCFMLT 60 2
7684 BE NLAR2 BRANCH TO INIT NEXT INPUT AREA 60 2
7685 MA LIT003,NLAR1&10 60 2
7686 B NLAR1 60 2
7687 NLAR2 NOP NLAR3 60 2
7688 MLC KB,NLAR2 60 2
7689 SBR NLAR1&3,AIRA2 60 2
7690 SBR NLAR1&10,CF1SLM 60 2
7691 B NLAR1-7 60 2
7692 NLAR3 NOP NLWMST 60 2
7693 MLC KB,NLAR3 60 2
7694 SBR NLAR1&3,AIRA3 60 2
7695 SBR NLAR1&10,CF1SLM 60 2
7696 B NLAR1-7 60 2
7697 NLWMST BCE NLCLO,CNOPML,1 WM ALREADY SET IN FIRST POS 60 2
7698 NLWMBI MLC AIRA1,NLPCF 60 2
7699 MLC NLPCF,NLST1&3 60 2
7700 MLC @ @,NLCNT 60 2
7701 NLST1 SW 0 SET WORD MARK IN FIRST POS OF 60 2
7702 A AONE,NLCNT EACH RECORD IN INPUT AREAS 60 2
7703 C NLCNT,BMULTI 60 2
7704 BE NLST2 60 2
7705 MA LMULTI,NLST1&3 60 2
7706 B NLST1 60 2
7707 NLST2 NOP NLST3 60 2
7708 MLC KB,NLST2 60 2
7709 MLC AIRA2,NLPCF 60 2
7710 B NLWMBI&7 60 2
7711 NLST3 NOP NLCLO 60 2
7712 MLC KB,NLST3 60 2
7713 MLC AIRA3,NLPCF 60 2
7714 B NLWMBI&7 60 2
7715 EX RDBY1 60 2
7716 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 2 60 2
7717 *** 60 2
7718 *** MULTIPHASE BYPASS CONSTANT 60 2
7719 *** 60 2
7720 SFX 60 2
7721 HEADER DCW @HEADER-TRAILER-PHASE2@ 60 2
7722 EX PASMLT 60 2
7723 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 2 60 2
7724 *** 60 2
7725 *** PHASE 2 - FINAL HEADER/TRAILER LABEL ROUTINE 60 2
7726 *** 60 2
7727 SFX 60 2
7728 ORG INIT1 60 2
7729 * 60 2
7730 * INIT. FINAL PASS HEADER TRAILER ROUTINE 60 2
7731 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 2 60 2
7732 *** 60 2
7733 *** PHASE 2 - FINAL HEADER/TRAILER LABEL ROUTINE 60 2
7734 *** 60 2
7735 ORG INIT1 60 2
7736 * 60 2
7737 * INITIALIZATION FINAL PASS HDR-TRL ROUTINE 60 2
7738 * 60 2
7739 REDEMP BCE RDMP,LBBUCK, 60 2
7740 CS 80 60 2
7741 SW 24,56 60 2
7742 SW 63,67 60 2
7743 R 056 60 2
7744 RDMP R 60 2
7745 BCE *&5,40,/ 60 2
7746 B RDMP 60 2
7747 BCE CLSTX1-7,LABELS, BRANCH IF BYPASSING LABELS 60 2
7748 MN O2TUHA,LPHDX2&12 60 2
7749 MN O2TUHA,LPHDX2&7 60 2
7750 MN O2TUHA,LPHDX3&15 60 2
7751 MN O2TUHA,LPHDS3-10 60 2
7752 MN O2TUHA,LPHDS3&3 60 2
7753 MN O2TUHA,LPPSW-2 60 2
7754 MN O2TUHA,LPPARX-2 60 2
7755 MN O2TUHA,LPTSMG 60 2
7756 MN O2TUHA,LPTRS1&29 60 2
7757 MN O2TUHA,LPTRX1&21 60 2
7758 MN O2TUHA,LPTRX2&14 60 2
7759 MN O2TUHA,LPTRX2&19 60 2
7760 MLCWANOPINC-1,THDTP-10 60 2
7761 MLC LPPSW,REWIND&14 60 2
7762 MLC CENSIG,LPHDSH&7 60 2
7763 SBR CLSTX1-12,NXTPS 60 2
7764 B LPTRET&7 60 2
7765 NOP 60 2
7766 NOPINC DC @0000@ 60 2
7767 ORG HTHAL1 60 2
7768 OHLI EQU OTLI 60 2
7769 OTMO EQU HTMO 60 2
7770 * 60 2
7771 * HALT AREA FOR FINAL OUTP HEADER TRAILER ROUTINE 60 2
7772 * 60 2
7773 LPHDH1 MLC N99P2,LPHDC1 60 2
7774 H LPHDX1 PRESS START TO ACCEPT 60 2
7775 * UNREADABLE BLK AS H.L. 60 2
7776 * RETEN CYC WILL NOT BE CK 60 2
7777 B LPPSW-5 PRESS START/RESET AND START 60 2
7778 * TO RETRY UP TO 99 MORE TIMES 60 2
7779 * -A NEW REEL MAY BE MOUNTED 60 2
7780 * 60 2
7781 LPHDH2 H LPHDS2 PRESS START TO PROCESS NEW REEL 60 2
7782 MLC @10@,LPHDC2 PRESS START RESET AND START TO 60 2
7783 B LPPARX-5 RETRY UP TO 10 SKIPS MORE 60 2
7784 * 60 2
7785 LPHDH3 H LPHDX1 PRESS START TO ACCEPT THIS TAPE 60 2
7786 B LPHDS2 PRESS START RESET AND START IF 60 2
7787 * A NEW REEL IS TO BE PROCESSED 60 2
7788 * 60 2
7789 LPTRH1 H LPTRX2 PRESS START TO ACCEPT T.L.AS WT. 60 2
7790 MLC @10@,LPHDC2 PRESS START RESET AND START TO 60 2
7791 * TRY WRITING 60 2
7792 B LPPARX-5 T.L.UP TO 10 MORE SKIPS 60 2
7793 * 60 2
7794 LPTRH2 H LPHDS1&7 PRESS START AFTER MOUNTING A 60 2
7795 * NEW REEL FOR OUTPUT 60 2
7796 * 60 2
7797 CKPTET SBR LPHDEX&3 ENTER FROM RESTART ROUT. 60 2
7798 B *&8 60 2
7799 LPTRET SBR LPHDEX&3,RTRN2-7 ENTER FROM TRAILER ROUTINE 60 2
7800 B LPHDS1 60 2
7801 CS 332 60 2
7802 CS 60 2
7803 MLC LPTSMG,228 60 2
7804 W CHANGE TAPE MESSAGE 60 2
7805 CC 1 60 2
7806 B LPTRH2 60 2
7807 LPHDS1 MLC @N@,LPTRET&7 60 2
7808 CS 179 60 2
7809 MLC GPMARK,*&4 60 2
7810 MLCWA0,180 LOAD A G/M-W/M 60 2
7811 LPHDS2 MLC N99P2,LPHDC1#2 60 2
7812 MLC @10@,LPHDC2#2 60 2
7813 CS 179 60 2
7814 MLC CENSIG,113 60 2
7815 RWD 0 60 2
7816 BCE LPHDEX&4,OHLI, IF NO NEW H.L.-COL.22 CC.1 60 2
7817 LPHDS3 RT 0,100 60 2
7818 LPHDSH BCE LPHDNR,113, 60 2
7819 BEF *&1 60 2
7820 BER LPERRT 60 2
7821 BCE LPHDRC,WLBKT,1 IF NO RETEN CYC CK-COL.4 CC.3 60 2
7822 BCE LPHDRC,OHLOP,1 IF NO RETEN CYC CK-COL.1 CC.5 60 2
7823 LPHDX1 NOP 0 EXIT-ACCESS TO H.L. 60 2
7824 BCE LPHDX2,OHLI, IF NO H.L.-COL.22 CC.1 60 2
7825 MLC RTCYCL&1,139 H.L. INFORMATION 60 2
7826 MLC TO WRITE FIELD 60 2
7827 MLC 60 2
7828 MLC HDRTAG,104 HEADER FLAG 60 2
7829 SW 140 60 2
7830 MLC 331,179 60 2
7831 SW 105 60 2
7832 BCE *&8,TPSROP, IF TO RETAIN TAPE SERIAL # 60 2
7833 * COL.34 CC.5 60 2
7834 MLC TPSERL,109 NEW TAPE SERIAL # 60 2
7835 BCE *&8,FLSROP, COL.2 CC.5 60 2
7836 MLC 109,114 TAPE SERIAL # REPLACES FILE 60 2
7837 * SERIAL # 60 2
7838 LPHDX2 NOP 0 EXIT-BEFORE WRITING H.L. 60 2
7839 BSP 0 60 2
7840 WT 0,100 60 2
7841 BER LPERWT 60 2
7842 LPHDX3 NOP 0 EXIT AFTER WRITING H.L. 60 2
7843 BCE *&6,OTMO, IF NO T/M AFTER H.L. 60 2
7844 * COL.23 CC.1 60 2
7845 WTM 0 60 2
7846 BCE *&8,RLSQOP, NO REEL SEQ UPDATE 60 2
7847 * COL.3 CC.5 60 2
7848 A &1,REELSQ 60 2
7849 CS 181 60 2
7850 LPHDEX B CLSTX1-7 GENERAL EXIT 60 2
7851 B LPHDEX-4 60 2
7852 LPHDNR CS 120 CLEAR NOISE REC AREA 60 2
7853 B LPHDS3 60 2
7854 **** RETENTION CYCLE CHECK 60 2
7855 DCW @ @ 60 2
7856 DCW @ @ 60 2
7857 CRTC2 DCW @ @ 60 2
7858 LPHDRC ZA 138,CRTC2 MOVE LABEL INFORMATION 60 2
7859 MLC INTO CHECK BUCKET 60 2
7860 MLC 60 2
7861 SW OHDATE-2 60 2
7862 CLWL2 C OHDATE-3,CRTC2-7 60 2
7863 BU MODYR2 60 2
7864 A CRTC2-4,CRTC2 ADD TAPE DAYS TO RT. CYL. 60 2
7865 S OHDATE,CRTC2 SUB. CONT. DAYS FROM RT. CYL. 60 2
7866 CW OHDATE-2 60 2
7867 BWZ LPHDX1,CRTC2,K CAN TAPE BE WRITTEN ON 60 2
7868 CS 332 NO 60 2
7869 CS 60 2
7870 MLC SAVMP2,227 PRINT MESSAGE INDICATING 60 2
7871 MLNS CRTC2,222 DAYS TAPE IS TO BE RETAINED 60 2
7872 MLNS 60 2
7873 MLNS 60 2
7874 MLC SAVMP1 60 2
7875 MLC O2TUHA 60 2
7876 MLC SAVMP3 60 2
7877 W 60 2
7878 CC 1 60 2
7879 B LPHDH3 BRANCH TO HALT 60 2
7880 MODYR2 S TSF2,CRTC2 SUB. 365 FROM RET. 60 2
7881 A CYCLE AND ADD 1 TO 60 2
7882 A TAPE YEARS 60 2
7883 B CLWL2 CHECK YEAR COMPARE AGAIN 60 2
7884 DCW @1@ 60 2
7885 DCW @0@ 60 2
7886 TSF2 DCW @365@ 60 2
7887 SAVMP3 DCW @RETAIN TAPE @ 60 2
7888 SAVMP1 DCW @ FOR @ 60 2
7889 SAVMP2 DCW @ DAYS@ 60 2
7890 * 60 2
7891 * HEADER LABEL READ ERROR ENTRANCE 60 2
7892 * 60 2
7893 LPERRT SBR LPPARX&3,LPHDS3 60 2
7894 MLC @B@,LPPSW 60 2
7895 S &1,LPHDC1 60 2
7896 BM LPHDH1,LPHDC1 UNREADABLE BLK 60 2
7897 BSP 0 60 2
7898 LPPSW B LPPARX NOP IF WRITE CONDITION 60 2
7899 BCE *&5,LPHDC1,G IF TIME TO SKIP 60 2
7900 B LPPARX 60 2
7901 MLC N99P2-1,LPHDC1 60 2
7902 S &1,LPHDC2 60 2
7903 BM LPHDH2,LPHDC2 60 2
7904 SKP 0 60 2
7905 LPPARX B 0 ERROR ROUTINE EXIT 60 2
7906 * 60 2
7907 * TRAILER LABEL WRITE ERROR ENTRANCE 60 2
7908 * 60 2
7909 LPTRPE SBR LPPARX&3,LPTRX1&18 60 2
7910 SBR LPPARX-10,LPTRH1 60 2
7911 B *&15 60 2
7912 * 60 2
7913 * HEADER LABEL WRITE ERROR ENTRANCE 60 2
7914 * 60 2
7915 LPERWT SBR LPPARX&3,LPHDX2&9 60 2
7916 SBR LPPARX-10,LPHDH2 60 2
7917 MLC @N@,LPPSW 60 2
7918 B LPERRT&14 60 2
7919 LPTSMG DCW @ CHANGE REEL ON UNIT 0@ 60 2
7920 * 60 2
7921 * TRAILER LABEL ROUTINE-ENTER FROM EOF ON OUTP OR EOJ 60 2
7922 * 60 2
7923 LPTRS1 CS 180 60 2
7924 MLC GPMARK,*&4 60 2
7925 MLCWA0,180 LOAD IN A G/M-W/M 60 2
7926 BCE LPTRX2,TLO, NO TRAILER LABEL-COL.25 CC.1 60 2
7927 WTM 0 60 2
7928 BCE *&12,CNTRA,7 END OF JOB 60 2
7929 MLC @1EOR @,104 60 2
7930 B *&8 60 2
7931 MLC @1EOF @,104 60 2
7932 MLC TAPBLC,109 TAPE BLK COUNT 60 2
7933 MLC ACTNR,*&4 60 2
7934 MLC 000,119 60 2
7935 LPTRX1 NOP 0 EXIT-ACCESS TO T.L. 60 2
7936 MLC N99P2,LPHDC1 60 2
7937 MLC @10@,LPHDC2 60 2
7938 WT 0,100 60 2
7939 BER LPTRPE 60 2
7940 LPTRX2 NOP 0 EXIT-AFTER T.L.WRITE 60 2
7941 MLC @00000@,TAPBLC 60 2
7942 WTM 0 60 2
7943 RWU 0 60 2
7944 CS 181 60 2
7945 BCE REWIND,CNTRA,7 60 2
7946 B LPTRET 60 2
7947 EX INIT1 60 2
7948 JOB ** IBM 1401 SORT 7 VERSION 2 PHASE 2 60 2
7949 *** 60 2
7950 *** FINAL PASS INIT FOR HEADER-TRAILER ROUTINE 60 2
7951 *** 120 CHARACTER LABELS 60 2
7952 *** 60 2
7953 ORG INIT1 60 2
7954 * 60 2
7955 * 60 2
7956 REDMPS R 60 2
7957 BCE *&5,40,/ 60 2
7958 B REDMPS 60 2
7959 MLNS O2TUHA,LPHEX2&12 60 2
7960 MLNS O2TUHA,LPHEX2&7 60 2
7961 MLNS O2TUHA,LPHEX3&15 60 2
7962 MLNS O2TUHA,LPHES3-10 60 2
7963 MLNS O2TUHA,LPHES3&3 60 2
7964 MLNS O2TUHA,LPPPSW-2 60 2
7965 MLNS O2TUHA,LPPERX-2 60 2
7966 MLNS O2TUHA,LPTMEG-1 60 2
7967 MLNS O2TUHA,LPTSS1&30 60 2
7968 MLNS O2TUHA,LPTSX1&21 60 2
7969 MLC CENSIG,LANOIS&7 60 2
7970 MLNS O2TUHA,LPTSX2&14 60 2
7971 SBR QTRL&3,LPTSS1 60 2
7972 MLNS O2TUHA,LPTSX2&19 60 2
7973 MLCWANOPINK-1,THDTP-10 60 2
7974 MLC LPPPSW,REWIND&14 60 2
7975 SBR CLSTX1-12,NXTPS 60 2
7976 B LPTRAT&7 60 2
7977 NOP 60 2
7978 NOPINK DC @0000@ 60 2
7979 ORG HTHEL1 60 2
7980 UHLI EQU OTLI 60 2
7981 UTMU EQU HTMO 60 2
7982 * 60 2
7983 * HALT AREA FOR FINAL OUTPUT HDR-TRL ROUTINE 60 2
7984 * 60 2
7985 LPHEH1 MLC N99P2,LPHEC1 PRESS START TO ACCEPT UNREADABLE 60 2
7986 H LPHEX1 BLOCK AS H.L. RET CYCLE WILL NOT 60 2
7987 B LPPPSW BE CHECKED PRESS START RESET AND 60 2
7988 * START TO RETRY UP TO 99 TIMES 60 2
7989 * A NEW REEL MAY BE MOUNTED 60 2
7990 * 60 2
7991 LPHEH2 H LPHES2 PRESS START TO PROCESS NEW REEL 60 2
7992 MLC @10@,LPHEC2 PRESS START-RESET AND START TO 60 2
7993 B LPPERX-5 RETRY UP TO 10 MORE SKIPS 60 2
7994 LPHEH3 H LPHEX1 PRESS START TO ACCEPT THIS TAPE 60 2
7995 B LPHES2 PRESS START-RESET AND START IF A 60 2
7996 * NEW REEL IS TO BE PROCESSED 60 2
7997 LPTSH1 H LPTSX2 PRESS START TO ACCEPT TL AS WT. 60 2
7998 MLC @10@,LPHEC2 PRESS START-RESET AND START TO 60 2
7999 B LPPERX-5 TRY WRITING-UP TO 10 MORE SKIPS 60 2
8000 LPTSH2 H LPHES1&7 PRESS START AFTER MOUNTING A NEW 60 2
8001 * REEL FOR OUTPUT 60 2
8002 CKPTAT SBR LPHDAX&3 ENTER FROM RESTART ROUTINE 60 2
8003 B *&8 60 2
8004 LPTRAT SBR LPHDAX&3,RTRN2-7 ENTER FROM TRAILER ROUTINE 60 2
8005 B LPHES1 60 2
8006 CS 332 60 2
8007 CS 60 2
8008 MLC LPTMEG,228 CHANGE TAPE MESSAGE 60 2
8009 W 60 2
8010 CC 1 60 2
8011 B LPTSH2 60 2
8012 LPHES1 MLC @N@,LPTRAT&7 60 2
8013 MLC GPMARK,*&4 60 2
8014 LEMARK MLCWA0,320 60 2
8015 LPHES2 MLC N99P2,LPHEC1#2 60 2
8016 MLC @10@,LPHEC2#2 60 2
8017 CS 319 60 2
8018 CS 60 2
8019 LENOSE MLC CENSIG,213 60 2
8020 RWD 0 60 2
8021 BCE LPHDAX&4,OHLI, 60 2
8022 LPHES3 RTW 0,200 60 2
8023 LANOIS BCE LPHENR,213, 60 2
8024 BEF *&1 60 2
8025 BER LPARRT 60 2
8026 BCE LPHERC,OHLOP,1 IF NO RET CYC CK-COL1 CC5 60 2
8027 LPHEX1 NOP 0 60 2
8028 BCE LPHEX2,OHLI, 60 2
8029 MLC RESEQE,239 60 2
8030 MLC FILESE,229 60 2
8031 MLC 60 2
8032 MLC SYSCRE,255 60 2
8033 SW 225 60 2
8034 BCE *&8,FLSROP, COL2 CC5 60 2
8035 MLC 234,229 60 2
8036 LPHEX2 NOP 0 EXIT-BEFORE WRITING HL 60 2
8037 BSP 0 60 2
8038 WT 0,200 60 2
8039 CS 332 60 2
8040 BER LPARWT 60 2
8041 LPHEX3 NOP 0 EXIT AFTER WRITING HL 60 2
8042 BCE *&6,OTMO, BRANCH IF NO TM AFT HL 60 2
8043 * COL23 CC1 60 2
8044 WTM 0 60 2
8045 BCE *&8,RLSQOP, 60 2
8046 A &1,RESEQE 60 2
8047 CS 181 60 2
8048 LPHDAX B CLSTX1-7 GENERAL EXIT 60 2
8049 B LPHDAX-4 60 2
8050 LPHENR CS 220 CLEAR NOISE RECORD 60 2
8051 B LPHES3 60 2
8052 **** RETENTION CYCLE CHECK 60 2
8053 DCW @ @ 60 2
8054 DCW @ @ 60 2
8055 UTCRTY DCW @ @ 60 2
8056 LPHERC MLC 214,UTCRTY 60 2
8057 MLC 60 2
8058 MLC 60 2
8059 SW CREATD-2 60 2
8060 CLWIL2 C CREATD-3,UTCRTY-3 60 2
8061 BU MUDIFY 60 2
8062 A UTCRTY,UTCRTY-5 60 2
8063 S CREATD,UTCRTY-5 60 2
8064 CW CREATD-2 60 2
8065 BWZ LPHEX1,UTCRTY-5,K CAN TAPE BE WRITTEN ON 60 2
8066 CS 319 60 2
8067 CS 60 2
8068 MLC S2VMEP,227 60 2
8069 MLNS UTCRTY-5,222 60 2
8070 MLNS 60 2
8071 MLNS 60 2
8072 MLC S1VMEP 60 2
8073 MLC O2TUHA 60 2
8074 MLC S3VMEP 60 2
8075 W 60 2
8076 CC 1 60 2
8077 B LPHDH3 BRANCH TO HALT 60 2
8078 MUDIFY A FST365&2,UTCRTY SUB 365 FROM RET. CYC AND ADD 1 60 2
8079 A TO TAPE YEARS 60 2
8080 S 60 2
8081 B CLWIL2 CHECK YEAR COMPARE AGAIN 60 2
8082 FST365 DCW @365@ 60 2
8083 DCW @1@ 60 2
8084 DCW @0@ 60 2
8085 S3VMEP DCW @RETAIN TAPE @ 60 2
8086 S1VMEP DCW @ FOR @ 60 2
8087 S2VMEP DCW @ DAYS@ 60 2
8088 * 60 2
8089 * HEADER LABEL READ ERROR ENTRANCE 60 2
8090 * 60 2
8091 LPARRT SBR LPPERX&3,LPHES3 60 2
8092 MLC @B@,LPPPSW 60 2
8093 S &1,LPHEC1 60 2
8094 BM LPHEH1,LPHEC1 UNREADABLE BLOCK 60 2
8095 BSP 0 60 2
8096 LPPPSW B LPPERX NOP IF WRITE CONDITION 60 2
8097 BCE *&5,LPHEC1,G 60 2
8098 B LPPERX 60 2
8099 MLC N99P2-1,LPHEC1 60 2
8100 S &1,LPHEC2 60 2
8101 BM LPHEH2,LPHEC2 60 2
8102 SKP 0 60 2
8103 LPPERX B 0 ERROR ROUTINE EXIT 60 2
8104 * 60 2
8105 * TRAILER LABEL WRITE ERROR ENTRANCE 60 2
8106 * 60 2
8107 LPTSPE SBR LPPERX&3,LPTSX1&18 60 2
8108 SBR LPPERX-10,LPTRH1 60 2
8109 B *&15 60 2
8110 * 60 2
8111 * HEADER LABEL WRITE ERROR ENTRANCE 60 2
8112 * 60 2
8113 LPARWT SBR LPPERX&3,LPHEX2&9 60 2
8114 SBR LPPERX-10,LPHEH2 60 2
8115 MLC @N@,LPPPSW 60 2
8116 B LPARRT&14 60 2
8117 LPTMEG DCW @ CHANGE REEL ON UNIT 0 @ 60 2
8118 * 60 2
8119 * TRAILER LABEL ROUTINE 60 2
8120 * 60 2
8121 LPTSS1 CS 332 60 2
8122 CS 60 2
8123 MLC GPMARK,*&4 60 2
8124 MLCWA0,320 60 2
8125 BCE LPTSX2,TLO, NO TRAILER LABEL 60 2
8126 WTM 0 60 2
8127 BCE *&12,CNTRA,7 END OF JOB 60 2
8128 MLC @1EOR @,204 60 2
8129 B *&8 60 2
8130 MLC @1EOF @,204 60 2
8131 MLC TAPBLC,271 TAPE BLK COUNT 60 2
8132 MLC N99P2,LPHEC1 60 2
8133 LPTSX1 NOP 0 USER EXIT 60 2
8134 MLC @10@,LPHEC2 60 2
8135 MLC N99P2,LPHEC1 60 2
8136 WT 0,200 60 2
8137 BER LPTSPE 60 2
8138 LPTSX2 NOP 0 USER EXIT 60 2
8139 MLC @00000@,TAPBLC 60 2
8140 WTM 0 60 2
8141 RWU 0 60 2
8142 CS 332 60 2
8143 CS 60 2
8144 BCE REWIND,CNTRA,7 60 2
8145 B LPTRAT 60 2
8146 EX INIT1 60 2
8147 JOB ** IBM 1401 SORT 7 VERSION 2 MULTIPHASE 60 2
8148 * MULTIPHASE FINAL OUTPUT LABEL ROUTINE TO WRITE 60 2
8149 * STANDARD HEADER AND TRAILER LABELS ON FINAL 60 2
8150 * OUTPUT TAPES 60 2
8151 SFX # 60 2
8152 ORG MLEND 60 2
8153 * 60 2
8154 * HALT AREA FOR FINAL OUTP HEADER TRAILER ROUTINE 60 2
8155 * 60 2
8156 FPHDH1 MLC FTRAC3-3,FHTC1 PRESS START TO ACCEPT UNREADABLE 60 2
8157 * BLK AS HDR--RETEN CYC WILL NOT 60 2
8158 * BE CHECKED 60 2
8159 H FPHDX1 60 2
8160 B FPHDS2 PRESS START RESET AND START TO 60 2
8161 * RETRY UP TO 99 MORE TIMES 60 2
8162 * A NEW REEL MAY BE MOUNTED 60 2
8163 FPHDH2 H FPHDS2 PRESS START TO PROCESS A NEW REEL. 60 2
8164 MLC FTRAC3-4,FHTC2 PRESS START RESET AND START TO 60 2
8165 B FPHDX2 RETRY UP TO 9 SKIPS 60 2
8166 * 60 2
8167 FPHDH3 H FPHDX1 RETEN CYC HALT PRESS START TO 60 2
8168 B FPHDS1 ACCEPT THIS TAPE.PRESS START 60 2
8169 * RESET AND START IF A NEW REEL 60 2
8170 * IS TO BE PROCESSED. 60 2
8171 * 60 2
8172 FPTRH1 H FTREX2 PRESS START TO ACCEPT T.L. 60 2
8173 * AS WRITTEN 60 2
8174 B FTREX1&11 PRESS START RESET AND START TO 60 2
8175 * TRY WRITING T.L. UP TO 10 MORE 60 2
8176 * SKIPS. 60 2
8177 FPTRH2 H FPHDS1 PRESS START AFTER MOUNTING A 60 2
8178 * NEW REEL FOR OUTPUT 60 2
8179 FPTRET SBR FPHDEX&3,RTRN2 60 2
8180 CS 332 60 2
8181 CS 60 2
8182 MLC FPTSMG,228 60 2
8183 W CHANGE REEL MESSAGE 60 2
8184 CC 1 60 2
8185 B FPTRH2 60 2
8186 FPHDS1 CS 180 60 2
8187 MLCWA0,180 60 2
8188 FPHDS2 MLC FTRAC3-3,FHTC1#2 60 2
8189 MLC FTRAC3-4,FHTC2#1 60 2
8190 CS 179 60 2
8191 MLC CENSIG,113 60 2
8192 MLC CENSIG,MLNOIS&7 60 2
8193 RWD 0 60 2
8194 BCE FPHDEX&4,OHLIMP, IF NO HEADER LABEL 60 2
8195 FPHDS3 RTW 0,100 60 2
8196 MLNOIS BCE FPHDNR,113, 60 2
8197 BEF *&1 60 2
8198 BER FPERRT 60 2
8199 BCE FPHDRC,WLBKTM,1 IF RETEN CYC CK 60 2
8200 BCE FPHDRC,OHLOPM,1 60 2
8201 FPHDX1 NOP 0 EXIT-ACCESS TO H.L. 60 2
8202 RWD 0 60 2
8203 BCE FPHDEX-4,OHLIMP, IF NO HEADER LABEL 60 2
8204 MLC RTCYCL&1,139 H.L.INFORMATION TO 60 2
8205 MLC READ-WRITE H.L.AREA 60 2
8206 MLC 60 2
8207 MLC HDRTAG,104 HEADER FLAG 60 2
8208 SW 140 60 2
8209 MLC 331,179 60 2
8210 SW 105 60 2
8211 BCE *&8,TPSROP, IF TO RETAIN TAPE SERIAL # 60 2
8212 MLC TPSERL,109 NEW TAPE SERIAL # 60 2
8213 BCE *&8,FLSROP, 60 2
8214 MLC 109,114 TAPE SERIAL # REPLACES THE 60 2
8215 * FILE SERIAL # 60 2
8216 FPHDX2 NOP 0 EXIT-BEFORE WRITING H.L. 60 2
8217 WT 0,100 60 2
8218 BER FPERWT 60 2
8219 FPHDX3 NOP 0 60 2
8220 BCE *&6,OTMOMP, IF NO TM AFTER H.L. 60 2
8221 WTM 0 60 2
8222 BCE *&8,RLSQOP, IF NO REEL SEQ UPDATE 60 2
8223 A AONE,REELSQ 60 2
8224 CS 181 60 2
8225 FPHDEX B SPLCAS RETURN TO LAST PASS INIT 60 2
8226 BCE FPHDEX-4,WLBKTM, NO WK TAPE HL CK 60 2
8227 B FPHDS3 60 2
8228 FPHDNR CS 120 CLEAR NOISE REC AREA 60 2
8229 B FPHDS3 60 2
8230 * RETENTION CYCLE CK. 60 2
8231 DCW #2 60 2
8232 DCW #3 60 2
8233 CRTCY DCW #4 60 2
8234 FPHDRC ZA 138,CRTCY MOVE TAPE INFO. TO CHECK BUCKET 60 2
8235 MLC 60 2
8236 MLC 60 2
8237 SW OHDATE-2 60 2
8238 CLW C OHDATE-3,CRTCY-7 COMPARE YEAR 60 2
8239 BU MODY 60 2
8240 A CRTCY-4,CRTCY ADD TAPE DAYS TO RT CYCLE 60 2
8241 S OHDATE,CRTCY SUB CONT DAYS FROM RT CYCLE 60 2
8242 CW OHDATE-2 60 2
8243 BWZ FPHDX1,CRTCY,K CAN WE WRITE ON TAPE 60 2
8244 CS 332 NO-PRINT MESSAGE 60 2
8245 CS INDICATING DAYS TAPE 60 2
8246 MLC SAVMS,227 IS TO BE RETAINED 60 2
8247 MLNS CRTCY,222 60 2
8248 MLNS 60 2
8249 MLNS 60 2
8250 MLC SAVM1 60 2
8251 MLC SAVM2 60 2
8252 W 60 2
8253 CC 1 60 2
8254 B FPHDH3 60 2
8255 MODY S TSF1,CRTCY SUBTRACT 365 FROM 60 2
8256 A RT CYCLE AND ADD 1 TO 60 2
8257 A TAPE YEARS 60 2
8258 B CLW 60 2
8259 DCW @1@ 60 2
8260 DCW @0@ 60 2
8261 TSF1 DCW @365@ 60 2
8262 SAVM2 DCW @RETAIN TAPE @ 60 2
8263 SAVM1 DCW @ FOR @ 60 2
8264 SAVMS DCW @ DAYS@ 60 2
8265 * 60 2
8266 * HEADER LABEL READ ERROR ENTRANCE AND READ-WRITE 60 2
8267 * ERROR ROUTINE 60 2
8268 FPERRT MLC KB,FPPSW 60 2
8269 A AONE,FHTC1 60 2
8270 BWZ FPHDH1,FHTC1-1,S IF UNREADABLE BLK 60 2
8271 BSP 0 60 2
8272 FPPSW B FPHDS3 NOP IF WRITE CONDITION 60 2
8273 BCE *&5,FHTC1,2 IF TIME TO SKIP 60 2
8274 B FPPARX 60 2
8275 MLC FTRAC3-4,FHTC1 60 2
8276 SKP 0 60 2
8277 A AONE,FHTC2 60 2
8278 BCE FPHDH2,FHTC2,0 60 2
8279 FPPARX B 0 60 2
8280 * 60 2
8281 * HEADER LABEL WRITE ERROR ENTRANCE 60 2
8282 * 60 2
8283 FPERWT SBR FPPARX&3,FPHDX2 60 2
8284 SBR FPPARX-5,FPHDH2 60 2
8285 MLC NOP,FPPSW 60 2
8286 B FPERRT&7 60 2
8287 * 60 2
8288 * TRAILER LABEL WRITE ERROR ENTRANCE 60 2
8289 * 60 2
8290 FPTRPE SBR FPPARX&3,FTREX1&18 60 2
8291 SBR FPPARX-5,FPTRH1 60 2
8292 B FPERWT&14 60 2
8293 FPTSMG DCW @CHANGE UNIT 0@ 60 2
8294 * 60 2
8295 * TRAILER LABEL ROUTINE 60 2
8296 * 60 2
8297 LMHLTP CS 180 60 2
8298 MLCWA0,180 LOAD IN A G/M-W/M 60 2
8299 BCE FTREX2,OTLIMP, NO TRAILER LABEL 60 2
8300 WTM 0 60 2
8301 MLC @1EOR @,104 60 2
8302 BCE *&5,EOJBK,1 IF END OF JOB 60 2
8303 B *&8 60 2
8304 MLC @F@,103 60 2
8305 MLC MULBKC,109 TAPE BLOCK COUNT 60 2
8306 MLC ACTNR,*&4 60 2
8307 MLC 000,119 60 2
8308 SW 110 60 2
8309 S RMOVEP,119 60 2
8310 FTREX1 NOP 0 EXIT-ACCESS TO T.L. 60 2
8311 MLC FTRAC3-3,FHTC1 60 2
8312 MLC FTRAC3-4,FHTC2 60 2
8313 WT 0,100 60 2
8314 BER FPTRPE 60 2
8315 FTREX2 NOP 0 EXIT-AFTER T.L. WRITE 60 2
8316 CS 180 60 2
8317 BCE RWINDP,EOJBK,1 60 2
8318 MLC FTRAC3,MULBKC 60 2
8319 WTM 0 60 2
8320 RWU 0 60 2
8321 B FPTRET OPEN NEW REEL 60 2
8322 FTRAC3 EQU SIX 0S-1 FIVE ZEROS 60 2
8323 LTORG* 60 2
8324 EX WELEAT 60 2
8325 JOB ** IBM 1401 SORT 7 VERSION 2 MULTIPHASE 60 2
8326 * MULTIPHASE FINAL OUTPUT LABEL ROUTINE TO WRITE 60 2
8327 * STANDARD HEADER AND TRAILER LABELS ON FINAL OUTPUT 60 2
8328 * TAPES FOR 120 CHARACTER LABEL OPTION 60 2
8329 SFX # 60 2
8330 ORG INTLB 60 2
8331 MLC TPNOBK,FPHES3-24 60 2
8332 MLC TPNOBK,FPHES3&3 60 2
8333 MLC TPNOBK,FPHEX2&7 60 2
8334 MLC TPNOBK,FPHEX1&7 60 2
8335 MLC TPNOBK,FPHEX3&15 60 2
8336 MLC TPNOBK,FPPSSW-2 60 2
8337 MLC TPNOBK,FPPERX-17 60 2
8338 MLC TPNOBK,LMHKTP&23 60 2
8339 MLC TPNOBK,FTRAX1&21 60 2
8340 MLC TPNOBK,FTRAX2&26 60 2
8341 MLC TPNOBK,FTRAX2&31 60 2
8342 MLC TPNOBK,FPTMEG 60 2
8343 MLC TPNOBK,SMVM2 60 2
8344 BCE *&15,OHLIMP,4 60 2
8345 MLC NOP,PRILAL 60 2
8346 NOP NOP,PRILAL 60 2
8347 MLC GPMARK,LMHKTP&8 60 2
8348 MLC GPMARK,FPHES1&8 60 2
8349 MLC BLKCNT&6,WOBR&19 60 2
8350 BCE NWOUTP,PIMULT,6 60 2
8351 ORG MLEND 60 2
8352 * 60 2
8353 * HALT AREA FOR FINAL OUTPUT HEADER TRAILER ROUTINE 60 2
8354 * 60 2
8355 FPHEH1 MLC FTREC3-3,FHTD1 60 2
8356 * BLK AS HDR---RETEN CYC WILL NOT 60 2
8357 H FPHEX1 BE CHECKED-PRESS START RESET AND 60 2
8358 B FPHES2 START TO RETRY UP TO 99 TIMES 60 2
8359 * A NEW REEL MAY BE MOUNTED 60 2
8360 FPHEH2 H FPHES2 PRESS START TO PRO A NEW REEL. 60 2
8361 MLC FTREC3-4,FHTD2 60 2
8362 B FPHEX2 TO 9 SKIPS 60 2
8363 FPHEH3 H FPHEX1 RET CYC HALT PRESS START TO 60 2
8364 B FPHES1 ACCEPT THIS TAPE.START RESET AND 60 2
8365 * START IF A NEW REEL IS TO BE PRO 60 2
8366 * CESSED 60 2
8367 FPTSH1 H FTRAX2 PRESS START TO ACCEPT TL AS 60 2
8368 B FTRAX1&11 WRITTEN-START RESET AND START TO 60 2
8369 * WRITING TL UP TO 10 MORE SKIPS 60 2
8370 FPTSH2 H FPHES1 PRESS START AFTER MOUNTING A NEW 60 2
8371 * REEL FOR OUTPUT 60 2
8372 FPTRAT SBR FPHDAX&3,RTRN2 60 2
8373 CS 332 60 2
8374 CS 60 2
8375 MLC FPTMEG,228 60 2
8376 W CHANGE REEL MESSAGE 60 2
8377 CC 1 60 2
8378 B FPTSH2 60 2
8379 FPHES1 CS 332 60 2
8380 CS 60 2
8381 MLCWA0,320 60 2
8382 FPHES2 MLC FTREC3-3,FHTD1#2 60 2
8383 MLC FTREC3-4,FHTD2#1 60 2
8384 CS 319 60 2
8385 CS 60 2
8386 RWD 0 60 2
8387 BCE FPHDAX&4,OHLIMP, IF NO HEADER LABEL 60 2
8388 MLC CENSIG,213 60 2
8389 MLC CENSIG,FPNSSE&7 60 2
8390 FPHES3 RTW 0,200 60 2
8391 FPNSSE BCE FPHENR,213, NOISE RECORD TEST 60 2
8392 BEF *&1 60 2
8393 BER FPARRT 60 2
8394 BCE FPHERC,OHLOPM,1 60 2
8395 FPHEX1 NOP 0 USER EXIT 60 2
8396 RWD 0 60 2
8397 MLC RESEQE&1,239 60 2
8398 MLC FILESE,229 60 2
8399 PRILAL MLC 60 2
8400 NOP 60 2
8401 MLC HDRTAG,204 60 2
8402 MLC SYSCRE,255 60 2
8403 BCE *&12,FLSROP, 60 2
8404 SW 225 60 2
8405 MLC 234,229 60 2
8406 FPHEX2 NOP 0 USER EXIT 60 2
8407 WT 0,200 60 2
8408 BER FPARWT 60 2
8409 FPHEX3 NOP 0 USER AREA 60 2
8410 BCE *&6,OTMOMP, IF NO TM AFTER HL 60 2
8411 WTM 0 60 2
8412 BCE *&8,RLSQOP, IF NO REEL SEQ UPDATE 60 2
8413 A AONE,REELSQ 60 2
8414 CS 332 60 2
8415 CS 60 2
8416 FPHDAX B SPLCAS RETURN TO LAST PASS INIT 60 2
8417 BCE FPHDAX-5,WLBKTM, NO WORK TAPE HL CHECK 60 2
8418 B FPHES3 60 2
8419 FPHENR CS 220 CLEAR NOISE RECORD AREA 60 2
8420 B FPHES3 60 2
8421 * RETENTION CYCLE CHECK 60 2
8422 DCW #4 60 2
8423 DCW #2 60 2
8424 UTCRTZ DCW #3 60 2
8425 FPHERC MLC 214,UTCRTZ 60 2
8426 MLC 60 2
8427 ZA 60 2
8428 SW CREATD-2 60 2
8429 CLWIL8 C CREATD-3,UTCRTZ-7 60 2
8430 BU CHANGE 60 2
8431 A UTCRTZ,UTCRTZ-5 ADD TAPE DAYS TO RETENTION CYCLE 60 2
8432 S CREATD,UTCRTZ-5 60 2
8433 CW CREATD-2 60 2
8434 BWZ FPHEX1,UTCRTZ-5,K 60 2
8435 CS 180 60 2
8436 MLC 280,180 STORE LABEL PRO TEMPORE 60 2
8437 CS 319 60 2
8438 CS PRINT MESSAGE INDICATING DAYS 60 2
8439 MLC SMVMS,227 TAPE IS TO BE RETAINED 60 2
8440 MLNS UTCRTZ-5 60 2
8441 MLNS 60 2
8442 MLNS 60 2
8443 MLC SMVM1 60 2
8444 MLC SMVM2 60 2
8445 W 60 2
8446 CC 1 60 2
8447 MLC 180,280 60 2
8448 B FPHEH3 60 2
8449 CHANGE A FST364&2,UTCRTZ 60 2
8450 A 60 2
8451 S 60 2
8452 B CLWIL8 60 2
8453 FST364 DCW @365@ 60 2
8454 DCW @1@ 60 2
8455 DCW @0@ 60 2
8456 SMVM2 DCW @RETAIN TAPE @ 60 2
8457 SMVM1 DCW @ FOR @ 60 2
8458 SMVMS DCW @DAYS@ 60 2
8459 * HEADER LABEL READ-WRITE ERROR ROUTINE 60 2
8460 FPARRT MLC KB,FPPSSW 60 2
8461 A AONE,FHTD1 60 2
8462 BWZ FPHEH1,FHTD1,S IF UNREADABLE BLOCK 60 2
8463 BSP 0 60 2
8464 FPPSSW B FPHES3 NOP IF WRITE CONDITION 60 2
8465 BCE *&5,FHTD1,2 60 2
8466 B FPPERX 60 2
8467 MLC FTREC3-4,FHTC1 60 2
8468 SKP 0 60 2
8469 A AONE,FHTD2 60 2
8470 BCE FPHEH2,FHTD2,O 60 2
8471 FPPERX B 0 60 2
8472 * 60 2
8473 * HEADER LABEL WRITE ERROR ENTRANCE 60 2
8474 * 60 2
8475 FPARWT SBR FPPERX&3,FPHEX2 60 2
8476 SBR FPPERX-5,FPHEH2 60 2
8477 MLC NOP,FPPSSW 60 2
8478 B FPARRT&7 60 2
8479 * TRAILER LABEL WRITE ERROR ENTRANCE 60 2
8480 FRTSPE SBR FPPERX&3,FTRAX1&18 60 2
8481 SBR FPPERX-5,FPTSH1 60 2
8482 B FPARWT&14 60 2
8483 FPTMEG DCW @CHANGE REEL ON UNIT 0@ 60 2
8484 * 60 2
8485 * TRAILER LABEL ROUTINE 60 2
8486 * 60 2
8487 LMHKTP CS 330 60 2
8488 CS 60 2
8489 MLCWA0,320 60 2
8490 BCE FTRAX2,OTLIMP, NO TRAILER LABELS 60 2
8491 WTM 0 60 2
8492 BCE *&12,EOJBK,1 IF END OF JOB 60 2
8493 MLC @1EOR @,204 60 2
8494 B *&8 60 2
8495 MLC @1EOF @,204 60 2
8496 MLC MULBKC,271 60 2
8497 FTRAX1 NOP 0 USERS EXIT 60 2
8498 MLC FTREC3-3,FHTD1 60 2
8499 MLC FTREC3-4,FHTD2 60 2
8500 WT 0,200 60 2
8501 BER FRTSPE 60 2
8502 FTRAX2 NOP 0 USERS EXIT 60 2
8503 CS 332 60 2
8504 BCE RWINDP,EOJBK,1 60 2
8505 MLC FTREC3,MULBKC 60 2
8506 WTM 0 60 2
8507 RWU 0 60 2
8508 B FPTRAT OPEN NEW REEL 60 2
8509 FTREC3 EQU SIX 0S-1 60 2
8510 LTORG* 60 2
8511 EX INTLB 60 2
8512 JOB ** IBM 1401 SORT 7 VERSION 2 MULTIPHASE 60 2
8513 ORG 3200 60 2
8514 * INITIALIZE END OF JOB ROUTINE 60 2
8515 EOJ MLC ACNT,UNRDCK&6 60 2
8516 MLC ACNT,FERMS&3 60 2
8517 MLC ACTNR,PERCK&3 60 2
8518 MLC ACTNR,ERRC-8 60 2
8519 MLC ACTNR,PADQZ&11 60 2
8520 MLC PADQNQ,PADQZ&6 60 2
8521 UNRDCK C SIX 0S,0 UNREADABLE RCD CHECK 60 2
8522 CS 332 60 2
8523 CS 60 2
8524 BU FERMS 60 2
8525 PERCK C 0,CTNRML TOTAL RCD CHECK 60 2
8526 BU ERRC 60 2
8527 MLC CTNRML,TOTMS-24 60 2
8528 MLC TOTMS,230 60 2
8529 W PRINT TOTAL RCD MSG 60 2
8530 CS 230 60 2
8531 MLC RMOVEP,PDMSG-23 60 2
8532 C PDMSG-23,@ @ PADDED RCD CHECK 60 2
8533 BU PRNTQ 60 2
8534 MLC SIX 0S,PDMSG-23 60 2
8535 PRNTQ MLC PDMSG,229 60 2
8536 W PRINT PADDED RCD MSG 60 2
8537 CS 230 60 2
8538 S RMOVEP,CTNRML 60 2
8539 MZ BLANK,CTNRML 60 2
8540 MLC CTNRML,FINMS-21 60 2
8541 PTFIN MLC FINMS,227 60 2
8542 W PRINT FINAL RCD OUTPUT MSG 60 2
8543 CC K 60 2
8544 CS 332 60 2
8545 CS 60 2
8546 MLNS O2TUHP,PRMS-12 60 2
8547 MLC PRMS,218 60 2
8548 W PRINT END OF SORT MSG 60 2
8549 CC 1 60 2
8550 BWZ IWTM2P,URPIML,2 DUMP TAPE OPTION BRANCH 60 2
8551 ENDSRT H *-3 FINAL HALT 60 2
8552 FERMS MLC 0,FINER-19 60 2
8553 MLC FINER,225 60 2
8554 W PRINT UNRD RCD MSG 60 2
8555 CS 230 60 2
8556 SW PTFIN-10,PTFIN-17 60 2
8557 MLC ERRC-8,PTFIN-4 60 2
8558 MLC ERRC-8 60 2
8559 MLC ERRC-8,PTFIN-15 60 2
8560 CW PTFIN-10,PTFIN-17 60 2
8561 PADQZ BCE PERCK&12,0, 60 2
8562 MLC 0,FINMS-21 60 2
8563 B PTFIN 60 2
8564 ERRC MLC ERCTMG,236 60 2
8565 B ERRC-11 60 2
8566 IWTM2P MLC URPIML,WTMBD&3 REWIND DUMP TAPE 60 2
8567 MLC URPIML,WTMBD&8 60 2
8568 WTMBD WTM 0 60 2
8569 RWU 0 60 2
8570 B ENDSRT 60 2
8571 LTORG* 60 2
8572 TOTMS DCW @ TOTAL RECORDS PROCESSED@ 60 2
8573 PDMSG DCW @ PADDED RECORDS REMOVED@ 60 2
8574 FINMS DCW @ RECORDS FINAL OUTPUT@ 60 2
8575 FINER DCW @ UNREADABLE RECORDS@ 60 2
8576 ERCTMG DCW @ERROR@ 60 2
8577 PRMS DCW @OUTP -END OF SORT@ 60 2
8578 END EOJ 60 2