github.com/rcornwell.sims
1
0
Fork 0
mirror of https://github.com/rcornwell/sims.git synced 2026-02-04 07:33:39 +00:00
Code Releases Activity

IBM360: Misc fixes. Fix 2314 disk size, external interrupt, card reader stack.

Browse Source
This commit is contained in:
Richard Cornwell
2021-11-19 20:00:20 -05:00
parent 4ee337edad
commit ccb32e53be
3 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
IBM360/ibm360_cdr.c
View File

@@ -318,8 +318,10 @@ cdr_attach(UNIT * uptr, CONST char *file)
if ((r = sim_card_attach(uptr, file)) != SCPE_OK)
return r;
if (uptr->up7 == 0)
if (uptr->up7 == NULL)
uptr->up7 = malloc(sizeof(uint16)*80);
if (uptr->CMD & CDR_CARD)
return SCPE_OK;
uptr->CMD &= ~(CDR_CARD|CDR_EOF|CDR_ERR);
uptr->SNS = 0;
uptr->COL = 0;

6
IBM360/ibm360_con.c
View File

@@ -388,6 +388,12 @@ con_srv(UNIT *uptr) {
con_data[u].inptr = 0;
cmd = 0;
} else {
if (ch == 030) { /* ^X Post external interrupt */
sim_debug(DEBUG_CMD, &con_dev, "Console %d: ^X Key (external interrupt)\n", u);
post_extirq();
sim_activate(uptr, delay);
return SCPE_OK;
}
sim_debug(DEBUG_CMD, &con_dev, "%d: error %x\n", u, cmd);
if (cmd == 0)
uptr->CMD |= CON_REQ;

2
IBM360/ibm360_dasd.c
View File

@@ -218,7 +218,7 @@ disk_type[] =
{"2305", 48, 8, 14568, 6, 0x05}, /* 5.43 M */
{"2305-2",96, 8, 14858, 6, 0x05}, /* 11.26 M */
{"2311", 203, 10, 3717, 6, 0x11}, /* 7.32 M 156k/s 30 ms 145 full */
{"2314", 203, 20, 7294, 6, 0x14}, /* 29.17 M */
{"2314", 202, 20, 7294, 6, 0x14}, /* 29.17 M */
{"3330", 410, 19, 13165, 24, 0x30}, /* 100.00 M */
{"3330-2",815, 19, 13165, 24, 0x30},
{"3340", 349, 12, 8535, 24, 0x40}, /* 34.94 M */