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

SDS: Refine Next command for subroutine branch

Browse source 
1. Treat the SBRM SysPOP like the BRM opcode for calling a subroutine.
2. If the -a (atomic) switch is present with a BRM or SBRM instruction, place a breakpoint at EA+1 rather than EA, since the return link is placed at EA (BRM) or at *EA (SBRM) with subroutine execution commencing at EA+1.
This commit is contained in:
Mark Emmer 2014-04-23 20:51:24 -05:00
parent 6f9f387c39
commit f597da0a98
2 changed files with 13 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
SDS/sds_cpu.c
View file

@ -1512,7 +1512,7 @@ return SCPE_OK;
typedef enum Next_Case { /* Next Next Atomic Next Forward */
Next_BadOp = 0, /* FALSE FALSE FALSE */
Next_Branch, /* FALSE EA FALSE */
Next_BRM, /* P+1,P+2,P+3 EA,P+1,P+2,P+3 P+1,P+2,P+3 */
Next_BRM, /* P+1,P+2,P+3 EA+1,P+1,P+2,P+3 P+1,P+2,P+3 */
Next_BRX, /* FALSE EA,P+1 P+1 */
Next_Simple, /* FALSE P+1 P+1 */
Next_POP, /* P+1,P+2 100+OP,P+1,P+2 P+1,P+2 */
@ -1556,8 +1556,12 @@ if (Read (P, &inst) != SCPE_OK) /* get instruction */
return FALSE;
Exu_Loop:
if (I_POP & inst) /* determine inst case */
if (I_POP & inst) { /* determine inst case */
if ((inst & ((I_M_OP << I_V_OP) | I_USR)) == 047000000)
op_case = Next_BRM; /* Treat SBRM like BRM */
else
op_case = Next_POP;
}
else
op_case = Op_Cases[I_GETOP(inst)];
@ -1568,7 +1572,12 @@ switch (op_case) {
*return_p++ = (P + 1) & VA_MASK;
*return_p++ = (P + 2) & VA_MASK;
*return_p++ = (P + 3) & VA_MASK;
/* -- fall through to Next_Branch case -- */
if (atomic) {
if (Ea (inst, &va) != SCPE_OK)
return FALSE;
*return_p++ = (va + 1) & VA_MASK;
}
break;
case Next_Branch:
if (atomic) {
if (Ea (inst, &va) != SCPE_OK)

BIN
doc/sds_doc.doc
View file

Binary file not shown.