folkert/simh-testsetgenerator
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add register descriptions and help to the pdp11_pt devices (PTR, PTP).

Browse source
This commit is contained in:
Mark Pizzolato 2013-02-05 11:13:18 -08:00
parent e59d9c1599
commit c5bd79f05d
1 changed files with 80 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

102
PDP11/pdp11_pt.c
View file

@ -63,12 +63,16 @@ t_stat ptr_rd (int32 *data, int32 PA, int32 access);
t_stat ptr_wr (int32 data, int32 PA, int32 access); t_stat ptr_wr (int32 data, int32 PA, int32 access);
t_stat ptr_svc (UNIT *uptr); t_stat ptr_svc (UNIT *uptr);
t_stat ptr_reset (DEVICE *dptr); t_stat ptr_reset (DEVICE *dptr);
t_stat ptr_help (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, char *cptr);
char *ptr_description (DEVICE *dptr);
t_stat ptr_attach (UNIT *uptr, char *ptr); t_stat ptr_attach (UNIT *uptr, char *ptr);
t_stat ptr_detach (UNIT *uptr); t_stat ptr_detach (UNIT *uptr);
t_stat ptp_rd (int32 *data, int32 PA, int32 access); t_stat ptp_rd (int32 *data, int32 PA, int32 access);
t_stat ptp_wr (int32 data, int32 PA, int32 access); t_stat ptp_wr (int32 data, int32 PA, int32 access);
t_stat ptp_svc (UNIT *uptr); t_stat ptp_svc (UNIT *uptr);
t_stat ptp_reset (DEVICE *dptr); t_stat ptp_reset (DEVICE *dptr);
t_stat ptp_help (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, char *cptr);
char *ptp_description (DEVICE *dptr);
t_stat ptp_attach (UNIT *uptr, char *ptr); t_stat ptp_attach (UNIT *uptr, char *ptr);
t_stat ptp_detach (UNIT *uptr); t_stat ptp_detach (UNIT *uptr);
@ -92,17 +96,19 @@ UNIT ptr_unit = {
}; };
REG ptr_reg[] = { REG ptr_reg[] = {
{ GRDATA (BUF, ptr_unit.buf, DEV_RDX, 8, 0) }, { GRDATAD (BUF, ptr_unit.buf, DEV_RDX, 8, 0, "last data item processed") },
{ GRDATA (CSR, ptr_csr, DEV_RDX, 16, 0) }, { GRDATAD (CSR, ptr_csr, DEV_RDX, 16, 0, "control/status register") },
{ FLDATA (INT, int_req, INT_V_PTR) }, { FLDATAD (INT, int_req, INT_V_PTR, "interrupt pending flag") },
{ FLDATA (ERR, ptr_csr, CSR_V_ERR) }, { FLDATAD (ERR, ptr_csr, CSR_V_ERR, "error flag (CSR<15>)") },
{ FLDATA (BUSY, ptr_csr, CSR_V_BUSY) }, { FLDATAD (BUSY, ptr_csr, CSR_V_BUSY, "busy flag (CSR<11>)") },
{ FLDATA (DONE, ptr_csr, CSR_V_DONE) }, { FLDATAD (DONE, ptr_csr, CSR_V_DONE, "device done flag (CSR<7>)") },
{ FLDATA (IE, ptr_csr, CSR_V_IE) }, { FLDATAD (IE, ptr_csr, CSR_V_IE, "interrupt enable flag (CSR<6>)") },
{ DRDATA (POS, ptr_unit.pos, T_ADDR_W), PV_LEFT }, { DRDATAD (POS, ptr_unit.pos, T_ADDR_W, "position in the input file"), PV_LEFT },
{ DRDATA (TIME, ptr_unit.wait, 24), PV_LEFT }, { DRDATAD (TIME, ptr_unit.wait, 24, "time from I/O initiation to interrupt"), PV_LEFT },
{ FLDATA (STOP_IOE, ptr_stopioe, 0) }, { FLDATAD (STOP_IOE, ptr_stopioe, 0, "stop on I/O error") },
{ FLDATA (DEVDIS, ptr_dev.flags, DEV_V_DIS), REG_HRO }, { FLDATA (DEVDIS, ptr_dev.flags, DEV_V_DIS), REG_HRO },
{ GRDATA (DEVADDR, ptr_dib.ba, DEV_RDX, 32, 0), REG_HRO },
{ GRDATA (DEVVEC, ptr_dib.vec, DEV_RDX, 16, 0), REG_HRO },
{ NULL } { NULL }
}; };
@ -119,7 +125,9 @@ DEVICE ptr_dev = {
1, 10, 31, 1, DEV_RDX, 8, 1, 10, 31, 1, DEV_RDX, 8,
NULL, NULL, &ptr_reset, NULL, NULL, &ptr_reset,
NULL, &ptr_attach, &ptr_detach, NULL, &ptr_attach, &ptr_detach,
&ptr_dib, DEV_DISABLE | PT_DIS | DEV_UBUS | DEV_QBUS &ptr_dib, DEV_DISABLE | PT_DIS | DEV_UBUS | DEV_QBUS, 0,
NULL, NULL, NULL, &ptr_help, NULL, NULL,
&ptr_description
}; };
/* PTP data structures /* PTP data structures
@ -141,15 +149,17 @@ UNIT ptp_unit = {
}; };
REG ptp_reg[] = { REG ptp_reg[] = {
{ GRDATA (BUF, ptp_unit.buf, DEV_RDX, 8, 0) }, { GRDATAD (BUF, ptp_unit.buf, DEV_RDX, 8, 0, "last data item processed") },
{ GRDATA (CSR, ptp_csr, DEV_RDX, 16, 0) }, { GRDATAD (CSR, ptp_csr, DEV_RDX, 16, 0, "control/status register") },
{ FLDATA (INT, int_req, INT_V_PTP) }, { FLDATAD (INT, int_req, INT_V_PTP, "interrupt pending flag") },
{ FLDATA (ERR, ptp_csr, CSR_V_ERR) }, { FLDATAD (ERR, ptp_csr, CSR_V_ERR, "error flag (CSR<15>)") },
{ FLDATA (DONE, ptp_csr, CSR_V_DONE) }, { FLDATAD (DONE, ptp_csr, CSR_V_DONE, "device done flag (CSR<7>)") },
{ FLDATA (IE, ptp_csr, CSR_V_IE) }, { FLDATAD (IE, ptp_csr, CSR_V_IE, "interrupt enable flag (CSR<6>)") },
{ DRDATA (POS, ptp_unit.pos, T_ADDR_W), PV_LEFT }, { DRDATAD (POS, ptp_unit.pos, T_ADDR_W, "position in the output file"), PV_LEFT },
{ DRDATA (TIME, ptp_unit.wait, 24), PV_LEFT }, { DRDATAD (TIME, ptp_unit.wait, 24, "time from I/O initiation to interrupt"), PV_LEFT },
{ FLDATA (STOP_IOE, ptp_stopioe, 0) }, { FLDATAD (STOP_IOE, ptp_stopioe, 0, "stop on I/O error") },
{ GRDATA (DEVADDR, ptp_dib.ba, DEV_RDX, 32, 0), REG_HRO },
{ GRDATA (DEVVEC, ptp_dib.vec, DEV_RDX, 16, 0), REG_HRO },
{ NULL } { NULL }
}; };
@ -166,7 +176,9 @@ DEVICE ptp_dev = {
1, 10, 31, 1, DEV_RDX, 8, 1, 10, 31, 1, DEV_RDX, 8,
NULL, NULL, &ptp_reset, NULL, NULL, &ptp_reset,
NULL, &ptp_attach, &ptp_detach, NULL, &ptp_attach, &ptp_detach,
&ptp_dib, DEV_DISABLE | PT_DIS | DEV_UBUS | DEV_QBUS &ptp_dib, DEV_DISABLE | PT_DIS | DEV_UBUS | DEV_QBUS, 0,
NULL, NULL, NULL, &ptp_help, NULL, NULL,
&ptp_description
}; };
/* Paper tape reader I/O address routines */ /* Paper tape reader I/O address routines */
@ -367,3 +379,49 @@ t_stat ptp_detach (UNIT *uptr)
ptp_csr = ptp_csr | CSR_ERR; ptp_csr = ptp_csr | CSR_ERR;
return detach_unit (uptr); return detach_unit (uptr);
} }
t_stat ptr_help (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, char *cptr)
{
fprintf (st, "PC11 Paper Tape Reader (PTP)\n\n");
fprintf (st, "The paper tape punch (PTP) writes data to a disk file. The POS register\n");
fprintf (st, "specifies the number of the next data item to be written. Thus, by changing\n");
fprintf (st, "POS, the user can backspace or advance the punch.\n");
fprint_set_help (st, dptr);
fprint_show_help (st, dptr);
fprint_reg_help (st, dptr);
fprintf (st, "\nError handling is as follows:\n\n");
fprintf (st, " error STOP_IOE processed as\n");
fprintf (st, " not attached 1 report error and stop\n");
fprintf (st, " 0 out of tape\n\n");
fprintf (st, " end of file 1 report error and stop\n");
fprintf (st, " 0 out of tape\n");
fprintf (st, " OS I/O error x report error and stop\n");
return SCPE_OK;
}
char *ptr_description (DEVICE *dptr)
{
return "PC11 paper tape reader";
}
t_stat ptp_help (FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, char *cptr)
{
fprintf (st, "PC11 Paper Tape Punch (PTP)\n\n");
fprintf (st, "The paper tape punch (PTP) writes data to a disk file. The POS register\n");
fprintf (st, "specifies the number of the next data item to be written. Thus, by changing\n");
fprintf (st, "POS, the user can backspace or advance the punch.\n");
fprint_set_help (st, dptr);
fprint_show_help (st, dptr);
fprint_reg_help (st, dptr);
fprintf (st, "\nError handling is as follows:\n\n");
fprintf (st, " error STOP_IOE processed as\n");
fprintf (st, " not attached 1 report error and stop\n");
fprintf (st, " 0 out of tape\n\n");
fprintf (st, " OS I/O error x report error and stop\n");
return SCPE_OK;
}
char *ptp_description (DEVICE *dptr)
{
return "PC11 paper tape punch";
}