folkert/simh-testsetgenerator
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
simh-testsetgenerator/I7000/i7000_lpr.c
Richard Cornwell 9515201238 I7000: Updated general card reader, printer and magtape 
Card reader handle EOF correctly.
         Line printer proper handling of paging.
         Magtape clean up debug message.
         Update 7010, 7070, 7080 for EOF handling.
2024-05-21 17:06:39 -04:00

563 lines
17 KiB
C
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/* i7000_lpr.c: IBM 7000 Line Printer.
Copyright (c) 2005-2016, Richard Cornwell
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
RICHARD CORNWELL 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.
This is the standard line printer.
These units each buffer one record in local memory and signal
ready when the buffer is full or empty. The channel must be
ready to recieve/transmit data when they are activated since
they will transfer their block during chan_cmd. All data is
transmitted as BCD characters.
*/
#include "i7000_defs.h"
#include "sim_card.h"
#include "sim_defs.h"
#ifdef NUM_DEVS_LPR
#define UNIT_LPR UNIT_ATTABLE | UNIT_DISABLE | UNIT_SEQ
/* Flags for line printer. */
#define ECHO (1 << (UNIT_V_UF+0))
#ifdef I7070
#define ATTENA (1 << (UNIT_V_UF+1))
#define ATTENB (1 << (UNIT_V_UF+2))
#endif
#ifdef I7080
#define DOUBLE (1 << (UNIT_V_UF+1))
#define PROGRAM (1 << (UNIT_V_UF+2))
#endif
/* std devices. data structures
lpr_dev Line Printer device descriptor
lpr_unit Line Printer unit descriptor
lpr_reg Line Printer register list
lpr_mod Line Printer modifiers list
*/
struct _lpr_data
{
uint8 lbuff[145]; /* Output line buffer */
}
lpr_data[NUM_DEVS_LPR];
uint32 lpr_cmd(UNIT *, uint16, uint16);
void lpr_ini(UNIT *, t_bool);
t_stat lpr_srv(UNIT *);
t_stat lpr_reset(DEVICE *);
t_stat lpr_attach(UNIT *, CONST char *);
t_stat lpr_detach(UNIT *);
t_stat lpr_setlpp(UNIT *, int32, CONST char *, void *);
t_stat lpr_getlpp(FILE *, UNIT *, int32, CONST void *);
t_stat lpr_help(FILE *, DEVICE *, UNIT *, int32, const char *);
const char *lpr_description(DEVICE *dptr);
UNIT lpr_unit[] = {
{UDATA(lpr_srv, UNIT_S_CHAN(CHAN_CHUREC) | UNIT_LPR, 55), 300}, /* A */
#if NUM_DEVS_LPR > 1
{UDATA(lpr_srv, UNIT_S_CHAN(CHAN_CHUREC+1) | UNIT_LPR, 55), 300}, /* B */
#endif
};
MTAB lpr_mod[] = {
{ECHO, 0, NULL, "NOECHO", NULL, NULL, NULL, "Don't echo to console"},
{ECHO, ECHO, "ECHO", "ECHO", NULL, NULL, NULL, "Echo to console"},
{MTAB_XTD|MTAB_VUN|MTAB_VALR, 0, "LINESPERPAGE", "LINESPERPAGE",
&lpr_setlpp, &lpr_getlpp, NULL, "Number of lines per page"},
#ifdef I7080
{DOUBLE|PROGRAM, 0, "SINGLE", "SINGLE", NULL, NULL, NULL, "Single space output"},
{DOUBLE|PROGRAM, DOUBLE, "DOUBLE", "DOUBLE", NULL, NULL, NULL, "Double space output"},
{DOUBLE|PROGRAM, PROGRAM, "PROGRAM", "PROGRAM", NULL, NULL, NULL, "Programatic spacing"},
#endif
#ifdef I7070
{ATTENA|ATTENB, 0, NULL, "NOATTEN", NULL, NULL, NULL, "No attention signal"},
{ATTENA|ATTENB, ATTENA, "ATTENA", "ATTENA", NULL, NULL, NULL, "Signal Attention A"},
{ATTENA|ATTENB, ATTENB, "ATTENB", "ATTENB", NULL, NULL, NULL, "Signal Attention B"},
#endif
#ifdef I7010
{MTAB_XTD | MTAB_VUN | MTAB_VALR, 0, "CHAN", "CHAN", &set_chan,
&get_chan, NULL, "Set device channel"},
#endif
{0}
};
DEVICE lpr_dev = {
"LP", lpr_unit, NULL, lpr_mod,
NUM_DEVS_LPR, 8, 15, 1, 8, 8,
NULL, NULL, NULL, NULL, &lpr_attach, &lpr_detach,
&lpr_dib, DEV_DISABLE | DEV_DEBUG, 0, dev_debug,
NULL, NULL, &lpr_help, NULL, NULL, &lpr_description
};
/*
* Line printer routines
*/
t_stat
lpr_setlpp(UNIT *uptr, int32 val, CONST char *cptr, void *desc)
{
int i;
if (cptr == NULL)
return SCPE_ARG;
if (uptr == NULL)
return SCPE_IERR;
i = 0;
while(*cptr != '\0') {
if (*cptr < '0' || *cptr > '9')
return SCPE_ARG;
i = (i * 10) + (*cptr++) - '0';
}
if (i < 20 || i > 100)
return SCPE_ARG;
uptr->u6 = i;
uptr->u4 = 1;
return SCPE_OK;
}
t_stat
lpr_getlpp(FILE *st, UNIT *uptr, int32 v, CONST void *desc)
{
if (uptr == NULL)
return SCPE_IERR;
fprintf(st, "linesperpage=%d", uptr->u6);
return SCPE_OK;
}
t_stat
print_line(UNIT * uptr, int chan, int unit)
{
/* Convert word record into column image */
/* Check output type, if auto or text, try and convert record to bcd first */
/* If failed and text report error and dump what we have */
/* Else if binary or not convertable, dump as image */
char out[150]; /* Temp conversion buffer */
int i;
if ((uptr->flags & (UNIT_ATT | ECHO)) == 0)
return SCPE_UNATT; /* attached? */
/* Try to convert to text */
memset(out, 0, sizeof(out));
#ifdef I7080
if (uptr->flags & PROGRAM) {
switch(lpr_data[unit].lbuff[0] & 077) {
case 060: /* suppress space */
uptr->u5 |= URCSTA_SKIPAFT | (0 << 12);
break;
case 020: /* single space */
break;
case 012: /* double space */
uptr->u5 |= URCSTA_SKIPAFT | (1 << 12);
break;
default:
/* Skip channel */
i = 0;
switch(lpr_data[unit].lbuff[0] & 017) {
case 3: i = 5 - (uptr->u4 % 5); break;
case 2: i = 8 - (uptr->u4 % 8); break;
case 1:
case 9: if (uptr->u4 == 1)
break;
i = uptr->u6 - uptr->u4 + 1; break;
}
if (i == 0)
break;
uptr->u5 |= URCSTA_SKIPAFT | (i << 12);
}
/* Scan each column */
for (i = 0; i < 143; i++) {
int bcd = lpr_data[unit].lbuff[i+1] & 077;
out[i] = sim_six_to_ascii[bcd];
}
} else {
if (uptr->flags & DOUBLE)
uptr->u5 |= URCSTA_SKIPAFT | (1 << 12);
#endif
/* Scan each column */
for (i = 0; i < 144; i++) {
int bcd = lpr_data[unit].lbuff[i] & 077;
out[i] = sim_six_to_ascii[bcd];
}
#ifdef I7080
}
#endif
/* Trim trailing spaces */
for (--i; i > 0 && out[i] == ' '; i--) ;
out[++i] = '\r';
out[++i] = '\n';
out[++i] = '\0';
sim_debug(DEBUG_DETAIL, &lpr_dev, "WRS unit=%d [%s]\n", unit, &out[0]);
/* Print out buffer */
if (uptr->flags & UNIT_ATT) {
sim_fwrite(&out, 1, i, uptr->fileref);
uptr->pos += i;
}
if (uptr->flags & ECHO) {
int j = 0;
while (j <= i)
sim_putchar(out[j++]);
}
uptr->u4++;
if (uptr->u4 >= (int32)uptr->u6) {
sim_fwrite("\f", 1, 1, uptr->fileref);
uptr->pos += 1;
uptr->u4 = 1;
}
if (uptr->u5 & URCSTA_SKIPAFT) {
i = (uptr->u5 >> 12) & 0x7f;
if (i == 0) {
if (uptr->flags & UNIT_ATT) {
sim_fwrite("\r\n", 1, 2, uptr->fileref);
uptr->pos += 2;
uptr->u4++;
}
if (uptr->flags & ECHO)
sim_putchar('\r');
} else {
for (; i > 1; i--) {
if (uptr->flags & UNIT_ATT) {
sim_fwrite("\r\n", 1, 2, uptr->fileref);
uptr->pos += 2;
}
if (uptr->flags & ECHO) {
sim_putchar('\r');
sim_putchar('\n');
}
uptr->u4++;
if (uptr->u4 >= (int32)uptr->u6) {
i = 0;
}
}
}
if (uptr->u4 >= (int32)uptr->u6) {
sim_fwrite("\f", 1, 1, uptr->fileref);
uptr->u4 = 1;
}
uptr->u5 &= ~(URCSTA_SKIPAFT|(0x7f << 12));
}
if (uptr->u4 == 1)
lpr_chan9[chan] = 1;
#ifdef I7010
if (uptr->u4 >= uptr->u6)
lpr_chan12[chan] = 1;
#endif
return SCPE_OK;
}
uint32 lpr_cmd(UNIT * uptr, uint16 cmd, uint16 dev)
{
int chan = UNIT_G_CHAN(uptr->flags);
int u = (uptr - lpr_unit);
#ifdef I7010
int i;
#endif
/* Are we currently tranfering? */
if (uptr->u5 & URCSTA_WRITE)
return SCPE_BUSY;
switch(cmd) {
/* Test ready */
case IO_TRS:
if (uptr->flags & UNIT_ATT)
return SCPE_OK;
break;
/* Suppress punch */
case IO_RUN:
sim_debug(DEBUG_CMD, &lpr_dev, "%d: Cmd RUN\n", u);
uptr->u5 &= ~URCSTA_FULL;
return SCPE_OK;
/* Get record from CPU */
case IO_WRS:
sim_debug(DEBUG_CMD, &lpr_dev, "%d: Cmd WRS\n", u);
lpr_chan9[chan] = 0;
#ifdef I7010
lpr_chan12[chan] = 0;
switch (dev & 017) {
case 01:
uptr->u5 |= URCSTA_WMKS;
break;
case 012:
uptr->u5 &= ~URCSTA_WMKS;
break;
default:
return SCPE_IOERR;
}
#endif
chan_set_sel(chan, 1);
uptr->u5 |= URCSTA_WRITE;
uptr->u3 = 0;
if ((uptr->u5 & URCSTA_BUSY) == 0)
sim_activate(uptr, 50);
return SCPE_OK;
case IO_CTL:
sim_debug(DEBUG_CMD, &lpr_dev, "%d: Cmd CTL %02o\n", u, dev & 077);
#ifdef I7010
/* 1-0 immediate skip to channel */
/* 00xxxx skip to channel immediate */
/* 11xxxx skip to channel after */
/* 1000xx space before */
/* 0100xx space after */
switch(dev & 060) {
case 020: /* Space after */
uptr->u5 |= URCSTA_SKIPAFT | ((dev & 03) << 12);
break;
case 040: /* Space before */
for (i = dev & 03; i > 1; i--) {
if (uptr->flags & UNIT_ATT) {
sim_fwrite("\r\n", 1, 2, uptr->fileref);
uptr->pos += 2;
}
if (uptr->flags & ECHO) {
sim_putchar('\r');
sim_putchar('\n');
}
}
break;
case 0: /* Skip channel immediate */
case 060: /* Skip channel after */
i = 0;
switch(dev & 017) {
case 3: i = 5 - (uptr->u4 % 5); break;
case 2: i = 8 - (uptr->u4 % 8); break;
case 1:
case 9: if (uptr->u4 == 1)
break;
i = uptr->u6 - uptr->u4 + 1;
sim_debug(DEBUG_DATA, &lpr_dev, "%d: Feed %d %d %d\n", u,
uptr->u6, uptr->u4, i);
break;
case 12: i = (uptr->u6/2) - uptr->u4; break;
}
if (i == 0)
break;
if (dev & 060) {
uptr->u5 |= URCSTA_SKIPAFT | (i << 12);
break;
}
for (; i > 0; i--) {
if (uptr->flags & UNIT_ATT) {
sim_fwrite("\r\n", 1, 2, uptr->fileref);
uptr->pos += 2;
uptr->u4++;
if (uptr->u4 >= (int32)uptr->u6) {
i = 0;
}
}
if (uptr->flags & ECHO) {
sim_putchar('\r');
sim_putchar('\n');
}
}
if (uptr->u4 >= (int32)uptr->u6) {
sim_fwrite("\f", 1, 1, uptr->fileref);
uptr->u4 = 1;
}
break;
}
if (uptr->u4 == uptr->u6)
lpr_chan12[chan] = 1;
#endif
if (uptr->u4 == 1)
lpr_chan9[chan] = 1;
return SCPE_OK;
}
chan_set_attn(chan);
return SCPE_IOERR;
}
/* Handle transfer of data for printer */
t_stat
lpr_srv(UNIT *uptr) {
int chan = UNIT_G_CHAN(uptr->flags);
int u = (uptr - lpr_unit);
/* Waiting for disconnect */
if (uptr->u5 & URCSTA_WDISCO) {
if (chan_stat(chan, DEV_DISCO)) {
chan_clear(chan, DEV_SEL|DEV_WEOR);
uptr->u5 &= ~ URCSTA_WDISCO;
} else {
/* No disco yet, try again in a bit */
sim_activate(uptr, 50);
return SCPE_OK;
}
/* If still busy, schedule another wait */
if (uptr->u5 & URCSTA_BUSY)
sim_activate(uptr, uptr->wait);
}
if (uptr->u5 & URCSTA_BUSY) {
/* Done waiting, print line */
if (uptr->u5 & URCSTA_FULL) {
uptr->u5 &= ~URCSTA_FULL;
switch(print_line(uptr, chan, u)) {
case SCPE_EOF:
case SCPE_UNATT:
chan_set_eof(chan);
break;
/* If we get here, something is wrong */
case SCPE_IOERR:
chan_set_error(chan);
break;
case SCPE_OK:
break;
}
}
memset(&lpr_data[u].lbuff[0], 0, 144);
uptr->u5 &= ~URCSTA_BUSY;
#ifdef I7070
switch(uptr->flags & (ATTENA|ATTENB)) {
case ATTENA: chan_set_attn_a(chan); break;
case ATTENB: chan_set_attn_b(chan); break;
}
#endif
#ifdef I7010
chan_set_attn_urec(chan, lpr_dib.addr);
#endif
}
/* Copy next column over */
if (uptr->u5 & URCSTA_WRITE && uptr->u3 < 144) {
switch(chan_read_char(chan, &lpr_data[u].lbuff[uptr->u3],
(uptr->u3 == 143)?DEV_REOR: 0)) {
case TIME_ERROR:
case END_RECORD:
uptr->u5 |= URCSTA_WDISCO|URCSTA_BUSY|URCSTA_FULL;
uptr->u5 &= ~URCSTA_WRITE;
break;
case DATA_OK:
sim_debug(DEBUG_DATA, &lpr_dev, "%d: Char < %02o\n", u,
lpr_data[u].lbuff[uptr->u3]);
#ifdef I7010
if (uptr->u5 & URCSTA_WMKS) {
if (lpr_data[u].lbuff[uptr->u3] & 0200)
lpr_data[u].lbuff[uptr->u3] = 1;
else
lpr_data[u].lbuff[uptr->u3] = 012;
}
#endif
uptr->u3++;
break;
}
sim_activate(uptr, 10);
}
return SCPE_OK;
}
void
lpr_ini(UNIT *uptr, t_bool f) {
if (uptr->u6 == 0) {
uptr->u6 = 55;
}
uptr->u4 = 1;
}
t_stat
lpr_attach(UNIT * uptr, CONST char *file)
{
t_stat r;
sim_switches |= SWMASK ('A'); /* Position to EOF */
if ((r = attach_unit(uptr, file)) != SCPE_OK)
return r;
uptr->u5 = 0;
uptr->u4 = 1;
return SCPE_OK;
}
t_stat
lpr_detach(UNIT * uptr)
{
if (uptr->u5 & URCSTA_FULL)
print_line(uptr, UNIT_G_CHAN(uptr->flags), uptr - lpr_unit);
return detach_unit(uptr);
}
t_stat
lpr_help(FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, const char *cptr)
{
fprintf (st, "%s\n\n", lpr_description(dptr));
fprintf (st, "The line printer output can be echoed to the console to check");
fprintf (st, "the \nprogress of jobs being run. This can be done with the\n");
fprintf (st, " sim> SET %s ECHO set echo to console\n\n", dptr->name);
fprintf (st, "The Line printer can be configured to any number of lines per page with the:\n");
fprintf (st, " sim> SET %s LINESPERPAGE=n\n\n", dptr->name);
fprintf (st, "The default is 59 lines per page.\n\n");
#ifdef I7080
fprintf (st, "The 716 printer can operate in one of three spacing modes\n");
fprintf (st, " sim> SET %s SINGLE for single spacing\n", dptr->name);
fprintf (st, " sim> SET %s DOUBLE for double spacing\n", dptr->name);
fprintf (st, " sim> SET %s PROGRAM for program control of spacing\n\n", dptr->name);
#endif
#ifdef I7070
fprintf (st, "Unit record devices can be configured to interrupt the CPU on\n");
fprintf (st, "one of two priority channels A or B, to set this\n\n");
fprintf (st, " sim> SET %s ATTENA to set device to raise Atten A\n", dptr->name);
fprintf (st, " sim> SET %s ATTENB to set device to raise Atten B\n\n", dptr->name);
#endif
#ifdef I7010
help_set_chan_type(st, dptr, "Line printer");
#endif
fprint_set_help(st, dptr);
fprint_show_help(st, dptr);
return SCPE_OK;
}
const char *
lpr_description(DEVICE *dptr)
{
#ifdef I7010
return "1403 Line Printer";
#endif
#ifdef I7070
return "7400 Line Printer";
#endif
#ifdef I7080
return "716 Line Printer";
#endif
}
#endif
Reference in a new issue View git blame Copy permalink