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 * STUFF IN THE PREAMBLE 105 * 106 ORG 333 0333 107 * 108 * SET UP FOR ONE-FIELD-PER-CARD FORMAT AND BEGIN LOADING 109 * 110 333 START SW 8,12 7 0333 , 008 012 4 111 340 RELOAD SW 1 4 0340 , 001 4 112 344 R 1 4 0344 1 001 4 113 * 114 * LOOK FOR NEXT PROGRAM -- A IN COLUMN 80 115 * 116 348 DETAIL R 1 0348 1 4 117 349 TPTEST BCE *&5,80,A 8 0349 B 361 080 A 4 118 357 BCONT B CONT CONT IS IN A DIFFERENT PLACE NOW 4 0357 B 421 4 119 361 CS RELOAD,80 7 0361 / 340 080 4 120 * 121 TAPES1 EQU 1268 BLANK INDICATES THE TAPE LOADER 1268 122 TAPERD EQU 1288 TAPE READ ROUTINE? 1288 123 TAPES2 EQU 1398 GM INDICATES THE TAPE LOADER 1398 124 ORG 377 0377 125 377 BCE BEGIN,1261,1 USE WHEN TESTS ARE RUN FROM TAPE 8 0377 B 400 S61 1 5 126 385 B TAPERD 4 0385 B S88 5 127 ORG 400 0400 128 400 BEGIN CS 332 4 0400 / 332 6 129 404 CS 1 0404 / 6 130 405 BCE TITLPR,TITLSW,1 BR TO TITLE PRINT ROUTINE IF 1 IN S 8 0405 B S00 S52 1 6 131 413 CS 80 4 0413 / 080 6 132 417 B CONT 4 0417 B 421 6 133 421 CONT CS DAT11 4 0421 / /92 6 134 425 CS 1 0425 / 6 135 426 LCA TAB1,DAT3 EXPAND 7 0426 L 712 '48 7 136 433 MCW DAT3,DAT5 THE 7 0433 M '48 '96 7 137 440 MCW DAT5,DAT11 DATA 7 0440 M '96 /92 7 138 447 REP1 LCA TAB3,332 7 0447 L 973 332 7 139 454 W 1 0454 2 7 140 455 MCW ADAT6,SCOPE1&3 SET THE STARTING PRINT ADDRESS 7 0455 M 658 486 7 141 462 LOOP1 MCW SCOPE1&3,COUNT BUMP 7 0462 M 486 733 8 142 469 A *-6,COUNT THE PRINT 7 0469 A 469 733 8 143 476 MCW COUNT,SCOPE1&3 ADDRESS 7 0476 M 733 486 8 144 483 SCOPE1 MCW DAT6,332 MOVE TABLE INTO PRINT AREA 7 0483 M /31 332 8 145 490 W PRINT 1 0490 2 8 146 491 BSS SCOPE1,B B ON TO SCOPE 5 0491 B 483 B 8 147 496 C COUNT,ADAT9 DONE? 7 0496 C 733 661 9 1 RIPPLE PRINT 1020B PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 503 BU LOOP1 NO, DO IT AGAIN 5 0503 B 462 / 9 149 508 CC J 2 0508 F J 9 150 510 BSS REP1,D REPEAT SAME TEST 5 0510 B 447 D 9 151 515 BIN TEST2, 5 0515 B 539 9 152 ORG 539 0539 153 539 TEST2 MCW ADAT6,SCOPE2&3 SET THE PRINT ADDRESS 7 0539 M 658 612 10 154 546 MZ CONT,TAB2-1 7 0546 Y 421 729 10 155 553 LCA TAB2,DAT1 EXPAND 7 0553 L 730 '18 10 156 560 MCW DAT1,DAT2 THE 7 0560 M '18 '36 10 157 567 MCW DAT2,DAT4 DATA 7 0567 M '36 '72 10 158 574 MCW DAT4,DAT7 7 0574 M '72 /44 11 159 581 MCW DAT2,DAT10 7 0581 M '36 /80 11 160 588 LOOP2 MCW SCOPE2&3,COUNT BUMP 7 0588 M 612 733 11 161 595 A *-6,COUNT THE PRINT 7 0595 A 595 733 11 162 602 MCW COUNT,SCOPE2&3 ADDRESS 7 0602 M 733 612 11 163 609 SCOPE2 MCW DAT6,332 MOVE TABLE INTO PRINT AREA 7 0609 M /31 332 12 164 616 W PRINT 1 0616 2 12 165 617 BSS SCOPE2,B B ON TO SCOPE 5 0617 B 609 B 12 166 622 C COUNT,ADAT8 DONE? 7 0622 C 733 664 12 167 629 BU LOOP2 NO, DO IT AGAIN 5 0629 B 588 / 12 168 634 CC J 2 0634 F J 12 169 636 BIN TESTD, 5 0636 B 647 12 170 ORG 647 0647 171 647 TESTD BSS TEST2,D 5 0647 B 539 D 13 172 652 B DETAIL 4 0652 B 348 13 173 * 174 * CONSTANTS AND DATA AREAS 175 * 176 658 ADAT6 DSA DAT6 3 0658 /31 13 177 661 ADAT9 DSA DAT9 3 0661 /79 13 178 664 ADAT8 DSA DAT8 3 0664 /49 13 179 712 TAB1 DCW @1234567890#@/STUVWXYZ?,%JKLMNOPQR!$*ABCDEFGHI&.)@ 48 0712 15 180 730 TAB2 DCW @[] :? <;\>! "_+( @ 18 0730 15 181 733 COUNT DCW @XXX@ 3 0733 15 182 780 DS 108 0841 183 880 DCW @1 2 3 4 5 6 7 8 9 10 11 12 13 @ 39 0880 16 184 919 DC @14 15 16 17 18 19 20 21 22 23 24 25 26 @ 39 0919 17 185 958 DC @27 28 29 30 31 32 33 34 35 36 37 38 39 @ 39 0958 18 186 973 TAB3 DC @40 41 42 43 44 @ 15 0973 19 187 999 DC #26 26 0999 20 188 ORG 1000 1000 189 1 018 DAT1 DS 19 1018 190 1 036 DAT2 DS 18 1036 191 1 048 DAT3 DS 12 1048 192 1 072 DAT4 DS 24 1072 193 1 096 DAT5 DS 24 1096 194 1 131 DAT6 DS 35 1131 195 1 144 DAT7 DS 13 1144 196 1 149 DAT8 DS 5 1149 197 1 179 DAT9 DS 30 1179 1 RIPPLE PRINT 1020B PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 180 DAT10 DS 1 1180 199 1 192 DAT11 DS 12 1192 200 1 199 DS 7 1199 201 * 202 * TITLE PRINT ROUTINE. NOTICE THAT IN THE ORIGINAL FORMAT, 203 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 204 * THAT TRANSFERS CONTROL TO THE PROGRAM. 205 * 206 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 207 * 208 ORG 1200 1200 209 1 200 TITLPR W 1 1200 2 21 210 1 201 SW 49 4 1201 , 049 21 211 1 205 LCA 77,277 7 1205 L 077 277 21 212 1 212 W 1 1212 2 21 213 1 213 CS 277 4 1213 / 277 21 214 1 217 W CONT 4 1217 2 421 21 215 1 221 DCW #1 1 1221 21 216 END START / 333 080 1 RIPPLE PRINT 1020B PAGE 4 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS ADAT6 658 ADAT8 664 ADAT9 661 BCONT 357 BEGIN 400 CONT 421 COUNT 733 DAT1 1018 DAT10 1180 DAT11 1192 DAT2 1036 DAT3 1048 DAT4 1072 DAT5 1096 DAT6 1131 DAT7 1144 DAT8 1149 DAT9 1179 DETAIL 348 LOOP1 462 LOOP2 588 RELOAD 340 REP1 447 SCOPE1 483 SCOPE2 609 START 333 TAB1 712 TAB2 730 TAB3 973 TAPERD 1288 TAPES1 1268 TAPES2 1398 TEST2 539 TESTD 647 TITLPR 1200 TITLSW 1252 TPTEST 349