BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 NUMERICAL RIPPLE PRINT 1022B PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB NUMERICAL 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 420 4 119 361 CS RELOAD,80 7 0361 / 340 080 4 120 368 DCW #1 1 0368 5 121 * 122 TAPES1 EQU 1268 BLANK INDICATES THE TAPE LOADER 1268 123 TAPERD EQU 1288 TAPE READ ROUTINE? 1288 124 TAPES2 EQU 1398 GM INDICATES THE TAPE LOADER 1398 125 ORG 377 0377 126 377 BCE BEGIN,1261,3 8 0377 B 400 S61 3 6 127 385 BIN TAPERD, 5 0385 B S88 6 128 ORG 400 0400 129 400 BEGIN CS 332 4 0400 / 332 7 130 404 CS 1 0404 / 7 131 405 BCE TITLPR,TITLSW,1 8 0405 B S00 S52 1 7 132 413 BIN CONT, 5 0413 B 420 7 133 ORG 420 0420 134 420 CONT CW TAB1&1,TAB2&1 EXPAND 7 0420 ) 721 741 8 135 427 LCA TAB3,DAT1 THE 7 0427 L 760 820 8 136 434 CW TAB3&1 DATA 4 0434 ) 761 8 137 438 LCA DAT1,DAT4 ,, 7 0438 L 820 940 8 138 445 CW DAT1&1 ,, 4 0445 ) 821 8 139 449 SW 201 4 0449 , 201 8 140 453 REPEAT LCA KBEG,COUNT INITIALIZE DATA COUNTER 7 0453 L 607 614 9 141 460 LOOP MCW COUNT,*&4 PLUG DATA COUNTER INTO NSI 7 0460 M 614 470 9 142 467 MCW DAT2,332 MOVE DATA TO PRINT AREA 7 0467 M 832 332 9 143 474 SCOPE W 1 0474 2 9 144 475 BSS SCOPE,B B ON FOR SCOPING 5 0475 B 474 B 9 145 480 C KEND,COUNT DONE? 7 0480 C 611 614 9 146 487 BU MORE NO 5 0487 B 501 / 9 147 492 BSS REPEAT,D REPEAT THE TEST 5 0492 B 453 D 10 1 NUMERICAL RIPPLE PRINT 1022B PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 497 B DETAIL LOAD THE NEXT PROGRAM 4 0497 B 348 10 149 501 MORE A K1,COUNT BUMP THE COUNTER 7 0501 A 608 614 10 150 508 BIN LOOP, 5 0508 B 460 10 151 ORG 605 0605 152 * 153 * CONSTANTS AND DATA AREAS 154 * 155 607 KBEG DSA DAT2 3 0607 832 11 156 608 K1 DCW 1 1 0608 11 157 611 KEND DSA DAT3 3 0611 891 11 158 614 COUNT DCW @XXX@ 3 0614 11 159 ORG 701 0701 160 720 TAB1 DCW @1234 5678 90-, .$*) @ 20 0720 12 161 740 TAB2 DCW @)*$. ,-09 8765 4321 @ 20 0740 13 162 760 TAB3 DCW @2468 0,$) 1357 9-.* @ 20 0760 14 163 820 DAT1 DS 60 0820 164 832 DAT2 DS 12 0832 165 891 DAT3 DS 59 0891 166 940 DAT4 DS 49 0940 167 * 168 * TITLE PRINT ROUTINE. NOTICE THAT IN THE ORIGINAL FORMAT, 169 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 170 * THAT TRANSFERS CONTROL TO THE PROGRAM. 171 * 172 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 173 * 174 ORG 1200 1200 175 1 200 TITLPR W 1 1200 2 15 176 1 201 SW 49 4 1201 , 049 15 177 1 205 LCA 76,276 7 1205 L 076 276 15 178 1 212 W 1 1212 2 15 179 1 213 CS 277 4 1213 / 277 15 180 1 217 W CONT 4 1217 2 420 15 181 1 221 DCW #1 1 1221 15 182 END START / 333 080 1 NUMERICAL RIPPLE PRINT 1022B PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BCONT 357 BEGIN 400 CONT 420 COUNT 614 DAT1 820 DAT2 832 DAT3 891 DAT4 940 DETAIL 348 K1 608 KBEG 607 KEND 611 LOOP 460 MORE 501 RELOAD 340 REPEAT 453 SCOPE 474 START 333 TAB1 720 TAB2 740 TAB3 760 TAPERD 1288 TAPES1 1268 TAPES2 1398 TITLPR 1200 TITLSW 1252 TPTEST 349