4ffd3be790
Because some key files have changed, V3.0 should be unzipped to a clean directory. 1. New Features in 3.0-0 1.1 SCP and Libraries - Added ASSIGN/DEASSIGN (logical name) commands. - Changed RESTORE to unconditionally detach files. - Added E11 and TPC format support to magtape library. - Fixed bug in SHOW CONNECTIONS. - Added USE_ADDR64 support 1.2 All magtapes - Magtapes support SIMH format, E11 format, and TPC format (read only). - SET <tape_unit> FORMAT=format sets the specified tape unit's format. - SHOW <tape_unit> FORMAT displays the specified tape unit's format. - Tape format can also be set as part of the ATTACH command, using the -F switch. 1.3 VAX - VAX can be compiled without USE_INT64. - If compiled with USE_INT64 and USE_ADDR64, RQ and TQ controllers support files > 2GB. - VAX ROM has speed control (SET ROM DELAY/NODELAY). 2. Bugs Fixed in 3.01-0 2.1 VAX - Fixed CVTfi bug: integer overflow not set if exponent out of range - Fixed EMODx bugs: o First and second operands reversed o Separated fraction received wrong exponent o Overflow calculation on separated integer incorrect o Fraction not set to zero if exponent out of range - Fixed interval timer and ROM access to pass power-up self-test even on very fast host processors (fixes from Mark Pizzolato). 2.2 1401 - Fixed mnemonic, instruction lengths, and reverse scan length check bug for MCS. - Fixed MCE bug, BS off by 1 if zero suppress. - Fixed chaining bug, D lost if return to SCP. - Fixed H branch, branch occurs after continue. - Added check for invalid 8 character MCW, LCA. - Fixed magtape load-mode end of record response. 2.3 Nova - Fixed DSK variable size interaction with restore. 2.4 PDP-1 - Fixed DT variable size interaction with restore. 2.5 PDP-11 - Fixed DT variable size interaction with restore. - Fixed bug in MMR1 update (found by Tim Stark). - Added XQ features and fixed bugs: o Corrected XQ interrupts on IE state transition (code by Tom Evans). o Added XQ interrupt clear on soft reset. o Removed XQ interrupt when setting XL or RL (multiple people). o Added SET/SHOW XQ STATS. o Added SHOW XQ FILTERS. o Added ability to split received packet into multiple buffers. o Added explicit runt and giant packet processing. 2.6 PDP-18B - Fixed DT, RF variable size interaction with restore. - Fixed MT bug in MTTR. 2.7 PDP-8 - Fixed DT, DF, RF, RX variable size interaction with restore. - Fixed MT bug in SKTR. 2.8 HP2100 - Fixed bug in DP (13210A controller only), DQ read status. - Fixed bug in DP, DQ seek complete. 2.9 GRI - Fixed bug in SC queue pointer management. 3. New Features in 3.0 vs prior releases N/A 4. Bugs Fixed in 3.0 vs prior releases N/A 5. General Notes WARNING: The RESTORE command has changed. RESTORE will now detach an attached file on a unit, if that unit did not have an attached file in the saved configuration. This is required to assure that the unit flags and the file state are consistent. WARNING: The compilation scheme for the PDP-10, PDP-11, and VAX has changed. Use one of the supplied build files, or read the documentation carefully, before compiling any of these simulators.
436 lines
15 KiB
C
436 lines
15 KiB
C
/* i1620_pt.c: IBM 1621/1624 paper tape reader/punch simulator
|
||
|
||
Copyright (c) 2002-2003, Robert M Supnik
|
||
|
||
Permission is hereby granted, free of charge, to any person obtaining a
|
||
copy of this software and associated documentation files (the "Software"),
|
||
to deal in the Software without restriction, including without limitation
|
||
the rights to use, copy, modify, merge, publish, distribute, sublicense,
|
||
and/or sell copies of the Software, and to permit persons to whom the
|
||
Software is furnished to do so, subject to the following conditions:
|
||
|
||
The above copyright notice and this permission notice shall be included in
|
||
all copies or substantial portions of the Software.
|
||
|
||
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
||
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
|
||
ROBERT M SUPNIK BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
|
||
IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
|
||
CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
||
|
||
Except as contained in this notice, the name of Robert M Supnik shall not
|
||
be used in advertising or otherwise to promote the sale, use or other dealings
|
||
in this Software without prior written authorization from Robert M Supnik.
|
||
|
||
ptr 1621 paper tape reader
|
||
ptp 1624 paper tape punch
|
||
|
||
25-Apr-03 RMS Revised for extended file support
|
||
*/
|
||
|
||
#include "i1620_defs.h"
|
||
|
||
#define PT_EL 0x80 /* end record */
|
||
#define PT_X 0x40 /* X */
|
||
#define PT_O 0x20 /* O */
|
||
#define PT_C 0x10 /* C */
|
||
#define PT_FD 0x7F /* deleted */
|
||
|
||
extern uint8 M[MAXMEMSIZE];
|
||
extern uint8 ind[NUM_IND];
|
||
extern UNIT cpu_unit;
|
||
extern uint32 io_stop;
|
||
|
||
t_stat ptr_reset (DEVICE *dptr);
|
||
t_stat ptr_boot (int32 unitno, DEVICE *dptr);
|
||
t_stat ptr_read (uint8 *c, t_bool ignfeed);
|
||
t_stat ptp_reset (DEVICE *dptr);
|
||
t_stat ptp_write (uint32 c);
|
||
t_stat ptp_num (uint32 pa, uint32 len);
|
||
|
||
/* PTR data structures
|
||
|
||
ptr_dev PTR device descriptor
|
||
ptr_unit PTR unit descriptor
|
||
ptr_reg PTR register list
|
||
*/
|
||
|
||
UNIT ptr_unit = {
|
||
UDATA (NULL, UNIT_SEQ+UNIT_ATTABLE+UNIT_ROABLE, 0) };
|
||
|
||
REG ptr_reg[] = {
|
||
{ DRDATA (POS, ptr_unit.pos, T_ADDR_W), PV_LEFT },
|
||
{ NULL } };
|
||
|
||
DEVICE ptr_dev = {
|
||
"PTR", &ptr_unit, ptr_reg, NULL,
|
||
1, 10, 31, 1, 8, 8,
|
||
NULL, NULL, &ptr_reset,
|
||
&ptr_boot, NULL, NULL };
|
||
|
||
/* PTP data structures
|
||
|
||
ptp_dev PTP device descriptor
|
||
ptp_unit PTP unit descriptor
|
||
ptp_reg PTP register list
|
||
*/
|
||
|
||
UNIT ptp_unit = {
|
||
UDATA (NULL, UNIT_SEQ+UNIT_ATTABLE, 0) };
|
||
|
||
REG ptp_reg[] = {
|
||
{ DRDATA (POS, ptp_unit.pos, T_ADDR_W), PV_LEFT },
|
||
{ NULL } };
|
||
|
||
DEVICE ptp_dev = {
|
||
"PTP", &ptp_unit, ptp_reg, NULL,
|
||
1, 10, 31, 1, 8, 8,
|
||
NULL, NULL, &ptp_reset,
|
||
NULL, NULL, NULL };
|
||
|
||
/* Data tables */
|
||
|
||
/* Paper tape reader odd parity chart: 1 = bad, 0 = ok */
|
||
|
||
const int8 bad_par[128] = {
|
||
1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, /* 00 */
|
||
0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, /* 10 */
|
||
0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, /* 20 */
|
||
1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, /* 30 */
|
||
0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, /* 40 */
|
||
1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, /* 50 */
|
||
1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, /* 60 */
|
||
0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0 }; /* 70 */
|
||
|
||
/* Paper tape read (7b) to numeric (one digit) */
|
||
|
||
const int8 ptr_to_num[128] = {
|
||
0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, /* - */
|
||
0x08, 0x09, 0x0A, 0x0B, 0x0C, 0x00, 0x0E, 0x0F,
|
||
0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, /* C */
|
||
0x08, 0x09, 0x0A, 0x0B, 0x0C, 0x00, 0x0E, 0x0F,
|
||
0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, /* O */
|
||
0x08, 0x09, 0x0A, 0x0B, 0x0C, 0x00, 0x0E, 0x0F,
|
||
0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, /* OC */
|
||
0x08, 0x09, 0x0A, 0x0B, 0x0C, 0x00, 0x0E, 0x0F,
|
||
0x10, 0x11, 0x12, 0x13, 0x14, 0x15, 0x16, 0x17, /* X */
|
||
0x18, 0x19, 0x1A, 0x1B, 0x1C, 0x10, 0x1E, 0x1F,
|
||
0x10, 0x11, 0x12, 0x13, 0x14, 0x15, 0x16, 0x17, /* XC */
|
||
0x18, 0x19, 0x1A, 0x1B, 0x1C, 0x10, 0x1E, 0x1F,
|
||
0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, /* XO */
|
||
0x08, 0x09, 0x0A, 0x0B, 0x0C, 0x00, 0x0E, 0x0F,
|
||
0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, /* XOC */
|
||
0x08, 0x09, 0x0A, 0x0B, 0x0C, 0x00, 0x0E, 0x0F };
|
||
|
||
/* Paper tape read (7b) to alphameric (two digits)
|
||
Codes XO82, 82, XO842, 842 do not have consistent translations
|
||
*/
|
||
|
||
const int8 ptr_to_alp[128] = {
|
||
0x00, 0x71, 0x72, 0x73, 0x74, 0x75, 0x76, 0x77, /* - */
|
||
0x78, 0x79, -1, 0x33, 0x34, 0x70, -1, 0x0F,
|
||
0x00, 0x71, 0x72, 0x73, 0x74, 0x75, 0x76, 0x77, /* C */
|
||
0x78, 0x79, -1, 0x33, 0x34, 0x70, -1, 0x0F,
|
||
0x70, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67, /* O */
|
||
0x68, 0x69, 0x0A, 0x23, 0x24, 0x60, 0x0E, 0x0F,
|
||
0x70, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67, /* OC */
|
||
0x68, 0x69, 0x0A, 0x23, 0x24, 0x60, 0x0E, 0x0F,
|
||
0x20, 0x51, 0x52, 0x53, 0x54, 0x55, 0x56, 0x57, /* X */
|
||
0x58, 0x59, 0x5A, 0x13, 0x14, 0x50, 0x5E, 0x5F,
|
||
0x20, 0x51, 0x52, 0x53, 0x54, 0x55, 0x56, 0x57, /* XC */
|
||
0x58, 0x59, 0x5A, 0x13, 0x14, 0x50, 0x5E, 0x5F,
|
||
0x10, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, /* XO */
|
||
0x48, 0x49, -1, 0x03, 0x04, 0x40, -1, 0x7F,
|
||
0x10, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, /* XOC */
|
||
0x48, 0x49, -1, 0x03, 0x04, 0x40, -1, 0x7F };
|
||
|
||
/* Numeric (flag + digit) to paper tape punch */
|
||
|
||
const int8 num_to_ptp[32] = {
|
||
0x20, 0x01, 0x02, 0x13, 0x04, 0x15, 0x16, 0x07, /* 0 */
|
||
0x08, 0x19, 0x2A, 0x3B, 0x1C, 0x0D, 0x3E, 0x3F,
|
||
0x40, 0x51, 0x52, 0x43, 0x54, 0x45, 0x46, 0x57, /* F + 0 */
|
||
0x58, 0x49, 0x4A, 0x5B, 0x4C, 0x5D, 0x5E, 0x4F };
|
||
|
||
/* Alphameric (two digits) to paper tape punch */
|
||
|
||
const int8 alp_to_ptp[256] = {
|
||
0x10, -1, 0x7A, 0x6B, 0x7C, -1, -1, 0x7F, /* 00 */
|
||
-1, -1, 0x2A, -1, -1, -1, -1, 0x1F,
|
||
0x70, -1, 0x4A, 0x5B, 0x4C, -1, -1, -1, /* 10 */
|
||
-1, -1, -1, -1, -1, -1, -1, -1,
|
||
0x40, 0x31, 0x2A, 0x3B, 0x2C, -1, -1, -1, /* 20 */
|
||
-1, -1, -1, -1, -1, -1, -1, -1,
|
||
-1, -1, 0x1A, 0x0B, 0x1C, 0x0D, 0x0E, -1, /* 30 */
|
||
-1, -1, -1, -1, -1, -1, -1, -1,
|
||
-1, 0x61, 0x62, 0x73, 0x64, 0x75, 0x76, 0x67, /* 40 */
|
||
0x68, 0x79, -1, -1, -1, -1, -1, -1,
|
||
0x40, 0x51, 0x52, 0x43, 0x54, 0x45, 0x46, 0x57, /* 50 */
|
||
0x58, 0x49, 0x4A, -1, -1, -1, -1, 0x4F,
|
||
-1, 0x31, 0x32, 0x23, 0x34, 0x25, 0x26, 0x37, /* 60 */
|
||
0x38, 0x29, -1, -1, -1, -1, -1, -1,
|
||
0x20, 0x01, 0x02, 0x13, 0x04, 0x15, 0x16, 0x07, /* 70 */
|
||
0x08, 0x19, 0x7A, -1, -1, -1, -1, 0x7F,
|
||
-1, -1, -1, -1, -1, -1, -1, -1, /* 80 */
|
||
-1, -1, -1, -1, -1, -1, -1, -1,
|
||
-1, -1, -1, -1, -1, -1, -1, -1, /* 90 */
|
||
-1, -1, -1, -1, -1, -1, -1, -1,
|
||
-1, -1, -1, -1, -1, -1, -1, -1, /* A0 */
|
||
-1, -1, -1, -1, -1, -1, -1, -1,
|
||
-1, -1, -1, -1, -1, -1, -1, -1, /* B0 */
|
||
-1, -1, -1, -1, -1, -1, -1, -1,
|
||
-1, -1, -1, -1, -1, -1, -1, -1, /* C0 */
|
||
-1, -1, -1, -1, -1, -1, -1, -1,
|
||
-1, -1, -1, -1, -1, -1, -1, -1, /* D0 */
|
||
-1, -1, -1, -1, -1, -1, -1, -1,
|
||
-1, -1, -1, -1, -1, -1, -1, -1, /* E0 */
|
||
-1, -1, -1, -1, -1, -1, -1, -1,
|
||
-1, -1, -1, -1, -1, -1, -1, -1, /* F0 */
|
||
-1, -1, -1, -1, -1, -1, -1, -1 };
|
||
|
||
/* Paper tape reader IO routine
|
||
|
||
- Hard errors halt the operation and the system.
|
||
- Parity errors place an invalid character in memory and set
|
||
RDCHK, but the read continues until end of record. If IO
|
||
stop is set, the system then halts.
|
||
*/
|
||
|
||
t_stat ptr (uint32 op, uint32 pa, uint32 f0, uint32 f1)
|
||
{
|
||
uint32 i;
|
||
int8 mc;
|
||
uint8 ptc;
|
||
t_stat r, inv = SCPE_OK;
|
||
|
||
switch (op) { /* case on op */
|
||
case OP_RN: /* read numeric */
|
||
for (i = 0; i < MEMSIZE; i++) { /* (stop runaway) */
|
||
r = ptr_read (&ptc, TRUE); /* read frame */
|
||
if (r != SCPE_OK) return r; /* error? */
|
||
if (ptc & PT_EL) { /* end record? */
|
||
M[pa] = REC_MARK; /* store rec mark */
|
||
CRETIOE (io_stop, inv); } /* done */
|
||
if (bad_par[ptc]) { /* bad parity? */
|
||
ind[IN_RDCHK] = 1; /* set read check */
|
||
inv = STOP_INVCHR; /* set return status */
|
||
M[pa] = 0; } /* store zero */
|
||
else M[pa] = ptr_to_num[ptc]; /* translate, store */
|
||
PP (pa); } /* incr mem addr */
|
||
break;
|
||
case OP_RA: /* read alphameric */
|
||
for (i = 0; i < MEMSIZE; i = i + 2) { /* (stop runaway) */
|
||
r = ptr_read (&ptc, TRUE); /* read frame */
|
||
if (r != SCPE_OK) return r; /* error? */
|
||
if (ptc & PT_EL) { /* end record? */
|
||
M[pa] = REC_MARK; /* store rec mark */
|
||
M[pa - 1] = 0;
|
||
CRETIOE (io_stop, inv); } /* done */
|
||
mc = ptr_to_alp[ptc]; /* translate */
|
||
if (bad_par[ptc] || (mc < 0)) { /* bad par or char? */
|
||
ind[IN_RDCHK] = 1; /* set read check */
|
||
inv = STOP_INVCHR; /* set return status */
|
||
mc = 0; } /* store blank */
|
||
M[pa] = (M[pa] & FLAG) | (mc & DIGIT); /* store 2 digits */
|
||
M[pa - 1] = (M[pa - 1] & FLAG) | ((mc >> 4) & DIGIT);
|
||
pa = ADDR_A (pa, 2); } /* incr mem addr */
|
||
break;
|
||
default: /* invalid function */
|
||
return STOP_INVFNC; }
|
||
return STOP_RWRAP;
|
||
}
|
||
|
||
/* Binary paper tape reader IO routine - see above for error handling */
|
||
|
||
t_stat btr (uint32 op, uint32 pa, uint32 f0, uint32 f1)
|
||
{
|
||
uint32 i;
|
||
uint8 ptc;
|
||
t_stat r, inv = SCPE_OK;
|
||
|
||
if ((cpu_unit.flags & IF_BIN) == 0) return STOP_INVIO;
|
||
switch (op) { /* case on op */
|
||
case OP_RA: /* read alphameric */
|
||
for (i = 0; i < MEMSIZE; i = i + 2) { /* (stop runaway) */
|
||
r = ptr_read (&ptc, FALSE); /* read frame */
|
||
if (r != SCPE_OK) return r; /* error? */
|
||
if (ptc & PT_EL) { /* end record? */
|
||
M[pa] = REC_MARK; /* store rec mark */
|
||
M[pa - 1] = 0;
|
||
CRETIOE (io_stop, inv); } /* done */
|
||
if (bad_par[ptc]) { /* bad parity? */
|
||
ind[IN_RDCHK] = 1; /* set read check */
|
||
inv = STOP_INVCHR; } /* set return status */
|
||
M[pa] = (M[pa] & FLAG) | (ptc & 07); /* store 2 digits */
|
||
M[pa - 1] = (M[pa - 1] & FLAG) |
|
||
(((ptc >> 5) & 06) | ((ptc >> 3) & 1));
|
||
pa = ADDR_A (pa, 2); } /* incr mem addr */
|
||
break;
|
||
default: /* invalid function */
|
||
return STOP_INVFNC; }
|
||
return STOP_RWRAP;
|
||
}
|
||
|
||
/* Read ptr frame - all errors are 'hard' errors and halt the system */
|
||
|
||
t_stat ptr_read (uint8 *c, t_bool ignfeed)
|
||
{
|
||
int32 temp;
|
||
|
||
if ((ptr_unit.flags & UNIT_ATT) == 0) { /* attached? */
|
||
ind[IN_RDCHK] = 1; /* no, error */
|
||
return SCPE_UNATT; }
|
||
|
||
do { if ((temp = getc (ptr_unit.fileref)) == EOF) { /* read char */
|
||
ind[IN_RDCHK] = 1; /* err, rd chk */
|
||
if (feof (ptr_unit.fileref))
|
||
printf ("PTR end of file\n");
|
||
else perror ("PTR I/O error");
|
||
clearerr (ptr_unit.fileref);
|
||
return SCPE_IOERR; }
|
||
*c = temp & 0377; /* save char */
|
||
ptr_unit.pos = ptr_unit.pos + 1; } /* incr file addr */
|
||
while (ignfeed && (*c == PT_FD)); /* until not feed */
|
||
return SCPE_OK;
|
||
}
|
||
|
||
/* Reset routine */
|
||
|
||
t_stat ptr_reset (DEVICE *dptr)
|
||
{
|
||
return SCPE_OK;
|
||
}
|
||
|
||
/* Bootstrap routine */
|
||
|
||
const static uint8 boot_rom[] = {
|
||
4, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* NOP */
|
||
3, 6, 0, 0, 0, 3, 1, 0, 0, 3, 0, 0, /* RNPT 31 */
|
||
2, 5, 0, 0, 0, 7, 1, 0, 0, 0, 0, 0, /* TD 71,loc */
|
||
3, 6, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, /* RNPT loc1 */
|
||
2, 6, 0, 0, 0, 6, 6, 0, 0, 0, 3, 5, /* TF 66,35 */
|
||
1, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* TDM loc2,loc3 */
|
||
4, 9, 0, 0, 0, 1, 2, 0, 0, 0, 0, 0 }; /* BR 12 */
|
||
|
||
#define BOOT_START 0
|
||
#define BOOT_LEN (sizeof (boot_rom) / sizeof (uint8))
|
||
|
||
t_stat ptr_boot (int32 unitno, DEVICE *dptr)
|
||
{
|
||
int32 i;
|
||
extern int32 saved_PC;
|
||
|
||
for (i = 0; i < BOOT_LEN; i++) M[BOOT_START + i] = boot_rom[i];
|
||
saved_PC = BOOT_START;
|
||
return SCPE_OK;
|
||
}
|
||
|
||
/* Paper tape punch IO routine
|
||
|
||
- Hard errors halt the operation and the system.
|
||
- Parity errors stop the operation and set WRCHK.
|
||
If IO stop is set, the system then halts.
|
||
*/
|
||
|
||
t_stat ptp (uint32 op, uint32 pa, uint32 f0, uint32 f1)
|
||
{
|
||
uint32 i;
|
||
int8 ptc;
|
||
uint8 z, d;
|
||
t_stat r;
|
||
|
||
switch (op) { /* decode op */
|
||
case OP_DN:
|
||
return ptp_num (pa, 20000 - (pa % 20000)); /* dump numeric */
|
||
case OP_WN:
|
||
return ptp_num (pa, 0); /* punch numeric */
|
||
case OP_WA:
|
||
for (i = 0; i < MEMSIZE; i = i + 2) { /* stop runaway */
|
||
d = M[pa] & DIGIT; /* get digit */
|
||
z = M[pa - 1] & DIGIT; /* get zone */
|
||
if ((d & REC_MARK) == REC_MARK) /* 8-2 char? */
|
||
return ptp_write (PT_EL); /* end record */
|
||
ptc = alp_to_ptp[(z << 4) | d]; /* translate pair */
|
||
if (ptc < 0) { /* bad char? */
|
||
ind[IN_WRCHK] = 1; /* write check */
|
||
CRETIOE (io_stop, STOP_INVCHR); }
|
||
r = ptp_write (ptc); /* write char */
|
||
if (r != SCPE_OK) return r; /* error? */
|
||
pa = ADDR_A (pa, 2); } /* incr mem addr */
|
||
break;
|
||
default: /* invalid function */
|
||
return STOP_INVFNC; }
|
||
return STOP_RWRAP;
|
||
}
|
||
|
||
/* Binary paper tape punch IO routine - see above for error handling */
|
||
|
||
t_stat btp (uint32 op, uint32 pa, uint32 f0, uint32 f1)
|
||
{
|
||
uint32 i;
|
||
uint8 ptc, z, d;
|
||
t_stat r;
|
||
|
||
if ((cpu_unit.flags & IF_BIN) == 0) return STOP_INVIO;
|
||
switch (op) { /* decode op */
|
||
case OP_WA:
|
||
for (i = 0; i < MEMSIZE; i = i + 2) { /* stop runaway */
|
||
d = M[pa] & DIGIT; /* get digit */
|
||
z = M[pa - 1] & DIGIT; /* get zone */
|
||
if ((d & REC_MARK) == REC_MARK) /* 8-2 char? */
|
||
return ptp_write (PT_EL); /* end record */
|
||
ptc = ((z & 06) << 5) | ((z & 01) << 3) | (d & 07);
|
||
if (bad_par[ptc]) ptc = ptc | PT_C; /* set parity */
|
||
r = ptp_write (ptc); /* write char */
|
||
if (r != SCPE_OK) return r; /* error? */
|
||
pa = ADDR_A (pa, 2); } /* incr mem addr */
|
||
break;
|
||
default: /* invalid function */
|
||
return STOP_INVFNC; }
|
||
return STOP_RWRAP;
|
||
}
|
||
|
||
/* Punch tape numeric - cannot generate parity errors */
|
||
|
||
t_stat ptp_num (uint32 pa, uint32 len)
|
||
{
|
||
t_stat r;
|
||
uint8 d;
|
||
uint32 i, end;
|
||
|
||
end = pa + len;
|
||
for (i = 0; i < MEMSIZE; i++) { /* stop runaway */
|
||
d = M[pa] & (FLAG | DIGIT); /* get char */
|
||
if (len? (pa >= end): /* dump: end reached? */
|
||
((d & REC_MARK) == REC_MARK)) /* write: rec mark? */
|
||
return ptp_write (PT_EL); /* end record */
|
||
r = ptp_write (num_to_ptp[d]); /* write */
|
||
if (r != SCPE_OK) return r; /* error? */
|
||
PP (pa); } /* incr mem addr */
|
||
return STOP_RWRAP;
|
||
}
|
||
|
||
/* Write ptp frame - all errors are hard errors */
|
||
|
||
t_stat ptp_write (uint32 c)
|
||
{
|
||
if ((ptp_unit.flags & UNIT_ATT) == 0) { /* attached? */
|
||
ind[IN_WRCHK] = 1; /* no, error */
|
||
return SCPE_UNATT; }
|
||
|
||
if (putc (c, ptp_unit.fileref) == EOF) { /* write char */
|
||
ind[IN_WRCHK] = 1; /* error? */
|
||
perror ("PTP I/O error");
|
||
clearerr (ptp_unit.fileref);
|
||
return SCPE_IOERR; }
|
||
ptp_unit.pos = ptp_unit.pos + 1; /* count char */
|
||
return SCPE_OK;
|
||
}
|
||
|
||
/* Reset routine */
|
||
|
||
t_stat ptp_reset (DEVICE *dptr)
|
||
{
|
||
return SCPE_OK;
|
||
}
|