BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 RIPPLE PRINT 1020B 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 1020B 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 CS DAT11 4 0453 / '92 8 155 CS 1 0457 / 8 156 LCA TAB1,DAT3 EXPAND 7 0458 L 697 948 8 157 MCW DAT3,DAT5 THE 7 0465 M 948 996 8 158 MCW DAT5,DAT11 DATA 7 0472 M 996 '92 8 159 REP1 LCA TAB3,332 7 0479 L 847 332 8 160 W 1 0486 2 8 161 MCW ADAT6,MOVE1&3 SET THE STARTING PRINT ADDRESS 7 0487 M 643 512 9 162 LOOP1 SW MOVE1&1 BUMP 4 0494 , 510 9 163 A *-6,MOVE1&3 THE PRINT 7 0498 A 498 512 9 164 CW MOVE1&1 ADDRESS 4 0505 ) 510 9 165 MOVE1 MCW DAT6,332 MOVE TABLE INTO PRINT AREA 7 0509 M '31 332 9 166 SCOPE1 W PRINT 1 0516 2 9 167 BSS SCOPE1,B B ON TO SCOPE 5 0517 B 516 B 9 168 C MOVE1&3,ADAT9 DONE? 7 0522 C 512 646 10 169 BU LOOP1 NO, DO IT AGAIN 5 0529 B 494 / 10 170 CC J 2 0534 F J 10 171 BSS REP1,D REPEAT SAME TEST 5 0536 B 479 D 10 172 MZ CONT,TAB2-1 7 0541 Y 453 714 10 173 LCA TAB2,DAT1 EXPAND 7 0548 L 715 918 10 174 MCW DAT1,DAT2 THE 7 0555 M 918 936 11 175 MCW DAT2,DAT4 DATA 7 0562 M 936 972 11 176 MCW DAT4,DAT7 7 0569 M 972 '44 11 177 MCW DAT2,DAT10 7 0576 M 936 '80 11 178 REP2 MCW ADAT6,MOVE2&3 SET THE PRINT ADDRESS 7 0583 M 643 608 11 179 LOOP2 SW MOVE2&1 BUMP 4 0590 , 606 11 180 A *-6,MOVE2&3 THE PRINT 7 0594 A 594 608 12 181 CW MOVE2&1 ADDRESS 4 0601 ) 606 12 182 MOVE2 MCW DAT6,332 MOVE TABLE INTO PRINT AREA 7 0605 M '31 332 12 183 SCOPE2 W PRINT 1 0612 2 12 184 BSS SCOPE2,B B ON TO SCOPE 5 0613 B 612 B 12 185 C MOVE2&3,ADAT8 DONE? 7 0618 C 608 649 12 186 BU LOOP2 NO, DO IT AGAIN 5 0625 B 590 / 12 187 CC J 2 0630 F J 13 188 BSS REP2,D 5 0632 B 583 D 13 189 B DETAIL CHAIN NEXT PROGRAM 4 0637 B 347 13 190 * 191 * CONSTANTS AND DATA AREAS 192 * 193 ADAT6 DSA DAT6 3 0643 '31 13 194 ADAT9 DSA DAT9 3 0646 '79 13 195 ADAT8 DSA DAT8 3 0649 '49 13 196 TAB1 DCW @1234567890#@/STUVWXYZ?,%JKLMNOPQR!$*ABCDEFGHI&.)@ 48 0697 15 197 TAB2 DCW @[] :? <;\>! "_+( @ 18 0715 15 1 RIPPLE PRINT 1020B PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 DCW @1 2 3 4 5 6 7 8 9 10 11 12 13 @ 39 0754 16 199 DC @14 15 16 17 18 19 20 21 22 23 24 25 26 @ 39 0793 17 200 DC @27 28 29 30 31 32 33 34 35 36 37 38 39 @ 39 0832 18 201 TAB3 DC @40 41 42 43 44 @ 15 0847 19 202 DCW @"@ GMWM 1 0848 19 203 ORG *&X00 0900 204 DAT1 DS 19 0918 205 DAT2 DS 18 0936 206 DAT3 DS 12 0948 207 DAT4 DS 24 0972 208 DAT5 DS 24 0996 209 DAT6 DS 35 1031 210 DAT7 DS 13 1044 211 DAT8 DS 5 1049 212 DAT9 DS 30 1079 213 DAT10 DS 1 1080 214 DAT11 DS 12 1092 215 * 216 * MODIFY HEADER PRINTER TO PRINT ONLY THE TITLE 217 * 218 ORG HEADCT 0336 219 DCW 1 1 0336 20 220 END START / 347 080 1 RIPPLE PRINT 1020B PAGE 4 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS ADAT6 643 ADAT8 649 ADAT9 646 CONT 453 DAT1 918 DAT10 1080 DAT11 1092 DAT2 936 DAT3 948 DAT4 972 DAT5 996 DAT6 1031 DAT7 1044 DAT8 1049 DAT9 1079 DETAIL 347 FINIS 380 HEADCT 336 HEADPR 190 LOOP1 494 LOOP2 590 MOVE1 509 MOVE2 605 NOCARD 363 REP1 479 REP2 583 SCOPE1 516 SCOPE2 612 SKIPHD 442 START 347 TAB1 697 TAB2 715 TAB3 847 TAPEHD 389 TAPEOF 375 TAPERR 337 TESTHD 407