BOOTSTRAP NO CLEAR ,008047/047046 /000H025B022100 4/061046,054061,068072,0010401040 1 0 WORDMARK AND BUFFER TEST 1010C PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB WORDMARK AND BUFFER TEST 102 * 103 * INITIAL STUFF IN PRINT AREA 104 * 105 ORG 201 0201 106 201 DCW @1234567890))ABCDEFGHIJKLMNOPQRSTUVWXYZ***)))@ 44 0244 4 107 245 DC @1234567890))ABCDEFGHIJKLMNOPQRSTUVWXYZ***)))@ 44 0288 6 108 299 DC @1234567890))ABCDEFGHIJKLMNOPQRSTUVWXYZ***)))@ 44 0332 8 109 * 110 * STUFF IN THE PREAMBLE 111 * 112 ORG 333 0333 113 * 114 * SET UP FOR ONE-FIELD-PER-CARD FORMAT AND BEGIN LOADING 115 * 116 333 START SW 8,12 7 0333 , 008 012 8 117 340 RELOAD SW 1 4 0340 , 001 8 118 344 R 1 4 0344 1 001 8 119 * 120 * LOOK FOR NEXT PROGRAM -- A IN COLUMN 80 121 * 122 348 DETAIL R 1 0348 1 8 123 349 TPTEST BCE *&5,80,A 8 0349 B 361 080 A 9 124 357 BCONT B CONT 4 0357 B 421 9 125 361 CS RELOAD,80 7 0361 / 340 080 9 126 368 DCW #1 1 0368 9 127 * 128 TAPES1 EQU 1268 BLANK INDICATES THE TAPE LOADER 1268 129 TAPERD EQU 1288 TAPE READ ROUTINE? 1288 130 TAPES2 EQU 1398 GM INDICATES THE TAPE LOADER 1398 131 ORG 377 0377 132 377 BCE BEGIN,1261,1 8 0377 B 400 S61 1 10 133 385 B TAPERD 4 0385 B S88 10 134 ORG 400 0400 135 400 BEGIN CS 332 4 0400 / 332 11 136 404 CS 1 0404 / 11 137 405 BCE TITLPR,TITLSW,1 PRINT THE HEADER 8 0405 B S00 S52 1 11 138 413 CS 80 4 0413 / 080 11 139 417 B CONT 4 0417 B 421 11 140 421 CONT LCA K200,COUNT INITIALIZE COUNTER TO 200 7 0421 L 814 817 11 141 428 CS 332 4 0428 / 332 11 142 432 CS 1 0432 / 12 143 433 LCA KP1,244 JUNK FOR THE PRINT LINE 7 0433 L /53 244 12 144 440 MCW 244,288 SPREAD IT OUT 7 0440 M 244 288 12 145 447 MCW 244,332 ETC. 7 0447 M 244 332 12 146 454 W 1 0454 2 12 147 * 1 WORDMARK AND BUFFER TEST 1010C PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 * PRINT 132 LINES OF WMS WITH 1, 2, ..., 132 WMS 149 * 150 455 A A *-6,COUNT BUMP THE COUNTER 7 0455 A 455 817 12 151 462 MCW COUNT,B&3 MOVE COUNTER TO SW 7 0462 M 817 479 12 152 469 MCW COUNT,BB&6 MOVE COUNTER TO BW 7 0469 M 817 486 13 153 476 B SW 5777&X1 5777&X1 IS XXX, MEANING *FILLED IN* 4 0476 , XXX 13 154 480 BB BW C,5777&X1 5777&X1 IS XXX, MEANING *FILLED IN* 8 0480 V 492 XXX 1 13 155 488 H B WHY WASN'T THE WORD MARK SET? 4 0488 . 476 13 156 492 C WM WRITE WORD MARKS 2 0492 2 ) 13 157 494 BW D,332 DONE IF 332 HAS A WM 8 0494 V 506 332 1 13 158 502 B A SET ANOTHER WM 4 0502 B 455 13 159 506 D CC T 2 0506 F T 14 160 508 W 1 0508 2 14 161 509 BSS CONT,D REPEAT IF D IS ON 5 0509 B 421 D 14 162 514 E LCA K000-1,KLL INITIALIZE KLL TO ZERO 7 0514 L 810 808 14 163 521 MCW K200,FSW&3 INITIALIZE SW TO 200 7 0521 M 814 572 14 164 528 CS 332 4 0528 / 332 14 165 532 CS 1 0532 / 14 166 * 167 * FILL A LINE WITH JUNK AND WORD MARKS 168 * 169 533 LCA KP2,244 JUNK FOR THE PRINT LINE 7 0533 L /98 244 15 170 540 MCW 244,288 SPREAD IT OUT 7 0540 M 244 288 15 171 547 MCW 244,332 ETC. 7 0547 M 244 332 15 172 554 F SW FSW&1 4 0554 , 570 15 173 558 A *-6,FSW&3 BUMP WHERE WM IS SET 7 0558 A 558 572 15 174 565 CW FSW&1 4 0565 ) 570 15 175 569 FSW SW 200 SET A WM IN 201-332 4 0569 , 200 16 176 573 BW SCOPE,332 DONE SETTING WMS IF 332 HAS ONE 8 0573 V 585 332 1 16 177 581 B F 4 0581 B 554 16 178 585 SCOPE WM 2 0585 2 ) 16 179 587 W 1 0587 2 16 180 588 WM 2 0588 2 ) 16 181 590 W 1 0590 2 16 182 591 BSS SCOPE,B 5 0591 B 585 B 17 183 * 184 * HAVE WE DONE THIS TEN TIMES? 185 * 186 596 A *-6,KLL BUMP KLL 7 0596 A 596 808 17 187 603 BCE G,KLL-1,1 DONE IF KLL IS 10 8 0603 B 615 807 1 17 188 611 B SCOPE 4 0611 B 585 17 189 615 G CC L 2 0615 F L 17 190 617 BSS E,D REPEAT IF D IS ON 5 0617 B 514 D 17 191 * 192 * PRINT AND CARRIAGE TIMING TESTS 193 * 194 622 H NOP 1 0622 N 17 195 DC #1 1 0623 17 196 624 LCA K000-1,KLL 7 0624 L 810 808 18 197 631 CS 332 4 0631 / 332 18 1 WORDMARK AND BUFFER TEST 1010C PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 635 CS 1 0635 / 18 199 636 LCA BUFFM,289 7 0636 L 879 289 18 200 * 201 * PRINT TIMING TEST 202 * 203 643 J A *-6,KLL 7 0643 A 643 808 18 204 650 SCOPE2 LCA K000,COUNT 7 0650 L 811 817 18 205 657 B WAITP1 WAIT FOR PRINTER AND CARRIAGE 4 0657 B '80 18 206 661 L W 1 0661 2 19 207 662 M BPB N PRINTER SHOULD STAY BUSY FOR 163 5 0662 B 671 P 19 208 667 B PLAT1 PRINT LATCH ERROR 1 4 0667 B 900 19 209 671 N A *-6,COUNT 7 0671 A 671 817 19 210 678 C COUNT,K163 7 0678 C 817 820 19 211 685 BU M 5 0685 B 662 / 19 212 690 O A *-6,COUNT 7 0690 A 690 817 19 213 697 C COUNT,K191 PRINTER SHOULD NOT BE BUSY AFTER 191 7 0697 C 817 823 20 214 704 BU O 5 0704 B 690 / 20 215 709 BPB PLAT2 PRINT LATCH ERROR 2 5 0709 B 953 P 20 216 714 BSS SCOPE2,B 5 0714 B 650 B 20 217 719 SCOPE3 NOP K000&X1,COUNT 7 0719 N 8/1 817 20 218 726 LCA 1 0726 L 20 219 727 CC J 2 0727 F J 20 220 * 221 * CARRIAGE TIMING TEST 222 * 223 729 Q BPCB R 5 0729 B 738 R 21 224 734 B CLAT1 CARRIAGE LATCH ERROR 1 4 0734 B '00 21 225 738 R A *-6,COUNT 7 0738 A 738 817 21 226 745 C COUNT,K41 CARRIAGE SHOULD STAY BUSY FOR 41 7 0745 C 817 826 21 227 752 BU Q 5 0752 B 729 / 21 228 757 S A *-6,COUNT 7 0757 A 757 817 21 229 764 C COUNT,K44 CARRIAGE SHOULD NOT BE BUSY AFTER 44 7 0764 C 817 829 22 230 771 BU S 5 0771 B 757 / 22 231 776 BPCB CLAT2 CARRIAGE LATCH ERROR 2 5 0776 B '55 R 22 232 781 BSS SCOPE3,B 5 0781 B 719 B 22 233 786 T BCE U,KLL-1,2 DONE AFTER TEN TIMES 8 0786 B 798 807 2 22 234 794 B J 4 0794 B 643 22 235 798 U BSS H,D REPEAT IF D IS ON 5 0798 B 622 D 22 236 803 B DETAIL LOAD NEXT PROGRAM? 4 0803 B 348 23 237 * 238 * CONSTANTS 239 * 240 807 KLL DCW @LL@ 2 0808 23 241 809 K000 DCW @000@ 3 0811 23 242 812 K200 DSA 200 3 0814 200 23 243 815 COUNT DSA 200 3 0817 200 23 244 818 K163 DSA 163 3 0820 163 23 245 821 K191 DSA 191 3 0823 191 23 246 824 K41 DSA 041 3 0826 041 24 247 827 K44 DSA 044 3 0829 044 24 1 WORDMARK AND BUFFER TEST 1010C PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 830 BUFFM DCW @BUFFERED MACHINES PRINT AND CARRIAGE BUSY TEST. @ 50 0879 26 249 PLAT1M DCW @PRINT LATCH ERROR 1@ 19 0898 26 250 DC #1 1 0899 26 251 * 252 * ERROR MESSAGE ROUTINES 253 * 254 900 PLAT1 BSS SCOPE2,B 5 0900 B 650 B 26 255 905 BSS PLAT1E,E 5 0905 B 926 E 27 256 910 MCW PLAT1M,229 7 0910 M 898 229 27 257 917 W 1 0917 2 27 258 918 W CS 235 4 0918 / 235 27 259 922 B WAITP2 4 0922 B '94 27 260 926 PLAT1E H SCOPE3 4 0926 . 719 27 261 930 PLAT2M DCW @PRINT LATCH ERROR 2@ 19 0948 28 262 DC @ @ 4 0952 28 263 953 PLAT2 BSS SCOPE2,B 5 0953 B 650 B 28 264 958 BSS PLAT2E,E 5 0958 B 974 E 28 265 963 MCW PLAT2M,229 7 0963 M 948 229 29 266 970 W W 4 0970 2 918 29 267 974 PLAT2E H SCOPE3 4 0974 . 719 29 268 978 CLAT1M DCW @CARRIAGE LATCH ERROR 1@ 22 0999 29 269 1 000 CLAT1 BSS SCOPE3,B 5 1000 B 719 B 30 270 1 005 BSS CLAT1E,E 5 1005 B '26 E 30 271 1 010 MCW CLAT1M,232 7 1010 M 999 232 30 272 1 017 W 1 1017 2 30 273 1 018 Z CS 235 4 1018 / 235 30 274 1 022 B T 4 1022 B 786 30 275 1 026 CLAT1E H T 4 1026 . 786 30 276 1 030 CLAT2M DCW @CARRIAGE LATCH ERROR 2@ 22 1051 31 277 DC @ @ 3 1054 31 278 1 055 CLAT2 BSS SCOPE3,B 5 1055 B 719 B 31 279 1 060 BSS CLAT2E,E 5 1060 B '76 E 31 280 1 065 MCW CLAT2M,232 7 1065 M '51 232 32 281 1 072 W Z 4 1072 2 '18 32 282 1 076 CLAT2E H T 4 1076 . 786 32 283 * 284 * ROUTINES TO WAIT FOR PRINTER AND CARRIAGE 285 * 286 1 080 WAITP1 BPB WAITP1 5 1080 B '80 P 32 287 1 085 WAITC1 BPCB WAITC1 5 1085 B '85 R 32 288 1 090 B L 4 1090 B 661 32 289 1 094 WAITP2 BPB WAITP2 5 1094 B '94 P 32 290 1 099 WAITC2 BPCB WAITC2 5 1099 B '99 R 33 291 1 104 B SCOPE3 4 1104 B 719 33 292 1 108 DC #2 2 1109 33 293 * 294 * MORE CONSTANTS 295 * 296 1 110 KP1 DCW @1234567890))ABCDEFGHIJKLMNOPQRSTUVWXYZ***)))@ 44 1153 35 297 DC #1 1 1154 35 1 WORDMARK AND BUFFER TEST 1010C PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 1 155 KP2 DCW @ALTERNATE PRINT WORDMARKS & PRINT LINE TEST.@ 44 1198 37 299 DC #1 1 1199 37 300 * 301 * TITLE PRINT ROUTINE. NOTICE THAT IN THE ORIGINAL FORMAT, 302 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 303 * THAT TRANSFERS CONTROL TO THE PROGRAM. 304 * 305 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 306 HDRS EQU 1120 ALL PROGRAMS PUT HEADERS IN 1120-1199 1120 307 TITLEX EQU 413 ALL ROUTINES MUST RETURN HERE AFTER TITLE 0413 308 * 309 ORG 1200 1200 310 1 200 TITLPR W PRINT (SPACE). 1 1200 2 37 311 1 201 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 37 312 1 205 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 37 313 1 212 W PRINT TITLE AND BLOCK NO. 1 1212 2 37 314 1 213 CS 277 CLEAR PRINT AREA 4 1213 / 277 38 315 1 217 W CONT 4 1217 2 421 38 316 1 221 DCW @ @ 9 1229 38 317 1 230 DCW @002@ 3 1232 38 318 END START / 333 080 1 WORDMARK AND BUFFER TEST 1010C PAGE 6 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS A 455 B 476 BB 480 BCONT 357 BEGIN 400 BUFFM 879 C 492 CLAT1 1000 CLAT1E 1026 CLAT1M 999 CLAT2 1055 CLAT2E 1076 CLAT2M 1051 CONT 421 COUNT 817 D 506 DETAIL 348 E 514 F 554 FSW 569 G 615 H 622 HDRS 1120 J 643 K000 811 K163 820 K191 823 K200 814 K41 826 K44 829 KLL 808 KP1 1153 KP2 1198 L 661 M 662 N 671 O 690 PLAT1 900 PLAT1E 926 PLAT1M 898 PLAT2 953 PLAT2E 974 PLAT2M 948 Q 729 R 738 RELOAD 340 S 757 SCOPE 585 SCOPE2 650 SCOPE3 719 START 333 T 786 TAPERD 1288 TAPES1 1268 TAPES2 1398 TITLEX 413 TITLPR 1200 TITLSW 1252 TPTEST 349 U 798 W 918 WAITC1 1085 WAITC2 1099 WAITP1 1080 WAITP2 1094 Z 1018