folkert/simh-testsetgenerator
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed for Compiler indicated bugs

Browse source
This commit is contained in:
Mark Pizzolato 2012-04-27 15:09:40 -07:00
parent 78009646f0
commit 784f0542f2
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
ALTAIR/altair_dsk.c
View file

@ -218,8 +218,8 @@ int32 dsk10(int32 io, int32 data)
cur_disk = data & 0x0F; cur_disk = data & 0x0F;
if (data & 0x80) { if (data & 0x80) {
cur_flags[cur_disk] = 0; /* Disable drive */ cur_flags[cur_disk] = 0; /* Disable drive */
cur_sect[cur_disk = 0377]; cur_sect[cur_disk] = 0377;
cur_byte[cur_disk = 0377]; cur_byte[cur_disk] = 0377;
return (0); return (0);
} }
cur_flags[cur_disk] = 0x1A; /* Enable: head move true */ cur_flags[cur_disk] = 0x1A; /* Enable: head move true */

2
I1401/i1401_sys.c
View file

@ -402,7 +402,7 @@ if (op >= 64) /* successful? */
return SCPE_ARG; return SCPE_ARG;
val[0] = op | WM; /* store opcode */ val[0] = op | WM; /* store opcode */
cptr = get_glyph (cptr, gbuf, 0); /* get addr or d */ cptr = get_glyph (cptr, gbuf, 0); /* get addr or d */
if (((op_table[op] && IO) && (get_io (gbuf, &val[1]) == SCPE_OK)) || if (((op_table[op] & IO) && (get_io (gbuf, &val[1]) == SCPE_OK)) ||
(get_addr (gbuf, &val[1]) == SCPE_OK)) { (get_addr (gbuf, &val[1]) == SCPE_OK)) {
cptr = get_glyph (cptr, gbuf, 0); /* get addr or d */ cptr = get_glyph (cptr, gbuf, 0); /* get addr or d */
if (get_addr (gbuf, &val[4]) == SCPE_OK) { if (get_addr (gbuf, &val[4]) == SCPE_OK) {