1 ADDR=20 /20 punch, 40 teletype 2 TPLS=6006 ADDR 3 TPSF=6001 ADDR 4 / tape labeler SA=200, core=200-734 5 / by John Wilson 05-Jan-85 6 / Modifications to font by David Gesswein 13-April-14 7 / echo typed input on high-speed punch 8 *200 9 000200 6031 LOOP1, KSF /wait for input 10 000201 5200 JMP .-1 11 000202 6036 KRB /get it 12 000203 0245 AND P0177 13 000204 3247 DCA TEMP 14 000205 1247 TAD TEMP 15 000206 1246 TAD M0141 16 000207 7510 SPA 17 000210 5215 JMP UPPER 18 000211 7200 CLA 19 000212 1244 TAD M0040 /convert to lower case 20 000213 1247 TAD TEMP 21 000214 3247 DCA TEMP 22 000215 7200 UPPER, CLA 23 000216 1247 TAD TEMP 24 000217 1244 TAD M0040 /convert space::backarrow to 00::77 25 000220 3247 DCA TEMP /save 26 000221 1247 TAD TEMP /get it back again 27 000222 7106 CLL RTL /*4 28 000223 7000 NOP /(bug fix, replacing 7006/RTL) 29 000224 1247 TAD TEMP /*5 30 000225 1252 TAD BASEM1 /add table base -1 31 000226 3010 DCA 10 /save in auto-index loc 32 000227 1250 TAD M0005 /init count to -(# of columns), clear AC 33 000230 3251 DCA COUNT 34 000231 1410 LOOP2, TAD I 10 /get next column (auto-index) 35 000232 6026 TPLS /punch it 36 000233 6021 TPSF /spin until done 37 000234 5233 JMP .-1 38 000235 7200 CLA /AC=0 for next time 39 000236 2251 ISZ COUNT /done all columns? 40 000237 5231 JMP LOOP2 /loop if not 41 000240 6026 TPLS /punch one more column of zeros 42 000241 6021 TPSF /spin until done 43 000242 5241 JMP .-1 44 000243 5200 JMP LOOP1 /back around for next char 45 / data (besides location 10) 46 000244 7740 M0040, -40 /-40 (offset from blank to 00) 47 000245 0177 P0177, 177 48 000246 7637 M0141, -141 /(a) 49 000247 0000 TEMP, 0 /temp for computing index into table 50 000250 7773 M0005, 7773 /-5 (- # columns per char) 51 000251 0000 COUNT, 0 /column counter 52 000252 0252 BASEM1, . /base of table, -1 53 DECIMAL 54 000253 0000 0;0;0;0;0 /SPACE 000254 0000 000255 0000 000256 0000 000257 0000 55 000260 0000 0;0;223;223;0 /! 000261 0000 000262 0337 000263 0337 000264 0000 56 000265 0000 0;7;0;7;0 /" 000266 0007 000267 0000 000270 0007 000271 0000 57 000272 0050 40;255;40;255;40 /# 000273 0377 000274 0050 000275 0377 000276 0050 58 000277 0206 134;137;255;137;113 /$ 000300 0211 000301 0377 000302 0211 000303 0161 59 000304 0203 131;99;24;198;193 /% 000305 0143 000306 0030 000307 0306 000310 0301 60 000311 0154 108;146;172;64;160 /& 000312 0222 000313 0254 000314 0100 000315 0240 61 000316 0000 0;0;7;7;0 /' 000317 0000 000320 0007 000321 0007 000322 0000 62 000323 0000 0;60;66;129;0 /( 000324 0074 000325 0102 000326 0201 000327 0000 63 000330 0000 0;129;66;60;0 /) 000331 0201 000332 0102 000333 0074 000334 0000 64 000335 0124 84;56;255;56;84 /* 000336 0070 000337 0377 000340 0070 000341 0124 65 000342 0020 16;16;255;16;16 /+ 000343 0020 000344 0377 000345 0020 000346 0020 66 000347 0000 0;160;64;0;0 /, 000350 0240 000351 0100 000352 0000 000353 0000 67 000354 0020 16;16;16;16;16 /- 000355 0020 000356 0020 000357 0020 000360 0020 68 000361 0000 0;192;192;0;0 /. 000362 0300 000363 0300 000364 0000 000365 0000 69 000366 0200 128;96;24;6;1 // 000367 0140 000370 0030 000371 0006 000372 0001 70 000373 0176 126;161;137;133;126 /0 000374 0241 000375 0211 000376 0205 000377 0176 71 000400 0204 132;130;255;128;128 /1 000401 0202 000402 0377 000403 0200 000404 0200 72 000405 0302 194;161;145;137;134 /2 000406 0241 000407 0221 000410 0211 000411 0206 73 000412 0102 66;137;137;137;118 /3 000413 0211 000414 0211 000415 0211 000416 0166 74 000417 0014 12;10;137;255;136 /4 000420 0012 000421 0211 000422 0377 000423 0210 75 000424 0307 199;137;137;137;248 /5 000425 0211 000426 0211 000427 0211 000430 0370 76 000431 0176 126;137;137;137;114 /6 000432 0211 000433 0211 000434 0211 000435 0162 77 000436 0001 1;1;249;5;2 /7 000437 0001 000440 0371 000441 0005 000442 0002 78 000443 0166 118;137;137;137;118 /8 000444 0211 000445 0211 000446 0211 000447 0166 79 000450 0106 70;137;137;137;126 /9 000451 0211 000452 0211 000453 0211 000454 0176 80 000455 0000 0;96;96;0;0 /: 000456 0140 000457 0140 000460 0000 000461 0000 81 000462 0000 0;128;96;96;0 /; 000463 0200 000464 0140 000465 0140 000466 0000 82 000467 0020 16;40;68;130;0 /< 000470 0050 000471 0104 000472 0202 000473 0000 83 000474 0014 12;12;12;12;12 /= 000475 0014 000476 0014 000477 0014 000500 0014 84 000501 0202 130;68;40;16;0 /> 000502 0104 000503 0050 000504 0020 000505 0000 85 000506 0004 4;2;177;10;4 /? 000507 0002 000510 0261 000511 0012 000512 0004 86 000513 0070 56;68;154;188;152 /@ 000514 0104 000515 0232 000516 0274 000517 0230 87 000520 0376 254;9;9;9;254 /A 000521 0011 000522 0011 000523 0011 000524 0376 88 000525 0377 255;137;137;137;118 /B 000526 0211 000527 0211 000530 0211 000531 0166 89 000532 0176 126;129;129;129;129 /C 000533 0201 000534 0201 000535 0201 000536 0201 90 000537 0377 255;129;129;129;126 /D 000540 0201 000541 0201 000542 0201 000543 0176 91 000544 0377 255;137;137;137;137 /E 000545 0211 000546 0211 000547 0211 000550 0211 92 000551 0377 255;9;9;9;1 /F 000552 0011 000553 0011 000554 0011 000555 0001 93 000556 0176 126;129;129;145;243 /G 000557 0201 000560 0201 000561 0221 000562 0363 94 000563 0377 255;8;8;8;255 /H 000564 0010 000565 0010 000566 0010 000567 0377 95 000570 0201 129;129;255;129;129 /I 000571 0201 000572 0377 000573 0201 000574 0201 96 000575 0140 96;128;129;127;1 /J 000576 0200 000577 0201 000600 0177 000601 0001 97 000602 0377 255;8;20;34;193 /K 000603 0010 000604 0024 000605 0042 000606 0301 98 000607 0377 255;128;128;128;128 /L 000610 0200 000611 0200 000612 0200 000613 0200 99 000614 0377 255;2;12;2;255 /M 000615 0002 000616 0014 000617 0002 000620 0377 100 000621 0377 255;2;60;64;255 /N 000622 0002 000623 0074 000624 0100 000625 0377 101 000626 0176 126;129;129;126;0 /O 000627 0201 000630 0201 000631 0176 000632 0000 102 000633 0377 255;9;9;9;6 /P 000634 0011 000635 0011 000636 0011 000637 0006 103 000640 0174 124;129;161;65;190 /Q 000641 0201 000642 0241 000643 0101 000644 0276 104 000645 0377 255;25;41;73;134 /R 000646 0031 000647 0051 000650 0111 000651 0206 105 000652 0206 134;137;137;137;113 /S 000653 0211 000654 0211 000655 0211 000656 0161 106 000657 0001 1;1;255;1;1 /T 000660 0001 000661 0377 000662 0001 000663 0001 107 000664 0177 127;128;128;128;127 /U 000665 0200 000666 0200 000667 0200 000670 0177 108 000671 0077 63;96;192;96;63 /V 000672 0140 000673 0300 000674 0140 000675 0077 109 000676 0177 127;128;112;128;127 /W 000677 0200 000700 0160 000701 0200 000702 0177 110 000703 0303 195;36;24;36;195 /X 000704 0044 000705 0030 000706 0044 000707 0303 111 000710 0003 3;4;218;4;3 /Y 000711 0004 000712 0332 000713 0004 000714 0003 112 000715 0301 193;161;145;137;135 /Z 000716 0241 000717 0221 000720 0211 000721 0207 113 000722 0000 0;255;129;129;129 /[ 000723 0377 000724 0201 000725 0201 000726 0201 114 000727 0001 1;6;24;96;128 /\ 000730 0006 000731 0030 000732 0140 000733 0200 115 000734 0201 129;129;129;255;0 /] 000735 0201 000736 0201 000737 0377 000740 0000 116 000741 0004 4;2;255;2;4 /up arrow (^) 000742 0002 000743 0377 000744 0002 000745 0004 117 000746 0200 128;128;128;128;128 /_ 000747 0200 000750 0200 000751 0200 000752 0200 118 000753 0000 0;1;2;4;0 /` 000754 0001 000755 0002 000756 0004 000757 0000 119 120 $ ADDR 0020 BASEM1 0252 COUNT 0251 LOOP1 0200 LOOP2 0231 M0005 0250 M0040 0244 M0141 0246 P0177 0245 TEMP 0247 TPLS 6026 TPSF 6021 UPPER 0215