CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 SKIP FILES PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB SKIP FILES 102 CTL 6611 103 * 104 * READ CARDS THAT SPECIFY HOW MANY FILES TO SKIP ON WHICH TAPES. 105 * 106 * COLUMNS 1-2 GIVE THE NUMBER OF FILES TO SKIP. 107 * COLUMN 3 GIVES THE TAPE NUMBER. 108 * 109 * COMMA IN COLUMN 1 SIGNALS THE FIRST CARD OF A NEW PROGRAM. 110 * 111 FILES EQU 2 1-2 HOW MANY FILES TO SKIP 0002 112 TAPE EQU 3 3 WHICH TAPE 0003 113 * 114 START BLC DONE 5 0333 B 413 A 4 115 K1 R 1 0338 1 4 116 BCE 1,1,, LOAD ANOTHER PROGRAM 8 0339 B 001 001 , 4 117 SW 1 4 0347 , 001 4 118 MN TAPE,READ&3 7 0351 D 003 376 4 119 LOOP S K1,FILES DECREMENT FILE COUNTER 7 0358 S 338 002 4 120 BM START,FILES DONE SKIPPING FILES 8 0365 V 333 002 K 5 121 READ CU %U0,A DIAGNOSTIC READ -- NO DATA XFER 5 0373 U %U0 A 5 122 BEF LOOP DONE SKIPPING RECORDS THIS FILE 5 0378 B 358 K 5 123 BER ERR 5 0383 B 392 L 5 124 B READ 4 0388 B 373 5 125 ERR NOP 666 TAPE ERROR 4 0392 N 666 5 126 H 1 0396 . 5 127 MN TAPE,*&4 7 0397 D 003 407 6 128 BSP 0 5 0404 U %U0 B 6 129 B READ 4 0409 B 373 6 130 DONE NOP 777 4 0413 N 777 6 131 H 1 0417 . 6 132 B DONE 4 0418 B 413 6 133 END START / 333 080 1 PAGE 2 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS DONE 413 ERR 392 FILES 2 K1 338 LOOP 358 READ 373 START 333 TAPE 3