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 ALTERNATIVE TAPE I/O FOR PHASE 4 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB ALTERNATIVE TAPE I/O FOR PHASE 4 102 CTL 6611 103 * 104 * USAGE: SBR TAPZX&3,UNZONED UNIT EXIT IF NEEDED 105 * B TAPIO4 106 * DCW R OR W 107 * DSA NORMX NORMAL EXIT 108 * DSA EOFX EOF EXIT 109 * DSA DESCRIPTOR 110 * 111 * DESCRIPTOR&3 IS L OR M 112 * DESCRIPTOR&11 IS UNIT NUMBER IF UNZONED 113 * DESCRIPTOR&20 IS BUFFER 114 * 115 SFX 4 116 X1 EQU 89 4 0089 117 * 118 DC @}@ 4 1 0333 GMARK 119 TAPIO SBR X1 4 4 0334 H 089 120 MCW 0&X1,TAPE&7 R OR W 4 7 0338 M 0|0 403 121 MCW 3&X1,TAPEX&3 NORMAL EXIT 4 7 0345 M 0|3 465 122 MCW 6&X1,EOFX&3 EOF EXIT 4 7 0352 M 0|6 481 123 MCW 9&X1,X1 DESCRIPTOR 4 7 0359 M 0|9 089 124 BWZ *&5,11&X1,2 NO ZONE MEANS TAPE UNIT NUMBER 4 8 0366 V 378 0/1 2 125 TAPZX B 0-0 UNZONED UNIT NUMBER EXIT 4 4 0374 B 000 126 MN 3&X1,TAPE L OR M 4 7 0378 D 0|3 396 127 MN 11&X1,TAPE&3 UNIT NUMBER 4 7 0385 D 0/1 399 128 AGAIN S ERCNT 4 4 0392 S 546 129 TAPE RT 0-0,20&X1 4 8 0396 M %U0 0S0 R 130 SBR *&4 GM AT END OF RECORD & 1 4 4 0404 H 411 131 MN 0-0 GM AT END OF RECORD 4 4 0408 D 000 132 SAR SWXX&3 4 4 0412 Q 461 133 BCE ERTST,TAPE&7,W SKIP NOISE TEST IF WRITE 4 8 0416 B 448 403 W 134 BEF EOF 4 5 0424 B 466 K 135 BCE TAPE,32&X1,} GM IGNORE NOISE RECORD 4 8 0429 B 396 0T2 } GMARK 136 CHAIN 11 MACRO 137 BCE 4 1 0437 B GEN 138 BCE 4 1 0438 B GEN 139 BCE 4 1 0439 B GEN 140 BCE 4 1 0440 B GEN 141 BCE 4 1 0441 B GEN 142 BCE 4 1 0442 B GEN 143 BCE 4 1 0443 B GEN 144 BCE 4 1 0444 B GEN 145 BCE 4 1 0445 B GEN 146 BCE 4 1 0446 B GEN 147 BCE 4 1 0447 B GEN 1 ALTERNATIVE TAPE I/O FOR PHASE 4 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 ERTST BER TAPER 4 5 0448 B 482 L 149 BEF EOFX 4 5 0453 B 478 K 150 SWXX SW 0-0 UNDER GM AT END OF RECORD 4 4 0458 , 000 151 TAPEX B 0-0 4 4 0462 B 000 152 EOF MN TAPE&3,*&4 4 7 0466 D 399 476 153 BSP 0-0 4 5 0473 U %U0 B 154 EOFX B 0-0 4 4 0478 B 000 155 * 156 * TAPE ERROR ROUTINE 157 * 158 TAPER MN TAPE&3,*&4 COPY UNIT NUMBER 4 7 0482 D 399 492 159 BSP 0-0 4 5 0489 U %U0 B 160 BCE MANY,ERCNT,I Q. NINE ERRORS 4 8 0494 B 513 546 I 161 A *-6,ERCNT BUMP ERROR COUNTER 4 7 0502 A 502 546 162 B TAPE TRY AGAIN 4 4 0509 B 396 163 MANY BCE *&5,TAPE&7,W 4 8 0513 B 525 403 W 164 H AGAIN HALT AND TRY AGAIN IF READ 4 4 0521 . 392 165 MN TAPE&3,*&4 COPY UNIT NUMBER 4 7 0525 D 399 535 166 SKP 0-0 4 5 0532 U %U0 E 167 BEF EOFX 4 5 0537 B 478 K 168 B AGAIN TRY AGAIN 4 4 0542 B 392 169 ERCNT DCW &0 4 1 0546 170 END 4 / 000 080 1 PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS AGAIN4 392 EOF 4 466 EOFX 4 478 ERCNT4 546 ERTST4 448 MANY 4 513 SWXX 4 458 TAPE 4 396 TAPER4 482 TAPEX4 462 TAPIO4 334 TAPZX4 374 X1 4 89