Commit | Line | Data |
---|---|---|
196ba1fc PH |
1 | /* i1620_pt.c: IBM 1621/1624 paper tape reader/punch simulator\r |
2 | \r | |
3 | Copyright (c) 2002-2005, 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 | ptr 1621 paper tape reader\r | |
27 | ptp 1624 paper tape punch\r | |
28 | \r | |
29 | 21-Sep-05 RMS Revised translation tables for 7094/1401 compatibility\r | |
30 | 25-Apr-03 RMS Revised for extended file support\r | |
31 | */\r | |
32 | \r | |
33 | #include "i1620_defs.h"\r | |
34 | \r | |
35 | #define PT_EL 0x80 /* end record */\r | |
36 | #define PT_X 0x40 /* X */\r | |
37 | #define PT_O 0x20 /* O */\r | |
38 | #define PT_C 0x10 /* C */\r | |
39 | #define PT_FD 0x7F /* deleted */\r | |
40 | \r | |
41 | extern uint8 M[MAXMEMSIZE];\r | |
42 | extern uint8 ind[NUM_IND];\r | |
43 | extern UNIT cpu_unit;\r | |
44 | extern uint32 io_stop;\r | |
45 | \r | |
46 | t_stat ptr_reset (DEVICE *dptr);\r | |
47 | t_stat ptr_boot (int32 unitno, DEVICE *dptr);\r | |
48 | t_stat ptr_read (uint8 *c, t_bool ignfeed);\r | |
49 | t_stat ptp_reset (DEVICE *dptr);\r | |
50 | t_stat ptp_write (uint32 c);\r | |
51 | t_stat ptp_num (uint32 pa, uint32 len);\r | |
52 | \r | |
53 | /* PTR data structures\r | |
54 | \r | |
55 | ptr_dev PTR device descriptor\r | |
56 | ptr_unit PTR unit descriptor\r | |
57 | ptr_reg PTR register list\r | |
58 | */\r | |
59 | \r | |
60 | UNIT ptr_unit = {\r | |
61 | UDATA (NULL, UNIT_SEQ+UNIT_ATTABLE+UNIT_ROABLE, 0)\r | |
62 | };\r | |
63 | \r | |
64 | REG ptr_reg[] = {\r | |
65 | { DRDATA (POS, ptr_unit.pos, T_ADDR_W), PV_LEFT },\r | |
66 | { NULL }\r | |
67 | };\r | |
68 | \r | |
69 | DEVICE ptr_dev = {\r | |
70 | "PTR", &ptr_unit, ptr_reg, NULL,\r | |
71 | 1, 10, 31, 1, 8, 8,\r | |
72 | NULL, NULL, &ptr_reset,\r | |
73 | &ptr_boot, NULL, NULL\r | |
74 | };\r | |
75 | \r | |
76 | /* PTP data structures\r | |
77 | \r | |
78 | ptp_dev PTP device descriptor\r | |
79 | ptp_unit PTP unit descriptor\r | |
80 | ptp_reg PTP register list\r | |
81 | */\r | |
82 | \r | |
83 | UNIT ptp_unit = {\r | |
84 | UDATA (NULL, UNIT_SEQ+UNIT_ATTABLE, 0)\r | |
85 | };\r | |
86 | \r | |
87 | REG ptp_reg[] = {\r | |
88 | { DRDATA (POS, ptp_unit.pos, T_ADDR_W), PV_LEFT },\r | |
89 | { NULL }\r | |
90 | };\r | |
91 | \r | |
92 | DEVICE ptp_dev = {\r | |
93 | "PTP", &ptp_unit, ptp_reg, NULL,\r | |
94 | 1, 10, 31, 1, 8, 8,\r | |
95 | NULL, NULL, &ptp_reset,\r | |
96 | NULL, NULL, NULL\r | |
97 | };\r | |
98 | \r | |
99 | /* Data tables */\r | |
100 | \r | |
101 | /* Paper tape reader odd parity chart: 1 = bad, 0 = ok */\r | |
102 | \r | |
103 | const int8 bad_par[128] = {\r | |
104 | 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, /* 00 */\r | |
105 | 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, /* 10 */\r | |
106 | 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, /* 20 */\r | |
107 | 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, /* 30 */\r | |
108 | 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, /* 40 */\r | |
109 | 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, /* 50 */\r | |
110 | 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, /* 60 */\r | |
111 | 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0 /* 70 */\r | |
112 | };\r | |
113 | \r | |
114 | /* Paper tape read (7b) to numeric (one digit) */\r | |
115 | \r | |
116 | const int8 ptr_to_num[128] = {\r | |
117 | 0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, /* - */\r | |
118 | 0x08, 0x09, 0x0A, 0x0B, 0x0C, 0x00, 0x0E, 0x0F,\r | |
119 | 0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, /* C */\r | |
120 | 0x08, 0x09, 0x0A, 0x0B, 0x0C, 0x00, 0x0E, 0x0F,\r | |
121 | 0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, /* O */\r | |
122 | 0x08, 0x09, 0x0A, 0x0B, 0x0C, 0x00, 0x0E, 0x0F,\r | |
123 | 0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, /* OC */\r | |
124 | 0x08, 0x09, 0x0A, 0x0B, 0x0C, 0x00, 0x0E, 0x0F,\r | |
125 | 0x10, 0x11, 0x12, 0x13, 0x14, 0x15, 0x16, 0x17, /* X */\r | |
126 | 0x18, 0x19, 0x1A, 0x1B, 0x1C, 0x10, 0x1E, 0x1F,\r | |
127 | 0x10, 0x11, 0x12, 0x13, 0x14, 0x15, 0x16, 0x17, /* XC */\r | |
128 | 0x18, 0x19, 0x1A, 0x1B, 0x1C, 0x10, 0x1E, 0x1F,\r | |
129 | 0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, /* XO */\r | |
130 | 0x08, 0x09, 0x0A, 0x0B, 0x0C, 0x00, 0x0E, 0x0F,\r | |
131 | 0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, /* XOC */\r | |
132 | 0x08, 0x09, 0x0A, 0x0B, 0x0C, 0x00, 0x0E, 0x0F\r | |
133 | };\r | |
134 | \r | |
135 | /* Paper tape read (7b) to alphameric (two digits)\r | |
136 | Codes XO82, 82, XO842, 842 do not have consistent translations\r | |
137 | */\r | |
138 | \r | |
139 | const int8 ptr_to_alp[128] = {\r | |
140 | 0x00, 0x71, 0x72, 0x73, 0x74, 0x75, 0x76, 0x77, /* - */\r | |
141 | 0x78, 0x79, -1, 0x33, 0x34, 0x70, -1, 0x0F,\r | |
142 | 0x00, 0x71, 0x72, 0x73, 0x74, 0x75, 0x76, 0x77, /* C */\r | |
143 | 0x78, 0x79, -1, 0x33, 0x34, 0x70, -1, 0x0F,\r | |
144 | 0x70, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67, /* O */\r | |
145 | 0x68, 0x69, 0x0A, 0x23, 0x24, 0x60, 0x0E, 0x0F,\r | |
146 | 0x70, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67, /* OC */\r | |
147 | 0x68, 0x69, 0x0A, 0x23, 0x24, 0x60, 0x0E, 0x0F,\r | |
148 | 0x20, 0x51, 0x52, 0x53, 0x54, 0x55, 0x56, 0x57, /* X */\r | |
149 | 0x58, 0x59, 0x5A, 0x13, 0x14, 0x50, 0x5E, 0x5F,\r | |
150 | 0x20, 0x51, 0x52, 0x53, 0x54, 0x55, 0x56, 0x57, /* XC */\r | |
151 | 0x58, 0x59, 0x5A, 0x13, 0x14, 0x50, 0x5E, 0x5F,\r | |
152 | 0x10, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, /* XO */\r | |
153 | 0x48, 0x49, -1, 0x03, 0x04, 0x40, -1, 0x7F,\r | |
154 | 0x10, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, /* XOC */\r | |
155 | 0x48, 0x49, -1, 0x03, 0x04, 0x40, -1, 0x7F\r | |
156 | };\r | |
157 | \r | |
158 | /* Numeric (flag + digit) to paper tape punch */\r | |
159 | \r | |
160 | const int8 num_to_ptp[32] = {\r | |
161 | 0x20, 0x01, 0x02, 0x13, 0x04, 0x15, 0x16, 0x07, /* 0 */\r | |
162 | 0x08, 0x19, 0x2A, 0x3B, 0x1C, 0x0D, 0x3E, 0x3F,\r | |
163 | 0x40, 0x51, 0x52, 0x43, 0x54, 0x45, 0x46, 0x57, /* F + 0 */\r | |
164 | 0x58, 0x49, 0x4A, 0x5B, 0x4C, 0x5D, 0x5E, 0x4F\r | |
165 | };\r | |
166 | \r | |
167 | /* Alphameric (two digits) to paper tape punch */\r | |
168 | \r | |
169 | const int8 alp_to_ptp[256] = {\r | |
170 | 0x10, -1, 0x7A, 0x6B, 0x7C, -1, -1, 0x7F, /* 00 */\r | |
171 | -1, -1, 0x2A, -1, -1, -1, -1, 0x1F,\r | |
172 | 0x70, -1, 0x4A, 0x5B, 0x4C, -1, -1, -1, /* 10 */\r | |
173 | -1, -1, -1, -1, -1, -1, -1, -1,\r | |
174 | 0x40, 0x31, 0x2A, 0x3B, 0x2C, -1, -1, -1, /* 20 */ \r | |
175 | -1, -1, -1, -1, -1, -1, -1, -1,\r | |
176 | -1, -1, 0x1A, 0x0B, 0x1C, 0x0D, 0x0E, -1, /* 30 */\r | |
177 | -1, -1, -1, -1, -1, -1, -1, -1,\r | |
178 | -1, 0x61, 0x62, 0x73, 0x64, 0x75, 0x76, 0x67, /* 40 */\r | |
179 | 0x68, 0x79, -1, -1, -1, -1, -1, -1,\r | |
180 | 0x40, 0x51, 0x52, 0x43, 0x54, 0x45, 0x46, 0x57, /* 50 */\r | |
181 | 0x58, 0x49, 0x4A, -1, -1, -1, -1, 0x4F,\r | |
182 | -1, 0x31, 0x32, 0x23, 0x34, 0x25, 0x26, 0x37, /* 60 */\r | |
183 | 0x38, 0x29, -1, -1, -1, -1, -1, -1,\r | |
184 | 0x20, 0x01, 0x02, 0x13, 0x04, 0x15, 0x16, 0x07, /* 70 */\r | |
185 | 0x08, 0x19, 0x7A, -1, -1, -1, -1, 0x7F,\r | |
186 | -1, -1, -1, -1, -1, -1, -1, -1, /* 80 */\r | |
187 | -1, -1, -1, -1, -1, -1, -1, -1,\r | |
188 | -1, -1, -1, -1, -1, -1, -1, -1, /* 90 */\r | |
189 | -1, -1, -1, -1, -1, -1, -1, -1,\r | |
190 | -1, -1, -1, -1, -1, -1, -1, -1, /* A0 */\r | |
191 | -1, -1, -1, -1, -1, -1, -1, -1,\r | |
192 | -1, -1, -1, -1, -1, -1, -1, -1, /* B0 */\r | |
193 | -1, -1, -1, -1, -1, -1, -1, -1,\r | |
194 | -1, -1, -1, -1, -1, -1, -1, -1, /* C0 */\r | |
195 | -1, -1, -1, -1, -1, -1, -1, -1,\r | |
196 | -1, -1, -1, -1, -1, -1, -1, -1, /* D0 */\r | |
197 | -1, -1, -1, -1, -1, -1, -1, -1,\r | |
198 | -1, -1, -1, -1, -1, -1, -1, -1, /* E0 */\r | |
199 | -1, -1, -1, -1, -1, -1, -1, -1,\r | |
200 | -1, -1, -1, -1, -1, -1, -1, -1, /* F0 */\r | |
201 | -1, -1, -1, -1, -1, -1, -1, -1\r | |
202 | }; \r | |
203 | \r | |
204 | /* Paper tape reader IO routine\r | |
205 | \r | |
206 | - Hard errors halt the operation and the system.\r | |
207 | - Parity errors place an invalid character in memory and set\r | |
208 | RDCHK, but the read continues until end of record. If IO\r | |
209 | stop is set, the system then halts.\r | |
210 | */\r | |
211 | \r | |
212 | t_stat ptr (uint32 op, uint32 pa, uint32 f0, uint32 f1)\r | |
213 | {\r | |
214 | uint32 i;\r | |
215 | int8 mc;\r | |
216 | uint8 ptc;\r | |
217 | t_stat r, sta;\r | |
218 | \r | |
219 | sta = SCPE_OK;\r | |
220 | switch (op) { /* case on op */\r | |
221 | \r | |
222 | case OP_RN: /* read numeric */\r | |
223 | for (i = 0; i < MEMSIZE; i++) { /* (stop runaway) */\r | |
224 | r = ptr_read (&ptc, TRUE); /* read frame */\r | |
225 | if (r != SCPE_OK) return r; /* error? */\r | |
226 | if (ptc & PT_EL) { /* end record? */\r | |
227 | M[pa] = REC_MARK; /* store rec mark */\r | |
228 | return sta; /* done */\r | |
229 | }\r | |
230 | if (bad_par[ptc]) { /* bad parity? */\r | |
231 | ind[IN_RDCHK] = 1; /* set read check */\r | |
232 | if (io_stop) sta = STOP_INVCHR; /* set return status */\r | |
233 | M[pa] = 0; /* store zero */\r | |
234 | }\r | |
235 | else M[pa] = ptr_to_num[ptc]; /* translate, store */\r | |
236 | PP (pa); /* incr mem addr */\r | |
237 | }\r | |
238 | break;\r | |
239 | \r | |
240 | case OP_RA: /* read alphameric */\r | |
241 | for (i = 0; i < MEMSIZE; i = i + 2) { /* (stop runaway) */\r | |
242 | r = ptr_read (&ptc, TRUE); /* read frame */\r | |
243 | if (r != SCPE_OK) return r; /* error? */\r | |
244 | if (ptc & PT_EL) { /* end record? */\r | |
245 | M[pa] = REC_MARK; /* store rec mark */\r | |
246 | M[pa - 1] = 0;\r | |
247 | return sta; /* done */\r | |
248 | }\r | |
249 | mc = ptr_to_alp[ptc]; /* translate */\r | |
250 | if (bad_par[ptc] || (mc < 0)) { /* bad par or char? */\r | |
251 | ind[IN_RDCHK] = 1; /* set read check */\r | |
252 | if (io_stop) sta = STOP_INVCHR; /* set return status */\r | |
253 | mc = 0; /* store blank */\r | |
254 | }\r | |
255 | M[pa] = (M[pa] & FLAG) | (mc & DIGIT); /* store 2 digits */\r | |
256 | M[pa - 1] = (M[pa - 1] & FLAG) | ((mc >> 4) & DIGIT);\r | |
257 | pa = ADDR_A (pa, 2); /* incr mem addr */\r | |
258 | }\r | |
259 | break; \r | |
260 | \r | |
261 | default: /* invalid function */\r | |
262 | return STOP_INVFNC;\r | |
263 | }\r | |
264 | \r | |
265 | return STOP_RWRAP;\r | |
266 | }\r | |
267 | \r | |
268 | /* Binary paper tape reader IO routine - see above for error handling */\r | |
269 | \r | |
270 | t_stat btr (uint32 op, uint32 pa, uint32 f0, uint32 f1)\r | |
271 | {\r | |
272 | uint32 i;\r | |
273 | uint8 ptc;\r | |
274 | t_stat r, sta;\r | |
275 | \r | |
276 | if ((cpu_unit.flags & IF_BIN) == 0) return STOP_INVIO;\r | |
277 | \r | |
278 | sta = SCPE_OK;\r | |
279 | switch (op) { /* case on op */\r | |
280 | \r | |
281 | case OP_RA: /* read alphameric */\r | |
282 | for (i = 0; i < MEMSIZE; i = i + 2) { /* (stop runaway) */\r | |
283 | r = ptr_read (&ptc, FALSE); /* read frame */\r | |
284 | if (r != SCPE_OK) return r; /* error? */\r | |
285 | if (ptc & PT_EL) { /* end record? */\r | |
286 | M[pa] = REC_MARK; /* store rec mark */\r | |
287 | M[pa - 1] = 0;\r | |
288 | return sta; /* done */\r | |
289 | }\r | |
290 | if (bad_par[ptc]) { /* bad parity? */\r | |
291 | ind[IN_RDCHK] = 1; /* set read check */\r | |
292 | if (io_stop) sta = STOP_INVCHR; /* set return status */\r | |
293 | }\r | |
294 | M[pa] = (M[pa] & FLAG) | (ptc & 07); /* store 2 digits */\r | |
295 | M[pa - 1] = (M[pa - 1] & FLAG) |\r | |
296 | (((ptc >> 5) & 06) | ((ptc >> 3) & 1));\r | |
297 | pa = ADDR_A (pa, 2); /* incr mem addr */\r | |
298 | }\r | |
299 | break; \r | |
300 | \r | |
301 | default: /* invalid function */\r | |
302 | return STOP_INVFNC;\r | |
303 | }\r | |
304 | \r | |
305 | return STOP_RWRAP;\r | |
306 | }\r | |
307 | \r | |
308 | /* Read ptr frame - all errors are 'hard' errors and halt the system */\r | |
309 | \r | |
310 | t_stat ptr_read (uint8 *c, t_bool ignfeed)\r | |
311 | {\r | |
312 | int32 temp;\r | |
313 | \r | |
314 | if ((ptr_unit.flags & UNIT_ATT) == 0) { /* attached? */\r | |
315 | ind[IN_RDCHK] = 1; /* no, error */\r | |
316 | return SCPE_UNATT;\r | |
317 | }\r | |
318 | \r | |
319 | do {\r | |
320 | if ((temp = getc (ptr_unit.fileref)) == EOF) { /* read char */\r | |
321 | ind[IN_RDCHK] = 1; /* err, rd chk */\r | |
322 | if (feof (ptr_unit.fileref))\r | |
323 | printf ("PTR end of file\n");\r | |
324 | else perror ("PTR I/O error");\r | |
325 | clearerr (ptr_unit.fileref);\r | |
326 | return SCPE_IOERR;\r | |
327 | }\r | |
328 | *c = temp & 0377; /* save char */\r | |
329 | ptr_unit.pos = ptr_unit.pos + 1; /* incr file addr */\r | |
330 | } while (ignfeed && (*c == PT_FD)); /* until not feed */\r | |
331 | return SCPE_OK;\r | |
332 | }\r | |
333 | \r | |
334 | /* Reset routine */\r | |
335 | \r | |
336 | t_stat ptr_reset (DEVICE *dptr)\r | |
337 | {\r | |
338 | return SCPE_OK;\r | |
339 | }\r | |
340 | \r | |
341 | /* Bootstrap routine */\r | |
342 | \r | |
343 | const static uint8 boot_rom[] = {\r | |
344 | 4, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* NOP */\r | |
345 | 3, 6, 0, 0, 0, 3, 1, 0, 0, 3, 0, 0, /* RNPT 31 */\r | |
346 | 2, 5, 0, 0, 0, 7, 1, 0, 0, 0, 0, 0, /* TD 71,loc */\r | |
347 | 3, 6, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, /* RNPT loc1 */\r | |
348 | 2, 6, 0, 0, 0, 6, 6, 0, 0, 0, 3, 5, /* TF 66,35 */\r | |
349 | 1, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* TDM loc2,loc3 */\r | |
350 | 4, 9, 0, 0, 0, 1, 2, 0, 0, 0, 0, 0 /* BR 12 */\r | |
351 | };\r | |
352 | \r | |
353 | #define BOOT_START 0\r | |
354 | #define BOOT_LEN (sizeof (boot_rom) / sizeof (uint8))\r | |
355 | \r | |
356 | t_stat ptr_boot (int32 unitno, DEVICE *dptr)\r | |
357 | {\r | |
358 | int32 i;\r | |
359 | extern int32 saved_PC;\r | |
360 | \r | |
361 | for (i = 0; i < BOOT_LEN; i++) M[BOOT_START + i] = boot_rom[i];\r | |
362 | saved_PC = BOOT_START;\r | |
363 | return SCPE_OK;\r | |
364 | }\r | |
365 | \r | |
366 | /* Paper tape punch IO routine\r | |
367 | \r | |
368 | - Hard errors halt the operation and the system.\r | |
369 | - Parity errors stop the operation and set WRCHK.\r | |
370 | If IO stop is set, the system then halts.\r | |
371 | */\r | |
372 | \r | |
373 | t_stat ptp (uint32 op, uint32 pa, uint32 f0, uint32 f1)\r | |
374 | {\r | |
375 | uint32 i;\r | |
376 | int8 ptc;\r | |
377 | uint8 z, d;\r | |
378 | t_stat r;\r | |
379 | \r | |
380 | switch (op) { /* decode op */\r | |
381 | \r | |
382 | case OP_DN:\r | |
383 | return ptp_num (pa, 20000 - (pa % 20000)); /* dump numeric */\r | |
384 | \r | |
385 | case OP_WN:\r | |
386 | return ptp_num (pa, 0); /* punch numeric */\r | |
387 | \r | |
388 | case OP_WA:\r | |
389 | for (i = 0; i < MEMSIZE; i = i + 2) { /* stop runaway */\r | |
390 | d = M[pa] & DIGIT; /* get digit */\r | |
391 | z = M[pa - 1] & DIGIT; /* get zone */\r | |
392 | if ((d & REC_MARK) == REC_MARK) /* 8-2 char? */\r | |
393 | return ptp_write (PT_EL); /* end record */\r | |
394 | ptc = alp_to_ptp[(z << 4) | d]; /* translate pair */\r | |
395 | if (ptc < 0) { /* bad char? */\r | |
396 | ind[IN_WRCHK] = 1; /* write check */\r | |
397 | CRETIOE (io_stop, STOP_INVCHR);\r | |
398 | }\r | |
399 | r = ptp_write (ptc); /* write char */\r | |
400 | if (r != SCPE_OK) return r; /* error? */\r | |
401 | pa = ADDR_A (pa, 2); /* incr mem addr */\r | |
402 | }\r | |
403 | break; \r | |
404 | \r | |
405 | default: /* invalid function */\r | |
406 | return STOP_INVFNC;\r | |
407 | }\r | |
408 | \r | |
409 | return STOP_RWRAP;\r | |
410 | }\r | |
411 | \r | |
412 | /* Binary paper tape punch IO routine - see above for error handling */\r | |
413 | \r | |
414 | t_stat btp (uint32 op, uint32 pa, uint32 f0, uint32 f1)\r | |
415 | {\r | |
416 | uint32 i;\r | |
417 | uint8 ptc, z, d;\r | |
418 | t_stat r;\r | |
419 | \r | |
420 | if ((cpu_unit.flags & IF_BIN) == 0) return STOP_INVIO;\r | |
421 | \r | |
422 | switch (op) { /* decode op */\r | |
423 | \r | |
424 | case OP_WA:\r | |
425 | for (i = 0; i < MEMSIZE; i = i + 2) { /* stop runaway */\r | |
426 | d = M[pa] & DIGIT; /* get digit */\r | |
427 | z = M[pa - 1] & DIGIT; /* get zone */\r | |
428 | if ((d & REC_MARK) == REC_MARK) /* 8-2 char? */\r | |
429 | return ptp_write (PT_EL); /* end record */\r | |
430 | ptc = ((z & 06) << 5) | ((z & 01) << 3) | (d & 07);\r | |
431 | if (bad_par[ptc]) ptc = ptc | PT_C; /* set parity */\r | |
432 | r = ptp_write (ptc); /* write char */\r | |
433 | if (r != SCPE_OK) return r; /* error? */\r | |
434 | pa = ADDR_A (pa, 2); /* incr mem addr */\r | |
435 | }\r | |
436 | break; \r | |
437 | \r | |
438 | default: /* invalid function */\r | |
439 | return STOP_INVFNC;\r | |
440 | }\r | |
441 | \r | |
442 | return STOP_RWRAP;\r | |
443 | }\r | |
444 | \r | |
445 | /* Punch tape numeric - cannot generate parity errors */\r | |
446 | \r | |
447 | t_stat ptp_num (uint32 pa, uint32 len)\r | |
448 | {\r | |
449 | t_stat r;\r | |
450 | uint8 d;\r | |
451 | uint32 i, end;\r | |
452 | \r | |
453 | end = pa + len;\r | |
454 | for (i = 0; i < MEMSIZE; i++) { /* stop runaway */\r | |
455 | d = M[pa] & (FLAG | DIGIT); /* get char */\r | |
456 | if (len? (pa >= end): /* dump: end reached? */\r | |
457 | ((d & REC_MARK) == REC_MARK)) /* write: rec mark? */\r | |
458 | return ptp_write (PT_EL); /* end record */\r | |
459 | r = ptp_write (num_to_ptp[d]); /* write */\r | |
460 | if (r != SCPE_OK) return r; /* error? */\r | |
461 | PP (pa); /* incr mem addr */\r | |
462 | }\r | |
463 | return STOP_RWRAP;\r | |
464 | }\r | |
465 | \r | |
466 | /* Write ptp frame - all errors are hard errors */\r | |
467 | \r | |
468 | t_stat ptp_write (uint32 c)\r | |
469 | {\r | |
470 | if ((ptp_unit.flags & UNIT_ATT) == 0) { /* attached? */\r | |
471 | ind[IN_WRCHK] = 1; /* no, error */\r | |
472 | return SCPE_UNATT;\r | |
473 | }\r | |
474 | if (putc (c, ptp_unit.fileref) == EOF) { /* write char */\r | |
475 | ind[IN_WRCHK] = 1; /* error? */\r | |
476 | perror ("PTP I/O error");\r | |
477 | clearerr (ptp_unit.fileref);\r | |
478 | return SCPE_IOERR;\r | |
479 | }\r | |
480 | ptp_unit.pos = ptp_unit.pos + 1; /* count char */\r | |
481 | return SCPE_OK;\r | |
482 | }\r | |
483 | \r | |
484 | /* Reset routine */\r | |
485 | \r | |
486 | t_stat ptp_reset (DEVICE *dptr)\r | |
487 | {\r | |
488 | return SCPE_OK;\r | |
489 | }\r |