simh-testsetgenerator/Ibm1130/ibm1130_prt.c

/* ibm1130_prt.c: IBM 1130 line printer emulation

   Based on the SIMH simulator package written by Robert M Supnik

   Brian Knittel
   Revision History

   2003.12.02 - Added -p option for physical line printer output (flushes
   				output buffer after each line). When using a physical printer on
   				Windows, be sure to set printer to "send output directly to printer"
   				to disable spooling, otherwise nothing appears until printer is
				detatched.

   2003.11.25 - Changed magic filename for standard output to "(stdout)".

   2002.09.13 - Added 1403 support. New file, taken from part of ibm1130_stddev.c

   Note: The 1403 is much faster, even in emulation, because it takes much
   less CPU power to run it. DMS doesn't use the WAIT command when waiting for
   printer operations to complete, so it ends up burning LOTS of cpu cycles.
   The 1403 printer doesn't require as many.  HOWEVER: DMS must be loaded for the 1403,
   and Fortran IOCS control cards must specify it.

   The 1132 is still the default printer.

   As written, we can't have two printers.

 * (C) Copyright 2002, Brian Knittel.
 * You may freely use this program, but: it offered strictly on an AS-IS, AT YOUR OWN
 * RISK basis, there is no warranty of fitness for any purpose, and the rest of the
 * usual yada-yada. Please keep this notice and the copyright in any distributions
 * or modifications.
 *
 * This is not a supported product, but I welcome bug reports and fixes.
 * Mail to simh@ibm1130.org
 */

#include "ibm1130_defs.h"

/***************************************************************************************
 *  1132 PRINTER 
 ***************************************************************************************/

#define PRT1132_DSW_READ_EMITTER_RESPONSE		0x8000
#define PRT1132_DSW_SKIP_RESPONSE				0x4000
#define PRT1132_DSW_SPACE_RESPONSE				0x2000
#define PRT1132_DSW_CARRIAGE_BUSY				0x1000
#define PRT1132_DSW_PRINT_SCAN_CHECK			0x0800
#define PRT1132_DSW_NOT_READY					0x0400
#define PRT1132_DSW_PRINTER_BUSY				0x0200

#define PRT1132_DSW_CHANNEL_MASK				0x00FF			/* 1132 printer DSW bits */
#define PRT1132_DSW_CHANNEL_1					0x0080
#define PRT1132_DSW_CHANNEL_2					0x0040
#define PRT1132_DSW_CHANNEL_3					0x0020
#define PRT1132_DSW_CHANNEL_4					0x0010
#define PRT1132_DSW_CHANNEL_5					0x0008
#define PRT1132_DSW_CHANNEL_6					0x0004
#define PRT1132_DSW_CHANNEL_9					0x0002
#define PRT1132_DSW_CHANNEL_12					0x0001

#define PRT1403_DSW_PARITY_CHECK				0x8000			/* 1403 printer DSW bits */
#define PRT1403_DSW_TRANSFER_COMPLETE			0x4000
#define PRT1403_DSW_PRINT_COMPLETE				0x2000
#define PRT1403_DSW_CARRIAGE_COMPLETE			0x1000
#define PRT1403_DSW_RING_CHECK					0x0400
#define PRT1403_DSW_SYNC_CHECK					0x0200
#define PRT1403_DSW_CH9							0x0010
#define PRT1403_DSW_CH12						0x0008
#define PRT1403_DSW_CARRIAGE_BUSY				0x0004
#define PRT1403_DSW_PRINTER_BUSY				0x0002
#define PRT1403_DSW_NOT_READY					0x0001

#define IS_ONLINE(u) (((u)->flags & (UNIT_ATT|UNIT_DIS)) == UNIT_ATT)

static t_stat prt1132_svc(UNIT *uptr);
static t_stat prt1403_svc(UNIT *uptr);
static t_stat prt_svc    (UNIT *uptr);
static t_stat prt_reset  (DEVICE *dptr);
static t_stat prt_attach (UNIT *uptr, char *cptr);
static t_stat prt_detach (UNIT *uptr);

static int16 PRT_DSW   = 0;									/* device status word */
static int32 prt_swait = 500;								/* line skip wait */
static int32 prt_cwait = 1250;								/* character rotation wait */
static int32 prt_fwait = 100;								/* fast wait, for 1403 operations */
static int32 prt_twait = 50;								/* transfer wait, for 1403 operations */
#define SKIPTARGET	(uptr->u4)								/* target for skip operation */

#define UNIT_V_FORMCHECK    (UNIT_V_UF + 0)					/* out of paper error */
#define UNIT_V_DATACHECK    (UNIT_V_UF + 1)					/* printer overrun error */
#define UNIT_V_SKIPPING	    (UNIT_V_UF + 2)					/* printer skipping */
#define UNIT_V_SPACING	    (UNIT_V_UF + 3)					/* printer is spacing */
#define UNIT_V_PRINTING	    (UNIT_V_UF + 4)					/* printer printing */
#define UNIT_V_TRANSFERRING (UNIT_V_UF + 5)					/* unit is transferring print buffer (1403 only) */
#define UNIT_V_1403		    (UNIT_V_UF + 6)					/* printer model is 1403 rather than 1132 */
#define UNIT_V_PARITYCHECK	(UNIT_V_UF + 7)					/* error flags for 1403 */
#define UNIT_V_RINGCHECK	(UNIT_V_UF + 8)
#define UNIT_V_SYNCCHECK	(UNIT_V_UF + 9)
#define UNIT_V_PHYSICAL_PTR	(UNIT_V_UF + 10)				/* this appears in ibm1130_gui as well */

#define UNIT_FORMCHECK	  (1u << UNIT_V_FORMCHECK)
#define UNIT_DATACHECK	  (1u << UNIT_V_DATACHECK)
#define UNIT_SKIPPING	  (1u << UNIT_V_SKIPPING)
#define UNIT_SPACING	  (1u << UNIT_V_SPACING)
#define UNIT_PRINTING	  (1u << UNIT_V_PRINTING)
#define UNIT_TRANSFERRING (1u << UNIT_V_TRANSFERRING)
#define UNIT_1403	 	  (1u << UNIT_V_1403)
#define UNIT_PARITYCHECK  (1u << UNIT_V_PARITYCHECK)	
#define UNIT_RINGCHECK	  (1u << UNIT_V_RINGCHECK)
#define UNIT_SYNCCHECK	  (1u << UNIT_V_SYNCCHECK)
#define UNIT_PHYSICAL_PTR (1u << UNIT_V_PHYSICAL_PTR)

UNIT prt_unit[] = {
	{ UDATA (&prt_svc, UNIT_ATTABLE, 0) },
};

#define IS_1403(uptr)      (uptr->flags & UNIT_1403)					/* model test */
#define IS_1132(uptr)     ((uptr->flags & UNIT_1403) == 0)				/* model test */
#define IS_PHYSICAL(uptr)  (uptr->flags & UNIT_PHYSICAL_PTR)

/* Parameter in the unit descriptor (1132 printer) */

#define CMD_NONE		0
#define CMD_SPACE		1
#define CMD_SKIP		2
#define CMD_PRINT		3

REG prt_reg[] = {
	{ HRDATA (PRTDSW, PRT_DSW, 16) },					/* device status word */
	{ DRDATA (STIME,  prt_swait, 24), PV_LEFT },		/* line skip wait */
	{ DRDATA (CTIME,  prt_cwait, 24), PV_LEFT },		/* character rotation wait */
	{ DRDATA (FTIME,  prt_fwait, 24), PV_LEFT },		/* 1403 fast wait */
	{ DRDATA (TTIME,  prt_twait, 24), PV_LEFT },		/* 1403 transfer wait */
	{ NULL }  };

MTAB prt_mod[] = {
	{ UNIT_1403, 0,         "1132", "1132", NULL },		/* model option */
	{ UNIT_1403, UNIT_1403, "1403", "1403", NULL },
	{ 0 }  };

DEVICE prt_dev = {
	"PRT", prt_unit, prt_reg, prt_mod,
	1, 16, 16, 1, 16, 16,
	NULL, NULL, &prt_reset,
	NULL, prt_attach, prt_detach};

#define PRT_COLUMNS 120
#define PRT_ROWLEN	120
#define MAX_OVPRINT	 20

static char prtbuf[PRT_ROWLEN*MAX_OVPRINT];
static int  nprint[PRT_COLUMNS], ncol[MAX_OVPRINT], maxnp;
static int  prt_nchar, prt_row;							/* current printwheel position, current page row */
static int  prt_nnl;									/* number of queued newlines */

#define CC_CHANNEL_1		0x0800						/* carriage control tape punch values */
#define CC_CHANNEL_2		0x0400
#define CC_CHANNEL_3		0x0200
#define CC_CHANNEL_4		0x0100
#define CC_CHANNEL_5		0x0080
#define CC_CHANNEL_6		0x0040						/* 7, 8, 10 and 11 are not used on 1132 printer */
#define CC_CHANNEL_7		0x0020
#define CC_CHANNEL_8		0x0010
#define CC_CHANNEL_9		0x0008
#define CC_CHANNEL_10		0x0004
#define CC_CHANNEL_11		0x0002
#define CC_CHANNEL_12		0x0001

#define CC_1403_BITS		0x0FFF						/* all bits for 1403, most for 1132 */
#define CC_1132_BITS		(CC_1403_BITS & ~(CC_CHANNEL_7|CC_CHANNEL_8|CC_CHANNEL_10|CC_CHANNEL_11))

#define PRT_PAGELENGTH 66

static int cctape[PRT_PAGELENGTH];						/* standard carriage control tape */

static struct tag_ccpunches {							/* list of rows and punches on tape */
	int row, channels;
}
ccpunches[] = {
      2, CC_CHANNEL_1,									// channel  1 = top of form
	 62, CC_CHANNEL_12									// channel 12 = bottom of form
},
cccgi[] = {
      2, CC_CHANNEL_1									// channel  1 = top of form; no bottom of form
};

#include "ibm1130_prtwheel.h"

extern int32 sim_switches;

// cc_format_1132 and cc_format_1403 - turn cctape bits into proper format for DSW or status read

static int cc_format_1132 (int bits)
{
	return ((bits & (CC_CHANNEL_1|CC_CHANNEL_2|CC_CHANNEL_3|CC_CHANNEL_4|CC_CHANNEL_5|CC_CHANNEL_6)) >> 4) |
	       ((bits & CC_CHANNEL_9) >> 3) |
		    (bits & CC_CHANNEL_12);
}

#define cc_format_1403(bits) (bits)

// reset_prt_line - clear the print line following paper advancement

static void reset_prt_line (void)
{
	memset(nprint, 0, sizeof(nprint));
	memset(ncol,   0, sizeof(ncol));
	maxnp = 0;
}

// save_1132_prt_line - fire hammers for character 'ch'

static t_bool save_1132_prt_line (int ch)
{
	int i, r, addr = 32;
	int32 mask = 0, wd = 0;

	for (i = 0; i < PRT_COLUMNS; i++) {
		if (mask == 0) {					// fetch next word from memory
			mask = 0x8000;
			wd   = M[addr++];
		}

		if (wd & mask) {					// hammer is to fire in this column
			if ((r = nprint[i]) < MAX_OVPRINT) {
				if (ncol[r] <= i) {				// we haven't moved this far yet
					if (ncol[r] == 0)									// first char in this row?
						memset(prtbuf+r*PRT_ROWLEN, ' ', PRT_COLUMNS);	// blank out the new row
					ncol[r] = i+1;										// remember new row length
				}
				prtbuf[r*PRT_ROWLEN + i] = (char) ch;					// save the character

				nprint[i]++;											// remember max overprintings for this column
				maxnp = MAX(maxnp, nprint[i]);
			}
		}

		mask >>= 1;														// prepare to examine next bit
	}

	return wd & 1;			// return TRUE if the last word has lsb set, which means all bits had been set
}

// write_line - write collected line to output file. No need to trim spaces as the hammers
// are never fired for them, so ncol[r] is the last printed position on each line.

static void newpage (FILE *fd)
{
	if (cgi)
		fputs("<HR>\n", fd);
	else
		putc('\f', fd);									// formfeed
}

static void flush_prt_line (FILE *fd, int spacemode, t_bool phys_flush)
{
	int r;

	if (! (spacemode || maxnp))								// nothing to do
		return;

	prt_row = (prt_row+1) % PRT_PAGELENGTH;					// NEXT line

	if (spacemode && ! maxnp) {								// spacing only
		if (prt_row == 0 && prt_nnl) {
#ifdef WIN32
			if (! cgi)
				putc('\r', fd);								// DOS/Windows: end with cr/lf
#endif
			putc('\n', fd);									// otherwise end with lf
			if (spacemode & UNIT_SKIPPING)					// add formfeed if we crossed page boundary while skipping
				newpage(fd);
			prt_nnl = 0;
		}
		else
			prt_nnl++;

		prt_unit->pos++;									// note something written
		return;
	}

	if (prt_nnl) {											// there are queued newlines
// if we spaced to top of form, don't emit formfeed. We'd only ever emit the formfeed if we skipped	via control tape channels
//		if (prt_row == 0 && prt_nnl) {						// we spaced to top of form
//#ifdef WIN32
//			if (! cgi)
//				putc('\r', fd);								// DOS/Windows: end with cr/lf
//#endif
//			putc('\n', fd);									// otherwise end with lf
//			newpage(fd);
//			prt_nnl = 0;
//		}
//		else {
			while (prt_nnl > 0) {							// spit out queued newlines
#ifdef WIN32
				if (! cgi)
					putc('\r', fd);							// DOS/Windows: end with cr/lf
#endif
				putc('\n', fd);								// otherwise end with lf
				prt_nnl--;
			}
//		}
	}

	for (r = 0; r < maxnp; r++) {
		if (r > 0)
			putc('\r', fd);									// carriage return between overprinted lines
		fxwrite(&prtbuf[r*PRT_ROWLEN], 1, ncol[r], fd);
	}

	reset_prt_line();

	prt_unit->pos++;										// note something written
	prt_nnl++;												// queue a newline

	if (phys_flush)											// if physical printer, send buffered output to device
		fflush(fd);
}

// 1132 printer commands

#define PRT_CMD_START_PRINTER		0x0080
#define PRT_CMD_STOP_PRINTER		0x0040
#define PRT_CMD_START_CARRIAGE		0x0004
#define PRT_CMD_STOP_CARRIAGE		0x0002
#define PRT_CMD_SPACE				0x0001

#define PRT_CMD_MASK				0x00C7

extern char * saywhere (int addr);

static void mytrace (int start, char *what)
{
	char *where;

	if ((where = saywhere(prev_IAR)) == NULL) where = "?";
	trace_io("%s %s at %04x: %s\n", start ? "start" : "stop", what, prev_IAR, where);
}

/* xio_1132_printer - XIO command interpreter for the 1132 printer */

void xio_1132_printer (int32 iocc_addr, int32 func, int32 modify)
{
	char msg[80];
	UNIT *uptr = &prt_unit[0];

	switch (func) {
		case XIO_READ:
			M[iocc_addr & mem_mask] = codewheel1132[prt_nchar].ebcdic << 8;

			if ((uptr->flags & UNIT_PRINTING) == 0)				/* if we're not printing, advance this after every test */
				prt_nchar = (prt_nchar + 1) % WHEELCHARS_1132;
			break;

		case XIO_SENSE_DEV:
			ACC = PRT_DSW;
			if (modify & 0x01) {								/* reset interrupts */
				CLRBIT(PRT_DSW, PRT1132_DSW_READ_EMITTER_RESPONSE | PRT1132_DSW_SKIP_RESPONSE | PRT1132_DSW_SPACE_RESPONSE);
				CLRBIT(ILSW[1], ILSW_1_1132_PRINTER);
			}
			break;

		case XIO_CONTROL:
			if (modify & PRT_CMD_START_PRINTER) {
				SETBIT(uptr->flags, UNIT_PRINTING);
//				mytrace(1, "printing");
			}

			if (modify & PRT_CMD_STOP_PRINTER) {
				CLRBIT(uptr->flags, UNIT_PRINTING);
//				mytrace(0, "printing");
			}

			if (modify & PRT_CMD_START_CARRIAGE) {
				SETBIT(uptr->flags, UNIT_SKIPPING);
//				mytrace(1, "skipping");
			}

			if (modify & PRT_CMD_STOP_CARRIAGE) {
				CLRBIT(uptr->flags, UNIT_SKIPPING);
//				mytrace(0, "skipping");
			}

			if (modify & PRT_CMD_SPACE) {
				SETBIT(uptr->flags, UNIT_SPACING);
//				mytrace(1, "space");
			}

			sim_cancel(uptr);
			if (uptr->flags & (UNIT_SKIPPING|UNIT_SPACING|UNIT_PRINTING)) {		// busy bits = doing something
				SETBIT(PRT_DSW, PRT1132_DSW_PRINTER_BUSY);
				sim_activate(uptr, prt_cwait);
			}
			else
				CLRBIT(PRT_DSW, PRT1132_DSW_PRINTER_BUSY);

			if (uptr->flags & (UNIT_SKIPPING|UNIT_SPACING))
				SETBIT(PRT_DSW, PRT1132_DSW_CARRIAGE_BUSY);
			else
				CLRBIT(PRT_DSW, PRT1132_DSW_CARRIAGE_BUSY);
			
			if ((uptr->flags & (UNIT_SKIPPING|UNIT_SPACING)) == (UNIT_SKIPPING|UNIT_SPACING)) {
				sprintf(msg, "1132 printer skip and space at same time?");
				xio_error(msg);
			}
			break;

		default:
			sprintf(msg, "Invalid 1132 printer XIO function %x", func);
			xio_error(msg);
	}
}

#define SET_ACTION(u,a) {(u)->flags &= ~(UNIT_SKIPPING|UNIT_SPACING|UNIT_PRINTING|UNIT_TRANSFERRING); (u)->flags |= a;}

static t_stat prt_svc (UNIT *uptr)
{
	return IS_1403(uptr) ? prt1403_svc(uptr) : prt1132_svc(uptr);
}

// prt1132_svc - emulated timeout for 1132 operation

static t_stat prt1132_svc (UNIT *uptr)
{
	if (PRT_DSW & PRT1132_DSW_NOT_READY) {					// cancel operation if printer went offline
		SETBIT(uptr->flags, UNIT_FORMCHECK);
		SET_ACTION(uptr, 0);
		forms_check(TRUE);									// and turn on forms check lamp
		return SCPE_OK;
	}

	if (uptr->flags & UNIT_SPACING) {
		flush_prt_line(uptr->fileref, UNIT_SPACING, IS_PHYSICAL(uptr));

		CLRBIT(PRT_DSW, PRT1132_DSW_CHANNEL_MASK|PRT1132_DSW_PRINTER_BUSY|PRT1132_DSW_CARRIAGE_BUSY);
		SETBIT(PRT_DSW, cc_format_1132(cctape[prt_row]) | PRT1132_DSW_SPACE_RESPONSE);
		SETBIT(ILSW[1], ILSW_1_1132_PRINTER);
		CLRBIT(uptr->flags, UNIT_SPACING);					// done with this
		calc_ints();
	}

	if (uptr->flags & UNIT_SKIPPING) {
		do {
			flush_prt_line(uptr->fileref, UNIT_SKIPPING, IS_PHYSICAL(uptr));
			CLRBIT(PRT_DSW, PRT1132_DSW_CHANNEL_MASK);
			SETBIT(PRT_DSW, cc_format_1132(cctape[prt_row]));
		} while ((cctape[prt_row] & CC_1132_BITS) == 0);			// slew directly to a cc tape punch

		SETBIT(PRT_DSW, cc_format_1132(cctape[prt_row]) | PRT1132_DSW_SKIP_RESPONSE);
		SETBIT(ILSW[1], ILSW_1_1132_PRINTER);
		calc_ints();
	}

	if (uptr->flags & UNIT_PRINTING) {
		if (! save_1132_prt_line(codewheel1132[prt_nchar].ascii)) {	// save previous printed line
			SETBIT(uptr->flags, UNIT_DATACHECK);					// buffer wasn't set in time
			SET_ACTION(uptr, 0);
			print_check(TRUE);										// and turn on forms check lamp
			return SCPE_OK;
		}

		prt_nchar = (prt_nchar + 1) % WHEELCHARS_1132;				// advance print drum

		SETBIT(PRT_DSW, PRT1132_DSW_READ_EMITTER_RESPONSE);			// issue interrupt to tell printer to set buffer
		SETBIT(ILSW[1], ILSW_1_1132_PRINTER);						// we'll save the printed stuff just before next emitter response (later than on real 1130)
		calc_ints();
	}

	if (uptr->flags & (UNIT_SPACING|UNIT_SKIPPING|UNIT_PRINTING)) {	// still doing something
		SETBIT(PRT_DSW, PRT1132_DSW_PRINTER_BUSY);
		sim_activate(uptr, prt_cwait);
	}
	else
		CLRBIT(PRT_DSW, PRT1132_DSW_PRINTER_BUSY);

	return SCPE_OK;
}

void save_1403_prt_line (int32 addr)
{
	int i, j, r, ch, even = TRUE;
	unsigned char ebcdic;
	int32 wd;

	for (i = 0; i < PRT_COLUMNS; i++) {
		if (even) {										// fetch next word from memory
			wd     = M[addr++];
			ebcdic = (unsigned char) ((wd >> 8) & 0x7F);
			even   = FALSE;
		}
		else {
			ebcdic = (unsigned char) (wd & 0x7F);		// use low byte of previously fetched word
			even   = TRUE;
		}

		ch = ' ';										// translate ebcdic to ascii. Don't bother checking for parity errors
		for (j = 0; j < WHEELCHARS_1403; j++) {
			if (codewheel1403[j].ebcdic == ebcdic) {
				ch = codewheel1403[j].ascii;
				break;
			}
		}

		if (ch > ' ') {
			if ((r = nprint[i]) < MAX_OVPRINT) {
				if (ncol[r] <= i) {						// we haven't moved this far yet
					if (ncol[r] == 0)					// first char in this row?
						memset(prtbuf+r*PRT_ROWLEN, ' ', PRT_COLUMNS);	// blank out the new row
					ncol[r] = i+1;										// remember new row length
				}
				prtbuf[r*PRT_ROWLEN + i] = (char) ch;	// save the character

				nprint[i]++;							// remember max overprintings for this column
				maxnp = MAX(maxnp, nprint[i]);
			}
		}
	}
}

void xio_1403_printer (int32 iocc_addr, int32 func, int32 modify)
{
	UNIT *uptr = &prt_unit[0];

	switch (func) {
		case XIO_INITW:												/* print a line */
			save_1403_prt_line(iocc_addr);							/* put formatted line into our print buffer */

			SETBIT(uptr->flags, UNIT_TRANSFERRING);					/* schedule transfer complete interrupt */
			SETBIT(PRT_DSW, PRT1403_DSW_PRINTER_BUSY);
			sim_activate(uptr, prt_twait);
			break;

		case XIO_CONTROL:											/* initiate single space */
			if (uptr->flags & UNIT_SKIPPING) {
				xio_error("1403 printer skip and space at same time?");
			}
			else {
				SETBIT(uptr->flags, UNIT_SPACING);
				SETBIT(PRT_DSW, PRT1403_DSW_CARRIAGE_BUSY);
				sim_activate(uptr, prt_fwait);
			}
			break;

		case XIO_WRITE:												/* initiate skip */
			if (uptr->flags & UNIT_SPACING) {
				xio_error("1403 printer skip and space at same time?");
			}
			else {
				SETBIT(uptr->flags, UNIT_SKIPPING);
				SKIPTARGET = ReadW(iocc_addr) & CC_1403_BITS;		/* get CC bits that we're to match */
				SETBIT(PRT_DSW, PRT1403_DSW_CARRIAGE_BUSY);
				sim_activate(uptr, prt_fwait);
			}
			break;

		case XIO_SENSE_DEV:											/* get device status word */
			ACC = PRT_DSW;
			if (modify & 0x01) {									/* reset interrupts */
				CLRBIT(PRT_DSW, PRT1403_DSW_PARITY_CHECK   | PRT1403_DSW_TRANSFER_COMPLETE |
								PRT1403_DSW_PRINT_COMPLETE | PRT1403_DSW_CARRIAGE_COMPLETE | 
								PRT1403_DSW_RING_CHECK     | PRT1403_DSW_SYNC_CHECK);
				CLRBIT(ILSW[4], ILSW_4_1403_PRINTER);
			}
			break;
	}
}

static t_stat prt1403_svc(UNIT *uptr)
{
	if (PRT_DSW & PRT1403_DSW_NOT_READY) {					// cancel operation if printer went offline
		SET_ACTION(uptr, 0);
		forms_check(TRUE);									// and turn on forms check lamp
	}
	else if (uptr->flags & UNIT_TRANSFERRING) {				// end of transfer
		CLRBIT(uptr->flags, UNIT_TRANSFERRING);
		SETBIT(uptr->flags, UNIT_PRINTING);					// schedule "print complete"

		SETBIT(PRT_DSW, PRT1403_DSW_TRANSFER_COMPLETE);		// issue transfer complete interrupt
		SETBIT(ILSW[4], ILSW_4_1403_PRINTER);
	}
	else if (uptr->flags & UNIT_PRINTING) {
		CLRBIT(uptr->flags, UNIT_PRINTING);
		CLRBIT(PRT_DSW, PRT1403_DSW_PRINTER_BUSY);

		SETBIT(PRT_DSW, PRT1403_DSW_PRINT_COMPLETE);
		SETBIT(ILSW[4], ILSW_4_1403_PRINTER);				// issue print complete interrupt
	}
	else if (uptr->flags & UNIT_SKIPPING) {
		do {												// find line with exact match of tape punches
			flush_prt_line(uptr->fileref, UNIT_SKIPPING, IS_PHYSICAL(uptr));
		} while (cctape[prt_row] != SKIPTARGET);			// slew directly to requested cc tape punch

		CLRBIT(uptr->flags, UNIT_SKIPPING);					// done with this
		CLRBIT(PRT_DSW, PRT1403_DSW_CARRIAGE_BUSY);

		SETBIT(PRT_DSW, PRT1403_DSW_CARRIAGE_COMPLETE);
		SETBIT(ILSW[4], ILSW_4_1403_PRINTER);
	}
	else if (uptr->flags & UNIT_SPACING) {
		flush_prt_line(uptr->fileref, UNIT_SPACING, IS_PHYSICAL(uptr));

		CLRBIT(uptr->flags, UNIT_SPACING);					// done with this
		CLRBIT(PRT_DSW, PRT1403_DSW_CARRIAGE_BUSY);

		SETBIT(PRT_DSW, PRT1403_DSW_CARRIAGE_COMPLETE);
		SETBIT(ILSW[4], ILSW_4_1403_PRINTER);
	}

	if (uptr->flags & (UNIT_PRINTING|UNIT_SKIPPING|UNIT_SPACING|UNIT_TRANSFERRING))
		sim_activate(uptr, prt_fwait);

	CLRBIT(PRT_DSW, PRT1403_DSW_CH9|PRT1403_DSW_CH12);		// set the two CC bits in the DSW
	if (cctape[prt_row] & CC_CHANNEL_9)
		SETBIT(PRT_DSW, PRT1403_DSW_CH9);
	if (cctape[prt_row] & CC_CHANNEL_12)
		SETBIT(PRT_DSW, PRT1403_DSW_CH12);

	calc_ints();
	return SCPE_OK;
}

/* delete_cmd - SCP command to delete a file */

static t_stat delete_cmd (int flag, char *cptr)
{
	char gbuf[CBUFSIZE];
	int status;

	cptr = get_glyph (cptr, gbuf, 0);			/* get next glyph */
	if (*gbuf == 0) return SCPE_2FARG;
	if (*cptr != 0) return SCPE_2MARG;			/* now eol? */

	status = unlink(gbuf);						/* delete the file */

	if (status != 0 && errno != ENOENT)			/* print message if failed and file exists */
		perror(gbuf);

	return SCPE_OK;
}

/* prt_reset - reset emulated printer */

static t_stat prt_reset (DEVICE *dptr)
{
	UNIT *uptr = &prt_unit[0];
	int i;

// add a DELETE filename command so we can be sure to have clean listings
	register_cmd("DELETE", &delete_cmd, 0, "del{ete} filename        remove file\n");

	sim_cancel(uptr);

	memset(cctape, 0, sizeof(cctape));			// copy punch list into carriage control tape image

	if (cgi)
		for (i = 0; i < (sizeof(cccgi)/sizeof(cccgi[0])); i++)
			cctape[cccgi[i].row-1] |= cccgi[i].channels;
	else
		for (i = 0; i < (sizeof(ccpunches)/sizeof(ccpunches[0])); i++)
			cctape[ccpunches[i].row-1] |= ccpunches[i].channels;

	prt_nchar = 0;
	prt_row   = 0;
	prt_nnl   = 0;

	CLRBIT(uptr->flags, UNIT_FORMCHECK|UNIT_DATACHECK|UNIT_PRINTING|UNIT_SPACING|UNIT_SKIPPING|
						UNIT_TRANSFERRING|UNIT_PARITYCHECK|UNIT_RINGCHECK|UNIT_SYNCCHECK);

	if (IS_1132(uptr)) {
		CLRBIT(ILSW[1], ILSW_1_1132_PRINTER);
		PRT_DSW = cc_format_1132(cctape[prt_row]);
		if (! IS_ONLINE(uptr))
			SETBIT(PRT_DSW, PRT1132_DSW_NOT_READY);
	}
	else {
		CLRBIT(ILSW[4], ILSW_4_1403_PRINTER);
		PRT_DSW = 0;
		if (cctape[prt_row] & CC_CHANNEL_9)
			SETBIT(PRT_DSW, PRT1403_DSW_CH9);
		if (cctape[prt_row] & CC_CHANNEL_12)
			SETBIT(PRT_DSW, PRT1403_DSW_CH12);
		if (! IS_ONLINE(uptr))
			SETBIT(PRT_DSW, PRT1403_DSW_NOT_READY);
	}

	SET_ACTION(uptr, 0);
	calc_ints();
	reset_prt_line();

	forms_check(FALSE);
	return SCPE_OK;
}

static t_stat prt_attach (UNIT *uptr, char *cptr)
{
	t_stat rval;
														/* assume failure */
	SETBIT(PRT_DSW, IS_1132(uptr) ? PRT1132_DSW_NOT_READY : PRT1403_DSW_NOT_READY);

	if (uptr->flags & UNIT_ATT) {
		if ((rval = prt_detach(uptr)) != SCPE_OK) {
			return rval;
		}
	}

	if (sim_switches & SWMASK('P'))						/* set physical (unbuffered) printer flag */
		SETBIT(uptr->flags, UNIT_PHYSICAL_PTR);
	else
		CLRBIT(uptr->flags, UNIT_PHYSICAL_PTR);

	sim_cancel(uptr);

	if (strcmp(cptr, "(stdout)") == 0) {				/* connect printer to stdout */
		if (uptr -> flags & UNIT_DIS) return SCPE_UDIS;	/* disabled? */
		uptr->filename = calloc(CBUFSIZE, sizeof(char));
		strcpy(uptr->filename, "(stdout)");
	    uptr->fileref = stdout;
		SETBIT(uptr->flags, UNIT_ATT);
		uptr->pos = 0;
	}
	else {
		if ((rval = attach_unit(uptr, quotefix(cptr))) != SCPE_OK)
			return rval;
	}

	fseek(uptr->fileref, 0, SEEK_END);					/* if we opened an existing file, append to it */
	uptr->pos = ftell(uptr->fileref);

	if (IS_1132(uptr)) {
		CLRBIT(ILSW[1], ILSW_1_1132_PRINTER);
		CLRBIT(uptr->flags, UNIT_FORMCHECK|UNIT_DATACHECK);
	}
	else {
		CLRBIT(ILSW[4], ILSW_4_1403_PRINTER);
		CLRBIT(uptr->flags, UNIT_PARITYCHECK|UNIT_RINGCHECK|UNIT_SYNCCHECK);
	}

	SET_ACTION(uptr, 0);
	calc_ints();

	prt_nchar = 0;
	prt_nnl   = 0;
	prt_row   = 0;
	reset_prt_line();

	if (IS_1132(uptr)) {
		PRT_DSW = (PRT_DSW & ~PRT1132_DSW_CHANNEL_MASK) | cc_format_1132(cctape[prt_row]);

		if (IS_ONLINE(uptr))
			CLRBIT(PRT_DSW, PRT1132_DSW_NOT_READY);
	}
	else {
		CLRBIT(PRT_DSW, PRT1403_DSW_CH9 | PRT1403_DSW_CH12);
		if (cctape[prt_row] & CC_CHANNEL_9)
			SETBIT(PRT_DSW, PRT1403_DSW_CH9);
		if (cctape[prt_row] & CC_CHANNEL_12)
			SETBIT(PRT_DSW, PRT1403_DSW_CH12);

		if (IS_ONLINE(uptr))
			CLRBIT(PRT_DSW, PRT1132_DSW_NOT_READY);
	}

	forms_check(FALSE);
	return SCPE_OK;
}

static t_stat prt_detach (UNIT *uptr)
{
	t_stat rval;

	flush_prt_line(uptr->fileref, TRUE, TRUE);

	if (uptr->fileref == stdout) {
		CLRBIT(uptr->flags, UNIT_ATT);
		free(uptr->filename);
		uptr->filename = NULL;
	}
	else if ((rval = detach_unit(uptr)) != SCPE_OK)
		return rval;

	sim_cancel(uptr);

	if (IS_1132(uptr)) {
		CLRBIT(ILSW[1], ILSW_1_1132_PRINTER);
		CLRBIT(uptr->flags, UNIT_FORMCHECK|UNIT_DATACHECK);
		SETBIT(PRT_DSW, PRT1132_DSW_NOT_READY);
	}
	else {
		CLRBIT(ILSW[4], ILSW_4_1403_PRINTER);
		SETBIT(PRT_DSW, PRT1403_DSW_NOT_READY);
	}
	SET_ACTION(uptr, 0);

	calc_ints();

	forms_check(FALSE);
	return SCPE_OK;
}