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

IBM360: Fixed overwriting of file on LP.

Browse Source
This commit is contained in:
Richard Cornwell
2019-08-07 21:46:43 -04:00
parent 754ea74ce7
commit 8a56a36a47
2 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
IBM360/ibm360_cpu.c
View File

@@ -946,6 +946,15 @@ opr:
}
}
if (hst_lnt) {
hst[hst_p].op = op;
hst[hst_p].reg = reg;
hst[hst_p].addr1 = addr1;
hst[hst_p].addr2 = addr2;
hst[hst_p].src1 = 0;
hst[hst_p].src2 = 0;
}
/* Check if floating point */
if ((op & 0xA0) == 0x20) {
if ((cpu_unit.flags & FEAT_FLOAT) == 0) {
@@ -1006,10 +1015,6 @@ opr:
src2 = addr1;
}
if (hst_lnt) {
hst[hst_p].op = op;
hst[hst_p].reg = reg;
hst[hst_p].addr1 = addr1;
hst[hst_p].addr2 = addr2;
hst[hst_p].src1 = src1;
hst[hst_p].src2 = src2;
}

1
IBM360/ibm360_lpr.c
View File

@@ -174,6 +174,7 @@ print_line(UNIT * uptr)
/* Print out buffer */
sim_fwrite(&out, 1, i, uptr->fileref);
uptr->pos += i;
sim_debug(DEBUG_DETAIL, &lpr_dev, "%s", out);
uptr->u4++;
if (uptr->u4 > uptr->capac) {