[simh.git] / S3 / s3_cd.c

/* s3_cd.c: IBM 1442 card reader/punch\r
\r
   Copyright (c) 2001-2005, Charles E. Owen\r
\r
   Permission is hereby granted, free of charge, to any person obtaining a\r
   copy of this software and associated documentation files (the "Software"),\r
   to deal in the Software without restriction, including without limitation\r
   the rights to use, copy, modify, merge, publish, distribute, sublicense,\r
   and/or sell copies of the Software, and to permit persons to whom the\r
   Software is furnished to do so, subject to the following conditions:\r
\r
   The above copyright notice and this permission notice shall be included in\r
   all copies or substantial portions of the Software.\r
\r
   THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR\r
   IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,\r
   FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL\r
   ROBERT M SUPNIK BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER\r
   IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN\r
   CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.\r
\r
   Except as contained in this notice, the name of Charles E. Owen shall not be\r
   used in advertising or otherwise to promote the sale, use or other dealings\r
   in this Software without prior written authorization from Charles E. Owen.\r
\r
   cdr          card reader\r
   cdp          card punch\r
   cdp2         card punch stacker 2\r
\r
   25-Apr-03    RMS     Revised for extended file support\r
   08-Oct-02    RMS     Added impossible function catcher\r
\r
   Normally, cards are represented as ASCII text streams terminated by newlines.\r
   This allows cards to be created and edited as normal files.  Set the EBCDIC\r
   flag on the card unit allows cards to be read or punched in EBCDIC format,\r
   suitable for binary data.\r
*/\r
\r
#include "s3_defs.h"\r
#include <ctype.h>\r
\r
extern uint8 M[];\r
extern char ebcdic_to_ascii[256];\r
extern char ascii_to_ebcdic[256];\r
int32 s1sel, s2sel;\r
char rbuf[CBUFSIZE];                                    /* > CDR_WIDTH */\r
t_stat cdr_svc (UNIT *uptr);\r
t_stat cdr_boot (int32 unitno, DEVICE *dptr);\r
t_stat cdr_attach (UNIT *uptr, char *cptr);\r
t_stat cd_reset (DEVICE *dptr);\r
t_stat read_card (int32 ilnt, int32 mod);\r
t_stat punch_card (int32 ilnt, int32 mod);\r
\r
int32 DAR;                                              /* Data address register */                     \r
int32 LCR;                                              /* Length Count Register */\r
int32 lastcard = 0;                                     /* Last card switch */\r
int32 carderr = 0;                                      /* Error switch */\r
int32 pcherror = 0;                                     /* Punch error */\r
int32 notready = 0;                                     /* Not ready error */\r
int32 cdr_ebcdic = 0;                                   /* EBCDIC mode on reader */\r
int32 cdp_ebcdic = 0;                                   /* EBCDIC mode on punch */\r
\r
extern int32 GetMem(int32 addr);\r
extern int32 PutMem(int32 addr, int32 data);\r
\r
/* Card reader data structures\r
\r
   cdr_dev      CDR descriptor\r
   cdr_unit     CDR unit descriptor\r
   cdr_reg      CDR register list\r
*/\r
\r
UNIT cdr_unit = { UDATA (&cdr_svc, UNIT_SEQ+UNIT_ATTABLE, 0), 100 };\r
\r
REG cdr_reg[] = {\r
    { FLDATA (LAST, lastcard, 0) },\r
    { FLDATA (ERR, carderr, 0) },\r
    { FLDATA (NOTRDY, notready, 0) },\r
    { HRDATA (DAR, DAR, 16) },\r
    { HRDATA (LCR, LCR, 16) },\r
    { FLDATA (EBCDIC, cdr_ebcdic, 0) },\r
    { FLDATA (S2, s2sel, 0) },\r
    { DRDATA (POS, cdr_unit.pos, T_ADDR_W), PV_LEFT },\r
    { DRDATA (TIME, cdr_unit.wait, 24), PV_LEFT },\r
    { BRDATA (BUF, rbuf, 8, 8, CDR_WIDTH) },\r
    { NULL }\r
};\r
\r
DEVICE cdr_dev = {\r
    "CDR", &cdr_unit, cdr_reg, NULL,\r
    1, 10, 31, 1, 8, 7,\r
    NULL, NULL, &cd_reset,\r
    &cdr_boot, &cdr_attach, NULL\r
};\r
\r
/* CDP data structures\r
\r
   cdp_dev      CDP device descriptor\r
   cdp_unit     CDP unit descriptor\r
   cdp_reg      CDP register list\r
*/\r
\r
UNIT cdp_unit = { UDATA (NULL, UNIT_SEQ+UNIT_ATTABLE, 0) };\r
\r
REG cdp_reg[] = {\r
    { FLDATA (ERR, pcherror, 0) },\r
    { FLDATA (EBCDIC, cdp_ebcdic, 0) },\r
    { FLDATA (S2, s2sel, 0) },\r
    { FLDATA (NOTRDY, notready, 0) },\r
    { HRDATA (DAR, DAR, 16) },\r
    { HRDATA (LCR, LCR, 16) },\r
    { DRDATA (POS, cdp_unit.pos, T_ADDR_W), PV_LEFT },\r
    { NULL }\r
};\r
\r
DEVICE cdp_dev = {\r
    "CDP", &cdp_unit, cdp_reg, NULL,\r
    1, 10, 31, 1, 8, 7,\r
    NULL, NULL, &cd_reset,\r
    NULL, NULL, NULL\r
};\r
\r
/* Stacker data structures\r
\r
   stack_dev    STACK device descriptor\r
   stack_unit   STACK unit descriptors\r
   stack_reg    STACK register list\r
*/\r
\r
UNIT stack_unit[] = {\r
    { UDATA (NULL, UNIT_SEQ+UNIT_ATTABLE, 0) }\r
};\r
\r
REG stack_reg[] = {\r
    { DRDATA (POS0, stack_unit[0].pos, 32), PV_LEFT },\r
    { NULL }\r
};\r
\r
DEVICE stack_dev = {\r
    "CDP2", stack_unit, stack_reg, NULL,\r
    1, 10, 31, 1, 8, 7,\r
    NULL, NULL, &cd_reset,\r
    NULL, NULL, NULL\r
};\r
\r
\r
/* -------------------------------------------------------------------- */\r
\r
/* 1442: master routine */\r
\r
int32 crd (int32 op, int32 m, int32 n, int32 data)\r
{\r
    int32 iodata;\r
    switch (op) {\r
        case 0:                                         /* SIO 1442 */\r
            /* if (n == 1)\r
                return STOP_IBKPT; */\r
            switch (data) {                             /* Select stacker */\r
                case 0x00:\r
                    break;\r
                case 0x01:\r
                    s2sel = 1;\r
                    break;\r
                default:\r
                    break;\r
            }                                       \r
            switch (n) {\r
                case 0x00:                              /* Feed */\r
                    iodata = SCPE_OK;\r
                    break;  \r
                case 0x01:                              /* Read only */\r
                    if (cdr_ebcdic)\r
                        iodata = read_card(0, 1);\r
                        else\r
                        iodata = read_card(0, 0);\r
                    break;\r
                case 0x02:                              /* Punch and feed */\r
                    iodata = punch_card(0, 0);\r
                    break;\r
                case 0x03:                              /* Read Col Binary */\r
                    iodata = read_card(0, 1);\r
                    break;\r
                case 0x04:                              /* Punch no feed */\r
                    iodata = punch_card(0, 1);\r
                    break;\r
                default:\r
                    return STOP_INVDEV;\r
            }\r
            return iodata;\r
        case 1:                                         /* LIO 1442 */\r
            switch (n) {\r
                case 0x00:                              /* Load LCR */\r
                    LCR = data & 0xffff;\r
                    break;\r
                case 0x04:\r
                    DAR = data & 0xffff;\r
                    break;\r
                default:\r
                    return STOP_INVDEV;\r
            }\r
            return SCPE_OK;\r
        case 2:                                         /* TIO 1442 */\r
            iodata = 0;\r
            switch (n) {\r
                case 0x00:                              /* Error */\r
                    if (carderr || pcherror || notready)\r
                        iodata = 1;\r
                    if ((cdr_unit.flags & UNIT_ATT) == 0) \r
                        iodata = 1;                     /* attached? */\r
                    break;\r
                case 0x02:                              /* Busy */\r
                    if (sim_is_active (&cdr_unit)) \r
                        iodata = 1;\r
                    break;  \r
                default:\r
                    return (STOP_INVDEV << 16);\r
            }                       \r
            return ((SCPE_OK << 16) | iodata);\r
        case 3:                                         /* SNS 1442 */\r
            iodata = 0;\r
            switch (n) {\r
                case 0x01:\r
                    break;\r
                case 0x02:\r
                    break;\r
                case 0x03:\r
                    if (carderr)\r
                        iodata |= 0x80;\r
                    if (lastcard)\r
                        iodata |= 0x40;\r
                    if (pcherror)\r
                        iodata |= 0x20;\r
                    if ((cdr_unit.flags & UNIT_ATT) == 0) \r
                        iodata |= 0x08;\r
                    if (notready)\r
                        iodata |= 0x08; \r
                    break;\r
                case 0x04:\r
                    iodata = DAR;\r
                    break;  \r
                default:\r
                    return (STOP_INVDEV << 16);\r
            }\r
            iodata |= ((SCPE_OK << 16) & 0xffff0000);        \r
            return (iodata);\r
        case 4:                                         /* APL 1442 */\r
            iodata = 0;\r
            switch (n) {\r
                case 0x00:                              /* Error */\r
                    if (carderr || pcherror || notready)\r
                        iodata = 1;\r
                    if ((cdr_unit.flags & UNIT_ATT) == 0) \r
                        iodata = 1;                     /* attached? */\r
                    break;\r
                case 0x02:                              /* Busy */\r
                    if (sim_is_active (&cdr_unit)) \r
                        iodata = 1;\r
                    break;  \r
                default:\r
                    return (STOP_INVDEV << 16);\r
            }                       \r
            return ((SCPE_OK << 16) | iodata);\r
        default:\r
            break;\r
    }                       \r
    printf (">>CRD non-existent function %d\n", op);\r
    return SCPE_OK;                     \r
}\r
\r
/* Card read routine\r
        mod 0 = ASCII read\r
        mod 1 = EBCDIC read\r
*/\r
\r
t_stat read_card (int32 ilnt, int32 mod)\r
{\r
int32 i;\r
t_stat r;\r
\r
if (sim_is_active (&cdr_unit)) {                        /* busy? */\r
    sim_cancel (&cdr_unit);                             /* cancel */\r
    if (r = cdr_svc (&cdr_unit)) return r;              /* process */\r
}   \r
\r
if (((cdp_unit.flags & UNIT_ATT) != 0 ||\r
    (stack_unit[0].flags & UNIT_ATT) != 0) &&           /* Punch is attached and */\r
    (cdr_unit.flags & UNIT_ATT) == 0) {                 /* reader is not --- */\r
        for (i = 0; i < 80; i++) {                      /* Assume blank cards in hopper */\r
            PutMem(DAR, 0x40);\r
            DAR++;\r
        }\r
        sim_activate (&cdr_unit, cdr_unit.wait);        /* activate */\r
        return SCPE_OK;\r
}\r
        \r
if ((cdr_unit.flags & UNIT_ATT) == 0) return SCPE_UNATT; /* attached? */\r
\r
lastcard = carderr = notready = s1sel = s2sel = 0;      /* default stacker */\r
\r
for (i = 0; i < CBUFSIZE; i++) rbuf[i] = 0x20;          /* clear buffer */\r
if (mod) {\r
    for (i = 0; i < 80; i++) {\r
        rbuf[i] = fgetc(cdr_unit.fileref);              /* Read EBCDIC */\r
    }   \r
} else {    \r
    fgets (rbuf, CBUFSIZE, cdr_unit.fileref);           /* read Ascii */\r
}   \r
if (feof (cdr_unit.fileref)) {                          /* eof? */\r
    notready = 1;\r
    return STOP_NOCD;\r
}       \r
if (ferror (cdr_unit.fileref)) {                        /* error? */\r
    perror ("Card reader I/O error");\r
    clearerr (cdr_unit.fileref);\r
    carderr = 1;  \r
    return SCPE_OK;  }\r
cdr_unit.pos = ftell (cdr_unit.fileref);                /* update position */\r
i = getc (cdr_unit.fileref);                            /* see if more */\r
if (feof (cdr_unit.fileref)) lastcard = 1;              /* eof? set flag */\r
fseek (cdr_unit.fileref, cdr_unit.pos, SEEK_SET);\r
for (i = 0; i < 80; i++) {              \r
    if (mod == 0) {                                     /* If ASCII mode... */\r
        if (rbuf[i] == '\n' ||                          /* remove ASCII CR/LF */\r
            rbuf[i] == '\r' ||\r
            rbuf[i] == 0x00)\r
             rbuf[i] = ' ';\r
        rbuf[i] = ascii_to_ebcdic[rbuf[i]];             /* convert to EBCDIC */\r
    }   \r
    PutMem(DAR, rbuf[i]);                               /* Copy to main memory */\r
    DAR++;\r
}\r
sim_activate (&cdr_unit, cdr_unit.wait);                /* activate */\r
return SCPE_OK;\r
}\r
\r
/* Card reader service.  If a stacker select is active, copy to the\r
   selected stacker.  Otherwise, copy to the normal stacker.  If the\r
   unit is unattached, simply exit.\r
*/\r
\r
t_stat cdr_svc (UNIT *uptr)\r
{\r
int32 i;\r
\r
if (s2sel) uptr = &stack_unit[0];                       /* stacker 1? */\r
else uptr = &stack_unit[0];                             /* then default */\r
if ((uptr -> flags & UNIT_ATT) == 0) return SCPE_OK;    /* attached? */\r
for (i = 0; i < CDR_WIDTH; i++) rbuf[i] = ebcdic_to_ascii[rbuf[i]];\r
for (i = CDR_WIDTH - 1; (i >= 0) && (rbuf[i] == ' '); i--) rbuf[i] = 0;\r
rbuf[CDR_WIDTH] = 0;                                    /* null at end */\r
fputs (rbuf, uptr -> fileref);                          /* write card */\r
fputc ('\n', uptr -> fileref);                          /* plus new line */\r
if (ferror (uptr -> fileref)) {                         /* error? */\r
    perror ("Card stacker I/O error");\r
    clearerr (uptr -> fileref);\r
}\r
uptr -> pos = ftell (uptr -> fileref);                  /* update position */\r
return SCPE_OK;\r
}\r
\r
/* Card punch routine\r
\r
   mod: not used\r
*/\r
\r
t_stat punch_card (int32 ilnt, int32 mod)\r
{\r
int32 i, colcount;\r
static char pbuf[CDP_WIDTH + 1];                        /* + null */\r
UNIT *uptr;\r
\r
if (s2sel) uptr = &stack_unit[0];                       /* stack 2? */\r
else uptr = &cdp_unit;                                  /* normal output */\r
if ((uptr -> flags & UNIT_ATT) == 0) {                  /* Attached? */\r
    notready = 1;\r
    return SCPE_OK; \r
}\r
pcherror = s1sel = notready = 0;                        /* clear flags */\r
\r
colcount = 128 - LCR;\r
for (i = 0; i < colcount; i++) {                        /* Fetch data */\r
    if (cdp_ebcdic)\r
        pbuf[i] = GetMem(DAR) & 0xff;\r
        else\r
        pbuf[i] = ebcdic_to_ascii[GetMem(DAR)];\r
    DAR++;\r
}   \r
for (i = CDP_WIDTH - 1; (i >= 0) && (pbuf[i] == ' '); i--) pbuf[i] = 0;\r
pbuf[CDP_WIDTH] = 0;                                    /* trailing null */\r
if (!cdp_ebcdic) {\r
    fputs (pbuf, uptr -> fileref);                      /* output card */\r
    fputc ('\n', uptr -> fileref);                      /* plus new line */\r
} else {\r
    for (i = 0; i < 80; i++) {\r
        fputc(pbuf[i], uptr -> fileref);\r
    }   \r
}   \r
if (ferror (uptr -> fileref)) {                         /* error? */\r
    perror ("Card punch I/O error");\r
    clearerr (uptr -> fileref);\r
    pcherror = 1;\r
}\r
uptr -> pos = ftell (uptr -> fileref);                  /* update position */\r
return SCPE_OK;\r
}\r
\r
/* Select stack routine\r
\r
   Modifiers have been checked by the caller\r
   Modifiers are 1, 2, for the respective stack\r
*/\r
\r
t_stat select_stack (int32 ilnt, int32 mod)\r
{\r
if (mod == 1) s1sel = 1;\r
else if (mod == 2) s2sel = 1;\r
return SCPE_OK;\r
}\r
\r
/* Card reader/punch reset */\r
\r
t_stat cd_reset (DEVICE *dptr)\r
{\r
lastcard = carderr = notready = pcherror = 0;           /* clear indicators */\r
s1sel = s2sel = 0;                                      /* clear stacker sel */\r
sim_cancel (&cdr_unit);                                 /* clear reader event */\r
return SCPE_OK;\r
}\r
\r
/* Card reader attach */\r
\r
t_stat cdr_attach (UNIT *uptr, char *cptr)\r
{\r
carderr = lastcard = notready = 0;                      /* clear last card */\r
return attach_unit (uptr, cptr);\r
}\r
\r
/* Bootstrap routine */\r
\r
t_stat cdr_boot (int32 unitno, DEVICE *dptr)\r
{\r
cdr_ebcdic = 1;\r
DAR = 0;\r
LCR = 80;\r
read_card(0, 1);\r
return SCPE_OK;\r
}\r
Commit	Line	Data
196ba1fc PH	1	/* s3_cd.c: IBM 1442 card reader/punch\r
	2	\r
	3	Copyright (c) 2001-2005, Charles E. Owen\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 Charles E. Owen 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 Charles E. Owen.\r
	25	\r
	26	cdr card reader\r
	27	cdp card punch\r
	28	cdp2 card punch stacker 2\r
	29	\r
	30	25-Apr-03 RMS Revised for extended file support\r
	31	08-Oct-02 RMS Added impossible function catcher\r
	32	\r
	33	Normally, cards are represented as ASCII text streams terminated by newlines.\r
	34	This allows cards to be created and edited as normal files. Set the EBCDIC\r
	35	flag on the card unit allows cards to be read or punched in EBCDIC format,\r
	36	suitable for binary data.\r
	37	*/\r
	38	\r
	39	#include "s3_defs.h"\r
	40	#include <ctype.h>\r
	41	\r
	42	extern uint8 M[];\r
	43	extern char ebcdic_to_ascii[256];\r
	44	extern char ascii_to_ebcdic[256];\r
	45	int32 s1sel, s2sel;\r
	46	char rbuf[CBUFSIZE]; /* > CDR_WIDTH */\r
	47	t_stat cdr_svc (UNIT *uptr);\r
	48	t_stat cdr_boot (int32 unitno, DEVICE *dptr);\r
	49	t_stat cdr_attach (UNIT uptr, char cptr);\r
	50	t_stat cd_reset (DEVICE *dptr);\r
	51	t_stat read_card (int32 ilnt, int32 mod);\r
	52	t_stat punch_card (int32 ilnt, int32 mod);\r
	53	\r
	54	int32 DAR; /* Data address register */ \r
	55	int32 LCR; /* Length Count Register */\r
	56	int32 lastcard = 0; /* Last card switch */\r
	57	int32 carderr = 0; /* Error switch */\r
	58	int32 pcherror = 0; /* Punch error */\r
	59	int32 notready = 0; /* Not ready error */\r
	60	int32 cdr_ebcdic = 0; /* EBCDIC mode on reader */\r
	61	int32 cdp_ebcdic = 0; /* EBCDIC mode on punch */\r
	62	\r
	63	extern int32 GetMem(int32 addr);\r
	64	extern int32 PutMem(int32 addr, int32 data);\r
65	\r
66	/* Card reader data structures\r
67	\r
68	cdr_dev CDR descriptor\r
69	cdr_unit CDR unit descriptor\r
70	cdr_reg CDR register list\r
71	*/\r
72	\r
73	UNIT cdr_unit = { UDATA (&cdr_svc, UNIT_SEQ+UNIT_ATTABLE, 0), 100 };\r
74	\r
75	REG cdr_reg[] = {\r
76	{ FLDATA (LAST, lastcard, 0) },\r
77	{ FLDATA (ERR, carderr, 0) },\r
78	{ FLDATA (NOTRDY, notready, 0) },\r
79	{ HRDATA (DAR, DAR, 16) },\r
80	{ HRDATA (LCR, LCR, 16) },\r
81	{ FLDATA (EBCDIC, cdr_ebcdic, 0) },\r
82	{ FLDATA (S2, s2sel, 0) },\r
83	{ DRDATA (POS, cdr_unit.pos, T_ADDR_W), PV_LEFT },\r
84	{ DRDATA (TIME, cdr_unit.wait, 24), PV_LEFT },\r
85	{ BRDATA (BUF, rbuf, 8, 8, CDR_WIDTH) },\r
86	{ NULL }\r
87	};\r
88	\r
89	DEVICE cdr_dev = {\r
90	"CDR", &cdr_unit, cdr_reg, NULL,\r
91	1, 10, 31, 1, 8, 7,\r
92	NULL, NULL, &cd_reset,\r
93	&cdr_boot, &cdr_attach, NULL\r
94	};\r
95	\r
96	/* CDP data structures\r
97	\r
98	cdp_dev CDP device descriptor\r
99	cdp_unit CDP unit descriptor\r
100	cdp_reg CDP register list\r
101	*/\r
102	\r
103	UNIT cdp_unit = { UDATA (NULL, UNIT_SEQ+UNIT_ATTABLE, 0) };\r
104	\r
105	REG cdp_reg[] = {\r
106	{ FLDATA (ERR, pcherror, 0) },\r
107	{ FLDATA (EBCDIC, cdp_ebcdic, 0) },\r
108	{ FLDATA (S2, s2sel, 0) },\r
109	{ FLDATA (NOTRDY, notready, 0) },\r
110	{ HRDATA (DAR, DAR, 16) },\r
111	{ HRDATA (LCR, LCR, 16) },\r
112	{ DRDATA (POS, cdp_unit.pos, T_ADDR_W), PV_LEFT },\r
113	{ NULL }\r
114	};\r
115	\r
116	DEVICE cdp_dev = {\r
117	"CDP", &cdp_unit, cdp_reg, NULL,\r
118	1, 10, 31, 1, 8, 7,\r
119	NULL, NULL, &cd_reset,\r
120	NULL, NULL, NULL\r
121	};\r
122	\r
123	/* Stacker data structures\r
124	\r
125	stack_dev STACK device descriptor\r
126	stack_unit STACK unit descriptors\r
127	stack_reg STACK register list\r
128	*/\r
129	\r
130	UNIT stack_unit[] = {\r
131	{ UDATA (NULL, UNIT_SEQ+UNIT_ATTABLE, 0) }\r
132	};\r
133	\r
134	REG stack_reg[] = {\r
135	{ DRDATA (POS0, stack_unit[0].pos, 32), PV_LEFT },\r
136	{ NULL }\r
137	};\r
138	\r
139	DEVICE stack_dev = {\r
140	"CDP2", stack_unit, stack_reg, NULL,\r
141	1, 10, 31, 1, 8, 7,\r
142	NULL, NULL, &cd_reset,\r
143	NULL, NULL, NULL\r
144	};\r
145	\r
146	\r
147	/* -------------------------------------------------------------------- */\r
148	\r
149	/* 1442: master routine */\r
150	\r
151	int32 crd (int32 op, int32 m, int32 n, int32 data)\r
152	{\r
153	int32 iodata;\r
154	switch (op) {\r
155	case 0: /* SIO 1442 */\r
156	/* if (n == 1)\r
157	return STOP_IBKPT; */\r
158	switch (data) { /* Select stacker */\r
159	case 0x00:\r
160	break;\r
161	case 0x01:\r
162	s2sel = 1;\r
163	break;\r
164	default:\r
165	break;\r
166	} \r
167	switch (n) {\r
168	case 0x00: /* Feed */\r
169	iodata = SCPE_OK;\r
170	break; \r
171	case 0x01: /* Read only */\r
172	if (cdr_ebcdic)\r
173	iodata = read_card(0, 1);\r
174	else\r
175	iodata = read_card(0, 0);\r
176	break;\r
177	case 0x02: /* Punch and feed */\r
178	iodata = punch_card(0, 0);\r
179	break;\r
180	case 0x03: /* Read Col Binary */\r
181	iodata = read_card(0, 1);\r
182	break;\r
183	case 0x04: /* Punch no feed */\r
184	iodata = punch_card(0, 1);\r
185	break;\r
186	default:\r
187	return STOP_INVDEV;\r
188	}\r
189	return iodata;\r
190	case 1: /* LIO 1442 */\r
191	switch (n) {\r
192	case 0x00: /* Load LCR */\r
193	LCR = data & 0xffff;\r
194	break;\r
195	case 0x04:\r
196	DAR = data & 0xffff;\r
197	break;\r
198	default:\r
199	return STOP_INVDEV;\r
200	}\r
201	return SCPE_OK;\r
202	case 2: /* TIO 1442 */\r
203	iodata = 0;\r
204	switch (n) {\r
205	case 0x00: /* Error */\r
206	if (carderr \|\| pcherror \|\| notready)\r
207	iodata = 1;\r
208	if ((cdr_unit.flags & UNIT_ATT) == 0) \r
209	iodata = 1; /* attached? */\r
210	break;\r
211	case 0x02: /* Busy */\r
212	if (sim_is_active (&cdr_unit)) \r
213	iodata = 1;\r
214	break; \r
215	default:\r
216	return (STOP_INVDEV << 16);\r
217	} \r
218	return ((SCPE_OK << 16) \| iodata);\r
219	case 3: /* SNS 1442 */\r
220	iodata = 0;\r
221	switch (n) {\r
222	case 0x01:\r
223	break;\r
224	case 0x02:\r
225	break;\r
226	case 0x03:\r
227	if (carderr)\r
228	iodata \|= 0x80;\r
229	if (lastcard)\r
230	iodata \|= 0x40;\r
231	if (pcherror)\r
232	iodata \|= 0x20;\r
233	if ((cdr_unit.flags & UNIT_ATT) == 0) \r
234	iodata \|= 0x08;\r
235	if (notready)\r
236	iodata \|= 0x08; \r
237	break;\r
238	case 0x04:\r
239	iodata = DAR;\r
240	break; \r
241	default:\r
242	return (STOP_INVDEV << 16);\r
243	}\r
244	iodata \|= ((SCPE_OK << 16) & 0xffff0000); \r
245	return (iodata);\r
246	case 4: /* APL 1442 */\r
247	iodata = 0;\r
248	switch (n) {\r
249	case 0x00: /* Error */\r
250	if (carderr \|\| pcherror \|\| notready)\r
251	iodata = 1;\r
252	if ((cdr_unit.flags & UNIT_ATT) == 0) \r
253	iodata = 1; /* attached? */\r
254	break;\r
255	case 0x02: /* Busy */\r
256	if (sim_is_active (&cdr_unit)) \r
257	iodata = 1;\r
258	break; \r
259	default:\r
260	return (STOP_INVDEV << 16);\r
261	} \r
262	return ((SCPE_OK << 16) \| iodata);\r
263	default:\r
264	break;\r
265	} \r
266	printf (">>CRD non-existent function %d\n", op);\r
267	return SCPE_OK; \r
268	}\r
269	\r
270	/* Card read routine\r
271	mod 0 = ASCII read\r
272	mod 1 = EBCDIC read\r
273	*/\r
274	\r
275	t_stat read_card (int32 ilnt, int32 mod)\r
276	{\r
277	int32 i;\r
278	t_stat r;\r
279	\r
280	if (sim_is_active (&cdr_unit)) { /* busy? */\r
281	sim_cancel (&cdr_unit); /* cancel */\r
282	if (r = cdr_svc (&cdr_unit)) return r; /* process */\r
283	} \r
284	\r
285	if (((cdp_unit.flags & UNIT_ATT) != 0 \|\|\r
286	(stack_unit[0].flags & UNIT_ATT) != 0) && /* Punch is attached and */\r
287	(cdr_unit.flags & UNIT_ATT) == 0) { /* reader is not --- */\r
288	for (i = 0; i < 80; i++) { /* Assume blank cards in hopper */\r
289	PutMem(DAR, 0x40);\r
290	DAR++;\r
291	}\r
292	sim_activate (&cdr_unit, cdr_unit.wait); /* activate */\r
293	return SCPE_OK;\r
294	}\r
295	\r
296	if ((cdr_unit.flags & UNIT_ATT) == 0) return SCPE_UNATT; /* attached? */\r
297	\r
298	lastcard = carderr = notready = s1sel = s2sel = 0; /* default stacker */\r
299	\r
300	for (i = 0; i < CBUFSIZE; i++) rbuf[i] = 0x20; /* clear buffer */\r
301	if (mod) {\r
302	for (i = 0; i < 80; i++) {\r
303	rbuf[i] = fgetc(cdr_unit.fileref); /* Read EBCDIC */\r
304	} \r
305	} else { \r
306	fgets (rbuf, CBUFSIZE, cdr_unit.fileref); /* read Ascii */\r
307	} \r
308	if (feof (cdr_unit.fileref)) { /* eof? */\r
309	notready = 1;\r
310	return STOP_NOCD;\r
311	} \r
312	if (ferror (cdr_unit.fileref)) { /* error? */\r
313	perror ("Card reader I/O error");\r
314	clearerr (cdr_unit.fileref);\r
315	carderr = 1; \r
316	return SCPE_OK; }\r
317	cdr_unit.pos = ftell (cdr_unit.fileref); /* update position */\r
318	i = getc (cdr_unit.fileref); /* see if more */\r
319	if (feof (cdr_unit.fileref)) lastcard = 1; /* eof? set flag */\r
320	fseek (cdr_unit.fileref, cdr_unit.pos, SEEK_SET);\r
321	for (i = 0; i < 80; i++) { \r
322	if (mod == 0) { /* If ASCII mode... */\r
323	if (rbuf[i] == '\n' \|\| /* remove ASCII CR/LF */\r
324	rbuf[i] == '\r' \|\|\r
325	rbuf[i] == 0x00)\r
326	rbuf[i] = ' ';\r
327	rbuf[i] = ascii_to_ebcdic[rbuf[i]]; /* convert to EBCDIC */\r
328	} \r
329	PutMem(DAR, rbuf[i]); /* Copy to main memory */\r
330	DAR++;\r
331	}\r
332	sim_activate (&cdr_unit, cdr_unit.wait); /* activate */\r
333	return SCPE_OK;\r
334	}\r
335	\r
336	/* Card reader service. If a stacker select is active, copy to the\r
337	selected stacker. Otherwise, copy to the normal stacker. If the\r
338	unit is unattached, simply exit.\r
339	*/\r
340	\r
341	t_stat cdr_svc (UNIT *uptr)\r
342	{\r
343	int32 i;\r
344	\r
345	if (s2sel) uptr = &stack_unit[0]; /* stacker 1? */\r
346	else uptr = &stack_unit[0]; /* then default */\r
347	if ((uptr -> flags & UNIT_ATT) == 0) return SCPE_OK; /* attached? */\r
348	for (i = 0; i < CDR_WIDTH; i++) rbuf[i] = ebcdic_to_ascii[rbuf[i]];\r
349	for (i = CDR_WIDTH - 1; (i >= 0) && (rbuf[i] == ' '); i--) rbuf[i] = 0;\r
350	rbuf[CDR_WIDTH] = 0; /* null at end */\r
351	fputs (rbuf, uptr -> fileref); /* write card */\r
352	fputc ('\n', uptr -> fileref); /* plus new line */\r
353	if (ferror (uptr -> fileref)) { /* error? */\r
354	perror ("Card stacker I/O error");\r
355	clearerr (uptr -> fileref);\r
356	}\r
357	uptr -> pos = ftell (uptr -> fileref); /* update position */\r
358	return SCPE_OK;\r
359	}\r
360	\r
361	/* Card punch routine\r
362	\r
363	mod: not used\r
364	*/\r
365	\r
366	t_stat punch_card (int32 ilnt, int32 mod)\r
367	{\r
368	int32 i, colcount;\r
369	static char pbuf[CDP_WIDTH + 1]; /* + null */\r
370	UNIT *uptr;\r
371	\r
372	if (s2sel) uptr = &stack_unit[0]; /* stack 2? */\r
373	else uptr = &cdp_unit; /* normal output */\r
374	if ((uptr -> flags & UNIT_ATT) == 0) { /* Attached? */\r
375	notready = 1;\r
376	return SCPE_OK; \r
377	}\r
378	pcherror = s1sel = notready = 0; /* clear flags */\r
379	\r
380	colcount = 128 - LCR;\r
381	for (i = 0; i < colcount; i++) { /* Fetch data */\r
382	if (cdp_ebcdic)\r
383	pbuf[i] = GetMem(DAR) & 0xff;\r
384	else\r
385	pbuf[i] = ebcdic_to_ascii[GetMem(DAR)];\r
386	DAR++;\r
387	} \r
388	for (i = CDP_WIDTH - 1; (i >= 0) && (pbuf[i] == ' '); i--) pbuf[i] = 0;\r
389	pbuf[CDP_WIDTH] = 0; /* trailing null */\r
390	if (!cdp_ebcdic) {\r
391	fputs (pbuf, uptr -> fileref); /* output card */\r
392	fputc ('\n', uptr -> fileref); /* plus new line */\r
393	} else {\r
394	for (i = 0; i < 80; i++) {\r
395	fputc(pbuf[i], uptr -> fileref);\r
396	} \r
397	} \r
398	if (ferror (uptr -> fileref)) { /* error? */\r
399	perror ("Card punch I/O error");\r
400	clearerr (uptr -> fileref);\r
401	pcherror = 1;\r
402	}\r
403	uptr -> pos = ftell (uptr -> fileref); /* update position */\r
404	return SCPE_OK;\r
405	}\r
406	\r
407	/* Select stack routine\r
408	\r
409	Modifiers have been checked by the caller\r
410	Modifiers are 1, 2, for the respective stack\r
411	*/\r
412	\r
413	t_stat select_stack (int32 ilnt, int32 mod)\r
414	{\r
415	if (mod == 1) s1sel = 1;\r
416	else if (mod == 2) s2sel = 1;\r
417	return SCPE_OK;\r
418	}\r
419	\r
420	/* Card reader/punch reset */\r
421	\r
422	t_stat cd_reset (DEVICE *dptr)\r
423	{\r
424	lastcard = carderr = notready = pcherror = 0; /* clear indicators */\r
425	s1sel = s2sel = 0; /* clear stacker sel */\r
426	sim_cancel (&cdr_unit); /* clear reader event */\r
427	return SCPE_OK;\r
428	}\r
429	\r
430	/* Card reader attach */\r
431	\r
432	t_stat cdr_attach (UNIT uptr, char cptr)\r
433	{\r
434	carderr = lastcard = notready = 0; /* clear last card */\r
435	return attach_unit (uptr, cptr);\r
436	}\r
437	\r
438	/* Bootstrap routine */\r
439	\r
440	t_stat cdr_boot (int32 unitno, DEVICE *dptr)\r
441	{\r
442	cdr_ebcdic = 1;\r
443	DAR = 0;\r
444	LCR = 80;\r
445	read_card(0, 1);\r
446	return SCPE_OK;\r
447	}\r