1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
--- HP2100/hp2100_cpu1.c.orig 2016-12-01 22:43:42 UTC
+++ HP2100/hp2100_cpu1.c
@@ -193,11 +193,12 @@ OPS op;
uint32 rs, qs, sc, v1, v2, t;
int32 sop1, sop2;
-if ((cpu_unit.flags & UNIT_EAU) == 0) /* option installed? */
+if ((cpu_unit.flags & UNIT_EAU) == 0) { /* option installed? */
if ((UNIT_CPU_MODEL == UNIT_2114) && (IR == 0101100)) /* 2114 and RRR 16? */
return SCPE_OK; /* allowed as NOP */
else
return stop_inst; /* fail */
+}
switch ((IR >> 8) & 0377) { /* decode IR<15:8> */
@@ -245,7 +246,7 @@ switch ((IR >> 8) & 0377) {
case 010: /* MPY 100200 (OP_K) */
MPY:
- if (reason = cpu_ops (OP_K, op, intrq)) /* get operand */
+ if ((reason = cpu_ops (OP_K, op, intrq))) /* get operand */
break;
sop1 = SEXT (AR); /* sext AR */
sop2 = SEXT (op[0].word); /* sext mem */
@@ -262,9 +263,9 @@ switch ((IR >> 8) & 0377) {
break;
case 0201: /* DIV 100400 (OP_K) */
- if (reason = cpu_ops (OP_K, op, intrq)) /* get operand */
+ if ((reason = cpu_ops (OP_K, op, intrq))) /* get operand */
break;
- if (rs = qs = BR & SIGN) { /* save divd sign, neg? */
+ if ((rs = qs = BR & SIGN)) { /* save divd sign, neg? */
AR = (~AR + 1) & DMASK; /* make B'A pos */
BR = (~BR + (AR == 0)) & DMASK; /* make divd pos */
}
@@ -317,14 +318,14 @@ switch ((IR >> 8) & 0377) {
break;
case 0210: /* DLD 104200 (OP_D) */
- if (reason = cpu_ops (OP_D, op, intrq)) /* get operand */
+ if ((reason = cpu_ops (OP_D, op, intrq))) /* get operand */
break;
AR = (op[0].dword >> 16) & DMASK; /* load AR */
BR = op[0].dword & DMASK; /* load BR */
break;
case 0211: /* DST 104400 (OP_A) */
- if (reason = cpu_ops (OP_A, op, intrq)) /* get operand */
+ if ((reason = cpu_ops (OP_A, op, intrq))) /* get operand */
break;
WriteW (op[0].word, AR); /* store AR */
WriteW ((op[0].word + 1) & VAMASK, BR); /* store BR */
@@ -734,7 +735,7 @@ for (i = 0; i < OP_N_F; i++) {
flags = pattern & OP_M_FLAGS; /* get operand pattern */
if (flags >= OP_ADR) /* address operand? */
- if (reason = resolve (ReadW (PC), &MA, irq)) /* resolve indirects */
+ if ((reason = resolve (ReadW (PC), &MA, irq))) /* resolve indirects */
return reason;
switch (flags) {
|
