BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 RIPPLE PUNCH 1030A PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB RIPPLE PUNCH 102 CTL 6611 103 * 104 * SENSE SWITCHES: 105 * B ON TO REPEAT INNER TEST -- FOR SCOPING 106 * D ON TO REPEAT TEST WITHOUT READING NEW DETAIL 107 * 108 * HALTS: 109 * 99 IN A-STAR AND B-STAR IF NO MORE DETAIL RECORDS AND NO HEADER. 110 * PUSHING START TRIES AGAIN. IF READING DETAIL FROM TAPE IT 111 * IS NONETHELESS POSSIBLE TO READ MORE DETAIL FROM CARDS HERE. 112 * 86 IN A-STAR AND B-STAR IF TAPE ERROR. PUSHING START TRIES AGAIN. 113 * IT IS POSSIBLE TO READ MORE DETAIL FROM CARDS HERE. 114 * 504 (505 IN I-STAR) IF PUNCH-AND-BRANCH FAILS TO BRANCH 115 * 116 * SET A WORD MARK IN 1. READ DETAIL RECORDS FROM CARDS IF THERE 117 * ARE ANY. OTHERWISE HALT IF 81 IS NOT GM (PROGRAM IS NOT LOADED 118 * FROM TAPE). OTHERWISE READ A RECORD FROM TAPE INTO 1. IF 80 IS 119 * A, BRANCH TO 1. 120 * 121 * PRINT THE FIRST TWO IF HEADPR IS NOT BLANK. OTHERWISE SKIP THEM. 122 * 123 START EQU DETAIL 0347 124 ORG 336 AT 336 TO ALLOW CHAINING CS TO W 0336 125 HEADPR EQU 190 PRINT FIRST TWO DETAIL IF NOT BLANK. 0190 126 HEADCT DCW 0 HOW MANY DETAIL READ? PRINT FIRST 2. 1 0336 4 127 TAPERR BSP 1 BACKSPACE 5 0337 U %U1 B 4 128 NOP 86 86 IF TAPE ERROR 4 0342 N 086 4 129 H HALT WITH 86 IN A-STAR AND B-STAR 1 0346 . 4 130 DETAIL SW 1,81 1 FOR HEADER, 81 UNDER GM IF TAPE 7 0347 , 001 081 4 131 BLC NOCARD NO CARDS LEFT? 5 0354 B 363 A 4 132 R TESTHD READ A DETAIL OR HEADER CARD 4 0359 1 407 4 133 NOCARD BCE TAPEHD,81," TAPE LOAD PUTS GM IN 81 8 0363 B 389 081 " 5 134 B FINIS 4 0371 B 380 5 135 TAPEOF BSP 1 5 0375 U %U1 B 5 136 FINIS NOP 99 99 IF NO TAPE OR EOF 4 0380 N 099 5 137 H HALT WITH 99 IN A-STAR AND B-STAR 1 0384 . 5 138 B DETAIL TRY AGAIN 4 0385 B 347 5 139 TAPEHD RTW 1,1 READ A DETAIL OR HEADER TAPE RECORD 8 0389 L %U1 001 R 5 140 BER TAPERR ERROR? 5 0397 B 337 L 6 141 BEF TAPEOF EOF? 5 0402 B 375 K 6 142 TESTHD BCE 1,80,A EXECUTE IF A HEADER 8 0407 B 001 080 A 6 143 BCE CONT,HEADCT,2 HEADERS PRINTED YET? 8 0415 B 453 336 2 6 144 BCE SKIPHD,HEADPR, SKIP HEADER PRINTING? 8 0423 B 442 190 6 145 LCA 77,277 PRINT THE FIRST TWO HEADERS 7 0431 L 077 277 7 146 W 1 0438 2 7 147 CS 1 0439 / 7 1 RIPPLE PUNCH 1030A PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 CS 1 0440 / 7 149 W 1 0441 2 7 150 SKIPHD A *-6,HEADCT 7 0442 A 442 336 7 151 B DETAIL 4 0449 B 347 7 152 * 153 * TEST STARTS HERE 154 * 155 CONT CS 180 CLEAR PUNCH AREA 4 0453 / 180 8 156 SW 101 SET WM IN PUNCH AREA 4 0457 , 101 8 157 INNER LCA KSTART,COUNT LOAD CARD COUNTER 7 0461 L 544 550 8 158 NEXT MCW COUNT,*&4 MOVE CARD COUNTER INTO NEXT INSTRUCTI 7 0468 M 550 478 8 159 MCW 0-0,180 MOVE TABLE INTO PUNCH AREA 7 0475 M 000 180 8 160 BWZ SCOPE2,101,2 BR TO PUNCH AND BRANCH IF NO ZONE IN 8 0482 V 500 101 2 8 161 SCOPE1 P PUNCH 1 0490 4 8 162 BSS SCOPE1,B B ON TO SCOPE 5 0491 B 490 B 9 163 B TEST BRANCH TO TEST FOR LAST CARD 4 0496 B 510 9 164 SCOPE2 P BRANCH PUNCH & BRANCH 4 0500 4 505 9 165 H ERROR STOP IF NO BRANCH 1 0504 . 9 166 BRANCH BSS SCOPE2,B B ON TO SCOPE 5 0505 B 500 B 9 167 TEST C DONE,COUNT COMPARE CARD COUNTER WITH DONE 7 0510 C 547 550 9 168 BU MORE BRANCH TO ADD 1 IF NOT DONE 5 0517 B 531 / 9 169 BSS INNER,D D ON TO REPEAT TEST 5 0522 B 461 D 10 170 B DETAIL BRANCH TO READ NEXT RECORD 4 0527 B 347 10 171 MORE A *-6,COUNT ADD 1 TO CARD COUNTER 7 0531 A 531 550 10 172 B NEXT BRANCH TO PUNCH NEXT CARD 4 0538 B 468 10 173 * 174 * DATA 175 * 176 KSTART DSA DATA1 CONSTANT TO START CARD COUNTER 3 0544 630 10 177 DONE DSA DATA2 CONSTANT TO STOP CARD COUNTER 3 0547 649 10 178 COUNT DCW #3 CARD COUNTER 3 0550 10 179 DCW @AKT4 BLU5"CMV6 DNW7_@ TABLE TO BE RIPPLE PUNCHED 20 0570 11 180 DC @EOX8 FPY9&GQZ0 HR'#(@ ,, 20 0590 12 181 DC @I-,@ +$%1?.*/2 )JS3!@ ,, 20 0610 13 182 DATA1 DC @AKT4 BLU5"CMV6 DNW7_@ ,, 20 0630 14 183 DATA2 DC @EOX8 FPY9&GQZ0 HR'#@ ,, 19 0649 14 184 DCW @"@ GMWM 1 0650 15 185 * 186 * MODIFY HEADER PRINTER TO PRINT ONLY ONE HEADER 187 * 188 ORG HEADCT 0336 189 DCW 1 1 0336 16 190 END START / 347 080 1 RIPPLE PUNCH 1030A PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BRANCH 505 CONT 453 COUNT 550 DATA1 630 DATA2 649 DETAIL 347 DONE 547 FINIS 380 HEADCT 336 HEADPR 190 INNER 461 KSTART 544 MORE 531 NEXT 468 NOCARD 363 SCOPE1 490 SCOPE2 500 SKIPHD 442 START 347 TAPEHD 389 TAPEOF 375 TAPERR 337 TEST 510 TESTHD 407