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 WRITE SELF-PUNCHING TAPE ON TAPE 2 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB WRITE SELF-PUNCHING TAPE ON TAPE 2 102 ORG 81 0081 103 DCW @"@ GMWM 1 0081 4 104 START WTW 2,PROG WRITE TAPE-TO-CARD PROGRAM ON TAPE 8 0082 L %U2 136 W 4 105 LOOP BLC DONE LAST CARD? 5 0090 B 127 A 4 106 R NO, READ ANOTHER ONE 1 0095 1 4 107 WRITE WT 2,1 WRITE IT ON TAPE 8 0096 M %U2 001 W 4 108 BER ERROR ERROR? 5 0104 B 113 L 4 109 B LOOP NO, AROUND AGAIN 4 0109 B 090 4 110 ERROR BSP 2 BACKSPACE OVER ERROR 5 0113 U %U2 B 5 111 SKP 2 WRITE BLANK TAPE OVER ERROR 5 0118 U %U2 E 5 112 B WRITE TRY AGAIN 4 0123 B 096 5 113 DONE WTM 2 5 0127 U %U2 M 5 114 H DONE STOP HERE 4 0132 . 127 5 115 * 116 * PROGRAM THAT'S COPIED TO FIRST RECORD OF TAPE. 117 * TAPE LOAD READS IT INTO 001 AND BRANCHES TO IT. 118 * 119 PROG CS 13,199 001 CLEAR PUNCH AREA, BRANCH TO BEGIN 7 0136 / 013 199 5 120 BSP 1 008 BACKSPACE OVER ERROR 5 0143 U %U1 B 5 121 RT 1,101 013 READ INTO PUNCH AREA 8 0148 M %U1 101 R 6 122 BEF 35 021 END OF FILE? 5 0156 B 035 K 6 123 BER 8 026 ERROR? 5 0161 B 008 L 6 124 P 13 031 PUNCH THE CARD AND GET ANOTHER ONE 4 0166 4 013 6 125 H 35 035 HALT 4 0170 . 035 6 126 DCW @"@ 039 GMWM 1 0174 6 127 END START / 082 080 1 WRITE SELF-PUNCHING TAPE ON TAPE 2 PAGE 2 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS DONE 127 ERROR 113 LOOP 90 PROG 136 START 82 WRITE 96