software: Added more and more
[pdp8.git] / sw / os8 / v3d / sources / system / dectapes / dectape3 / L645.PA
CommitLineData
7af5ad59
PH
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 -1
47DEVICE L645;DEVICE LPT;1040;0;ZBLOCK 2
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
69LPT, LPTVERSION
70LP7700, 7700
71LPT11, 11 /FALLS THROUGH HARMLESSLY, CLEARING THE AC
72LPT214, RDF
73 TAD LPTCIF
74 DCA LPTXIT
75 TAD I LPT
76 AND LPT70
77 TAD LP6201
78 DCA LPTCDF
79 CLA CLL CML RAR
80 TAD I LPT /LINK IS NOW 1 IF COMMAND WAS A "WRITE"
81 AND LP7700
82 CMA
83 DCA LPTWC /LPTWC=WORD COUNT/2
84 ISZ LPT
85 TAD I LPT
86 DCA LPTCA
87 ISZ LPT
88 TAD I LPT
89 ISZ LPT
90 SNL
91 JMP LPTERR
92 SZA CLA
93 JMP LPTCDF
94 LCB
95 JMS LPWAIT
96 TAD LPT214
97 JMS LPTPCH /FORM FEED, INITIALIZES COUNT
98LPTCDF, HLT
99 JMP LPT7
100LPTLP, TAD I LPTCA
101 JMS LPTPCH
102 TAD I LPTCA
103 AND LP7400
104 DCA LPTTMP
105 ISZ LPTCA
106LP7400, 7400
107 TAD I LPTCA
108 JMS LPTPCH
109 TAD I LPTCA
110 AND LP7400
111 CLL RTR
112 RTR
113 TAD LPTTMP
114 RTR
115 RTR
116 JMS LPTPCH
117 ISZ LPTCA
118LPT7, 7
119 ISZ LPTWC
120 JMP LPTLP
121LPTRTN, ISZ LPT
122LPTXIT, HLT
123 JMP I LPT
124LPTWC, 0
125LPTCA, 0
126LPTPCH, 0
127 AND LPT177
128 SZA
129 TAD LPM140
130 SMA
131 JMP I LPTPCH
132 TAD LPT106
133 SNA
134 JMP LPTCTZ
135 TAD LPT13
136 CLL
137 TAD LPT6
138 SZL SNA
139 JMP LPTCTL
140 TAD LPT11
141 LLB
142 JMP LPTKSF
143LPWAIT, -1
144WEIGHT, LSD
145 JMP NOTDON
146 LCF
147 ISZ LPLPTR
148 JMP I LPWAIT
149 CLA IAC
150LPTCTL, SNA
151 JMP LPTTAB
152 TAD LPTTAD
153 DCA LPTXXX
154 TAD LP7607
155 DCA LPLPTR
156LPTXXX, HLT
157 SNA
158 JMP .+3
159 LPR
160LPTKSF, JMS LPWAIT
161 JMP I LPTPCH
162NOTDON, KRS
163 AND LPT177
164 TAD LPM3
165 SNA CLA
166 KSF
167 JMP WEIGHT
168LPTCIF, CDF CIF 0
169 JMP I .+1
170 7600
171LPTCTZ, TAD LPT214
172 JMS LPTPCH
173 JMP LPTRTN
174LPT6, 6
175LPTTAB, TAD LPT40
176 LLB
177 JMS LPWAIT
178 TAD LPLPTR
179 AND LPT7
180LPM140, SZA CLA
181 JMP LPTTAB
182 JMP I LPTPCH
183LPTERR, CLA CLL CML RAR
184 JMP LPTXIT
185LPTTAD, TAD .
186LPT70, 70 /LF
187LPT13, 13 /VT
188LPT177, 177 /FF
189 0 /CR
190LPT40, 40 /CR, NO LF
191LPM3, -3
192LPT106, 106
193LP7607, 7607
194LP6201, CDF 0
195LPTTMP, 0
196LPLPTR, 0
197 $
198\f