BOOTSTRAP NO CLEAR ,008047/047046 /000H025B022100 4/061046,054061,068072,0010401040 1 0 PRINT WORD MARKS 1010B PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB PRINT WORD MARKS 102 * 103 * STUFF IN THE PREAMBLE 104 * 105 ORG 333 0333 106 * 107 * SET UP FOR ONE-FIELD-PER-CARD FORMAT AND BEGIN LOADING 108 * 109 333 START SW 8,12 7 0333 , 008 012 2 110 340 RELOAD SW 1 4 0340 , 001 2 111 344 R 1 4 0344 1 001 2 112 * 113 * LOOK FOR NEXT PROGRAM -- A IN COLUMN 80 114 * 115 348 DETAIL R 1 0348 1 2 116 349 TPTEST BCE *&5,80,A 8 0349 B 361 080 A 2 117 357 BCONT B 421 4 0357 B 421 2 118 361 CS RELOAD,80 7 0361 / 340 080 2 119 368 DCW #1 1 0368 3 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 SWITCH,1261,1 USE WHEN TESTS ARE RUN FROM TAPE 8 0377 B 389 S61 1 4 126 385 B TAPERD ,, 4 0385 B S88 4 127 389 SWITCH NOP 0 ,, 4 0389 N 000 4 128 393 MCW BCONT&3,SWITCH&3 ,, 7 0393 M 360 392 4 129 400 BEGIN CS 332 START TEST 4 0400 / 332 4 130 404 CS 1 0404 / 4 131 405 LCA BLOOP&4,NOHEAD&4 MODIFY TITLE PRINT TO SKIP HEADING 7 0405 L 654 S22 4 132 412 BCE TITLPR,TITLSW,1 BR TO TITLE PRINT ROUTINE IF 1 IN 8 0412 B S00 S52 1 5 133 420 LOOP SW 200 SET WORD MARK IN 200 4 0420 , 200 5 134 424 MN CW,332 MOVE LOZENGE INTO 332 7 0424 D 459 332 5 135 431 MCW 332,331 MOVE LOZENGE INTO ALL PRINT POSITIONS 7 0431 M 332 331 5 136 438 MCW KAB1,SW1&6 MOVE 201234 TO START A & B OF INSTR 4 7 0438 M 660 472 5 137 445 MCW KAB2,SW2&6 MOVE 267300 TO START A & B OF INSTR 4 7 0445 M 666 479 6 138 452 WM WM PRINT WORD MARKS 2 0452 2 ) 6 139 454 BSS 452,B B ON TO SCOPE 5 0454 B 452 B 6 140 459 CW CW 467,474 CLEAR WORD MARKS IN 467 AND 474 7 0459 ) 467 474 6 141 466 SW1 SW 201,234 SET TWO WORD MARKS IN PRINT AREA 7 0466 , 201 234 6 142 473 SW2 SW 267,300 SET TWO WORD MARKS IN PRINT AREA 7 0473 , 267 300 6 143 480 C SW2&6,ENDSW COMPARE LAST POSITION SET WITH 333 7 0480 C 479 669 7 144 487 BU INC UNEQUAL-BRANCH TO SET WM IN 467 AND 4 5 0487 B 496 / 7 145 492 B CLR EQUAL-BRANCH TO BEGIN REMOVING WMS 4 0492 B 521 7 146 496 INC SW SW1&1,SW2&1 SET WORD MARKS IN 467 AND 474 7 0496 , 467 474 7 147 503 A INCAB,SW1&6 ADD 1001 TO INCREMENT AB OF INSTR 466 7 0503 A 676 472 7 1 PRINT WORD MARKS 1010B PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 510 A INCAB,SW2&6 ADD 1001 TO INCREMENT AB OF INSTR 473 7 0510 A 676 479 7 149 517 B WM LOOP TO PRINT WORD MARKS 4 0517 B 452 8 150 521 CLR MCW KAB1,CW2&6 MOVE 201234 TO START A & B OF INSTR 5 7 0521 M 660 548 8 151 528 MCW KAB2,CW3&6 MOVE 267300 TO START A & B OF INSTR 5 7 0528 M 666 555 8 152 535 CW1 CW CW2&1,CW3&1 CLEAR WORD MARKS IN 543 AND 550 7 0535 ) 543 550 8 153 542 CW2 CW 201,234 CLEAR TWO WORD MARKS IN PRINT AREA 7 0542 ) 201 234 8 154 549 CW3 CW 267,300 CLEAR TWO WORD MARKS IN PRINT AREA 7 0549 ) 267 300 8 155 556 SCOPE WM SKIPH PRINT UNCLEARED WORD MARKS & BRANCH 5 0556 2 562 ) 9 156 561 H ERROR STOP IF NO BRANCH 1 0561 . 9 157 562 SKIPH BSS SCOPE,B B ON TO SCOPE 5 0562 B 556 B 9 158 567 C CW3&6,ENDCW COMPARE LAST POSITION CLEARED WITH 33 7 0567 C 555 672 9 159 574 BU INC2 UNEQUAL-BRANCH TO SET WM IN 543 AND 5 5 0574 B 588 / 9 160 579 BSS LOOP,D EQUAL-D ON TO REPEAT TEST 5 0579 B 420 D 9 161 584 B DETAIL BRANCH TO READ NEXT RECORD 4 0584 B 348 9 162 588 INC2 SW CW2&1,CW3&1 SET WORD MARKS IN 543 AND 550 7 0588 , 543 550 10 163 595 A INCAB,CW2&6 ADD 1001 TO INCREMENT AB OF INSTR 542 7 0595 A 676 548 10 164 602 A INCAB,CW3&6 ADD 1001 TO INCREMENT AB OF INSTR 549 7 0602 A 676 555 10 165 609 BIN CW1, LOOP TO PRINT UNCLEARED WORD MARKS 5 0609 B 535 10 166 ORG 650 0650 167 650 BLOOP BIN LOOP, BRANCH INSTRUCTION TO MODIFY TITLE PR 5 0650 B 420 11 168 655 KAB1 DCW @201234@ CONSTANT TO START AB FIELDS 6 0660 11 169 661 KAB2 DCW @267300@ CONSTANT TO START AB FIELDS 6 0666 11 170 667 ENDSW DSA 333 CONSTANT TO END SET WM LOOPS 3 0669 333 11 171 670 ENDCW DSA 332 CONSTANT TO END CLEAR WM LOOPS 3 0672 332 11 172 673 INCAB DCW @1001@ CONSTANT TO INCREMENT AB FIELDS 4 0676 11 173 * 174 * TITLE PRINT ROUTINE. NOTICE THAT IN THE ORIGINAL FORMAT, 175 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 176 * THAT TRANSFERS CONTROL TO THE PROGRAM. 177 * 178 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 179 HDRS EQU 1120 ALL PROGRAMS PUT HEADERS IN 1120-1199 1120 180 TITLEX EQU 413 ALL ROUTINES MUST RETURN HERE AFTER TITLE 0413 181 * 182 ORG 1200 1200 183 1 200 TITLPR W PRINT (SPACE). 1 1200 2 12 184 1 201 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 12 185 1 205 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 12 186 1 212 W PRINT TITLE AND BLOCK NO. 1 1212 2 12 187 1 213 CS 277 CLEAR PRINT AREA 4 1213 / 277 12 188 1 217 W PRINT (SPACE). 1 1217 2 12 189 1 218 NOHEAD CW HDRS&20,HDRS&40 CLEAR WORD MARKS IN SECOND 7 1218 ) /40 /60 12 190 1 225 CW HDRS&60 LINE STORED INFORMATION. 4 1225 ) /80 13 191 1 229 LCA HDRS&69,270 LOAD SECOND LINE. 7 1229 L /89 270 13 192 1 236 W PRINT SECOND LINE. 1 1236 2 13 193 1 237 CS 270 CLEAR PRINT AREA. 4 1237 / 270 13 194 1 241 W TITLEX PRINT (SPACE) AND BRANCH TO MAIN PROGRA 4 1241 2 413 13 195 1 245 DCW #1 1 1245 13 196 END START / 333 080 1 PRINT WORD MARKS 1010B PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BCONT 357 BEGIN 400 BLOOP 650 CLR 521 CW 459 CW1 535 CW2 542 CW3 549 DETAIL 348 ENDCW 672 ENDSW 669 HDRS 1120 INC 496 INC2 588 INCAB 676 KAB1 660 KAB2 666 LOOP 420 NOHEAD 1218 RELOAD 340 SCOPE 556 SKIPH 562 START 333 SW1 466 SW2 473 SWITCH 389 TAPERD 1288 TAPES1 1268 TAPES2 1398 TITLEX 413 TITLPR 1200 TITLSW 1252 TPTEST 349 WM 452