Commit | Line | Data |
---|---|---|
196ba1fc PH |
1 | /* sds_lp.c: SDS 940 line printer simulator\r |
2 | \r | |
3 | Copyright (c) 2001-2007, Robert M. Supnik\r | |
4 | \r | |
5 | Permission is hereby granted, free of charge, to any person obtaining a\r | |
6 | copy of this software and associated documentation files (the "Software"),\r | |
7 | to deal in the Software without restriction, including without limitation\r | |
8 | the rights to use, copy, modify, merge, publish, distribute, sublicense,\r | |
9 | and/or sell copies of the Software, and to permit persons to whom the\r | |
10 | Software is furnished to do so, subject to the following conditions:\r | |
11 | \r | |
12 | The above copyright notice and this permission notice shall be included in\r | |
13 | all copies or substantial portions of the Software.\r | |
14 | \r | |
15 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR\r | |
16 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,\r | |
17 | FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL\r | |
18 | ROBERT M SUPNIK BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER\r | |
19 | IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN\r | |
20 | CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.\r | |
21 | \r | |
22 | Except as contained in this notice, the name of Robert M Supnik shall not be\r | |
23 | used in advertising or otherwise to promote the sale, use or other dealings\r | |
24 | in this Software without prior written authorization from Robert M Supnik.\r | |
25 | \r | |
26 | lpt line printer\r | |
27 | \r | |
28 | 19-Jan-07 RMS Added UNIT_TEXT flag\r | |
29 | 25-Apr-03 RMS Revised for extended file support\r | |
30 | */\r | |
31 | \r | |
32 | #include "sds_defs.h"\r | |
33 | \r | |
34 | #define LPT_V_LN 9\r | |
35 | #define LPT_M_LN 07\r | |
36 | #define LPT_GETLN(x) (((x) >> LPT_V_LN) & LPT_M_LN)\r | |
37 | #define CHP(ch,val) ((val) & (1 << (ch))) /* CCL chan test */\r | |
38 | #define SET_XFR 1 /* set xfr */\r | |
39 | #define SET_EOR 2 /* print, set eor */\r | |
40 | #define SET_SPC 4 /* space */\r | |
41 | \r | |
42 | extern char sds_to_ascii[64];\r | |
43 | extern uint32 xfr_req;\r | |
44 | extern int32 stop_invins, stop_invdev, stop_inviop;\r | |
45 | int32 lpt_spc = 0; /* space instr */\r | |
46 | int32 lpt_sta = 0; /* timeout state */\r | |
47 | int32 lpt_bptr = 0; /* line buf ptr */\r | |
48 | int32 lpt_err = 0; /* error */\r | |
49 | int32 lpt_ccl = 1, lpt_ccp = 0; /* cctl lnt, ptr */\r | |
50 | int32 lpt_ctime = 10; /* char time */\r | |
51 | int32 lpt_ptime = 1000; /* print time */\r | |
52 | int32 lpt_stime = 10000; /* space time */\r | |
53 | int32 lpt_stopioe = 1; /* stop on err */\r | |
54 | char lpt_buf[LPT_WIDTH + 1] = { 0 }; /* line buffer */\r | |
55 | uint8 lpt_cct[CCT_LNT] = { 0377 }; /* car ctl tape */\r | |
56 | DSPT lpt_tplt[] = { /* template */\r | |
57 | { 1, 0 },\r | |
58 | { 0, 0 }\r | |
59 | };\r | |
60 | \r | |
61 | DEVICE lpt_dev;\r | |
62 | t_stat lpt_svc (UNIT *uptr);\r | |
63 | t_stat lpt_reset (DEVICE *dptr);\r | |
64 | t_stat lpt_attach (UNIT *uptr, char *cptr);\r | |
65 | t_stat lpt_crctl (int32 ch);\r | |
66 | t_stat lpt_status (UNIT *uptr);\r | |
67 | t_stat lpt_bufout (UNIT *uptr);\r | |
68 | void lpt_end_op (int32 fl);\r | |
69 | t_stat lpt (uint32 fnc, uint32 inst, uint32 *dat);\r | |
70 | \r | |
71 | /* LPT data structures\r | |
72 | \r | |
73 | lpt_dev LPT device descriptor\r | |
74 | lpt_unit LPT unit descriptor\r | |
75 | lpt_reg LPT register list\r | |
76 | */\r | |
77 | \r | |
78 | DIB lpt_dib = { CHAN_W, DEV_LPT, XFR_LPT, lpt_tplt, &lpt };\r | |
79 | \r | |
80 | UNIT lpt_unit = {\r | |
81 | UDATA (&lpt_svc, UNIT_SEQ+UNIT_ATTABLE+UNIT_TEXT, 0)\r | |
82 | };\r | |
83 | \r | |
84 | REG lpt_reg[] = {\r | |
85 | { BRDATA (BUF, lpt_buf, 8, 8, LPT_WIDTH) },\r | |
86 | { DRDATA (BPTR, lpt_bptr, 8), PV_LEFT },\r | |
87 | { FLDATA (XFR, xfr_req, XFR_V_LPT) },\r | |
88 | { FLDATA (ERR, lpt_err, 0) },\r | |
89 | { ORDATA (STA, lpt_sta, 3) },\r | |
90 | { BRDATA (CCT, lpt_cct, 8, 8, CCT_LNT) },\r | |
91 | { DRDATA (CCTP, lpt_ccp, 8), PV_LEFT },\r | |
92 | { DRDATA (CCTL, lpt_ccl, 8), REG_RO + PV_LEFT },\r | |
93 | { ORDATA (SPCINST, lpt_spc, 24) },\r | |
94 | { DRDATA (POS, lpt_unit.pos, T_ADDR_W), PV_LEFT },\r | |
95 | { DRDATA (CTIME, lpt_ctime, 24), REG_NZ + PV_LEFT },\r | |
96 | { DRDATA (PTIME, lpt_ptime, 24), REG_NZ + PV_LEFT },\r | |
97 | { DRDATA (STIME, lpt_stime, 24), REG_NZ + PV_LEFT },\r | |
98 | { FLDATA (STOP_IOE, lpt_stopioe, 0) },\r | |
99 | { NULL }\r | |
100 | };\r | |
101 | \r | |
102 | MTAB lpt_mod[] = {\r | |
103 | { MTAB_XTD|MTAB_VDV, 0, "CHANNEL", "CHANNEL",\r | |
104 | &set_chan, &show_chan, NULL },\r | |
105 | { 0 }\r | |
106 | };\r | |
107 | \r | |
108 | DEVICE lpt_dev = {\r | |
109 | "LPT", &lpt_unit, lpt_reg, lpt_mod,\r | |
110 | 1, 10, 31, 1, 8, 7,\r | |
111 | NULL, NULL, &lpt_reset,\r | |
112 | NULL, &lpt_attach, NULL,\r | |
113 | &lpt_dib, DEV_DISABLE\r | |
114 | };\r | |
115 | \r | |
116 | /* Line printer routine\r | |
117 | \r | |
118 | conn - inst = EOM0, dat = NULL\r | |
119 | eom1 - inst = EOM1, dat = NULL\r | |
120 | sks - inst = SKS, dat = ptr to result\r | |
121 | disc - inst = device number, dat = NULL\r | |
122 | wreor - inst = device number, dat = NULL\r | |
123 | read - inst = device number, dat = ptr to data\r | |
124 | write - inst = device number, dat = ptr to result\r | |
125 | \r | |
126 | The line printer is an asynchronous output device, that is, it\r | |
127 | can never set the channel rate error flag.\r | |
128 | */\r | |
129 | \r | |
130 | t_stat lpt (uint32 fnc, uint32 inst, uint32 *dat)\r | |
131 | {\r | |
132 | int32 i, t, new_ch;\r | |
133 | char asc;\r | |
134 | \r | |
135 | switch (fnc) { /* case function */\r | |
136 | \r | |
137 | case IO_CONN: /* connect */\r | |
138 | new_ch = I_GETEOCH (inst); /* get new chan */\r | |
139 | if (new_ch != lpt_dib.chan) return SCPE_IERR; /* wrong chan? */\r | |
140 | for (i = 0; i < LPT_WIDTH; i++) lpt_buf[i] = 0; /* clr buffer */\r | |
141 | lpt_bptr = 0; /* clr buf ptr */\r | |
142 | lpt_err = 0; /* err = 0 */\r | |
143 | xfr_req = xfr_req & ~XFR_LPT; /* clr xfr flag */\r | |
144 | lpt_sta = lpt_sta | SET_XFR; /* need xfr */\r | |
145 | sim_activate (&lpt_unit, lpt_ctime); /* start timer */\r | |
146 | break;\r | |
147 | \r | |
148 | case IO_EOM1: /* EOM mode 1 */\r | |
149 | new_ch = I_GETEOCH (inst); /* get new chan */\r | |
150 | if (new_ch != lpt_dib.chan) CRETIOP; /* wrong chan? */\r | |
151 | if (inst & 0400) { /* space? */\r | |
152 | lpt_spc = inst; /* save instr */\r | |
153 | lpt_sta = lpt_sta | SET_SPC; /* need space */\r | |
154 | sim_cancel (&lpt_unit); /* cancel timer */\r | |
155 | sim_activate (&lpt_unit, lpt_stime); /* start timer */\r | |
156 | }\r | |
157 | break;\r | |
158 | \r | |
159 | case IO_DISC: /* disconnect */\r | |
160 | lpt_end_op (0); /* normal term */\r | |
161 | return lpt_bufout (&lpt_unit); /* dump output */\r | |
162 | \r | |
163 | case IO_WREOR: /* write eor */\r | |
164 | lpt_sta = (lpt_sta | SET_EOR) & ~SET_XFR; /* need eor */\r | |
165 | sim_activate (&lpt_unit, lpt_ptime); /* start timer */\r | |
166 | break;\r | |
167 | \r | |
168 | case IO_SKS: /* SKS */\r | |
169 | new_ch = I_GETSKCH (inst); /* sks chan */\r | |
170 | if (new_ch != lpt_dib.chan) return SCPE_IERR; /* wrong chan? */\r | |
171 | t = I_GETSKCND (inst); /* sks cond */\r | |
172 | if (((t == 020) && (!CHP (7, lpt_cct[lpt_ccp]))) || /* 14062: !ch 7 */\r | |
173 | ((t == 010) && (lpt_unit.flags & UNIT_ATT)) || /* 12062: !online */\r | |
174 | (t == 004) && !lpt_err) *dat = 1; /* 11062: !err */\r | |
175 | break;\r | |
176 | \r | |
177 | case IO_WRITE: /* write */\r | |
178 | asc = sds_to_ascii[(*dat) & 077]; /* convert data */\r | |
179 | xfr_req = xfr_req & ~XFR_LPT; /* clr xfr flag */\r | |
180 | if (lpt_bptr < LPT_WIDTH) lpt_buf[lpt_bptr++] = asc;/* store data */\r | |
181 | lpt_sta = lpt_sta | SET_XFR; /* need xfr */\r | |
182 | sim_activate (&lpt_unit, lpt_ctime); /* start ch timer */\r | |
183 | break;\r | |
184 | \r | |
185 | default:\r | |
186 | CRETINS;\r | |
187 | }\r | |
188 | \r | |
189 | return SCPE_OK;\r | |
190 | }\r | |
191 | \r | |
192 | /* Unit service and write */\r | |
193 | \r | |
194 | t_stat lpt_svc (UNIT *uptr)\r | |
195 | {\r | |
196 | t_stat r = SCPE_OK;\r | |
197 | static const char *lpt_stabl[] = {\r | |
198 | "\r", "\n", "\n\n", "\n\n\n",\r | |
199 | "\n\n\n\n", "\n\n\n\n\n",\r | |
200 | "\n\n\n\n\n\n", "\n\n\n\n\n\n\n"\r | |
201 | };\r | |
202 | \r | |
203 | if (lpt_sta & SET_XFR) chan_set_ordy (lpt_dib.chan); /* need lpt xfr? */\r | |
204 | if (lpt_sta & SET_EOR) { /* printing? */\r | |
205 | chan_set_flag (lpt_dib.chan, CHF_EOR); /* set eor flg */\r | |
206 | r = lpt_bufout (uptr); /* output buf */\r | |
207 | }\r | |
208 | if (lpt_sta & SET_SPC) { /* spacing? */\r | |
209 | if (uptr->flags & UNIT_ATT) { /* attached? */\r | |
210 | int32 ln = LPT_GETLN (lpt_spc); /* get lines, ch */\r | |
211 | if (lpt_spc & 0200) /* n lines? */\r | |
212 | fputs (lpt_stabl[ln], uptr->fileref); /* upspace */\r | |
213 | else lpt_crctl (ln); /* carriage ctl */\r | |
214 | }\r | |
215 | r = lpt_status (uptr); /* update status */\r | |
216 | }\r | |
217 | lpt_sta = 0; /* clear state */\r | |
218 | return r;\r | |
219 | }\r | |
220 | \r | |
221 | /* Trim and output buffer */\r | |
222 | \r | |
223 | t_stat lpt_bufout (UNIT *uptr)\r | |
224 | {\r | |
225 | int32 i;\r | |
226 | \r | |
227 | if ((uptr->flags & UNIT_ATT) && lpt_bptr) { /* attached? */\r | |
228 | for (i = LPT_WIDTH - 1; (i >= 0) && (lpt_buf[i] == ' '); i--)\r | |
229 | lpt_buf[i] = 0; /* trim line */\r | |
230 | fputs (lpt_buf, uptr->fileref); /* write line */\r | |
231 | lpt_bptr = 0;\r | |
232 | }\r | |
233 | return lpt_status (uptr); /* return status */\r | |
234 | }\r | |
235 | \r | |
236 | /* Status update after I/O */\r | |
237 | \r | |
238 | t_stat lpt_status (UNIT *uptr)\r | |
239 | {\r | |
240 | if (uptr->flags & UNIT_ATT) { /* attached? */\r | |
241 | uptr->pos = ftell (uptr->fileref); /* update position */\r | |
242 | if (ferror (uptr->fileref)) { /* I/O error? */\r | |
243 | lpt_end_op (CHF_EOR | CHF_ERR); /* set err, disc */\r | |
244 | perror ("LPT I/O error"); /* print msg */\r | |
245 | clearerr (uptr->fileref);\r | |
246 | return SCPE_IOERR; /* ret error */\r | |
247 | }\r | |
248 | }\r | |
249 | else {\r | |
250 | lpt_end_op (CHF_EOR | CHF_ERR); /* set err, disc */\r | |
251 | CRETIOE (lpt_stopioe, SCPE_UNATT); /* ret error */\r | |
252 | }\r | |
253 | return SCPE_OK;\r | |
254 | }\r | |
255 | \r | |
256 | /* Terminate LPT operation */\r | |
257 | \r | |
258 | void lpt_end_op (int32 fl)\r | |
259 | {\r | |
260 | if (fl) chan_set_flag (lpt_dib.chan, fl); /* set flags */\r | |
261 | xfr_req = xfr_req & ~XFR_LPT; /* clear xfr */\r | |
262 | sim_cancel (&lpt_unit); /* stop */\r | |
263 | if (fl & CHF_ERR) { /* error? */\r | |
264 | chan_disc (lpt_dib.chan); /* disconnect */\r | |
265 | lpt_err = 1; /* set lpt err */\r | |
266 | }\r | |
267 | return;\r | |
268 | }\r | |
269 | \r | |
270 | /* Carriage control */\r | |
271 | \r | |
272 | t_stat lpt_crctl (int32 ch)\r | |
273 | {\r | |
274 | int32 i, j;\r | |
275 | \r | |
276 | if ((ch == 1) && CHP (ch, lpt_cct[0])) { /* top of form? */\r | |
277 | fputs ("\f\n", lpt_unit.fileref); /* ff + nl */\r | |
278 | lpt_ccp = 0; /* top of page */\r | |
279 | return SCPE_OK;\r | |
280 | }\r | |
281 | for (i = 1; i < lpt_ccl + 1; i++) { /* sweep thru cct */\r | |
282 | lpt_ccp = (lpt_ccp + 1) %lpt_ccl; /* adv pointer */\r | |
283 | if (CHP (ch, lpt_cct[lpt_ccp])) { /* chan punched? */\r | |
284 | for (j = 0; j < i; j++) fputc ('\n', lpt_unit.fileref);\r | |
285 | return SCPE_OK;\r | |
286 | }\r | |
287 | }\r | |
288 | return STOP_CCT; /* runaway channel */\r | |
289 | }\r | |
290 | \r | |
291 | /* Reset routine */\r | |
292 | \r | |
293 | t_stat lpt_reset (DEVICE *dptr)\r | |
294 | {\r | |
295 | chan_disc (lpt_dib.chan); /* disconnect */\r | |
296 | lpt_spc = 0; /* clr state */\r | |
297 | lpt_sta = 0;\r | |
298 | xfr_req = xfr_req & ~XFR_LPT; /* clr xfr flag */\r | |
299 | sim_cancel (&lpt_unit); /* deactivate */\r | |
300 | return SCPE_OK;\r | |
301 | }\r | |
302 | \r | |
303 | /* Attach routine */\r | |
304 | \r | |
305 | t_stat lpt_attach (UNIT *uptr, char *cptr)\r | |
306 | {\r | |
307 | lpt_ccp = 0; /* top of form */\r | |
308 | return attach_unit (uptr, cptr);\r | |
309 | }\r |