github.com/rcornwell.sims
1
0
Fork 0
mirror of https://github.com/rcornwell/sims.git synced 2026-01-22 18:41:11 +00:00
Code Releases Activity

IBM360: Fixed some Windows warning.

Browse Source
This commit is contained in:
Richard Cornwell 2023-05-09 13:09:42 -04:00
parent 3a1a0983b1
commit 07a7cacbb4
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
IBM360/ibm360_chan.c
View File

@ -1541,7 +1541,7 @@ set_dev_addr(UNIT * uptr, int32 val, CONST char *cptr, void *desc)
struct _dev *ndev;
t_stat r;
unsigned int i;
int devaddr;
t_value devaddr;
if (cptr == NULL)
return SCPE_ARG;
@ -1621,9 +1621,9 @@ set_dev_addr(UNIT * uptr, int32 val, CONST char *cptr, void *desc)
dev->dev_addr = devaddr;
uptr->u3 &= ~UNIT_ADDR(0xfff);
uptr->u3 |= UNIT_ADDR(devaddr);
sim_printf("Set dev %s %x\r\n", dptr->name, GET_UADDR(uptr->u3));
sim_printf("Set dev %s %x\r\n", dptr->name, GET_UADDR(uptr->u3) & 0xfff);
} else {
sim_printf("Set dev %s0 %x\r\n", dptr->name, devaddr);
sim_printf("Set dev %s0 %x\r\n", dptr->name, (uint32)(devaddr & 0xfff));
for (i = 0; i < dibp->numunits; i++) {
dev = find_device(devaddr + i);
uptr = &((dibp->units)[i]);

4
IBM360/ibm360_sys.c
View File

@ -517,7 +517,7 @@ t_opcode *tab;
t_stat fprint_sym (FILE *of, t_addr addr, t_value *val,
UNIT *uptr, int32 sw)
{
uint8 inst = *val;
uint8 inst = (uint8)(*val & 0xff);
uint16 sval[4];
int i;
int l = 1;
@ -894,7 +894,7 @@ t_stat parse_sym (CONST char *cptr, t_addr addr, UNIT *uptr, t_value *val, int32
return -5;
}
}
num = get_uint(cptr, rdx, max[l], &r);
num = (uint32)(get_uint(cptr, rdx, max[l], &r) & 0xffffffff);
for (i = 0; i < l && i < 4; i++)
val[i] = (num >> (((l - 1) - i) * 8)) & 0xff;
return -(l-1);