github.com/rcornwell.sims
1
0
Fork 0
mirror of https://github.com/rcornwell/sims.git synced 2026-01-27 04:21:59 +00:00
Code Releases Activity

KA10: Updated card reader empty deck detection.

Browse Source
This commit is contained in:
Richard Cornwell
2019-08-03 13:55:12 -04:00
parent e30cf77b90
commit 88373ac00b
2 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
PDP10/kx10_cp.c
View File

@@ -92,7 +92,7 @@ uint16 cp_buffer[80];
DIB cp_dib = { CP_DEVNUM, 1, cp_devio, NULL};
UNIT cp_unit = {UDATA(cp_srv, UNIT_CDP, 0), 600 };
UNIT cp_unit = {UDATA(cp_srv, UNIT_CDP, 0), 2000 };
MTAB cp_mod[] = {
{MTAB_XTD | MTAB_VUN, 0, "FORMAT", "FORMAT",

6
PDP10/kx10_cr.c
View File

@@ -94,7 +94,7 @@ uint16 cr_buffer[80];
DIB cr_dib = { CR_DEVNUM, 1, cr_devio, NULL};
UNIT cr_unit = {
UDATA(cr_srv, UNIT_CDR, 0), 300,
UDATA(cr_srv, UNIT_CDR, 0), 1000,
};
MTAB cr_mod[] = {
@@ -214,7 +214,7 @@ cr_srv(UNIT *uptr) {
case CDSE_EMPTY:
sim_debug(DEBUG_EXP, &cr_dev, "CR: card empty\n");
uptr->STATUS &= ~(CARD_IN_READ|READING);
uptr->STATUS |= HOPPER_EMPTY|TROUBLE|STOP;
uptr->STATUS |= HOPPER_EMPTY|TROUBLE;
if (uptr->STATUS & TROUBLE_EN)
set_interrupt(CR_DEVNUM, uptr->STATUS);
return SCPE_OK;
@@ -239,6 +239,8 @@ cr_srv(UNIT *uptr) {
if (uptr->STATUS & CARD_IN_READ) {
if (uptr->COL >= 80) {
uptr->STATUS &= ~(CARD_IN_READ|READING);
if (sim_card_input_hopper_count(uptr) == 0)
uptr->STATUS |= HOPPER_EMPTY;
uptr->STATUS |= END_CARD;
set_interrupt(CR_DEVNUM, uptr->STATUS);
sim_activate(uptr, uptr->wait);