github.com/rcornwell.sims
1
0
Fork 0
mirror of https://github.com/rcornwell/sims.git synced 2026-01-20 09:54:47 +00:00
Code Releases Activity

IBM360: Fixed to support new sim_card interface.

Browse Source
This commit is contained in:
Richard Cornwell 2018-07-05 22:04:00 -04:00
parent 6d860aa173
commit 85c8e7fe2e
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
IBM360/ibm360_cdp.c
View File

@ -178,7 +178,7 @@ cdp_srv(UNIT *uptr) {
/* Done waiting, punch card */
uptr->u3 &= ~CDP_CARD;
sim_debug(DEBUG_DETAIL, &cdp_dev, "unit=%d:punch\n", u);
switch(sim_punch_card(uptr, NULL, image)) {
switch(sim_punch_card(uptr, image)) {
/* If we get here, something is wrong */
case SCPE_IOERR:
set_devattn(addr, SNS_DEVEND|SNS_UNITCHK);
@ -234,7 +234,7 @@ cdp_detach(UNIT * uptr)
uint16 *image = (uint16 *)(uptr->up7);
if (uptr->u5 & CDP_CARD)
sim_punch_card(uptr, NULL, image);
sim_punch_card(uptr, image);
if (uptr->up7 != 0)
free(uptr->up7);
uptr->up7 = 0;

2
IBM360/ibm360_cdr.c
View File

@ -252,6 +252,8 @@ cdr_attach(UNIT * uptr, CONST char *file)
if ((r = sim_card_attach(uptr, file)) != SCPE_OK)
return r;
if (uptr->up7 == 0)
uptr->up7 = malloc(sizeof(uint16)*80);
set_devattn(addr, SNS_DEVEND);
uptr->u3 &= ~(CDR_CARD);
uptr->u4 = 0;