1 /1 ANALEX LINE PRINTER HANDLER 2 / 3 / 4 / 5 / 6 / 7 / 8 / 9 / 10 / 11 /COPYRIGHT (C) 1974,1975 BY DIGITAL EQUIPMENT CORPORATION 12 / 13 / 14 / 15 / 16 / 17 / 18 / 19 / 20 / 21 / 22 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 23 /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 24 /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 25 /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 26 / 27 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 28 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 29 /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 30 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 31 / 32 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 33 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 34 /DIGITAL. 35 / 36 / 37 / 38 / 39 / 40 / 41 / 42 / 43 / 44 / 45 *0 46 000000 7777 -1 47 000001 1466 DEVICE L645;DEVICE LPT;1040;0;ZBLOCK 2 000002 6465 000003 1420 000004 2400 000005 1040 000006 0000 000007 0000 000010 0000 48 49 /V3 FIXES: 50 51 /1. ADDED VERSION NUMBER 52 /2. ADDED PARITY ^C 53 /3. ALLOWED ^C TO WORK EVEN IF LPT OFF 54 / S.R. 55 56 LPTVERSION="A&77 57 58 *200 59 /LINE PRINTER HANDLER FOR "OLD STYLE" LINE PRINTER 60 /RECOGNIZES TAB,LINE FEED,VERTICAL TAB AND FORM FEED 61 /IGNORES CARRIAGE RETURNS, TREATS ^N AS "CARRIAGE RETURN 62 / WITHOUT LINE FEED" CONTROL CHARACTER. 63 LSE=6651 64 LCF=6652 65 LLB=6654 66 LSD=6661 67 LCB=6662 68 LPR=6664 69 000200 0001 LPT, LPTVERSION 70 000201 7700 LP7700, 7700 71 000202 0011 LPT11, 11 /FALLS THROUGH HARMLESSLY, CLEARING THE AC 72 000203 6214 LPT214, RDF 73 000204 1343 TAD LPTCIF 74 000205 3265 DCA LPTXIT 75 000206 1600 TAD I LPT 76 000207 0365 AND LPT70 77 000210 1375 TAD LP6201 78 000211 3235 DCA LPTCDF 79 000212 7330 CLA CLL CML RAR 80 000213 1600 TAD I LPT /LINK IS NOW 1 IF COMMAND WAS A "WRITE" 81 000214 0201 AND LP7700 82 000215 7040 CMA 83 000216 3267 DCA LPTWC /LPTWC=WORD COUNT/2 84 000217 2200 ISZ LPT 85 000220 1600 TAD I LPT 86 000221 3270 DCA LPTCA 87 000222 2200 ISZ LPT 88 000223 1600 TAD I LPT 89 000224 2200 ISZ LPT 90 000225 7420 SNL 91 000226 5362 JMP LPTERR 92 000227 7640 SZA CLA 93 000230 5235 JMP LPTCDF 94 000231 6662 LCB 95 000232 4312 JMS LPWAIT 96 000233 1203 TAD LPT214 97 000234 4271 JMS LPTPCH /FORM FEED, INITIALIZES COUNT 98 000235 7402 LPTCDF, HLT 99 000236 5261 JMP LPT7 100 000237 1670 LPTLP, TAD I LPTCA 101 000240 4271 JMS LPTPCH 102 000241 1670 TAD I LPTCA 103 000242 0245 AND LP7400 104 000243 3376 DCA LPTTMP 105 000244 2270 ISZ LPTCA 106 000245 7400 LP7400, 7400 107 000246 1670 TAD I LPTCA 108 000247 4271 JMS LPTPCH 109 000250 1670 TAD I LPTCA 110 000251 0245 AND LP7400 111 000252 7112 CLL RTR 112 000253 7012 RTR 113 000254 1376 TAD LPTTMP 114 000255 7012 RTR 115 000256 7012 RTR 116 000257 4271 JMS LPTPCH 117 000260 2270 ISZ LPTCA 118 000261 0007 LPT7, 7 119 000262 2267 ISZ LPTWC 120 000263 5237 JMP LPTLP 121 000264 2200 LPTRTN, ISZ LPT 122 000265 7402 LPTXIT, HLT 123 000266 5600 JMP I LPT 124 000267 0000 LPTWC, 0 125 000270 0000 LPTCA, 0 126 000271 0000 LPTPCH, 0 127 000272 0367 AND LPT177 128 000273 7440 SZA 129 000274 1357 TAD LPM140 130 000275 7500 SMA 131 000276 5671 JMP I LPTPCH 132 000277 1373 TAD LPT106 133 000300 7450 SNA 134 000301 5346 JMP LPTCTZ 135 000302 1366 TAD LPT13 136 000303 7100 CLL 137 000304 1351 TAD LPT6 138 000305 7470 SZL SNA 139 000306 5321 JMP LPTCTL 140 000307 1202 TAD LPT11 141 000310 6654 LLB 142 000311 5333 JMP LPTKSF 143 000312 7777 LPWAIT, -1 144 000313 6661 WEIGHT, LSD 145 000314 5335 JMP NOTDON 146 000315 6652 LCF 147 000316 2377 ISZ LPLPTR 148 000317 5712 JMP I LPWAIT 149 000320 7201 CLA IAC 150 000321 7450 LPTCTL, SNA 151 000322 5352 JMP LPTTAB 152 000323 1364 TAD LPTTAD 153 000324 3327 DCA LPTXXX 154 000325 1374 TAD LP7607 155 000326 3377 DCA LPLPTR 156 000327 7402 LPTXXX, HLT 157 000330 7450 SNA 158 000331 5334 JMP .+3 159 000332 6664 LPR 160 000333 4312 LPTKSF, JMS LPWAIT 161 000334 5671 JMP I LPTPCH 162 000335 6034 NOTDON, KRS 163 000336 0367 AND LPT177 164 000337 1372 TAD LPM3 165 000340 7650 SNA CLA 166 000341 6031 KSF 167 000342 5313 JMP WEIGHT 168 000343 6203 LPTCIF, CDF CIF 0 169 000344 5745 JMP I .+1 170 000345 7600 7600 171 000346 1203 LPTCTZ, TAD LPT214 172 000347 4271 JMS LPTPCH 173 000350 5264 JMP LPTRTN 174 000351 0006 LPT6, 6 175 000352 1371 LPTTAB, TAD LPT40 176 000353 6654 LLB 177 000354 4312 JMS LPWAIT 178 000355 1377 TAD LPLPTR 179 000356 0261 AND LPT7 180 000357 7640 LPM140, SZA CLA 181 000360 5352 JMP LPTTAB 182 000361 5671 JMP I LPTPCH 183 000362 7330 LPTERR, CLA CLL CML RAR 184 000363 5265 JMP LPTXIT 185 000364 1364 LPTTAD, TAD . 186 000365 0070 LPT70, 70 /LF 187 000366 0013 LPT13, 13 /VT 188 000367 0177 LPT177, 177 /FF 189 000370 0000 0 /CR 190 000371 0040 LPT40, 40 /CR, NO LF 191 000372 7775 LPM3, -3 192 000373 0106 LPT106, 106 193 000374 7607 LP7607, 7607 194 000375 6201 LP6201, CDF 0 195 000376 0000 LPTTMP, 0 196 000377 0000 LPLPTR, 0 197 $ LCB 6662 LCF 6652 LLB 6654 LP6201 0375 LP7400 0245 LP7607 0374 LP7700 0201 LPLPTR 0377 LPM140 0357 LPM3 0372 LPR 6664 LPT 0200 LPT106 0373 LPT11 0202 LPT13 0366 LPT177 0367 LPT214 0203 LPT40 0371 LPT6 0351 LPT7 0261 LPT70 0365 LPTCA 0270 LPTCDF 0235 LPTCIF 0343 LPTCTL 0321 LPTCTZ 0346 LPTERR 0362 LPTKSF 0333 LPTLP 0237 LPTPCH 0271 LPTRTN 0264 LPTTAB 0352 LPTTAD 0364 LPTTMP 0376 LPTVER 0001 LPTWC 0267 LPTXIT 0265 LPTXXX 0327 LPWAIT 0312 LSD 6661 LSE 6651 unreferenced NOTDON 0335 WEIGHT 0313