1 /MAINDEC-08-DILAC-B-D 2 3 /LA180 PRINTER DIAGNOSTIC 4 5 *0 6 000000 0000 0 7 000001 5402 JMP I ISRV 8 000002 0347 ISRV, IERROR 9 10 *10 11 000010 0000 AUTPTR, 0 12 13 *20 14 000020 0000 SWITCH, 0000 15 000021 4003 PARAM, 4003 16 000022 0000 0000 17 18 /FLAGS, POINTERS, & STORAGE 19 000023 0000 TSTNM, 0 20 000024 0000 ERRNM, 0 21 000025 0000 ERRPC, 0 22 000026 0000 WIDTH, 0 23 24 000027 0660 PTRIOT, 0660 /LA180 IOT CODE - 0XX0 25 000030 0304 IOTSEL, 0304 /TTY IOT CODES, XMT - RCV 26 27 000031 0000 CHAR, 0 28 000032 0000 CHAR2, 0 29 000033 0000 SAVE, 0 30 000034 0000 COUNT, 0 31 000035 0000 COUNT2, 0 32 000036 0000 LPCNT, 0 33 000037 0000 CKCNT, 0 34 000040 0000 PASCNT, 0 35 000041 0000 TABPTR, 0 36 000042 0000 TSTPTR, 0 37 000043 0000 MSGADR, 0 38 39 000044 0000 ONES, 0 40 000045 0000 TENS, 0 41 000046 0000 HUNDS, 0 42 000047 0000 THOUS, 0 43 44 000050 0000 STRONE, 0 45 000051 0000 TRONE, 0 46 000052 0000 TLOOP, 0 47 48 000053 0000 TPFLG, 0 49 50 000054 0000 CKFLAG, 0000 51 52 /TAGS 53 000055 4000 TTYPE, RTYPE 54 000056 4060 TLOAD, RLOAD 55 000057 3123 THOLD, RHOLD 56 000060 4105 TMLOAD, RMLOAD 57 000061 4200 TPRINT, RPRINT 58 000062 4262 TPRHDR, RPRHDR 59 000063 3600 TERROR, RERROR 60 000064 3107 TCHECK, RCHECK 61 000065 3017 TEXIT, REXIT 62 000066 3405 TKBDST, KYBDST 63 000067 3054 TSELCT, SELECT 64 000070 4600 TTAT, TAT 65 000071 2716 TMIOT, MIOT 66 000072 2600 TKSF, RKSF 67 000073 2605 TKCC, RKCC 68 000074 2610 TKRS, RKRS 69 000075 2613 TKRB, RKRB 70 000076 2616 TTSF, RTSF 71 000077 2623 TTCF, RTCF 72 000100 2626 TTPC, RTPC 73 000101 2631 TTLS, RTLS 74 000102 2634 TPSKF, RPSKF 75 000103 2646 TPCLF, RPCLF 76 000104 2656 TPSTS, RPSTB 77 000105 2670 TPSIE, RPSIE 78 000106 2702 TPCLP, RPCLP 79 000107 3200 TKBFG, KYBDF 80 000110 3465 TTSEL, TSEL 81 000111 4400 READ, TREAD 82 000112 4451 TREADQ, READQ 83 000113 4510 CHKOCT, TCKOUT 84 000114 4520 CHKNR, TCHKNR 85 000115 4022 GOUT, OUT 86 000116 0333 TDELAY, DELAY 87 000117 3713 TCNVRT, CNVRT 88 000120 3000 TCKSRV, CKSRV 89 000121 0322 TGETSW, RGETSW 90 000122 3660 PDIGIT, RPDIGT 91 000123 3665 TPOCT, POCT 92 000124 4504 LREADT, READT 93 000125 0347 LIERR, IERROR 94 95 /CONSTANTS 96 000126 0002 P2, 0002 97 000127 0007 P7, 0007 98 000130 0010 P10, 0010 99 000131 0012 P12, 0012 100 000132 0015 P15, 0015 101 000133 0036 P36, 0036 102 000134 0040 P40, 0040 103 000135 0041 P41, 0041 104 000136 0055 P55, 0055 105 000137 0057 P57, 0057 106 000140 0060 P60, 0060 107 000141 0072 P72, 0072 108 000142 0077 P77, 0077 109 000143 0100 P100, 0100 110 000144 0134 P134, 0134 111 000145 0177 P177, 0177 112 000146 0200 P200, 0200 113 000147 0204 P204, 0204 114 000150 0377 P377, 0377 115 000151 0400 P400, 0400 116 000152 1000 P1000, 1000 117 000153 7777 M1, 7777 118 000154 7776 M2, 7776 119 000155 7775 M3, 7775 120 000156 7774 M4, 7774 121 000157 7771 M7, 7771 122 000160 7766 M12, 7766 123 000161 7763 M15, 7763 124 000162 7760 M20, 7760 125 000163 7755 M23, 7755 126 000164 7753 M25, 7753 127 000165 7750 M30, 7750 128 000166 7743 M35, 7743 129 000167 7742 M36, 7742 130 000170 7740 M40, 7740 131 000171 7722 M56, 7722 132 000172 7700 M100, 7700 133 000173 7634 M144, 7634 134 000174 7601 M177, 7601 135 136 /SUBROUTINE CALL EQUATES 137 TYPE=JMS I TTYPE 138 EXIT=JMP I TEXIT 139 LOAD=JMS I TLOAD 140 HOLD=JMS I THOLD 141 CHECK=JMS I TCHECK 142 ERROR=JMS I TERROR 143 PRINT=JMS I TPRINT 144 MLOAD=JMS I TMLOAD 145 GETSW=JMS I TGETSW 146 PRTHDR=JMS I TPRHDR 147 148 /LINE PRINTER INSTRUCTIONS 149 PSKF=6661 150 PCLF=6662 151 PSTB=6664 152 PSIE=6665 153 PCLP=6666 154 155 /DK8-EA & DK8-EC CLOCK INSTRUCTIONS 156 CLEI=6131 157 CLDI=6132 158 CLSK=6133 159 160 /PDP-8A OPTION BOARD #1 PARALLEL I/O INSTRUCTIONS 161 DBST=6570 162 DBSK=6571 163 DBRD=6572 164 DBCF=6573 165 DBTD=6574 166 DBSE=6575 167 DBCE=6576 168 DBSS=6577 169 170 *0200 171 000200 5210 JMP START 172 000201 5213 JMP RESTRT 173 000202 5217 JMP CONTRL 174 175 *210 176 000210 7300 START, CLA CLL 177 000211 3023 DCA TSTNM 178 000212 5221 JMP STARTX 179 000213 7300 RESTRT, CLA CLL 180 000214 1377 TAD (20 181 000215 3023 DCA TSTNM 182 000216 5221 JMP STARTX 183 000217 7240 CONTRL, CLA CMA 184 000220 3023 DCA TSTNM 185 000221 6002 STARTX, IOF 186 000222 6132 CLDI 187 000223 7300 CLA CLL 188 000224 4505 JMS I TPSIE 189 000225 4521 GETSW 190 000226 0150 AND P377 191 000227 7041 CIA 192 000230 3026 DCA WIDTH 193 000231 1126 L00231, TAD P2 194 000232 1026 TAD WIDTH 195 000233 7740 SZA SMA CLA 196 000234 5241 JMP START2 197 000235 1147 TAD P204 198 000236 1026 TAD WIDTH 199 000237 7700 SMA CLA 200 000240 5243 JMP .+3 201 000241 1376 START2, TAD (-204 202 000242 3026 DCA WIDTH 203 000243 3052 DCA TLOOP 204 000244 3050 DCA STRONE 205 000245 3051 DCA TRONE 206 000246 1125 TAD LIERR 207 000247 3002 DCA ISRV 208 000250 1145 TAD P177 209 000251 4506 JMS I TPCLP 210 000252 4471 JMS I TMIOT 211 000253 4501 JMS I TTLS 212 000254 4333 JMS DELAY 213 000255 4476 JMS I TTSF 214 000256 7610 SKP CLA 215 000257 7240 CLA CMA 216 000260 3053 DCA TPFLG 217 000261 1053 TAD TPFLG 218 000262 7640 SZA CLA 219 000263 5266 JMP STARTB 220 000264 4461 PRINT 221 000265 5231 NCMSG 222 000266 7410 STARTB, SKP 223 000267 5274 JMP START5 224 000270 4455 TYPE 225 000271 4716 HEADER 226 000272 1375 TAD (NOP) 227 000273 3266 DCA STARTB 228 000274 1023 START5, TAD TSTNM 229 000275 7700 SMA CLA 230 000276 5306 JMP START7 231 000277 1053 START9, TAD TPFLG 232 000300 7640 SZA CLA 233 000301 5466 JMP I TKBDST 234 000302 5467 JMP I TSELCT 235 000303 7640 START8, SZA CLA 236 000304 5277 JMP START9 237 000305 2023 ISZ TSTNM 238 000306 4521 START7, GETSW 239 000307 0151 AND P400 240 000310 7640 SZA CLA 241 000311 5467 JMP I TSELCT 242 000312 1070 TAD TTAT 243 000313 1023 TAD TSTNM 244 000314 3041 DCA TABPTR 245 000315 1441 TAD I TABPTR 246 000316 7550 SNA SPA 247 000317 5303 JMP START8 248 000320 3042 DCA TSTPTR 249 000321 5442 JMP I TSTPTR 250 251 /ROUTINE TO GET SWITCH SETTINGS 252 000322 0000 RGETSW, 0 253 000323 7300 CLA CLL 254 000324 1021 TAD PARAM 255 000325 7710 SPA CLA 256 000326 5331 JMP .+3 257 000327 1020 TAD SWITCH 258 000330 5722 JMP I RGETSW 259 000331 7604 LAS 260 000332 5722 JMP I RGETSW 261 262 /ROUTINE TO DELAY ABOUT 150 MILLISECONDS 263 /USING INSTRUCTION TIMING. 264 000333 0000 DELAY, 0 265 000334 7300 CLA CLL 266 000335 3345 DCA DELAY0 267 000336 1374 TAD (-10 268 000337 3346 DCA DELAY1 269 000340 2345 ISZ DELAY0 270 000341 5340 JMP .-1 271 000342 2346 ISZ DELAY1 272 000343 5340 JMP .-3 273 000344 5733 JMP I DELAY 274 000345 0000 DELAY0, 0000 275 000346 7770 DELAY1, 7770 276 277 000347 4463 IERROR, ERROR 278 000350 0012 12 279 000351 5400 JMP I 0 280 000374 7770 PAGE 000375 7000 000376 7574 000377 0020 281 282 /OPERATOR INTERVENTION TESTS 283 284 /TEST 0 - INTERFACE AND CONTROL TESTS 285 286 /TEST READY BIT, PRINTER OFF LINE - POWER OFF 287 000400 4455 TEST0, TYPE 288 000401 5250 T0MSG0 289 000402 4457 HOLD 290 000403 4464 T0AC, CHECK 291 000404 7300 CLA CLL 292 000405 1145 D00405, TAD P177 293 000406 4506 JMS I TPCLP 294 000407 4516 JMS I TDELAY 295 000410 4502 JMS I TPSKF 296 000411 5215 JMP T0AA 297 000412 4463 ERROR 298 000413 0001 1 299 000414 5203 JMP T0AC 300 301 /TEST READY BIT, PRINTER OFF LINE - POWER ON 302 000415 4455 T0AA, TYPE 303 000416 5270 T0MSG1 304 000417 4457 HOLD 305 000420 4464 T0AB, CHECK 306 000421 7300 CLA CLL 307 000422 1145 TAD P177 308 000423 4506 JMS I TPCLP 309 000424 4516 JMS I TDELAY 310 000425 4502 JMS I TPSKF 311 000426 5232 JMP T0B 312 000427 4463 ERROR 313 000430 0002 2 314 000431 5220 JMP T0AB 315 316 /TEAD READY BIT, PRINTER ON LINE 317 000432 4455 T0B, TYPE 318 000433 5302 T0MSG2 319 000434 4457 HOLD 320 000435 4464 T0C, CHECK 321 000436 7300 CLA CLL 322 000437 1145 TAD P177 323 000440 4506 JMS I TPCLP 324 000441 4516 JMS I TDELAY 325 000442 4502 JMS I TPSKF 326 000443 5253 JMP .+10 327 000444 4777 JMS OP1CHK 328 000445 0447 .+2 329 000446 5256 JMP T0E 330 000447 1145 TAD P177 331 000450 4506 JMS I TPCLP 332 000451 4516 JMS I TDELAY 333 000452 5256 JMP T0E 334 000453 4463 ERROR 335 000454 0003 3 336 000455 5235 JMP T0C 337 338 /TEST PAPER OUT SWITCH 339 000456 4455 T0E, TYPE 340 000457 5320 T0MSG3 341 000460 4457 HOLD 342 000461 4464 T0F, CHECK 343 000462 4461 PRINT 344 000463 5440 LF 345 000464 4516 JMS I TDELAY 346 000465 4502 JMS I TPSKF 347 000466 5272 JMP T0H 348 000467 4463 ERROR 349 000470 0004 4 350 000471 5261 JMP T0F 351 352 /TEST ABILITY TO CLEAR ERROR CONDITION 353 000472 4455 T0H, TYPE 354 000473 5335 T0MSG4 355 000474 4457 HOLD 356 000475 4464 T0I, CHECK 357 000476 7300 CLA CLL 358 000477 1145 TAD P177 359 000500 4506 JMS I TPCLP 360 000501 4516 JMS I TDELAY 361 000502 4502 JMS I TPSKF 362 000503 7410 SKP 363 000504 5310 JMP T0K 364 000505 4463 ERROR 365 000506 0005 5 366 000507 5275 JMP T0I 367 368 /TEST ABILITY TO CLEAR READY FLAG 369 000510 4464 T0K, CHECK 370 000511 4503 JMS I TPCLF 371 000512 4502 JMS I TPSKF 372 000513 5317 JMP T0L 373 000514 4463 ERROR 374 000515 0006 6 375 000516 5310 JMP T0K 376 000517 4464 T0L, CHECK 377 000520 7300 CLA CLL 378 000521 1145 TAD P177 379 000522 4504 JMS I TPSTS 380 000523 4516 JMS I TDELAY 381 000524 4502 JMS I TPSKF 382 000525 7410 SKP 383 000526 5332 JMP T0M 384 000527 4463 ERROR 385 000530 0007 7 386 000531 5310 JMP T0K 387 388 /TEST AGAIN USING SINGLE INSTR 389 000532 4464 T0M, CHECK 390 000533 4776 JMS SETSKP 391 000534 1145 TAD P177 392 000535 4506 JMS I TPCLP 393 000536 6661 T0MIOT, PSKF/DBST 394 000537 5343 JMP T0N 395 000540 4463 ERROR 396 000541 0010 10 397 000542 5332 JMP T0M 398 000543 4516 T0N, JMS I TDELAY 399 000544 4502 JMS I TPSKF 400 000545 7410 SKP 401 000546 5352 JMP T0O 402 000547 4463 ERROR 403 000550 0011 11 404 000551 5332 JMP T0M 405 406 /CHECK FOR UNEXPECTED INTERRUPTS 407 000552 4464 T0O, CHECK 408 000553 7300 CLA CLL 409 000554 1375 TAD (T0P 410 000555 3002 DCA ISRV 411 000556 4473 JMS I TKCC 412 000557 4477 JMS I TTCF 413 000560 4503 JMS I TPCLF 414 000561 7300 CLA CLL 415 000562 4505 JMS I TPSIE 416 000563 6001 ION 417 000564 7000 NOP 418 000565 7000 NOP 419 000566 6002 IOF 420 000567 5773 JMP I LT0Q 421 000570 4463 T0P, ERROR 422 000571 0012 12 423 000572 5352 JMP T0O 424 000573 0600 LT0Q, T0Q 425 000575 0570 PAGE 000576 1540 000577 3142 426 427 /CHECK THAT NO INTERRUPT OCCURS WITH READY BIT CLEAR 428 000600 4464 T0Q, CHECK 429 000601 7300 CLA CLL 430 000602 1377 TAD (T0R 431 000603 3002 DCA ISRV 432 000604 4473 JMS I TKCC 433 000605 4477 JMS I TTCF 434 000606 4503 JMS I TPCLF 435 000607 7201 CLA IAC 436 000610 4505 JMS I TPSIE 437 000611 6001 ION 438 000612 7000 NOP 439 000613 7000 NOP 440 000614 6002 IOF 441 000615 7300 CLA CLL 442 000616 4505 JMS I TPSIE 443 000617 5225 JMP T0S 444 445 000620 7300 T0R, CLA CLL 446 000621 4505 JMS I TPSIE 447 000622 4463 ERROR 448 000623 0013 13 449 000624 5200 JMP T0Q 450 451 /CHECK THAT INTERRUPT OCCURS WITH READY BIT SET 452 000625 4464 T0S, CHECK 453 000626 7300 CLA CLL 454 000627 1376 TAD (T0W 455 000630 3002 DCA ISRV 456 000631 1145 TAD P177 457 000632 4506 JMS I TPCLP 458 000633 4775 JMS OP1CHKK 459 000634 0640 .+4 460 000635 4502 JMS I TPSKF 461 000636 5235 JMP .-1 462 000637 7410 SKP 463 000640 4516 JMS I TDELAY 464 000641 4473 JMS I TKCC 465 000642 4477 JMS I TTCF 466 000643 7201 CLA IAC 467 000644 4505 JMS I TPSIE 468 000645 6001 ION 469 000646 7000 NOP 470 000647 7000 NOP 471 000650 6002 IOF 472 000651 7300 CLA CLL 473 000652 4505 JMS I TPSIE 474 000653 4463 ERROR 475 000654 0014 14 476 000655 5225 JMP T0S 477 478 /TEST NO INTERRUPT OCCURS WITH LA180 INTERRUPT ENABLED, READY SET, 479 /BUT CPU INTERRUPT SYSTEM OFF. 480 000656 7300 T0W, CLA CLL 481 000657 4505 JMS I TPSIE 482 000660 4464 T0U, CHECK 483 000661 7300 CLA CLL 484 000662 1374 TAD (T0V 485 000663 3002 DCA ISRV 486 000664 1145 TAD P177 487 000665 4506 JMS I TPCLP 488 000666 4775 JMS OP1CHK 489 000667 0673 .+4 490 000670 4502 JMS I TPSKF 491 000671 5270 JMP .-1 492 000672 7410 SKP 493 000673 4516 JMS I TDELAY 494 000674 4473 JMS I TKCC 495 000675 4477 JMS I TTCF 496 000676 7201 CLA IAC 497 000677 4505 JMS I TPSIE 498 000700 7000 NOP 499 000701 7000 NOP 500 000702 7300 CLA CLL 501 000703 4505 JMS I TPSIE 502 000704 1125 TAD LIERR 503 000705 3002 DCA ISRV 504 000706 5465 EXIT 505 506 000707 7300 T0V, CLA CLL 507 000710 4505 JMS I TPSIE 508 000711 4463 ERROR 509 000712 0015 15 510 000713 5260 JMP T0U 511 512 /TEST 1 - TOP OF FORM SWITCH TEST 513 000714 4462 TEST1, PRTHDR 514 000715 1373 TAD (T1TAB 515 000716 3041 DCA TABPTR 516 000717 1165 TAD M30 517 000720 3034 DCA COUNT 518 000721 1136 TAD P55 519 000722 4460 MLOAD 520 000723 4461 PRINT 521 000724 5437 CR 522 000725 4455 T1A, TYPE 523 000726 5375 T1MSG3 524 000727 1041 TAD TABPTR 525 000730 3332 DCA .+2 526 000731 4455 TYPE 527 000732 0000 0 528 000733 4455 TYPE 529 000734 5412 T1MSG4 530 000735 4457 HOLD 531 000736 4464 CHECK 532 000737 4461 PRINT 533 000740 5442 FF 534 000741 4461 PRINT 535 000742 5355 T1MSG1 536 000743 1041 TAD TABPTR 537 000744 3346 DCA .+2 538 000745 4461 PRINT 539 000746 0000 0 540 000747 4461 PRINT 541 000750 5361 T1MSG2 542 000751 2041 ISZ TABPTR 543 000752 2041 ISZ TABPTR 544 000753 1441 TAD I TABPTR 545 000754 7640 SZA CLA 546 000755 5325 JMP T1A 547 000756 4461 PRINT 548 000757 5440 LF 549 000760 5465 EXIT 550 000773 5447 PAGE 000774 0707 000775 3142 000776 0656 000777 0620 551 552 /TEST 2 = PRINT SPEED TIMING TEST 553 /A SWIRL PATTERN IS PRINTED FOR ONE FULL MINUTE 554 /WHILE THE NUMBER OF LINES PRINTED IS COUNTED. 555 /TIMING WILL BE DONE BY DK8-EA OR DK8-EC CLOCK 556 /OPTION IF EITHER IS AVAILABLE AND LOCATION 557 /"CKFLAG" IS PRESET WITH THE TIME COUNT. 558 /IF CKFLAG IS ZERO, MANUAL TIMING WILL BE USED TO 559 /OBTAIN AN APPROXIMATE PRINT TIMING. 560 /IF A HARDWARE SWITCH REGISTER IS NOT AVAILABLE, THIS TEST 561 /CANNOT BE RUN WITHOUT A CLOCK OPTION BEING AVAILABLE. 562 /THE PROGRAM WILL AUTOMATICALLY SKIP THIS TEST IF IT CANNOT BE RUN. 563 001000 4462 TEST2, PRTHDR 564 001001 3040 DCA PASCNT 565 001002 1054 TAD CKFLAG 566 001003 7640 SZA CLA 567 001004 5230 JMP T2C 568 001005 1021 TAD PARAM 569 001006 7710 SPA CLA 570 001007 5215 JMP T2A 571 001010 4461 PRINT 572 001011 5151 T2EM 573 001012 4455 TYPE 574 001013 5151 T2EM 575 001014 5465 EXIT 576 001015 4455 T2A, TYPE 577 001016 5067 T2M1 578 001017 4455 TYPE 579 001020 5105 T2M2 580 001021 4455 TYPE 581 001022 5126 T2M3 582 001023 4521 T2B, GETSW 583 001024 0146 AND P200 584 001025 7650 SNA CLA 585 001026 5223 JMP T2B 586 001027 5244 JMP T2SP 587 588 /CLOCK OPTION START-UP 589 001030 1377 T2C, TAD (6650 590 001031 3036 DCA LPCNT 591 001032 1120 TAD TCKSRV 592 001033 3002 DCA ISRV 593 001034 1054 TAD CKFLAG 594 001035 3037 DCA CKCNT 595 001036 4473 JMS I TKCC 596 001037 4477 JMS I TTCF 597 001040 7300 CLA CLL 598 001041 4505 JMS I TPSIE 599 001042 6131 CLEI 600 001043 6001 ION 601 001044 7201 T2SP, CLA IAC 602 001045 1134 TAD P40 603 001046 3032 DCA CHAR2 604 001047 1032 T2PA, TAD CHAR2 605 001050 3031 DCA CHAR 606 001051 1026 TAD WIDTH 607 001052 3034 DCA COUNT 608 001053 1031 T2PC, TAD CHAR 609 001054 4456 LOAD 610 001055 2034 ISZ COUNT 611 001056 7410 SKP 612 001057 5270 JMP T2PD 613 001060 2031 ISZ CHAR 614 001061 1174 TAD M177 615 001062 1031 TAD CHAR 616 001063 7640 SZA CLA 617 001064 5253 JMP T2PC 618 001065 1134 TAD P40 619 001066 3031 DCA CHAR 620 001067 5253 JMP T2PC 621 001070 4461 T2PD, PRINT 622 001071 5440 LF 623 001072 2040 ISZ PASCNT 624 001073 1054 TAD CKFLAG 625 001074 7640 SZA CLA 626 001075 5302 JMP T2PE 627 001076 4521 GETSW 628 001077 0146 AND P200 629 001100 7650 SNA CLA 630 001101 5314 JMP T2SPD 631 001102 2032 T2PE, ISZ CHAR2 632 001103 1174 TAD M177 633 001104 1032 TAD CHAR2 634 001105 7640 SZA CLA 635 001106 5247 JMP T2PA 636 001107 5244 JMP T2SP 637 638 /ROUTINE TO PRINT NUMBER OF LINES PRINTED 639 001110 6002 T2SPDC, IOF 640 001111 6132 CLDI 641 001112 1125 TAD LIERR 642 001113 3002 DCA ISRV 643 001114 7300 T2SPD, CLA CLL 644 001115 1145 TAD P177 645 001116 4456 LOAD 646 001117 4455 TYPE 647 001120 5171 PRSP1 648 001121 4461 PRINT 649 001122 5171 PRSP1 650 001123 1054 TAD CKFLAG 651 001124 7640 SZA CLA 652 001125 5332 JMP T2S1 653 001126 4455 TYPE 654 001127 5202 PRSP2 655 001130 4461 PRINT 656 001131 5202 PRSP2 657 001132 1040 T2S1, TAD PASCNT 658 001133 4517 JMS I TCNVRT 659 001134 4461 PRINT 660 001135 5435 CNVMSG 661 001136 4455 TYPE 662 001137 5435 CNVMSG 663 001140 4461 PRINT 664 001141 5206 PRSP3 665 001142 4455 TYPE 666 001143 5206 PRSP3 667 001144 1026 TAD WIDTH 668 001145 7041 CIA 669 001146 4517 JMS I TCNVRT 670 001147 4461 PRINT 671 001150 5435 CNVMSG 672 001151 4455 TYPE 673 001152 5435 CNVMSG 674 001153 4461 PRINT 675 001154 5222 PRSP4 676 001155 4455 TYPE 677 001156 5222 PRSP4 678 001157 5465 EXIT 679 001177 6650 PAGE 680 681 /PRINTING TESTS 682 683 /TEST 20 - DATA TRANSFER PATHS TEST 684 / 685 /THIS TEST PRINTS 16 LINES OF ALTERNATING *'S and U's IN A 686 /CHECKERBOARD PATTERN 687 001200 4462 TEST20, PRTHDR 688 001201 1162 TAD M20 689 001202 3036 DCA LPCNT 690 001203 1026 T20A, TAD WIDTH 691 001204 3034 DCA COUNT 692 001205 7001 IAC 693 001206 0036 AND LPCNT 694 001207 7640 SZA CLA 695 001210 5216 JMP T20C 696 001211 1377 T20B, TAD (52 697 001212 4456 LOAD 698 001213 2034 ISZ COUNT 699 001214 7410 SKP 700 001215 5222 JMP T20D 701 001216 1376 T20C, TAD (125 702 001217 4456 LOAD 703 001220 2034 ISZ COUNT 704 001221 5211 JMP T20B 705 001222 4461 T20D, PRINT 706 001223 5440 LF 707 001224 2036 ISZ LPCNT 708 001225 5203 JMP T20A 709 001226 5465 EXIT 710 711 /TEST 21 - HEAD POSITIONING TEST 712 / 713 /THIS TEST PRINTS A SINGLE LINE OF ALTERNATING 0'S AND SPACES 714 /THEN FILLS IN THE SPACES WITH X'S ONE AT A TIME 715 001227 4462 TEST21, PRTHDR 716 001230 1026 TAD WIDTH 717 001231 3034 DCA COUNT 718 001232 1140 T21B, TAD P60 719 001233 4456 LOAD 720 001234 2034 ISZ COUNT 721 001235 7410 SKP 722 001236 5243 JMP T21C 723 001237 1134 TAD P40 724 001240 4456 LOAD 725 001241 2034 ISZ COUNT 726 001242 5232 JMP T21B 727 001243 4461 T21C, PRINT 728 001244 5437 CR 729 001245 7240 CLA CMA 730 001246 3273 DCA T21W 731 001247 1273 T21D, TAD T21W 732 001250 3034 DCA COUNT 733 001251 1134 TAD P40 734 001252 4460 MLOAD 735 001253 1375 TAD (130 736 001254 4456 LOAD 737 001255 4461 PRINT 738 001256 5437 CR 739 001257 1154 TAD M2 740 001260 1273 TAD T21W 741 001261 3273 DCA T21W 742 001262 7240 CLA CMA 743 001263 1273 TAD T21W 744 001264 7041 CIA 745 001265 1026 TAD WIDTH 746 001266 7750 SPA SNA CLA 747 001267 5247 JMP T21D 748 001270 4461 PRINT 749 001271 5440 LF 750 001272 5465 EXIT 751 001273 0000 T21W, 0 752 753 /TEST 22 BACKSPACE TEST 754 / 755 /TWO LINES OF X'S INTERSPACED WITH DASHES 756 /WILL BE PRINTED BY PRINTING A SLASH, EXECUTING A BACKSPACE, 757 /AND THEN PRINTING A BACKSLASH TO COMPLETE EACH X CHAR, 758 /A MAX. OF 127 COLUMNS WILL BE PRINTED. 759 001274 4462 TEST22, PRTHDR 760 001275 1154 TAD M2 761 001276 3036 DCA LPCNT 762 001277 1026 T22A, TAD WIDTH 763 001300 1145 TAD P177 764 001301 7710 SPA CLA 765 001302 5305 JMP .+3 766 001303 1026 TAD WIDTH 767 001304 7410 SKP 768 001305 1174 TAD M177 769 001306 3034 DCA COUNT 770 001307 1137 T22B, TAD P57 771 001310 4456 LOAD 772 001311 1130 TAD P10 773 001312 4456 LOAD 774 001313 1144 TAD P134 775 001314 4456 LOAD 776 001315 2034 ISZ COUNT 777 001316 7410 SKP 778 001317 5324 JMP T22C 779 001320 1136 TAD P55 780 001321 4456 LOAD 781 001322 2034 ISZ COUNT 782 001323 5307 JMP T22B 783 001324 4461 T22C, PRINT 784 001325 5440 LF 785 001326 2036 ISZ LPCNT 786 001327 5277 JMP T22A 787 001330 5465 EXIT 788 789 /TEST 23 = CHARACTER GENERATOR TEST 790 / 791 /THIS PRINTS A SINGLE LINE (30 CHARACTERS LONG) OF EACH 792 /PRINTABLE CHARACTER PRECEEDED BY A LINE OF ALL SPACES 793 001331 4462 TEST23, PRTHDR 794 001332 1134 TAD P40 795 001333 3031 DCA CHAR 796 001334 1167 T23A, TAD M36 797 001335 3034 DCA COUNT 798 001336 1031 TAD CHAR 799 001337 4460 MLOAD 800 001340 4461 PRINT 801 001341 5440 LF 802 001342 2031 ISZ CHAR 803 001343 1174 TAD M177 804 001344 1031 TAD CHAR 805 001345 7640 SZA CLA 806 001346 5334 JMP T23A 807 001347 5465 EXIT 808 001375 0130 PAGE 001376 0125 001377 0052 809 810 /TEST 24 - NON-PRINTABLE CHARACTER TEST 811 001400 4462 TEST24, PRTHDR 812 001401 1135 TAD P41 813 001402 3031 DCA CHAR 814 001403 1167 T24H, TAD M36 815 001404 3036 DCA LPCNT 816 001405 3040 DCA PASCNT 817 001406 1026 TAD WIDTH 818 001407 1150 TAD P377 819 001410 1166 T24A, TAD M35 820 001411 7510 SPA 821 001412 5215 JMP T24B 822 001413 2040 ISZ PASCNT 823 001414 5210 JMP T24A 824 001415 7300 T24B, CLA CLL 825 001416 3035 DCA COUNT2 826 001417 1035 T24C, TAD COUNT2 827 001420 7041 CIA 828 001421 1377 TAD (-377 829 001422 1026 TAD WIDTH 830 001423 4277 JMS T24S 831 001424 7300 CLA CLL 832 001425 1026 TAD WIDTH 833 001426 3034 DCA COUNT 834 001427 1031 TAD CHAR 835 001430 3032 DCA CHAR2 836 001431 1032 T24D, TAD CHAR2 837 001432 4456 LOAD 838 001433 2034 ISZ COUNT 839 001434 7410 SKP 840 001435 5246 JMP T24E 841 001436 2032 ISZ CHAR2 842 001437 1032 TAD CHAR2 843 001440 1174 TAD M177 844 001441 7640 SZA CLA 845 001442 5231 JMP T24D 846 001443 1134 TAD P40 847 001444 3032 DCA CHAR2 848 001445 5231 JMP T24D 849 001446 1035 T24E, TAD COUNT2 850 001447 4277 JMS T24S 851 001450 4461 PRINT 852 001451 5440 LF 853 001452 1035 TAD COUNT2 854 001453 1040 TAD PASCNT 855 001454 3035 DCA COUNT2 856 001455 2031 ISZ CHAR 857 001456 1031 TAD CHAR 858 001457 1174 TAD M177 859 001460 7640 SZA CLA 860 001461 5264 JMP .+3 861 001462 1134 TAD P40 862 001463 3031 DCA CHAR 863 001464 2036 ISZ LPCNT 864 001465 5217 JMP T24C 865 001466 7300 T24F, CLA CLL 866 001467 1052 TAD TLOOP 867 001470 7640 SZA CLA 868 001471 5276 JMP T24G 869 001472 4521 GETSW 870 001473 0152 AND P1000 871 001474 7650 SNA CLA 872 001475 5465 EXIT 873 001476 5203 T24G, JMP T24H 874 875 /ROUTINE TO LOAD NON-PRINTABLE CHARACTERS FOR TEST 24 876 001477 0000 T24S, 0 877 001500 7550 SNA SPA 878 001501 5677 JMP I T24S 879 001502 7041 CIA 880 001503 3034 DCA COUNT 881 001504 3032 T24SC, DCA CHAR2 882 001505 1032 T24SA, TAD CHAR2 883 001506 4456 LOAD 884 001507 2034 ISZ COUNT 885 001510 7410 SKP 886 001511 5677 JMP I T24S 887 001512 2032 T24SB, ISZ CHAR2 888 001513 7300 CLA CLL 889 001514 1032 TAD CHAR2 890 001515 1157 TAD M7 891 001516 7450 SNA 892 001517 5312 JMP T24SB 893 001520 1153 TAD M1 894 001521 7450 SNA 895 001522 5312 JMP T24SB 896 001523 1154 TAD M2 897 001524 7450 SNA 898 001525 5312 JMP T24SB 899 001526 1154 TAD M2 900 001527 7450 SNA 901 001530 5312 JMP T24SB 902 001531 1153 TAD M1 903 001532 7450 SNA 904 001533 5312 JMP T24SB 905 001534 1163 TAD M23 906 001535 7650 SNA CLA 907 001536 5304 JMP T24SC 908 001537 5305 JMP T24SA 909 910 001540 0000 SETSKP, 0 911 001541 7300 CLA CLL 912 001542 1021 TAD PARAM 913 001543 7004 RAL 914 001544 7710 SPA CLA 915 001545 5351 JMP .+4 916 001546 1776 TAD RPSKF+3 917 001547 3775 DCA T0MIOT 918 001550 5740 JMP I SETSKP 919 001551 1774 TAD OPDBST 920 001552 5347 JMP .-3 921 001574 2643 PAGE 001575 0536 001576 2637 001577 7401 922 923 /TEST 25 - BUFFER TEST 924 001600 4462 TEST25, PRTHDR 925 001601 1162 D01601, TAD M20 926 001602 3034 DCA COUNT 927 001603 1377 TAD (105 928 001604 4460 MLOAD 929 001605 1145 TAD P177 930 001606 4456 LOAD 931 001607 1026 TAD WIDTH 932 001610 3034 DCA COUNT 933 001611 1173 TAD M144 934 001612 3036 DCA LPCNT 935 001613 7001 IAC 936 001614 4345 JMS T25S 937 001615 5230 JMP T25A 938 001616 1167 TAD M36 939 001617 3036 DCA LPCNT 940 001620 1376 TAD (3 941 001621 4345 JMS T25S 942 001622 5230 JMP T25A 943 001623 1154 TAD M2 944 001624 3036 DCA LPCNT 945 001625 1126 TAD P2 946 001626 4345 JMS T25S 947 001627 7000 NOP 948 001630 4461 T25A, PRINT 949 001631 5440 LF 950 001632 1375 TAD (-400 951 001633 3034 DCA COUNT 952 001634 1377 TAD (105 953 001635 4460 MLOAD 954 001636 4461 PRINT 955 001637 5440 LF 956 001640 1374 TAD (-376 957 001641 3034 DCA COUNT 958 001642 1377 TAD (105 959 001643 4460 MLOAD 960 001644 1145 TAD P177 961 001645 4456 LOAD 962 001646 4461 PRINT 963 001647 5440 LF 964 001650 1375 TAD (-400 965 001651 3034 DCA COUNT 966 001652 1377 TAD (105 967 001653 4460 MLOAD 968 001654 1026 TAD WIDTH 969 001655 3034 DCA COUNT 970 001656 1373 TAD (-143 971 001657 3036 DCA LPCNT 972 001660 4345 JMS T25S 973 001661 5265 JMP T25B 974 001662 7001 IAC 975 001663 4345 JMS T25S 976 001664 7000 NOP 977 001665 4461 T25B, PRINT 978 001666 5440 LF 979 001667 1372 TAD (-377 980 001670 3034 DCA COUNT 981 001671 1377 TAD (105 982 001672 4460 MLOAD 983 001673 1145 TAD P177 984 001674 4456 LOAD 985 001675 1026 TAD WIDTH 986 001676 3034 DCA COUNT 987 001677 1371 TAD (-11 988 001700 3036 DCA LPCNT 989 001701 3031 T25C, DCA CHAR 990 001702 1031 T25D, TAD CHAR 991 001703 1160 TAD M12 992 001704 7650 SNA CLA 993 001705 5301 JMP T25C 994 001706 1031 TAD CHAR 995 001707 4345 JMS T25S 996 001710 5315 JMP T25E 997 001711 1160 TAD M12 998 001712 3036 DCA LPCNT 999 001713 2031 ISZ CHAR 1000 001714 5302 JMP T25D 1001 001715 4461 T25E, PRINT 1002 001716 5440 LF 1003 001717 1375 TAD (-400 1004 001720 3034 DCA COUNT 1005 001721 1377 TAD (105 1006 001722 4460 MLOAD 1007 001723 1370 TAD (61 1008 001724 3031 DCA CHAR 1009 001725 1026 D01725, TAD WIDTH 1010 001726 3034 DCA COUNT 1011 001727 1031 T25F, TAD CHAR 1012 001730 4456 LOAD 1013 001731 2031 ISZ CHAR 1014 001732 1031 TAD CHAR 1015 001733 1367 TAD (-72 1016 001734 7640 SZA CLA 1017 001735 5340 JMP T25G 1018 001736 1140 TAD P60 1019 001737 3031 DCA CHAR 1020 001740 2034 T25G, ISZ COUNT 1021 001741 5327 JMP T25F 1022 001742 4461 PRINT 1023 001743 5440 LF 1024 001744 5465 EXIT 1025 1026 /ROUTINE TO LOAD GROUPS OF CHARS FOR TEST 25 1027 001745 0000 T25S, 0 1028 001746 1140 TAD P60 1029 001747 3032 DCA CHAR2 1030 001750 1032 TAD CHAR2 1031 001751 4456 LOAD 1032 001752 2034 ISZ COUNT 1033 001753 7410 SKP 1034 001754 5745 JMP I T25S 1035 001755 2036 ISZ LPCNT 1036 001756 5350 JMP T25S+3 1037 001757 2345 ISZ T25S 1038 001760 5745 JMP I T25S 1039 001767 7706 PAGE 001770 0061 001771 7767 001772 7401 001773 7635 001774 7402 001775 7400 001776 0003 001777 0105 1040 1041 /TEST 26 - OVERPRINT TEST 1042 002000 4462 TEST26, PRTHDR 1043 002001 1377 TAD (T26TAB 1044 002002 3041 DCA TABPTR 1045 002003 1155 T26A, TAD M3 1046 002004 3036 DCA LPCNT 1047 002005 1026 T26B, TAD WIDTH 1048 002006 3034 DCA COUNT 1049 002007 1441 T26C, TAD I TABPTR 1050 002010 7450 SNA 1051 002011 5465 EXIT 1052 002012 0142 AND P77 1053 002013 1170 TAD M40 1054 002014 7510 SPA 1055 002015 1143 TAD P100 1056 002016 1134 TAD P40 1057 002017 4456 LOAD 1058 002020 2034 ISZ COUNT 1059 002021 7410 SKP 1060 002022 5237 JMP T26D 1061 002023 1441 TAD I TABPTR 1062 002024 7012 RTR 1063 002025 7012 RTR 1064 002026 7012 RTR 1065 002027 0142 AND P77 1066 002030 1170 TAD M40 1067 002031 7510 SPA 1068 002032 1143 TAD P100 1069 002033 1134 TAD P40 1070 002034 4456 LOAD 1071 002035 2034 ISZ COUNT 1072 002036 5207 JMP T26C 1073 002037 4461 T26D, PRINT 1074 002040 5437 CR 1075 002041 2036 ISZ LPCNT 1076 002042 5205 JMP T26B 1077 002043 4461 PRINT 1078 002044 5440 LF 1079 002045 2041 ISZ TABPTR 1080 002046 5203 JMP T26A 1081 002047 0540 T26TAB, 0540 1082 002050 4000 4000 1083 002051 1540 1540 1084 002052 4043 4043 1085 002053 0000 0 1086 1087 /TEST 27 - MULTIPLE LINE FEED TEST 1088 002054 4462 TEST27, PRTHDR 1089 002055 1376 TAD (T27TAB 1090 002056 3041 DCA TABPTR 1091 002057 3045 T27A, DCA TENS 1092 002060 3044 DCA ONES 1093 002061 1441 TAD I TABPTR 1094 002062 2045 ISZ TENS 1095 002063 1160 TAD M12 1096 002064 7500 SMA 1097 002065 5262 JMP .-3 1098 002066 3044 DCA ONES 1099 002067 7240 CLA CMA 1100 002070 1045 TAD TENS 1101 002071 7450 SNA 1102 002072 5275 JMP T27B 1103 002073 1140 TAD P60 1104 002074 4456 LOAD 1105 002075 7300 T27B, CLA CLL 1106 002076 1044 TAD ONES 1107 002077 1141 TAD P72 1108 002100 4456 LOAD 1109 002101 1441 TAD I TABPTR 1110 002102 7450 SNA 1111 002103 5307 JMP T27C 1112 002104 1153 TAD M1 1113 002105 7440 SZA 1114 002106 5315 JMP T27D 1115 002107 1026 T27C, TAD WIDTH 1116 002110 1133 TAD P36 1117 002111 7740 SMA SZA CLA 1118 002112 5322 JMP T27DA 1119 002113 1026 TAD WIDTH 1120 002114 5323 JMP T27E 1121 002115 1160 T27D, TAD M12 1122 002116 7700 SMA CLA 1123 002117 5322 JMP .+3 1124 002120 1166 TAD M35 1125 002121 7410 SKP 1126 002122 1375 T27DA, TAD (-34 1127 002123 3034 T27E, DCA COUNT 1128 002124 1136 TAD P55 1129 002125 4460 MLOAD 1130 002126 1441 TAD I TABPTR 1131 002127 7450 SNA 1132 002130 5337 JMP T27X 1133 002131 7041 CIA 1134 002132 3034 DCA COUNT 1135 002133 1131 TAD P12 1136 002134 4460 MLOAD 1137 002135 2041 ISZ TABPTR 1138 002136 5257 JMP T27A 1139 002137 4461 T27X, PRINT 1140 002140 5440 LF 1141 002141 5465 EXIT 1142 002142 0001 T27TAB, 1 1143 002143 0002 2 1144 002144 0004 4 1145 002145 0010 10 1146 002146 0020 20 1147 002147 0040 40 1148 002150 0000 0 1149 002175 7744 PAGE 002176 2142 002177 2047 1150 1151 /TEST 30 - RIBBON FEED TEST 1152 002200 4462 TEST30, PRTHDR 1153 002201 1165 TAD M30 1154 002202 3034 DCA COUNT 1155 002203 4461 T30A, PRINT 1156 002204 2210 T30M 1157 002205 2034 ISZ COUNT 1158 002206 5203 JMP T30A 1159 002207 5465 EXIT 1160 002210 3073 T30M, TEXT /X;/ 002211 0000 1161 1162 /TEST 31 - BELL TEST 1163 002212 4462 TEST31, PRTHDR 1164 002213 1127 TAD P7 1165 002214 4456 LOAD 1166 002215 4461 PRINT 1167 002216 2240 T31M1 1168 002217 1127 TAD P7 1169 002220 4456 LOAD 1170 002221 4461 PRINT 1171 002222 2243 T31M2 1172 002223 1127 TAD P7 1173 002224 4456 LOAD 1174 002225 4461 PRINT 1175 002226 5437 CR 1176 002227 1127 TAD P7 1177 002230 4456 LOAD 1178 002231 4461 PRINT 1179 002232 5440 LF 1180 002233 1127 TAD P7 1181 002234 4456 LOAD 1182 002235 4461 PRINT 1183 002236 5437 CR 1184 002237 5465 EXIT 1185 002240 0205 T31M1, TEXT /BELL/ 002241 1414 002242 0000 1186 002243 4024 T31M2, TEXT / TEST/ 002244 0523 002245 2400 1187 1188 /TEST 60 - LIFE TEST 1189 002246 7300 TEST60, CLA CLL 1190 002247 3040 DCA PASCNT 1191 002250 4462 T60A, PRTHDR 1192 002251 1135 TAD P41 1193 002252 3031 DCA CHAR 1194 002253 1026 T60B, TAD WIDTH 1195 002254 3034 DCA COUNT 1196 002255 1031 TAD CHAR 1197 002256 4460 MLOAD 1198 002257 4461 PRINT 1199 002260 5440 LF 1200 002261 1377 TAD (-5 1201 002262 3036 DCA LPCNT 1202 002263 1026 T60C, TAD WIDTH 1203 002264 3034 DCA COUNT 1204 002265 1031 TAD CHAR 1205 002266 4460 MLOAD 1206 002267 4461 PRINT 1207 002270 5437 CR 1208 002271 2036 ISZ LPCNT 1209 002272 5263 JMP T60C 1210 002273 4461 PRINT 1211 002274 5440 LF 1212 002275 2031 ISZ CHAR 1213 002276 1174 TAD M177 1214 002277 1031 TAD CHAR 1215 002300 7640 SZA CLA 1216 002301 5253 JMP T60B 1217 002302 2040 ISZ PASCNT 1218 002303 7000 NOP 1219 002304 4461 PRINT 1220 002305 5057 PASMSG 1221 002306 3047 DCA THOUS 1222 002307 1040 TAD PASCNT 1223 002310 2047 ISZ THOUS 1224 002311 1376 TAD (-1750 1225 002312 7500 SMA 1226 002313 5310 JMP .-3 1227 002314 1375 TAD (1750 1228 002315 3040 DCA PASCNT 1229 002316 1137 TAD P57 1230 002317 1047 TAD THOUS 1231 002320 4456 LOAD 1232 002321 1040 TAD PASCNT 1233 002322 4517 JMS I TCNVRT 1234 002323 4461 PRINT 1235 002324 5435 CNVMSG 1236 002325 4461 PRINT 1237 002326 5440 LF 1238 002327 5250 JMP T60A 1239 002375 1750 PAGE 002376 6030 002377 7773 1240 1241 /TEST 61 - SCOPE DRIVE ROUTINE 1242 002400 4462 TEST61, PRTHDR 1243 002401 5225 JMP T61C 1244 002402 1026 T61A, TAD WIDTH 1245 002403 3034 DCA COUNT 1246 002404 4521 T61B, GETSW 1247 002405 0145 AND P177 1248 002406 3031 DCA CHAR 1249 002407 1031 TAD CHAR 1250 002410 4456 LOAD 1251 002411 1160 TAD M12 1252 002412 1031 TAD CHAR 1253 002413 7450 SNA 1254 002414 5225 JMP T61C 1255 002415 1155 TAD M3 1256 002416 7450 SNA 1257 002417 5225 JMP T61C 1258 002420 1163 TAD M23 1259 002421 7700 SMA CLA 1260 002422 2034 ISZ COUNT 1261 002423 7000 NOP 1262 002424 5230 JMP T61D 1263 002425 7300 T61C, CLA CLL 1264 002426 1026 TAD WIDTH 1265 002427 3034 DCA COUNT 1266 002430 7604 T61D, LAS 1267 002431 0146 AND P200 1268 002432 7650 SNA CLA 1269 002433 5236 JMP T61E 1270 002434 7402 HLT 1271 002435 5204 JMP T61B 1272 002436 1034 T61E, TAD COUNT 1273 002437 7510 SPA 1274 002440 5204 JMP T61B 1275 002441 7650 SNA CLA 1276 002442 5245 JMP T61F 1277 002443 1145 TAD P177 1278 002444 4456 LOAD 1279 002445 4461 T61F, PRINT 1280 002446 5440 LF 1281 002447 5202 JMP T61A 1282 1283 /TEST 62 - LINE PRINT TEST 1284 002450 4462 TEST62, PRTHDR 1285 002451 1053 TAD TPFLG 1286 002452 7650 SNA CLA 1287 002453 5341 JMP TERR 1288 002454 4455 TYPE 1289 002455 5244 TCHAR 1290 002456 4472 JMS I TKSF 1291 002457 5256 JMP .-1 1292 002460 4464 CHECK 1293 002461 4475 JMS I TKRB 1294 002462 4501 T62A, JMS I TTLS 1295 002463 4476 JMS I TTSF 1296 002464 5263 JMP .-1 1297 002465 3031 DCA CHAR 1298 002466 4455 TYPE 1299 002467 5441 CRLF 1300 002470 1026 T62B, TAD WIDTH 1301 002471 3034 DCA COUNT 1302 002472 1031 TAD CHAR 1303 002473 4460 MLOAD 1304 002474 4461 PRINT 1305 002475 5440 LF 1306 002476 5270 JMP T62B 1307 1308 /TEST 63 - CHARACTER PRINT TEST 1309 002477 4462 TEST63, PRTHDR 1310 002500 1053 TAD TPFLG 1311 002501 7650 SNA CLA 1312 002502 5341 JMP TERR 1313 002503 4455 TYPE 1314 002504 5244 TCHAR 1315 002505 4455 TYPE 1316 002506 5441 CRLF 1317 002507 4472 T63B, JMS I TKSF 1318 002510 5307 JMP .-1 1319 002511 4464 CHECK 1320 002512 4475 JMS I TKRB 1321 002513 0145 AND P177 1322 002514 3031 DCA CHAR 1323 002515 1031 TAD CHAR 1324 002516 4501 T63A, JMS I TTLS 1325 002517 4476 JMS I TTSF 1326 002520 5317 JMP .-1 1327 002521 4456 LOAD 1328 002522 1031 TAD CHAR 1329 002523 1161 TAD M15 1330 002524 7650 SNA CLA 1331 002525 5336 JMP T63E 1332 002526 1031 T63C, TAD CHAR 1333 002527 1160 TAD M12 1334 002530 7650 SNA CLA 1335 002531 5336 JMP T63E 1336 002532 1031 T63D, TAD CHAR 1337 002533 1377 TAD (-14 1338 002534 7640 SZA CLA 1339 002535 5307 JMP T63B 1340 002536 4455 T63E, TYPE 1341 002537 5441 CRLF 1342 002540 5307 JMP T63B 1343 002541 4461 TERR, PRINT 1344 002542 5231 NCMSG 1345 002543 5465 EXIT 1346 002577 7764 PAGE 1347 1348 /TTY I-O INSTRUCTIONS 1349 002600 0000 RKSF, 0 1350 002601 6031 KSF 1351 002602 7410 SKP 1352 002603 2200 ISZ RKSF 1353 002604 5600 JMP I RKSF 1354 002605 0000 RKCC, 0 1355 002606 6032 KCC 1356 002607 5605 JMP I RKCC 1357 002610 0000 RKRS, 0 1358 002611 6034 KRS 1359 002612 5610 JMP I RKRS 1360 002613 0000 RKRB, 0 1361 002614 6036 KRB 1362 002615 5613 JMP I RKRB 1363 002616 0000 RTSF, 0 1364 002617 6041 TSF 1365 002620 7410 SKP 1366 002621 2216 ISZ RTSF 1367 002622 5616 JMP I RTSF 1368 002623 0000 RTCF, 0 1369 002624 6042 TCF 1370 002625 5623 JMP I RTCF 1371 002626 0000 RTPC, 0 1372 002627 6044 TPC 1373 002630 5626 JMP I RTPC 1374 002631 0000 RTLS, 0 1375 002632 6046 TLS 1376 002633 5631 JMP I RTLS 1377 1378 /PRINTER INSTRUCTIONS 1379 002634 0000 RPSKF, 0 1380 002635 4777 JMS OP1CHK 1381 002636 2643 OPDBST 1382 002637 6661 PSKF 1383 002640 7410 SKP 1384 002641 2234 ISZ RPSKF 1385 002642 5634 JMP I RPSKF 1386 002643 6570 OPDBST, DBST 1387 002644 5634 JMP I RPSKF 1388 002645 5241 JMP .-4 1389 002646 0000 RPCLF, 0 1390 002647 4777 JMS OP1CHK 1391 002650 2653 OP1CLF 1392 002651 6662 PCLF 1393 002652 5646 JMP I RPCLF 1394 002653 6570 OP1CLF, DBST 1395 002654 5646 JMP I RPCLF 1396 002655 5646 JMP I RPCLF 1397 002656 0000 RPSTB, 0 1398 002657 4777 JMS OP1CHK 1399 002660 2663 OPLOD1 1400 002661 6664 PSTB 1401 002662 5656 JMP I RPSTB 1402 002663 7040 OPLOD1, CMA 1403 002664 6574 DBTD 1404 002665 7040 CMA 1405 002666 6577 DBSS 1406 002667 5656 JMP I RPSTB 1407 002670 0000 RPSIE, 0 1408 002671 4777 JMS OP1CHK 1409 002672 2675 OPSCIE 1410 002673 6665 PSIE 1411 002674 5670 JMP I RPSIE 1412 002675 7440 OPSCIE, SZA 1413 002676 6575 DBSE 1414 002677 7450 SNA 1415 002700 6576 DBCE 1416 002701 5670 JMP I RPSIE 1417 002702 0000 RPCLP, 0 1418 002703 4777 JMS OP1CHK 1419 002704 2707 OPLOD2 1420 002705 6666 PCLP 1421 002706 5702 JMP I RPCLP 1422 002707 6570 OPLOD2, DBST 1423 002710 7000 NOP 1424 002711 7040 CMA 1425 002712 6574 DBTD 1426 002713 7040 CMA 1427 002714 6577 DBSS 1428 002715 5702 JMP I RPCLP 1429 1430 /ROUTINES TO MODIFY I-O INSTRUCTIONS FOR SELECTED IOT CODES 1431 /ON CONSOLE TERMINAL & LA180 PRINTER 1432 002716 0000 MIOT, 0 1433 002717 7300 CLA CLL 1434 002720 1156 TAD M4 1435 002721 3034 DCA COUNT 1436 002722 1376 TAD (IOTAB-1 1437 002723 3010 DCA AUTPTR 1438 002724 1030 TAD IOTSEL 1439 002725 0172 AND M100 1440 002726 7110 CLL RAR 1441 002727 7112 CLL RTR 1442 002730 3033 MIOTB, DCA SAVE 1443 002731 1410 MIOTA, TAD I AUTPTR 1444 002732 7450 SNA 1445 002733 5350 JMP MIOTC 1446 002734 3041 DCA TABPTR 1447 002735 1441 TAD I TABPTR 1448 002736 0375 AND (7007 1449 002737 1033 TAD SAVE 1450 002740 3441 DCA I TABPTR 1451 002741 2034 ISZ COUNT 1452 002742 5331 JMP MIOTA 1453 002743 1030 TAD IOTSEL 1454 002744 0142 AND P77 1455 002745 7106 CLL RTL 1456 002746 7104 CLL RAL 1457 002747 5330 JMP MIOTB 1458 002750 1410 MIOTC, TAD I AUTPTR 1459 002751 7450 SNA 1460 002752 5716 JMP I MIOT 1461 002753 3041 DCA TABPTR 1462 002754 1441 TAD I TABPTR 1463 002755 0375 AND (7007 1464 002756 1027 TAD PTRIOT 1465 002757 3441 DCA I TABPTR 1466 002760 5350 JMP MIOTC 1467 002775 7007 PAGE 002776 4534 002777 3142 1468 1469 /CLOCK INTERRUPT SERVICE ROUTINE FOR TEST 2 1470 003000 6133 CKSRV, CLSK 1471 003001 5213 JMP CKEXIT 1472 003002 2037 ISZ CKCNT 1473 003003 5213 JMP CKEXIT 1474 003004 2036 ISZ LPCNT 1475 003005 7410 SKP 1476 003006 5615 JMP I CKSTOP 1477 003007 3216 DCA ISAVE 1478 003010 1054 TAD CKFLAG 1479 003011 3037 DCA CKCNT 1480 003012 1216 TAD ISAVE 1481 003013 6001 CKEXIT, ION 1482 003014 5400 JMP I 0000 1483 003015 1110 CKSTOP, T2SPDC 1484 003016 0000 ISAVE, 0 1485 1486 /TEST EXIT ROUTINE 1487 003017 4507 REXIT, JMS I TKBFG 1488 003020 4521 GETSW 1489 003021 0152 AND P1000 1490 003022 7640 SZA CLA 1491 003023 5237 JMP EXIT3 1492 003024 4521 GETSW 1493 003025 0151 AND P400 1494 003026 7640 SZA CLA 1495 003027 5467 JMP I TSELCT 1496 003030 1052 TAD TLOOP 1497 003031 7640 SZA CLA 1498 003032 5237 JMP EXIT3 1499 003033 1051 TAD TRONE 1500 003034 7640 SZA CLA 1501 003035 5510 JMP I TTSEL 1502 003036 2023 EXIT1, ISZ TSTNM 1503 003037 1070 EXIT3, TAD TTAT 1504 003040 1023 TAD TSTNM 1505 003041 3041 DCA TABPTR 1506 003042 1441 TAD I TABPTR 1507 003043 7550 SNA SPA 1508 003044 5247 JMP EXIT2 1509 003045 3042 DCA TSTPTR 1510 003046 5442 JMP I TSTPTR 1511 003047 7700 EXIT2, SMA CLA 1512 003050 5236 JMP EXIT1 1513 003051 1377 TAD (20 1514 003052 3023 DCA TSTNM 1515 003053 5237 JMP EXIT3 1516 1517 /SELECT TEST FROM CPU SW REG BITS 06-11 1518 003054 6002 SELECT, IOF 1519 003055 6132 CLDI 1520 003056 7300 CLA CLL 1521 003057 4505 JMS I TPSIE 1522 003060 3050 DCA STRONE 1523 003061 3051 DCA TRONE 1524 003062 3052 DCA TLOOP 1525 003063 1125 TAD LIERR 1526 003064 3002 DCA ISRV 1527 003065 4507 JMS I TKBFG 1528 003066 7402 HLT 1529 003067 4521 GETSW 1530 003070 0151 AND P400 1531 003071 7640 SZA CLA 1532 003072 7040 CMA 1533 003073 3050 DCA STRONE 1534 003074 4521 GETSW 1535 003075 0142 AND P77 1536 003076 3023 DCA TSTNM 1537 003077 1070 TAD TTAT 1538 003100 1023 TAD TSTNM 1539 003101 3041 DCA TABPTR 1540 003102 1441 TAD I TABPTR 1541 003103 7550 SNA SPA 1542 003104 5254 JMP SELECT 1543 003105 3042 DCA TSTPTR 1544 003106 5442 JMP I TSTPTR 1545 1546 /ROUTINE TO CHECK FOR KYBD OR SW REG CONTROL 1547 003107 0000 RCHECK, 0 1548 003110 3033 DCA SAVE 1549 003111 4507 JMS I TKBFG 1550 003112 4521 GETSW 1551 003113 0151 AND P400 1552 003114 7640 SZA CLA 1553 003115 7001 IAC 1554 003116 1050 TAD STRONE 1555 003117 7640 SZA CLA 1556 003120 5467 JMP I TSELCT 1557 003121 1033 TAD SAVE 1558 003122 5707 JMP I RCHECK 1559 1560 /ROUTINE TO WAIT FOR OPERATOR ACTION 1561 003123 0000 RHOLD, 0 1562 003124 3341 DCA HOLDCH 1563 003125 1053 TAD TPFLG 1564 003126 7650 SNA CLA 1565 003127 5336 JMP RHOLDA 1566 003130 4455 TYPE 1567 003131 4777 WTMSG 1568 003132 1341 TAD HOLDCH 1569 003133 4472 JMS I TKSF 1570 003134 5333 JMP .-1 1571 003135 5723 JMP I RHOLD 1572 003136 1341 RHOLDA, TAD HOLDCH 1573 003137 7402 HLT 1574 003140 5723 JMP I RHOLD 1575 003141 0000 HOLDCH, 0 1576 1577 /ROUTINE TO CHECK FOR PARALLEL I/O 1578 003142 0000 OP1CHK, 0 1579 003143 3356 DCA SAVEAC 1580 003144 1021 TAD PARAM 1581 003145 7004 RAL 1582 003146 7710 SPA CLA 1583 003147 5353 JMP .+4 1584 003150 2342 ISZ OP1CHK 1585 003151 1356 TAD SAVEAC 1586 003152 5742 JMP I OP1CHK 1587 003153 1742 TAD I OP1CHK 1588 003154 3342 DCA OP1CHK 1589 003155 5351 JMP .-4 1590 003156 0000 SAVEAC, 0000 1591 003177 0020 PAGE 1592 1593 /ROUTINE TO CHECK FOR KYBD FLAG 1594 003200 0000 KYBDF, 0 1595 003201 7300 CLA CLL 1596 003202 1053 TAD TPFLG 1597 003203 7650 SNA CLA 1598 003204 5600 JMP I KYBDF 1599 003205 4472 JMS I TKSF 1600 003206 5600 JMP I KYBDF 1601 003207 4475 JMS I TKRB 1602 003210 0145 AND P177 1603 003211 3324 DCA KYBDC 1604 003212 1021 TAD PARAM 1605 003213 7710 SPA CLA 1606 003214 5313 JMP KFA 1607 003215 1324 TAD KYBDC 1608 003216 1157 TAD M7 1609 003217 7640 SZA CLA 1610 003220 5313 JMP KFA 1611 003221 7300 KFB, CLA CLL 1612 003222 3325 DCA TTYIN 1613 003223 3326 DCA INFLAG 1614 003224 4455 TYPE 1615 003225 4766 DSMSG1 1616 003226 1020 TAD SWITCH 1617 003227 4523 JMS I TPOCT 1618 003230 4455 TYPE 1619 003231 4772 DSMSG2 1620 003232 4472 KFF, JMS I TKSF 1621 003233 5232 JMP .-1 1622 003234 4475 JMS I TKRB 1623 003235 0145 AND P177 1624 003236 3324 DCA KYBDC 1625 003237 1164 TAD M25 1626 003240 1324 TAD KYBDC 1627 003241 7640 SZA CLA 1628 003242 5246 JMP KFC 1629 003243 4455 TYPE 1630 003244 5445 CNTLU 1631 003245 5221 JMP KFB 1632 003246 1161 KFC, TAD M15 1633 003247 1324 TAD KYBDC 1634 003250 7640 SZA CLA 1635 003251 5262 JMP KFD 1636 003252 4455 TYPE 1637 003253 5441 CRLF 1638 003254 1326 TAD INFLAG 1639 003255 7650 SNA CLA 1640 003256 5600 JMP I KYBDF 1641 003257 1325 TAD TTYIN 1642 003260 3020 DCA SWITCH 1643 003261 5600 JMP I KYBDF 1644 003262 1160 KFD, TAD M12 1645 003263 1324 TAD KYBDC 1646 003264 7640 SZA CLA 1647 003265 5276 JMP KFE 1648 003266 4455 TYPE 1649 003267 5441 CRLF 1650 003270 1326 TAD INFLAG 1651 003271 7650 SNA CLA 1652 003272 5510 JMP I TTSEL 1653 003273 1325 TAD TTYIN 1654 003274 3020 DCA SWITCH 1655 003275 5510 JMP I TTSEL 1656 003276 1324 KFE, TAD KYBDC 1657 003277 4522 JMS I PDIGIT 1658 003300 1324 TAD KYBDC 1659 003301 0127 AND P7 1660 003302 3324 DCA KYBDC 1661 003303 1325 P03303, TAD TTYIN 1662 003304 7104 CLL RAL 1663 003305 7104 CLL RAL 1664 003306 7104 CLL RAL 1665 003307 1324 TAD KYBDC 1666 003310 3325 DCA TTYIN 1667 003311 2326 ISZ INFLAG 1668 003312 5232 JMP KFF 1669 003313 1324 KFA, TAD KYBDC 1670 003314 1174 TAD M177 1671 003315 7650 SNA CLA 1672 003316 5510 JMP I TTSEL 1673 003317 1324 TAD KYBDC 1674 003320 1155 TAD M3 1675 003321 7650 SNA CLA 1676 003322 5466 JMP I TKBDST 1677 003323 5600 JMP I KYBDF 1678 003324 0000 KYBDC, 0 1679 003325 0000 TTYIN, 0 1680 003326 0000 INFLAG, 0 1681 PAGE 1682 1683 *3400 1684 003400 4451 KBTAB, READQ 1685 003401 3422 KYBDAA 1686 003402 3433 KYBDA 1687 003403 3447 KYBDB 1688 003404 4451 READQ 1689 1690 /ROUTINE TO SET NUMBER OF COLUMNS FROM CONSOLE DEVICE KYBD 1691 003405 4455 KYBDST, TYPE 1692 003406 4746 COLUMN 1693 003407 3026 DCA WIDTH 1694 003410 4511 JMS I READ 1695 003411 1377 TAD (READT-1 1696 003412 3010 DCA AUTPTR 1697 003413 1034 TAD COUNT 1698 003414 7041 CIA 1699 003415 1376 TAD (KBTAB 1700 003416 3033 DCA SAVE 1701 003417 1433 TAD I SAVE 1702 003420 3033 DCA SAVE 1703 003421 5433 JMP I SAVE 1704 003422 1410 KYBDAA, TAD I AUTPTR 1705 003423 4514 JMS I CHKNR 1706 003424 7450 SNA 1707 003425 5233 JMP KYBDA 1708 003426 7041 CIA 1709 003427 3034 DCA COUNT 1710 003430 1173 TAD M144 1711 003431 2034 ISZ COUNT 1712 003432 5230 JMP .-2 1713 003433 3026 KYBDA, DCA WIDTH 1714 003434 1410 TAD I AUTPTR 1715 003435 4514 JMS I CHKNR 1716 003436 7450 SNA 1717 003437 5247 JMP KYBDB 1718 003440 7041 CIA 1719 003441 3034 DCA COUNT 1720 003442 1160 TAD M12 1721 003443 2034 ISZ COUNT 1722 003444 5242 JMP .-2 1723 003445 1026 TAD WIDTH 1724 003446 3026 DCA WIDTH 1725 003447 1410 KYBDB, tAD I AUTPTR 1726 003450 4514 JMS I CHKNR 1727 003451 7041 CIA 1728 003452 1026 TAD WIDTH 1729 003453 3026 DCA WIDTH 1730 003454 1126 TAD P2 1731 003455 1026 TAD WIDTH 1732 003456 7740 SMA SZA CLA 1733 003457 5512 JMP I TREADQ 1734 003460 1147 TAD P204 1735 003461 1026 TAD WIDTH 1736 003462 7710 SPA CLA 1737 003463 5512 JMP I TREADQ 1738 003464 5510 JMP I TTSEL 1739 1740 /ROUTINE TO SELECT TEST FROM CONSOLE DEVICE KYBD 1741 003465 6002 TSEL, IOF 1742 003466 6132 CLDI 1743 003467 7300 CLA CLL 1744 003470 4505 JMS I TPSIE 1745 003471 3051 DCA TRONE 1746 003472 3052 DCA TLOOP 1747 003473 3050 DCA STRONE 1748 003474 1125 TAD LIERR 1749 003475 3002 DCA ISRV 1750 003476 4455 TYPE 1751 003477 4755 SELTST 1752 003500 4511 JMS I READ 1753 003501 1524 TAD I LREADT 1754 003502 1155 TAD M3 1755 003503 7650 SNA CLA 1756 003504 5466 JMP I TKBDST 1757 003505 2034 ISZ COUNT 1758 003506 5512 JMP I TREADQ 1759 003507 1377 TAD (READT-1 1760 003510 3010 DCA AUTPTR 1761 003511 1410 TAD I AUTPTR 1762 003512 4513 JMS I CHKOCT 1763 003513 7106 CLL RTL 1764 003514 7104 CLL RAL 1765 003515 3023 DCA TSTNM 1766 003516 1410 TAD I AUTPTR 1767 003517 4513 JMS I CHKOCT 1768 003520 1023 TAD TSTNM 1769 003521 3023 DCA TSTNM 1770 003522 1070 TAD TTAT 1771 003523 1023 TAD TSTNM 1772 003524 3041 DCA TABPTR 1773 003525 1441 TAD I TABPTR 1774 003526 7550 SNA SPA 1775 003527 5512 JMP I TREADQ 1776 003530 3042 DCA TSTPTR 1777 003531 1410 TAD I AUTPTR 1778 003532 3033 DCA SAVE 1779 003533 1171 TAD M56 1780 003534 1033 TAD SAVE 1781 003535 7640 SZA CLA 1782 003536 5342 JMP TSEL1 1783 003537 7240 CLA CMA 1784 003540 3051 DCA TRONE 1785 003541 5355 JMP TSELX 1786 003542 1033 TSEL1, TAD SAVE 1787 003543 0375 AND (137 1788 003544 1374 TAD (-114 1789 003545 7440 SZA 1790 003546 5352 JMP TSEL2 1791 003547 7240 CLA CMA 1792 003550 3052 DCA TLOOP 1793 003551 5355 JMP TSELX 1794 003552 1157 TSEL2, TAD M7 1795 003553 7640 SZA CLA 1796 003554 5512 JMP I TREADQ 1797 003555 4455 TSELX, TYPE 1798 003556 5441 CRLF 1799 003557 5442 JMP I TSTPTR 1800 003574 7664 PAGE 003575 0137 003576 3400 003577 4503 1801 1802 /ERROR ROUTINE, ERROR MESG IS IN FORM: 1803 / 1804 /TEST #XX, PC=XXXX, ERROR #XXXX, MESSAGE>>>>>> 1805 003600 0000 RERROR, 0 1806 003601 7240 CLA CMA 1807 003602 1200 TAD RERROR 1808 003603 3025 DCA ERRPC 1809 003604 1600 TAD I RERROR 1810 003605 3024 DCA ERRNM 1811 003606 4521 GETSW 1812 003607 7004 RAL 1813 003610 7710 SPA CLA 1814 003611 5250 JMP IERRT 1815 003612 1053 TAD TPFLG 1816 003613 7650 SNA CLA 1817 003614 5250 JMP IERRT 1818 003615 4455 TYPE 1819 003616 5036 ETSTNO 1820 003617 1023 TAD TSTNM 1821 003620 7012 RTR 1822 003621 7010 RAR 1823 003622 4522 JMS I PDIGIT 1824 003623 1023 TAD TSTNM 1825 003624 4522 JMS I PDIGIT 1826 003625 4455 TYPE 1827 003626 5043 PCMSG 1828 003627 1025 TAD ERRPC 1829 003630 4523 JMS I TPOCT 1830 003631 4455 TYPE 1831 003632 5047 JMP THOUS 1832 003633 1024 TAD ERRNM 1833 003634 4523 JMS I TPOCT 1834 003635 4455 TYPE 1835 003636 5055 ERRS 1836 003637 1377 TAD (EMAT-1 1837 003640 1024 TAD ERRNM 1838 003641 3245 DCA RSAVE 1839 003642 1645 TAD I RSAVE 1840 003643 3245 DCA RSAVE 1841 003644 4455 TYPE 1842 003645 0000 RSAVE, 0 1843 003646 4455 TYPE 1844 003647 5441 CRLF 1845 003650 4521 IERRT, GETSW 1846 003651 7700 SMA CLA 1847 003652 5255 JMP .+3 1848 003653 1024 TAD ERRNM 1849 003654 4457 HOLD 1850 003655 2200 ISZ RERROR 1851 003656 7300 CLA CLL 1852 003657 5600 JMP I RERROR 1853 1854 /ROUTINE TO PRINT AN OCTAL DIGIT ON THE CONSOLE DEVICE 1855 003660 0000 RPDIGT, 0 1856 003661 0127 AND P7 1857 003662 1140 TAD P60 1858 003663 4515 JMS I GOUT 1859 003664 5660 JMP I RPDIGT 1860 1861 /ROUTINE TO CONVERT 4 DIGIT OCTAL NUMBER TO ASCII AND TYPE ON CONSOLE 1862 003665 0000 POCT, 0 1863 003666 3312 DCA OCTSAV 1864 003667 1312 TAD OCTSAV 1865 003670 7012 RTR 1866 003671 7012 RTR 1867 003672 7012 RTR 1868 003673 7012 RTR 1869 003674 7010 RAR 1870 003675 4522 JMS I PDIGIT 1871 003676 1312 TAD OCTSAV 1872 003677 7012 RTR 1873 003700 7012 RTR 1874 003701 7012 RTR 1875 003702 4522 JMS I PDIGIT 1876 003703 1312 TAD OCTSAV 1877 003704 7012 RTR 1878 003705 7010 RAR 1879 003706 4522 JMS I PDIGIT 1880 003707 1312 TAD OCTSAV 1881 003710 4522 JMS I PDIGIT 1882 003711 5665 JMP I POCT 1883 003712 0000 OCTSAV, 0 1884 1885 /ROUTINE TO CONVERT OCTAL NUMBER TO 3 DIGIT DECIMAL NUMBER IN ASCII STRING 1886 /RETURN WITH CONVERT NUMBER STRING IN CNVMSG. 1887 003713 0000 CNVRT, 0 1888 003714 3361 DCA CNVNM 1889 003715 3046 DCA HUNDS 1890 003716 3045 DCA TENS 1891 003717 3044 DCA ONES 1892 003720 1361 TAD CNVNM 1893 003721 2046 L03721, ISZ HUNDS 1894 003722 1173 TAD M144 1895 003723 7500 SMA 1896 003724 5321 JMP .-3 1897 003725 1376 TAD (144 1898 003726 2045 L03726, ISZ TENS 1899 003727 1160 TAD M12 1900 003730 7500 SMA 1901 003731 5326 JMP .-3 1902 003732 3044 DCA ONES 1903 003733 1375 TAD (CNVMSG 1904 003734 3362 DCA MSGPTR 1905 003735 1046 TAD HUNDS 1906 003736 1137 TAD P57 1907 003737 7006 RTL 1908 003740 7006 RTL 1909 003741 7006 RTL 1910 003742 0172 AND M100 1911 003743 3762 DCA I MSGPTR 1912 003744 1045 TAD TENS 1913 003745 1137 TAD P57 1914 003746 1762 TAD I MSGPTR 1915 003747 3762 DCA I MSGPTR 1916 003750 2362 ISZ MSGPTR 1917 003751 1044 TAD ONES 1918 003752 1141 TAD P72 1919 003753 7006 RTL 1920 003754 7006 RTL 1921 003755 7006 RTL 1922 003756 0172 AND M100 1923 003757 3762 DCA I MSGPTR 1924 003760 5713 JMP I CNVRT 1925 003761 0000 CNVNM, 0 1926 003762 0000 MSGPTR, 0 1927 003775 5435 PAGE 003776 0144 003777 4677 1928 1929 /TYPE ROUTINE - TO TYPE ASCII MESSAGES 1930 004000 0000 RTYPE, 0 1931 004001 7300 CLA CLL 1932 004002 1053 TAD TPFLG 1933 004003 7640 SZA CLA 1934 004004 5207 JMP .+3 1935 004005 2200 RT2, ISZ RTYPE 1936 004006 5600 JMP I RTYPE 1937 004007 1600 TAD I RTYPE 1938 004010 3043 DCA MSGADR 1939 004011 1443 RT1, TAD I MSGADR 1940 004012 7112 CLL RTR 1941 004013 7112 CLL RTR 1942 004014 7112 CLL RTR 1943 004015 4222 JMS OUT 1944 004016 1443 TAD I MSGADR 1945 004017 4222 JMS OUT 1946 004020 2043 ISZ MSGADR 1947 004021 5211 JMP RT1 1948 004022 0000 OUT, 0 1949 004023 0142 AND P77 1950 004024 7450 SNA 1951 004025 5205 JMP RT2 1952 004026 3033 DCA SAVE 1953 004027 1033 TAD SAVE 1954 004030 1377 TAD (-53 1955 004031 7450 SNA 1956 004032 5244 JMP OUTCL 1957 004033 1162 TAD M20 1958 004034 7650 SNA CLA 1959 004035 5251 JMP OUTLF 1960 004036 1033 TAD SAVE 1961 004037 0134 AND P40 1962 004040 7650 SNA CLA 1963 004041 1143 TAD P100 1964 004042 1033 TAD SAVE 1965 004043 5253 JMP OUTCHR 1966 004044 7300 OUTCL, CLA CLL 1967 004045 1132 TAD P15 1968 004046 4501 JMS I TTLS 1969 004047 4476 JMS I TTSF 1970 004050 5247 JMP .-1 1971 004051 7300 OUTLF, CLA CLL 1972 004052 1131 TAD P12 1973 004053 4501 OUTCHR, JMS I TTLS 1974 004054 4476 JMS I TTSF 1975 004055 5254 JMP .-1 1976 004056 7300 CLA CLL 1977 004057 5622 JMP I OUT 1978 1979 /ROUTINE TO LOAD SINGLE CHARACTERS TO LA180 PRINTER 1980 004060 0000 RLOAD, 0 1981 004061 4464 CHECK 1982 004062 7300 RLA, CLA CLL 1983 004063 3303 DCA RLDC 1984 004064 1376 TAD (-300 1985 004065 3304 DCA RLDCC 1986 004066 2303 RLB, ISZ RLDC 1987 004067 5275 JMP RLC 1988 004070 2304 ISZ RLDCC 1989 004071 5275 JMP RLC 1990 004072 4463 ERROR 1991 004073 0016 16 1992 004074 5660 JMP I RLOAD 1993 004075 4502 RLC, JMS I TPSKF 1994 004076 5266 JMP RLB 1995 004077 1033 TAD SAVE 1996 004100 4506 JMS I TPCLP 1997 004101 7300 CLA CLL 1998 004102 5660 JMP I RLOAD 1999 004103 0000 RLDC, 0 2000 004104 0000 RLDCC, 0 2001 2002 /ROUTINE TO LOAD MULTIPLE CHARACTERS (NOT TEXT STRINGS) TO LA180 2003 004105 0000 RMLOAD, 0 2004 004106 3033 DCA SAVE 2005 004107 1033 TAD SAVE 2006 004110 4456 LOAD 2007 004111 2034 ISZ COUNT 2008 004112 1034 TAD COUNT 2009 004113 7710 SPA CLA 2010 004114 5307 JMP RMLOAD+2 2011 004115 5705 JMP I RMLOAD 2012 004176 7500 PAGE 004177 7725 2013 2014 /ROUTINE TO PRINT ASCII MESSAGES ON THE LA180 PRINTER 2015 004200 0000 RPRINT, 0 2016 004201 7300 CLA CLL 2017 004202 1600 TAD I RPRINT 2018 004203 3043 DCA MSGADR 2019 004204 2200 ISZ RPRINT 2020 004205 1443 RP1, TAD I MSGADR 2021 004206 7112 CLL RTR 2022 004207 7112 CLL RTR 2023 004210 7112 CLL RTR 2024 004211 4216 JMS PRT 2025 004212 1443 TAD I MSGADR 2026 004213 4216 JMS PRT 2027 004214 2043 ISZ MSGADR 2028 004215 5205 JMP RP1 2029 004216 0000 PRT, 0 2030 004217 0142 AND P77 2031 004220 7450 SNA 2032 004221 5600 JMP I RPRINT 2033 004222 3033 DCA SAVE 2034 004223 1033 TAD SAVE 2035 004224 1377 TAD (-41 2036 004225 7450 SNA 2037 004226 5246 JMP PRTFF 2038 004227 1160 TAD M12 2039 004230 7450 SNA 2040 004231 5254 JMP PRTCL 2041 004232 1376 TAD (-17 2042 004233 7450 SNA 2043 004234 5251 JMP PRTCR 2044 004235 1153 TAD M1 2045 004236 7650 SNA CLA 2046 004237 5257 JMP PRTLF 2047 004240 1033 TAD SAVE 2048 004241 0134 AND P40 2049 004242 7650 SNA CLA 2050 004243 1143 TAD P100 2051 004244 1033 TAD SAVE 2052 004245 5260 JMP PRTCHR 2053 004246 7300 PRTFF, CLA CLL 2054 004247 1375 TAD (14 2055 004250 5260 JMP PRTCHR 2056 004251 7300 PRTCR, CLA CLL 2057 004252 1132 TAD P15 2058 004253 5260 JMP PRTCHR 2059 004254 7300 PRTCL, CLA CLL 2060 004255 1132 TAD P15 2061 004256 4456 LOAD 2062 004257 1131 PRTLF, TAD P12 2063 004260 4456 PRTCHR, LOAD 2064 004261 5616 JMP I PRT 2065 2066 /ROUTINE TO PRINT TET HEADER ON LA180 2067 004262 0000 RPRHDR, 0 2068 004263 7300 CLA CLL 2069 004264 1145 TAD P177 2070 004265 4456 LOAD 2071 004266 1331 TAD SVTST 2072 004267 7041 CIA 2073 004270 1023 TAD TSTNM 2074 004271 7650 SNA CLA 2075 004272 5326 JMP HDRX 2076 004273 1023 TAD TSTNM 2077 004274 3331 DCA SVTST 2078 004275 4461 PRINT 2079 004276 5020 TSTNO 2080 004277 1023 TAD TSTNM 2081 004300 7012 RTR 2082 004301 7010 RAR 2083 004302 0127 AND P7 2084 004303 1140 TAD P60 2085 004304 4456 LOAD 2086 004305 1023 TAD TSTNM 2087 004306 0127 AND P7 2088 004307 1140 TAD P60 2089 004310 4456 LOAD 2090 004311 4461 PRINT 2091 004312 5440 LF 2092 004313 1164 TAD M25 2093 004314 1023 TAD TSTNM 2094 004315 7640 SZA CLA 2095 004316 5326 JMP HDRX 2096 004317 1026 TAD WIDTH 2097 004320 7041 CIA 2098 004321 4517 JMS I TCNVRT 2099 004322 4461 PRINT 2100 004323 5435 CNVMSG 2101 004324 4461 PRINT 2102 004325 5030 COLMN 2103 004326 4461 HDRX, PRINT 2104 004327 5440 LF 2105 004330 5662 JMP I RPRHDR 2106 004331 0000 SVTST, 0 2107 004375 0014 PAGE 004376 7761 004377 7737 2108 2109 /ROUTINE TO READ 4 CHARS FROM THE CONSOLE KEYBOARD 2110 004400 0000 TREAD, 0 2111 004401 7300 READ0, CLA CLL 2112 004402 3303 DCA RFLAG 2113 004403 1156 READ1, TAD M4 2114 004404 3034 DCA COUNT 2115 004405 1124 TAD LREADT 2116 004406 3041 DCA TABPTR 2117 004407 4472 READ2, JMS I TKSF 2118 004410 5207 JMP .-1 2119 004411 4475 JMS I TKRB 2120 004412 0145 AND P177 2121 004413 3441 DCA I TABPTR 2122 004414 1170 TAD M40 2123 004415 1441 TAD I TABPTR 2124 004416 7650 SNA CLA 2125 004417 5207 JMP READ2 2126 004420 1164 TAD M25 2127 004421 1441 TAD I TABPTR 2128 004422 7650 SNA CLA 2129 004423 5254 JMP READU 2130 004424 1174 TAD M177 2131 004425 1441 TAD I TABPTR 2132 004426 7650 SNA CLA 2133 004427 5257 JMP READD 2134 004430 1161 TAD M15 2135 004431 1441 TAD I TABPTR 2136 004432 7650 SNA CLA 2137 004433 5600 JMP I TREAD 2138 004434 1303 TAD RFLAG 2139 004435 7650 SNA CLA 2140 004436 5241 JMP .+3 2141 004437 1144 TAD P134 2142 004440 4515 JMS I GOUT 2143 004441 3303 DCA RFLAG 2144 004442 1441 TAD I TABPTR 2145 004443 4501 JMS I TTLS 2146 004444 4476 JMS I TTSF 2147 004445 5244 JMP .-1 2148 004446 2041 ISZ TABPTR 2149 004447 2034 ISZ COUNT 2150 004450 5207 JMP READ2 2151 004451 4455 READQ, TYPE 2152 004452 5443 QUES 2153 004453 5201 JMP READ0 2154 004454 4455 READU, TYPE 2155 004455 5445 CNTLU 2156 004456 5201 JMP READ0 2157 004457 7240 READD, CLA CMA 2158 004460 1034 TAD COUNT 2159 004461 3034 DCA COUNT 2160 004462 1377 TAD (4 2161 004463 1034 TAD COUNT 2162 004464 7710 SPA CLA 2163 004465 5203 JMP READ1 2164 004466 7240 CLA CMA 2165 004467 1041 TAD TABPTR 2166 004470 3041 DCA TABPTR 2167 004471 1303 TAD RFLAG 2168 004472 7640 SZA CLA 2169 004473 5276 JMP .+3 2170 004474 1144 TAD P134 2171 004475 4515 JMS I GOUT 2172 004476 1441 TAD I TABPTR 2173 004477 4515 JMS I GOUT 2174 004500 7240 CLA CMA 2175 004501 3303 DCA RFLAG 2176 004502 5207 JMP READ2 2177 004503 0000 RFLAG, 0 2178 004504 0000 READT, 0 2179 004505 0000 0 2180 004506 0000 0 2181 004507 0000 0 2182 2183 /ROUTINE TO CHECK FOR OCTAL DIGIT INPUT 2184 004510 0000 TCKOUT, 0 2185 004511 4320 JMS TCHKNR 2186 004512 0130 AND P10 2187 004513 7640 SZA CLA 2188 004514 5512 JMP I TREADQ 2189 004515 1033 TAD SAVE 2190 004516 0127 AND P7 2191 004517 5710 JMP I TCKOUT 2192 2193 /ROUTINE TO CHECK INPUTTED CHAR IF A NUMBER! 2194 004520 0000 TCHKNR, 0 2195 004521 3033 DCA SAVE 2196 004522 1376 TAD (-60 2197 004523 1033 TAD SAVE 2198 004524 7710 SPA CLA 2199 004525 5512 JMP I TREADQ 2200 004526 1375 TAD (-72 2201 004527 1033 TAD SAVE 2202 004530 7700 SMA CLA 2203 004531 5512 JMP I TREADQ 2204 004532 1033 TAD SAVE 2205 004533 0374 AND (17 2206 004534 5720 JMP I TCHKNR 2207 2208 004535 2601 IOTAB, RKSF+1 2209 004536 2606 RKCC+1 2210 004537 2611 RKRS+1 2211 004540 2614 RKRB+1 2212 004541 2617 RTSF+1 2213 004542 2624 RTCF+1 2214 004543 2627 RTPC+1 2215 004544 2632 RTLS+1 2216 004545 0000 0 2217 004546 2637 RPSKF+3 2218 004547 2651 RPCLF+3 2219 004550 2661 RPSTB+3 2220 004551 2673 RPSIE+3 2221 004552 2705 RPCLP+3 2222 004553 0000 0 2223 004574 0017 PAGE 004575 7706 004576 7720 004577 0004 2224 2225 /TEST ADDRESS TABLE 2226 004600 0400 TAT, TEST0 2227 004601 0714 TEST1 2228 004602 1000 P04602, TEST2 2229 004603 0000 0 2230 004604 0000 P04604, 0 2231 004605 0000 0 2232 004606 0000 0 2233 004607 0000 0 2234 004610 0000 0 2235 004611 0000 0 2236 004612 0000 D04612, 0 2237 004613 0000 0 2238 004614 0000 0 2239 004615 0000 0 2240 004616 0000 0 2241 004617 0000 P04617, 0 2242 004620 1200 TEST20 2243 004621 1227 TEST21 2244 004622 1274 TEST22 2245 004623 1331 P04623, TEST23 2246 004624 1400 TEST24 2247 004625 1600 TEST25 2248 004626 2000 TEST26 2249 004627 2054 D04627, TEST27 2250 004630 2200 TEST30 2251 004631 2212 TEST31 2252 004632 7777 -1 2253 004633 0000 0 2254 004634 0000 0 2255 004635 0000 0 2256 004636 0000 0 2257 004637 0000 0 2258 004640 0000 P04640, 0 2259 004641 0000 0 2260 004642 0000 0 2261 004643 0000 0 2262 004644 0000 0 2263 004645 0000 0 2264 004646 0000 D04646, 0 2265 004647 0000 0 2266 004650 0000 0 2267 004651 0000 0 2268 004652 0000 0 2269 004653 0000 D04653, 0 2270 004654 0000 0 2271 004655 0000 P04655, 0 2272 004656 0000 0 2273 004657 0000 0 2274 004660 2246 TEST60 2275 004661 2400 TEST61 2276 004662 2450 TEST62 2277 004663 2477 TEST63 2278 004664 0000 0 2279 004665 0000 0 2280 004666 0000 0 2281 004667 0000 0 2282 004670 0000 0 2283 004671 0000 0 2284 004672 0000 0 2285 004673 0000 0 2286 004674 0000 D04674, 0 2287 004675 0000 0 2288 004676 0000 P04676, 0 2289 004677 0000 0 2290 004700 5476 EMAT, ERR1 2291 004701 5511 P04701, ERR2 2292 004702 5527 ERR3 2293 004703 5546 ERR4 2294 004704 5561 ERR5 2295 004705 5602 ERR6 2296 004706 5617 ERR7 2297 004707 5640 ERR10 2298 004710 5655 ERR11 2299 004711 5676 P04711, ERR12 2300 004712 5711 ERR13 2301 004713 5733 ERR14 2302 004714 5755 P04714, ERR15 2303 004715 5777 L04715, ERR16 2304 004716 5315 HEADER, TEXT '+MAINDEC-08-DILAC-B+LA180 PRINTER DIAGNOSTIC+;' 004717 0111 004720 1604 004721 0503 004722 5560 004723 7055 004724 0411 004725 1401 004726 0355 004727 0253 004730 1401 004731 6170 004732 6040 004733 2022 004734 1116 004735 2405 004736 2240 004737 0411 004740 0107 004741 1617 004742 2324 004743 1103 004744 5373 004745 0000 2305 004746 5343 COLUMN, TEXT '+# COLUMNS = ' 004747 4003 004750 1714 004751 2515 004752 1623 004753 4075 004754 4000 2306 004755 5323 SELTST, TEXT '+SELECT TEST # ' 004756 0514 004757 0503 004760 2440 004761 2405 004762 2324 004763 4043 004764 4040 004765 0000 2307 004766 5323 DSMSG1, TEXT /+SWR = / 004767 2722 004770 4075 004771 4000 2308 004772 4040 DSMSG2, TEXT / NEW = / 004773 4016 004774 0527 004775 4075 004776 4000 2309 004777 2701 WTMSG, TEXT /WAITING, TYPE SPACE TO CONTINUE+/ 005000 1124 005001 1116 005002 0754 005003 4024 005004 3120 005005 0540 005006 2320 005007 0103 005010 0540 005011 2417 005012 4003 005013 1716 005014 2411 005015 1625 005016 0553 005017 0000 2310 005020 7373 TSTNO, TEXT ';;TEST NUMBER ' 005021 2405 005022 2324 005023 4016 005024 2515 005025 0205 005026 2240 005027 4000 2311 005030 4040 COLMN, TEXT ' COLUMNS;' 005031 0317 005032 1425 005033 1516 005034 2373 005035 0000 2312 005036 5324 ETSTNO, TEXT '+TEST # ' 005037 0523 005040 2440 005041 4340 005042 0000 2313 005043 5440 PCMSG, TEXT ', PC=' 005044 4020 005045 0375 005046 0000 2314 005047 5440 ERR, TEXT ', ERROR #' 005050 4005 005051 2222 005052 1722 005053 4043 005054 0000 2315 005055 5440 ERRS, TEXT ', ' 005056 4000 2316 005057 7305 PASMSG, TEXT ';END OF PASS #' 005060 1604 005061 4017 005062 0640 005063 2001 005064 2323 005065 4040 005066 4300 2317 005067 2022 T2M1, TEXT 'PRINT SPEED MANUAL TIMING+' 005070 1116 005071 2440 005072 2320 005073 0505 005074 0440 005075 1501 005076 1625 005077 0114 005100 4024 005101 1115 005102 1116 005103 0753 005104 0000 2318 005105 2025 T2M2, TEXT 'PUT SWITCH 4 UP TO START TIMING+' 005106 2440 005107 2327 005110 1124 005111 0310 005112 4064 005113 4025 005114 2040 005115 2417 005116 4023 005117 2401 005120 2224 005121 4024 005122 1115 005123 1116 005124 0753 005125 0000 2319 005126 2025 T2M3, TEXT 'PUT SWITCH 4 DOWN AT END OF 1 MINUTE+' 005127 2440 005130 2327 005131 1124 005132 0310 005133 4064 005134 4004 005135 1727 005136 1640 005137 0124 005140 4005 005141 1604 005142 4017 005143 0640 005144 6140 005145 1511 005146 1625 005147 2405 005150 5300 2320 005151 1617 T2EM, TEXT /NO METHOD OF TIMING AVAILABLE+/ 005152 4015 005153 0524 005154 1017 005155 0440 005156 1706 005157 4024 005160 1115 005161 1116 005162 0740 005163 0126 005164 0111 005165 1401 005166 0214 005167 0553 005170 0000 2321 005171 5320 PRSP1, TEXT '+PRINT SPEED IS ' 005172 2211 005173 1624 005174 4023 005175 2005 005176 0504 005177 4011 005200 2340 005201 0000 2322 005202 0120 PRSP2, TEXT 'APPROX ' 005203 2022 005204 1730 005205 4000 2323 005206 4040 PRSP3, TEXT ' LINES/MINUTE , WITH ' 005207 1411 005210 1605 005211 2357 005212 1511 005213 1625 005214 2405 005215 4054 005216 4027 005217 1124 005220 1040 005221 0000 2324 005222 4040 PRSP4, TEXT ' CHARS/LINE+' 005223 0310 005224 0122 005225 2357 005226 1411 005227 1605 005230 5300 2325 005231 7316 NCMSG, TEXT ';NO CONSOLE TERMINAL;' 005232 1740 005233 0317 005234 1623 005235 1714 005236 0540 005237 2405 005240 2215 005241 1116 005242 0114 005243 7300 2326 005244 0310 TCHAR, TEXT 'CHAR = ' 005245 0122 005246 4075 005247 4000 2327 005250 2425 T0MSG0, TEXT /TURN POWER OFF & SET OFF LINE+/ 005251 2216 005252 4020 005253 1727 005254 0522 005255 4017 005256 0606 005257 4046 005260 4023 005261 0524 005262 4017 005263 0606 005264 4014 005265 1116 005266 0553 005267 0000 2328 005270 1713 T0MSG1, TEXT /OK, TURN POWER ON+/ 005271 5440 005272 2425 005273 2216 005274 4020 005275 1727 005276 0522 005277 4017 005300 1653 005301 0000 2329 005302 1713 T0MSG2, TEXT /OK, SET PRINTER TO ON-LINE+/ 005303 5440 005304 2305 005305 2440 005306 2022 005307 1116 005310 2405 005311 2240 005312 2417 005313 4017 005314 1655 005315 1411 005316 1605 005317 5300 2330 005320 1713 T0MSG3, TEXT /OK, TRY PAPER OUT SWITCH+/ 005321 5440 005322 2422 005323 3140 005324 2001 005325 2005 005326 2240 005327 1725 005330 2440 005331 2327 005332 1124 005333 0310 005334 5300 2331 005335 1713 T0MSG4, TEXT /OK, RESTORE PRINTER TO ON-LINE+/ 005336 5440 005337 2205 005340 2324 005341 1722 005342 0540 005343 2022 005344 1116 005345 2405 005346 2240 005347 2417 005350 4017 005351 1655 005352 1411 005353 1605 005354 5300 2332 005355 5555 T1MSG1, TEXT '----- ' 005356 5555 005357 5540 005360 0000 2333 005361 4011 T1MSG2, TEXT ' INCH FORM FEED -----:' 005362 1603 005363 1040 005364 0617 005365 2215 005366 4006 005367 0505 005370 0440 005371 5555 005372 5555 005373 5572 005374 0000 2334 005375 2305 T1MSG3, TEXT 'SET FORM FEED SWITCH TO ' 005376 2440 005377 0617 005400 2215 005401 4006 005402 0505 005403 0440 005404 2327 005405 1124 005406 0310 005407 4024 005410 1740 005411 4000 2335 005412 4040 T1MSG4, TEXT ' INCHES & DEPRESS TOF RESET SWITCH+' 005413 1116 005414 0310 005415 0523 005416 4046 005417 4004 005420 0520 005421 2205 005422 2323 005423 4024 005424 1706 005425 4022 005426 0523 005427 0524 005430 4023 005431 2711 005432 2403 005433 1053 005434 0000 2336 005435 4040 CNVMSG, TEXT / / 005436 4000 2337 005437 7200 CR, TEXT ':' 2338 005440 7300 LF, TEXT ';' 2339 005441 5300 CRLF, TEXT '+' 2340 005442 4100 FF, TEXT '!' 2341 005443 5377 QUES, TEXT '+?+' 005444 5300 2342 005445 3625 CNTLU, TEXT '^U+' 005446 5300 2343 005447 4063 T1TAB, TEXT ' 3 ' 005450 4000 2344 005451 6356 TEXT '3.5' 005452 6500 2345 005453 4064 TEXT ' 4 ' 005454 4000 2346 005455 6556 TEXT '5.5' 005456 6500 2347 005457 4066 TEXT ' 6 ' 005460 4000 2348 005461 4067 TEXT ' 7 ' 005462 4000 2349 005463 4070 TEXT ' 8 ' 005464 4000 2350 005465 7056 TEXT '8.5' 005466 6500 2351 005467 6161 TEXT '11 ' 005470 4000 2352 005471 6162 TEXT '12 ' 005472 4000 2353 005473 6164 TEXT '14 ' 005474 4000 2354 005475 0000 0 2355 005476 2205 ERR1, TEXT /READY SET, POWER OFF/ 005477 0104 005500 3140 005501 2305 005502 2454 005503 4020 005504 1727 005505 0522 005506 4017 005507 0606 005510 0000 2356 005511 2205 ERR2, TEXT /READY SET, PRINTER OFF LINE/ 005512 0104 005513 3140 005514 2305 005515 2454 005516 4020 005517 2211 005520 1624 005521 0522 005522 4017 005523 0606 005524 4014 005525 1116 005526 0500 2357 005527 2205 ERR3, TEXT /READY CLEAR, PRINTER ON LINE/ 005530 0104 005531 3140 005532 0314 005533 0501 005534 2254 005535 4020 005536 2211 005537 1624 005540 0522 005541 4017 005542 1640 005543 1411 005544 1605 005545 0000 2358 005546 2205 ERR4, TEXT /READY SET, PAPER OUT/ 005547 0104 005550 3140 005551 2305 005552 2454 005553 4020 005554 0120 005555 0522 005556 4017 005557 2524 005560 0000 2359 005561 2205 ERR5, TEXT /READY NOT SET AFTER ERROR CLEARED/ 005562 0104 005563 3140 005564 1617 005565 2440 005566 2305 005567 2440 005570 0106 005571 2405 005572 2240 005573 0522 005574 2217 005575 2240 005576 0314 005577 0501 005600 2205 005601 0400 2360 005602 2003 ERR6, TEXT /PCLF DID NOT CLEAR READY/ 005603 1406 005604 4004 005605 1104 005606 4016 005607 1724 005610 4003 005611 1405 005612 0122 005613 4022 005614 0501 005615 0431 005616 0000 2361 005617 2205 ERR7, TEXT /READY DID NOT SET AFTER CHAR LOAD/ 005620 0104 005621 3140 005622 0411 005623 0440 005624 1617 005625 2440 005626 2305 005627 2440 005630 0106 005631 2405 005632 2240 005633 0310 005634 0122 005635 4014 005636 1701 005637 0400 2362 005640 2003 ERR10, TEXT /PCLP DID NOT CLEAR READY/ 005641 1420 005642 4004 005643 1104 005644 4016 005645 1724 005646 4003 005647 1405 005650 0122 005651 4022 005652 0501 005653 0431 005654 0000 2363 005655 2205 ERR11, TEXT /READY DID NOT SET AFTER CHAR LOAD/ 005656 0104 005657 3140 005660 0411 005661 0440 005662 1617 005663 2440 005664 2305 005665 2440 005666 0106 005667 2405 005670 2240 005671 0310 005672 0122 005673 4014 005674 1701 005675 0400 2364 005676 2516 ERR12, TEXT /UNEXPECTED INTERRUPT/ 005677 0530 005700 2005 005701 0324 005702 0504 005703 4011 005704 1624 005705 0522 005706 2225 005707 2024 005710 0000 2365 005711 1116 ERR13, TEXT /INTER - READY CLEAR, ENABLED & ION/ 005712 2405 005713 2240 005714 5540 005715 2205 005716 0104 005717 3140 005720 0314 005721 0501 005722 2254 005723 4005 005724 1601 005725 0214 005726 0504 005727 4046 005730 4011 005731 1716 005732 0000 2366 005733 1617 ERR14, TEXT /NO INTER - READY SET, ENABLED & ION/ 005734 4011 005735 1624 005736 0522 005737 4055 005740 4022 005741 0501 005742 0431 005743 4023 005744 0524 005745 5440 005746 0516 005747 0102 005750 1405 005751 0440 005752 4640 005753 1117 005754 1600 2367 005755 1116 ERR15, TEXT /INTER - READY SET, ENABLED BUT IOF/ 005756 2405 005757 2240 005760 5540 005761 2205 005762 0104 005763 3140 005764 2305 005765 2454 005766 4005 005767 1601 005770 0214 005771 0504 005772 4002 005773 2524 005774 4011 005775 1706 005776 0000 2368 005777 2022 ERR16, TEXT /PRINTER NOT READY/ 006000 1116 006001 2405 006002 2240 006003 1617 006004 2440 006005 2205 006006 0104 006007 3100 2369 $ AUTPTR 0010 CHAR 0031 CHAR2 0032 CHECK 4464 CHKNR 0114 CHKOCT 0113 CKCNT 0037 CKEXIT 3013 CKFLAG 0054 CKSRV 3000 CKSTOP 3015 CLDI 6132 CLEI 6131 CLSK 6133 CNTLU 5445 CNVMSG 5435 CNVNM 3761 CNVRT 3713 COLMN 5030 COLUMN 4746 CONTRL 0217 COUNT 0034 COUNT2 0035 CR 5437 CRLF 5441 D00405 0405 unreferenced D01601 1601 unreferenced D01725 1725 unreferenced D04612 4612 unreferenced D04627 4627 unreferenced D04646 4646 unreferenced D04653 4653 unreferenced D04674 4674 unreferenced DBCE 6576 DBCF 6573 unreferenced DBRD 6572 unreferenced DBSE 6575 DBSK 6571 unreferenced DBSS 6577 DBST 6570 DBTD 6574 DELAY 0333 DELAY0 0345 DELAY1 0346 DSMSG1 4766 DSMSG2 4772 EMAT 4700 ERR 5047 unreferenced ERR1 5476 ERR10 5640 ERR11 5655 ERR12 5676 ERR13 5711 ERR14 5733 ERR15 5755 ERR16 5777 ERR2 5511 ERR3 5527 ERR4 5546 ERR5 5561 ERR6 5602 ERR7 5617 ERRNM 0024 ERROR 4463 ERRPC 0025 ERRS 5055 ETSTNO 5036 EXIT 5465 EXIT1 3036 EXIT2 3047 EXIT3 3037 FF 5442 GETSW 4521 GOUT 0115 HDRX 4326 HEADER 4716 HOLD 4457 HOLDCH 3141 HUNDS 0046 IERROR 0347 IERRT 3650 INFLAG 3326 IOTAB 4535 IOTSEL 0030 ISAVE 3016 ISRV 0002 KBTAB 3400 KFA 3313 KFB 3221 KFC 3246 KFD 3262 KFE 3276 KFF 3232 KYBDA 3433 KYBDAA 3422 KYBDB 3447 KYBDC 3324 KYBDF 3200 KYBDST 3405 L00231 0231 unreferenced L03721 3721 unreferenced L03726 3726 unreferenced L04715 4715 unreferenced LF 5440 LIERR 0125 LOAD 4456 LPCNT 0036 LREADT 0124 LT0Q 0573 M1 0153 M100 0172 M12 0160 M144 0173 M15 0161 M177 0174 M2 0154 M20 0162 M23 0163 M25 0164 M3 0155 M30 0165 M35 0166 M36 0167 M4 0156 M40 0170 M56 0171 M7 0157 MIOT 2716 MIOTA 2731 MIOTB 2730 MIOTC 2750 MLOAD 4460 MSGADR 0043 MSGPTR 3762 NCMSG 5231 OCTSAV 3712 ONES 0044 OP1CHK 3142 OP1CLF 2653 OPDBST 2643 OPLOD1 2663 OPLOD2 2707 OPSCIE 2675 OUT 4022 OUTCHR 4053 OUTCL 4044 OUTLF 4051 P03303 3303 unreferenced P04602 4602 unreferenced P04604 4604 unreferenced P04617 4617 unreferenced P04623 4623 unreferenced P04640 4640 unreferenced P04655 4655 unreferenced P04676 4676 unreferenced P04701 4701 unreferenced P04711 4711 unreferenced P04714 4714 unreferenced P10 0130 P100 0143 P1000 0152 P12 0131 P134 0144 P15 0132 P177 0145 P2 0126 P200 0146 P204 0147 P36 0133 P377 0150 P40 0134 P400 0151 P41 0135 P55 0136 P57 0137 P60 0140 P7 0127 P72 0141 P77 0142 PARAM 0021 PASCNT 0040 PASMSG 5057 PCLF 6662 PCLP 6666 PCMSG 5043 PDIGIT 0122 POCT 3665 PRINT 4461 PRSP1 5171 PRSP2 5202 PRSP3 5206 PRSP4 5222 PRT 4216 PRTCHR 4260 PRTCL 4254 PRTCR 4251 PRTFF 4246 PRTHDR 4462 PRTLF 4257 PSIE 6665 PSKF 6661 PSTB 6664 PTRIOT 0027 QUES 5443 RCHECK 3107 READ 0111 READ0 4401 READ1 4403 READ2 4407 READD 4457 READQ 4451 READT 4504 READU 4454 RERROR 3600 RESTRT 0213 REXIT 3017 RFLAG 4503 RGETSW 0322 RHOLD 3123 RHOLDA 3136 RKCC 2605 RKRB 2613 RKRS 2610 RKSF 2600 RLA 4062 unreferenced RLB 4066 RLC 4075 RLDC 4103 RLDCC 4104 RLOAD 4060 RMLOAD 4105 RP1 4205 RPCLF 2646 RPCLP 2702 RPDIGT 3660 RPRHDR 4262 RPRINT 4200 RPSIE 2670 RPSKF 2634 RPSTB 2656 RSAVE 3645 RT1 4011 RT2 4005 RTCF 2623 RTLS 2631 RTPC 2626 RTSF 2616 RTYPE 4000 SAVE 0033 SAVEAC 3156 SELECT 3054 SELTST 4755 SETSKP 1540 START 0210 START2 0241 START5 0274 START7 0306 START8 0303 START9 0277 STARTB 0266 STARTX 0221 STRONE 0050 SVTST 4331 SWITCH 0020 T0AA 0415 T0AB 0420 T0AC 0403 T0B 0432 T0C 0435 T0E 0456 T0F 0461 T0H 0472 T0I 0475 T0K 0510 T0L 0517 T0M 0532 T0MIOT 0536 T0MSG0 5250 T0MSG1 5270 T0MSG2 5302 T0MSG3 5320 T0MSG4 5335 T0N 0543 T0O 0552 T0P 0570 T0Q 0600 T0R 0620 T0S 0625 T0U 0660 T0V 0707 T0W 0656 T1A 0725 T1MSG1 5355 T1MSG2 5361 T1MSG3 5375 T1MSG4 5412 T1TAB 5447 T20A 1203 T20B 1211 T20C 1216 T20D 1222 T21B 1232 T21C 1243 T21D 1247 T21W 1273 T22A 1277 T22B 1307 T22C 1324 T23A 1334 T24A 1410 T24B 1415 T24C 1417 T24D 1431 T24E 1446 T24F 1466 unreferenced T24G 1476 T24H 1403 T24S 1477 T24SA 1505 T24SB 1512 T24SC 1504 T25A 1630 T25B 1665 T25C 1701 T25D 1702 T25E 1715 T25F 1727 T25G 1740 T25S 1745 T26A 2003 T26B 2005 T26C 2007 T26D 2037 T26TAB 2047 T27A 2057 T27B 2075 T27C 2107 T27D 2115 T27DA 2122 T27E 2123 T27TAB 2142 T27X 2137 T2A 1015 T2B 1023 T2C 1030 T2EM 5151 T2M1 5067 T2M2 5105 T2M3 5126 T2PA 1047 T2PC 1053 T2PD 1070 T2PE 1102 T2S1 1132 T2SP 1044 T2SPD 1114 T2SPDC 1110 T30A 2203 T30M 2210 T31M1 2240 T31M2 2243 T60A 2250 T60B 2253 T60C 2263 T61A 2402 T61B 2404 T61C 2425 T61D 2430 T61E 2436 T61F 2445 T62A 2462 unreferenced T62B 2470 T63A 2516 unreferenced T63B 2507 T63C 2526 unreferenced T63D 2532 unreferenced T63E 2536 TABPTR 0041 TAT 4600 TCHAR 5244 TCHECK 0064 TCHKNR 4520 TCKOUT 4510 TCKSRV 0120 TCNVRT 0117 TDELAY 0116 TENS 0045 TERR 2541 TERROR 0063 TEST0 0400 TEST1 0714 TEST2 1000 TEST20 1200 TEST21 1227 TEST22 1274 TEST23 1331 TEST24 1400 TEST25 1600 TEST26 2000 TEST27 2054 TEST30 2200 TEST31 2212 TEST60 2246 TEST61 2400 TEST62 2450 TEST63 2477 TEXIT 0065 TGETSW 0121 THOLD 0057 THOUS 0047 TKBDST 0066 TKBFG 0107 TKCC 0073 TKRB 0075 TKRS 0074 unreferenced TKSF 0072 TLOAD 0056 TLOOP 0052 TMIOT 0071 TMLOAD 0060 TPCLF 0103 TPCLP 0106 TPFLG 0053 TPOCT 0123 TPRHDR 0062 TPRINT 0061 TPSIE 0105 TPSKF 0102 TPSTS 0104 TREAD 4400 TREADQ 0112 TRONE 0051 TSEL 3465 TSEL1 3542 TSEL2 3552 TSELCT 0067 TSELX 3555 TSTNM 0023 TSTNO 5020 TSTPTR 0042 TTAT 0070 TTCF 0077 TTLS 0101 TTPC 0100 unreferenced TTSEL 0110 TTSF 0076 TTYIN 3325 TTYPE 0055 TYPE 4455 WIDTH 0026 WTMSG 4777