BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 RIPPLE PRINT 1020A PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB RIPPLE PRINT 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 * 115 * SET A WORD MARK IN 1. READ DETAIL RECORDS FROM CARDS IF THERE 116 * ARE ANY. OTHERWISE HALT IF 81 IS NOT GM (PROGRAM IS NOT LOADED 117 * FROM TAPE). OTHERWISE READ A RECORD FROM TAPE INTO 1. IF 80 IS 118 * A, BRANCH TO 1. 119 * 120 * PRINT THE FIRST TWO IF HEADPR IS NOT BLANK. OTHERWISE SKIP THEM. 121 * 122 START EQU DETAIL 0347 123 ORG 336 AT 336 TO ALLOW CHAINING CS TO W 0336 124 HEADPR EQU 190 PRINT FIRST TWO DETAIL IF NOT BLANK. 0190 125 HEADCT DCW 0 HOW MANY DETAIL READ? PRINT FIRST 2. 1 0336 4 126 TAPERR BSP 1 BACKSPACE 5 0337 U %U1 B 4 127 NOP 86 86 IF TAPE ERROR 4 0342 N 086 4 128 H HALT WITH 86 IN A-STAR AND B-STAR 1 0346 . 4 129 DETAIL SW 1,81 1 FOR HEADER, 81 UNDER GM IF TAPE 7 0347 , 001 081 4 130 BLC NOCARD NO CARDS LEFT? 5 0354 B 363 A 4 131 R TESTHD READ A DETAIL OR HEADER CARD 4 0359 1 407 4 132 NOCARD BCE TAPEHD,81," TAPE LOAD PUTS GM IN 81 8 0363 B 389 081 " 5 133 B FINIS 4 0371 B 380 5 134 TAPEOF BSP 1 5 0375 U %U1 B 5 135 FINIS NOP 99 99 IF NO TAPE OR EOF 4 0380 N 099 5 136 H HALT WITH 99 IN A-STAR AND B-STAR 1 0384 . 5 137 B DETAIL TRY AGAIN 4 0385 B 347 5 138 TAPEHD RTW 1,1 READ A DETAIL OR HEADER TAPE RECORD 8 0389 L %U1 001 R 5 139 BER TAPERR ERROR? 5 0397 B 337 L 6 140 BEF TAPEOF EOF? 5 0402 B 375 K 6 141 TESTHD BCE 1,80,A EXECUTE IF A HEADER 8 0407 B 001 080 A 6 142 BCE CONT,HEADCT,2 HEADERS PRINTED YET? 8 0415 B 453 336 2 6 143 BCE SKIPHD,HEADPR, SKIP HEADER PRINTING? 8 0423 B 442 190 6 144 LCA 77,277 PRINT THE FIRST TWO HEADERS 7 0431 L 077 277 7 145 W 1 0438 2 7 146 CS 1 0439 / 7 147 CS 1 0440 / 7 1 RIPPLE PRINT 1020A PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 W 1 0441 2 7 149 SKIPHD A *-6,HEADCT 7 0442 A 442 336 7 150 B DETAIL 4 0449 B 347 7 151 * 152 * CONTINUE HERE AFTER READING DETAIL 153 * 154 CONT CW TABLE-39,TABLE-19 EXPAND TABLE 7 0453 ) 575 595 8 155 LCA TABLE,TAB2 ,, 7 0460 L 614 674 8 156 CW TABLE&1 ,, 4 0467 ) 615 8 157 LCA TAB2,TAB5 ,, 7 0471 L 674 794 8 158 CW TAB2&1 ,, 4 0478 ) 675 8 159 SW 201 SET WM IN PRINT AREA 4 0482 , 201 8 160 REPEAT LCA KBEG,LCTR LOAD LINE COUNTER 7 0486 L 547 554 9 161 LINE MCW LCTR,*&4 MOVE LINE CTR INTO NEXT INSTRUC 7 0493 M 554 503 9 162 MCW TAB3,332 MOVE TABLE INTO PRINT AREA 7 0500 M 686 332 9 163 SCOPE W PRINT 1 0507 2 9 164 BSS SCOPE,B B ON TO SCOPE 5 0508 B 507 B 9 165 C KEND,LCTR COMPARE LINE COUNTER WITH 891 7 0513 C 551 554 9 166 BU BUMP BRANCH TO ADD 1 IF NOT 891 5 0520 B 534 / 9 167 BSS REPEAT,D D ON TO REPEAT TEST 5 0525 B 486 D 10 168 B DETAIL BRANCH TO READ NEXT RECORD 4 0530 B 347 10 169 BUMP A K1,LCTR ADD 1 TO LINE COUNTER 7 0534 A 548 554 10 170 B LINE BRANCH TO PRINT NEXT LINE 4 0541 B 493 10 171 KBEG DSA TAB3 CONSTANT TO START LINE COUNTER 3 0547 686 10 172 K1 DCW 1 CONSTANT TO INCREMENT LINE COUNTER 1 0548 10 173 KEND DSA TAB4 CONSTANT TO STOP LINE COUNTER 3 0551 745 10 174 LCTR DCW #3 LINE COUNTER 3 0554 11 175 DCW @AKT4 BLU5 CMV6"DNW7 @ TABLE TO BE RIPPLE PRINTED 20 0574 11 176 DCW @EOX8 FPY9_GQZ0 HR'# @ ,, 20 0594 12 177 TABLE DCW @I-,@+&$%1 .*/2 )JS3(@ ,, 20 0614 13 178 TAB2 DS 60 0674 179 TAB3 DS 12 0686 180 TAB4 DS 59 0745 181 TAB5 DS 49 0794 182 DCW @"@ GMWM 1 0795 14 183 * 184 * MODIFY HEADER PRINTER TO PRINT ONLY THE TITLE 185 * 186 ORG HEADCT 0336 187 DCW 1 1 0336 15 188 END START / 347 080 1 RIPPLE PRINT 1020A PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BUMP 534 CONT 453 DETAIL 347 FINIS 380 HEADCT 336 HEADPR 190 K1 548 KBEG 547 KEND 551 LCTR 554 LINE 493 NOCARD 363 REPEAT 486 SCOPE 507 SKIPHD 442 START 347 TAB2 674 TAB3 686 TAB4 745 TAB5 794 TABLE 614 TAPEHD 389 TAPEOF 375 TAPERR 337 TESTHD 407