BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 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 CTL 6611 103 * 104 * INITIAL STUFF IN PRINT AREA 105 * 106 ORG 201 0201 107 DCW @1234567890))ABCDEFGHIJKLMNOPQRSTUVWXYZ***)))@ 44 0244 6 108 DC @1234567890))ABCDEFGHIJKLMNOPQRSTUVWXYZ***)))@ 44 0288 8 109 DC @1234567890))ABCDEFGHIJKLMNOPQRSTUVWXYZ***)))@ 44 0332 10 110 * 111 * SENSE SWITCHES: 112 * B ON TO REPEAT INNER TEST -- FOR SCOPING 113 * C ON TO PRINT CORRECT RESULTS 114 * D ON TO REPEAT TEST WITHOUT READING NEW DETAIL 115 * E ON TO HALT ON ERRORS 116 * 117 * HALTS: 118 * 99 IN A-STAR AND B-STAR IF NO MORE DETAIL RECORDS AND NO HEADER. 119 * PUSHING START TRIES AGAIN. IF READING DETAIL FROM TAPE IT 120 * IS NONETHELESS POSSIBLE TO READ MORE DETAIL FROM CARDS HERE. 121 * 86 IN A-STAR AND B-STAR IF TAPE ERROR. PUSHING START TRIES AGAIN. 122 * IT IS POSSIBLE TO READ MORE DETAIL FROM CARDS HERE. 123 * 513 IN I-STAR AND 497 IN A-STAR IF SW FAILS TO SET A WM. PUSHING 124 * START CONTINUES. 125 * 886 IN I-STAR AND 741 IN A-STAR IF PRINTER BECOMES UNBUSY TOO 126 * SOON. 127 * 912 IN I-STAR AND 741 IN A-STAR IF PRINTER STAYS BUSY TOO LONG. 128 * 984 IN I-STAR AND 808 IN A-STAR IF CARRIAGE BECOMES UNBUSY TOO 129 * SOON. 130 * 1010 IN I-STAR AND 808 IN A-STAR IF CARRIAGE STAYS BUSY TOO LONG. 131 * 132 * SET A WORD MARK IN 1. READ DETAIL RECORDS FROM CARDS IF THERE 133 * ARE ANY. OTHERWISE HALT IF 81 IS NOT GM (PROGRAM IS NOT LOADED 134 * FROM TAPE). OTHERWISE READ A RECORD FROM TAPE INTO 1. IF 80 IS 135 * A, BRANCH TO 1. 136 * 137 * PRINT THE FIRST TWO IF HEADPR IS NOT BLANK. OTHERWISE SKIP THEM. 138 * (THIS IS CHANGED AT THE END TO PRINT ONE HEADER). 139 * 140 START EQU DETAIL 0347 141 ORG 336 AT 336 TO ALLOW CHAINING CS TO W 0336 142 HEADPR EQU 190 PRINT FIRST TWO DETAIL IF NOT BLANK. 0190 143 HEADCT DCW 0 HOW MANY DETAIL READ? PRINT FIRST 2. 1 0336 11 144 TAPERR BSP 1 BACKSPACE 5 0337 U %U1 B 11 145 NOP 86 86 IF TAPE ERROR 4 0342 N 086 11 146 H HALT WITH 86 IN A-STAR AND B-STAR 1 0346 . 11 147 DETAIL SW 1,81 1 FOR HEADER, 81 UNDER GM IF TAPE 7 0347 , 001 081 11 1 WORDMARK AND BUFFER TEST 1010C PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 BLC NOCARD NO CARDS LEFT? 5 0354 B 363 A 11 149 R TESTHD READ A DETAIL OR HEADER CARD 4 0359 1 407 11 150 NOCARD BCE TAPEHD,81," TAPE LOAD PUTS GM IN 81 8 0363 B 389 081 " 12 151 B FINIS 4 0371 B 380 12 152 TAPEOF BSP 1 5 0375 U %U1 B 12 153 FINIS NOP 99 99 IF NO TAPE OR EOF 4 0380 N 099 12 154 H HALT WITH 99 IN A-STAR AND B-STAR 1 0384 . 12 155 B DETAIL TRY AGAIN 4 0385 B 347 12 156 TAPEHD RTW 1,1 READ A DETAIL OR HEADER TAPE RECORD 8 0389 L %U1 001 R 12 157 BER TAPERR ERROR? 5 0397 B 337 L 13 158 BEF TAPEOF EOF? 5 0402 B 375 K 13 159 TESTHD BCE 1,80,A EXECUTE IF A HEADER 8 0407 B 001 080 A 13 160 BCE CONT,HEADCT,2 HEADERS PRINTED YET? 8 0415 B 453 336 2 13 161 BCE SKIPHD,HEADPR, SKIP HEADER PRINTING? 8 0423 B 442 190 13 162 LCA 77,277 PRINT THE FIRST TWO HEADERS 7 0431 L 077 277 14 163 W 1 0438 2 14 164 CS 1 0439 / 14 165 CS 1 0440 / 14 166 W 1 0441 2 14 167 SKIPHD A *-6,HEADCT 7 0442 A 442 336 14 168 B DETAIL 4 0449 B 347 14 169 * 170 * CONTINUE HERE AFTER READING DETAIL (WHICH IS IRRELEVANT TO 171 * THIS TEST) 172 * 173 CONT LCA K200,COUNT INITIALIZE COUNTER TO 200 7 0453 L '36 '39 15 174 MCW KP1,332 JUNK FOR THE PRINT LINE 7 0460 M /42 332 15 175 MCW KP1 SPREAD IT OUT 4 0467 M /42 15 176 MCW KP1 ETC. 4 0471 M /42 15 177 W 1 0475 2 15 178 * 179 * PRINT 132 LINES OF WMS WITH 1, 2, ..., 132 WMS 180 * 181 A A *-6,COUNT BUMP THE COUNTER 7 0476 A 476 '39 15 182 MCW COUNT,B&3 MOVE COUNTER TO SW 7 0483 M '39 500 15 183 MCW COUNT,BB&6 MOVE COUNTER TO BW 7 0490 M '39 507 16 184 B SW 5777&X1 5777&X1 IS XXX, MEANING *FILLED IN* 4 0497 , XXX 16 185 BB BW C,5777&X1 5777&X1 IS XXX, MEANING *FILLED IN* 8 0501 V 513 XXX 1 16 186 H B WHY WASN'T THE WORD MARK SET? 4 0509 . 497 16 187 C WM WRITE WORD MARKS 2 0513 2 ) 16 188 BW D,332 DONE IF 332 HAS A WM 8 0515 V 527 332 1 16 189 B A SET ANOTHER WM 4 0523 B 476 16 190 D CC T 2 0527 F T 17 191 W 1 0529 2 17 192 CS 1 0530 / 17 193 CS 1 0531 / 17 194 BSS CONT,D REPEAT IF D IS ON 5 0532 B 453 D 17 195 E LCA K000-1,KLL INITIALIZE KLL TO ZERO 7 0537 L '32 '30 17 196 MCW K200,FSW&3 INITIALIZE SW TO 200 7 0544 M '36 590 17 197 * 1 WORDMARK AND BUFFER TEST 1010C PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 * FILL A LINE WITH JUNK AND WORD MARKS 199 * 200 LCA KP2,244 JUNK FOR THE PRINT LINE 7 0551 L /86 244 18 201 MCW 244,288 SPREAD IT OUT 7 0558 M 244 288 18 202 MCW 244,332 ETC. 7 0565 M 244 332 18 203 F SW FSW&1 4 0572 , 588 18 204 A *-6,FSW&3 BUMP WHERE WM IS SET 7 0576 A 576 590 18 205 CW FSW&1 4 0583 ) 588 18 206 FSW SW 200 SET A WM IN 201-332 4 0587 , 200 19 207 BW SCOPE,332 DONE SETTING WMS IF 332 HAS ONE 8 0591 V 603 332 1 19 208 B F 4 0599 B 572 19 209 SCOPE WM 2 0603 2 ) 19 210 W 1 0605 2 19 211 WM 2 0606 2 ) 19 212 W 1 0608 2 19 213 BSS SCOPE,B 5 0609 B 603 B 20 214 * 215 * HAVE WE DONE THIS TEN TIMES? 216 * 217 A *-6,KLL BUMP KLL 7 0614 A 614 '30 20 218 BCE G,KLL-1,1 DONE IF KLL IS 10 8 0621 B 633 '29 1 20 219 B SCOPE 4 0629 B 603 20 220 G CC L 2 0633 F L 20 221 BSS E,D REPEAT IF D IS ON 5 0635 B 537 D 20 222 * 223 * PRINT AND CARRIAGE TIMING TESTS 224 * 225 H LCA K000-1,KLL 7 0640 L '32 '30 20 226 CS 332 4 0647 / 332 21 227 CS 1 0651 / 21 228 LCA BUFFM,286 7 0652 L '98 286 21 229 * 230 * PRINT TIMING TEST 231 * 232 J A *-6,KLL 7 0659 A 659 '30 21 233 SCOPE2 LCA K000,COUNT 7 0666 L '33 '39 21 234 WAITP1 BPB WAITP1 WAIT FOR PRINTER AND CARRIAGE 5 0673 B 673 P 21 235 WAITC1 BPCB WAITC1 5 0678 B 678 R 21 236 W 1 0683 2 22 237 M BPB N PRINTER SHOULD STAY BUSY FOR 163 5 0684 B 693 P 22 238 B PLAT1 PRINT LATCH ERROR 1 4 0689 B 848 22 239 N A *-6,COUNT 7 0693 A 693 '39 22 240 C COUNT,K163 7 0700 C '39 '42 22 241 BU M 5 0707 B 684 / 22 242 O A *-6,COUNT 7 0712 A 712 '39 22 243 C COUNT,K191 PRINTER SHOULD NOT BE BUSY AFTER 191 7 0719 C '39 '45 23 244 BU O 5 0726 B 712 / 23 245 BPB PLAT2 PRINT LATCH ERROR 2 5 0731 B 906 P 23 246 BSS SCOPE2,B 5 0736 B 666 B 23 247 SCOPE3 NOP K000&X1,COUNT HUH? 7 0741 N 'T3 '39 23 1 WORDMARK AND BUFFER TEST 1010C PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 LCA 1 0748 L 23 249 CC J 2 0749 F J 23 250 * 251 * CARRIAGE TIMING TEST 252 * 253 Q BPCB R 5 0751 B 760 R 24 254 B CLAT1 CARRIAGE LATCH ERROR 1 4 0756 B 953 24 255 R A *-6,COUNT 7 0760 A 760 '39 24 256 C COUNT,K41 CARRIAGE SHOULD STAY BUSY FOR 41 7 0767 C '39 '48 24 257 BU Q 5 0774 B 751 / 24 258 S A *-6,COUNT 7 0779 A 779 '39 24 259 C COUNT,K44 CARRIAGE SHOULD NOT BE BUSY AFTER 44 7 0786 C '39 '51 25 260 BU S 5 0793 B 779 / 25 261 BPCB CLAT2 CARRIAGE LATCH ERROR 2 5 0798 B '04 R 25 262 BSS SCOPE3,B 5 0803 B 741 B 25 263 T BCE U,KLL-1,2 DONE AFTER TEN TIMES 8 0808 B 820 '29 2 25 264 B J 4 0816 B 659 25 265 U BSS H,D REPEAT IF D IS ON 5 0820 B 640 D 25 266 B DETAIL LOAD NEXT PROGRAM? 4 0825 B 347 26 267 * 268 * ERROR MESSAGE ROUTINES 269 * 270 PLAT1M DCW @PRINT LATCH ERROR 1@ 19 0847 26 271 PLAT1 BSS SCOPE2,B 5 0848 B 666 B 26 272 BSS PLAT1E,E 5 0853 B 883 E 26 273 MCW PLAT1M,229 7 0858 M 847 229 27 274 W 1 0865 2 27 275 WAITP2 BPB WAITP2 5 0866 B 866 P 27 276 WAITC2 BPCB WAITC2 5 0871 B 871 R 27 277 CS SCOPE3,235 7 0876 / 741 235 27 278 PLAT1E H SCOPE3 4 0883 . 741 27 279 PLAT2M DCW @PRINT LATCH ERROR 2@ 19 0905 28 280 PLAT2 BSS SCOPE2,B 5 0906 B 666 B 28 281 BSS PLAT2E,E 5 0911 B 927 E 28 282 MCW PLAT2M,229 7 0916 M 905 229 28 283 W WAITP2 4 0923 2 866 29 284 PLAT2E H SCOPE3 4 0927 . 741 29 285 CLAT1M DCW @CARRIAGE LATCH ERROR 1@ 22 0952 29 286 CLAT1 BSS SCOPE3,B 5 0953 B 741 B 29 287 BSS CLAT1E,E 5 0958 B 978 E 30 288 MCW CLAT1M,232 7 0963 M 952 232 30 289 W 1 0970 2 30 290 Z CS T,235 7 0971 / 808 235 30 291 CLAT1E H T 4 0978 . 808 30 292 CLAT2M DCW @CARRIAGE LATCH ERROR 2@ 22 1003 31 293 CLAT2 BSS SCOPE3,B 5 1004 B 741 B 31 294 BSS CLAT2E,E 5 1009 B '25 E 31 295 MCW CLAT2M,232 7 1014 M '03 232 31 296 W Z 4 1021 2 971 32 297 CLAT2E H T 4 1025 . 808 32 1 WORDMARK AND BUFFER TEST 1010C PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 * 299 * CONSTANTS 300 * 301 KLL DCW @LL@ 2 1030 32 302 K000 DCW @000@ 3 1033 32 303 K200 DSA 200 3 1036 200 32 304 COUNT DSA 200 3 1039 200 32 305 K163 DSA 163 3 1042 163 32 306 K191 DSA 191 3 1045 191 33 307 K41 DSA 041 3 1048 041 33 308 K44 DSA 044 3 1051 044 33 309 BUFFM DCW @BUFFERED MACHINES PRINT AND CARRIAGE BUSY TEST.@ 47 1098 35 310 KP1 DCW @1234567890))ABCDEFGHIJKLMNOPQRSTUVWXYZ***)))@ 44 1142 37 311 KP2 DCW @ALTERNATE PRINT WORDMARKS & PRINT LINE TEST.@ 44 1186 39 312 DCW @"@ 1 1187 39 313 * 314 * MODIFY HEADER PRINT ROUTINE SO IT ONLY PRINTS THE FIRST 315 * CARD OF DETAIL AS A HEADER. 316 * 317 ORG HEADCT 0336 318 DCW 1 1 0336 40 319 END START / 347 080 1 WORDMARK AND BUFFER TEST 1010C PAGE 6 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS A 476 B 497 BB 501 BUFFM 1098 C 513 CLAT1 953 CLAT1E 978 CLAT1M 952 CLAT2 1004 CLAT2E 1025 CLAT2M 1003 CONT 453 COUNT 1039 D 527 DETAIL 347 E 537 F 572 FINIS 380 FSW 587 G 633 H 640 HEADCT 336 HEADPR 190 J 659 K000 1033 K163 1042 K191 1045 K200 1036 K41 1048 K44 1051 KLL 1030 KP1 1142 KP2 1186 M 684 N 693 NOCARD 363 O 712 PLAT1 848 PLAT1E 883 PLAT1M 847 PLAT2 906 PLAT2E 927 PLAT2M 905 Q 751 R 760 S 779 SCOPE 603 SCOPE2 666 SCOPE3 741 SKIPHD 442 START 347 T 808 TAPEHD 389 TAPEOF 375 TAPERR 337 TESTHD 407 U 820 WAITC1 678 WAITC2 871 WAITP1 673 WAITP2 866 Z 971