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 * 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&1 CONT IS IN A DIFFERENT PLACE NOW 4 0357 B 421 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 SWITCH,1261,1 USE WHEN TESTS ARE RUN FROM TAPE 8 0377 B 389 S61 1 6 127 385 B TAPERD 4 0385 B S88 6 128 389 SWITCH NOP 0 4 0389 N 000 6 129 393 MCW BCONT&3,SWITCH&3 7 0393 M 360 392 6 130 400 BEGIN CS 332 4 0400 / 332 6 131 404 CS 1 0404 / 6 132 405 LCA BCONT2&4,1222 MODIFY TITLE PRINT TO SKIP HEADINGS 7 0405 L 604 S22 6 133 412 BCE TITLPR,TITLSW,1 BR TO TITLE PRINT ROUTINE IF 1 IN S 8 0412 B S00 S52 1 7 134 420 CONT CW TABLE-39,TABLE-19 EXPAND TABLE 701-760 TO 701-940 7 0420 ) 721 741 7 135 427 LCA TABLE,TAB2 ,, 7 0427 L 760 820 7 136 434 CW TABLE&1 ,, 4 0434 ) 761 7 137 438 LCA TAB2,TAB5 ,, 7 0438 L 820 940 7 138 445 CW TAB2&1 ,, 4 0445 ) 821 7 139 449 SW 201 SET WM IN PRINT AREA 4 0449 , 201 8 140 453 REPEAT LCA KBEG,LCTR LOAD LINE COUNTER 7 0453 L 607 614 8 141 460 LINE MCW LCTR,*&4 MOVE LINE CTR INTO NEXT INSTRUC 7 0460 M 614 470 8 142 467 MCW TAB3,332 MOVE TABLE INTO PRINT AREA 7 0467 M 832 332 8 143 474 SCOPE W PRINT 1 0474 2 8 144 475 BSS SCOPE,B B ON TO SCOPE 5 0475 B 474 B 8 145 480 C KEND,LCTR COMPARE LINE COUNTER WITH 891 7 0480 C 611 614 8 146 487 BU BUMP BRANCH TO ADD 1 IF NOT 891 5 0487 B 501 / 9 147 492 BSS REPEAT,D D ON TO REPEAT TEST 5 0492 B 453 D 9 1 RIPPLE PRINT 1020A PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 497 B DETAIL BRANCH TO READ NEXT RECORD 4 0497 B 348 9 149 501 BUMP A K1,LCTR ADD 1 TO LINE COUNTER 7 0501 A 608 614 9 150 508 BIN LINE, BRANCH TO PRINT NEXT LINE 5 0508 B 460 9 151 * 152 * CONSTANTS AND DATA AREAS 153 * 154 ORG 600 0600 155 600 BCONT2 BIN CONT, BRANCH INSTRUCTION TO MODIFY TITLE PR 5 0600 B 420 10 156 605 KBEG DSA TAB3 CONSTANT TO START LINE COUNTER 3 0607 832 10 157 608 K1 DCW 1 CONSTANT TO INCREMENT LINE COUNTER 1 0608 10 158 609 KEND DSA TAB4 CONSTANT TO STOP LINE COUNTER 3 0611 891 10 159 612 LCTR DCW @XXX@ LINE COUNTER 3 0614 10 160 ORG 701 0701 161 701 DCW @AKT4 BLU5 CMV6"DNW7 @ TABLE TO BE RIPPLE PRINTED 20 0720 11 162 721 DCW @EOX8 FPY9_GQZ0 HR'# @ ,, 20 0740 12 163 741 TABLE DCW @I-,@+&$%1 .*/2 )JS3(@ ,, 20 0760 13 164 TAB2 DS 60 0820 165 TAB3 DS 12 0832 166 TAB4 DS 59 0891 167 TAB5 DS 49 0940 168 * 169 * TITLE PRINT ROUTINE. NOTICE THAT IN THE ORIGINAL FORMAT, 170 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 171 * THAT TRANSFERS CONTROL TO THE PROGRAM. 172 * 173 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 174 HDRS EQU 1120 ALL PROGRAMS PUT HEADERS IN 1120-1199 1120 175 TITLEX EQU 413 ALL ROUTINES MUST RETURN HERE AFTER TITLE 0413 176 * 177 ORG 1200 1200 178 1 200 TITLPR W PRINT (SPACE). 1 1200 2 14 179 1 201 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 14 180 1 205 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 14 181 1 212 W PRINT TITLE AND BLOCK NO. 1 1212 2 14 182 1 213 CS 277 CLEAR PRINT AREA 4 1213 / 277 14 183 1 217 W PRINT (SPACE). 1 1217 2 14 184 1 218 CW HDRS&20,HDRS&40 CLEAR WORD MARKS IN SECOND 7 1218 ) /40 /60 14 185 1 225 CW HDRS&60 LINE STORED INFORMATION. 4 1225 ) /80 15 186 1 229 LCA HDRS&69,270 LOAD SECOND LINE. 7 1229 L /89 270 15 187 1 236 W PRINT SECOND LINE. 1 1236 2 15 188 1 237 CS 270 CLEAR PRINT AREA. 4 1237 / 270 15 189 1 241 W TITLEX PRINT (SPACE) AND BRANCH TO MAIN PROGRA 4 1241 2 413 15 190 1 245 DCW #1 1 1245 15 191 END START / 333 080 1 RIPPLE PRINT 1020A PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BCONT 357 BCONT2 600 BEGIN 400 BUMP 501 CONT 420 DETAIL 348 HDRS 1120 K1 608 KBEG 607 KEND 611 LCTR 614 LINE 460 RELOAD 340 REPEAT 453 SCOPE 474 START 333 SWITCH 389 TAB2 820 TAB3 832 TAB4 891 TAB5 940 TABLE 760 TAPERD 1288 TAPES1 1268 TAPES2 1398 TITLEX 413 TITLPR 1200 TITLSW 1252 TPTEST 349