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

PDP10: Fixed bugs in 1-proceed

Browse source 
As discussed in: PDP-10: single step in DDT crashes ITS (#373)
This commit is contained in:
Mark Pizzolato 2017-01-14 08:33:35 -08:00
parent 84e43a8c73
commit b72ec739be
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
PDP10/pdp10_cpu.c
View file

@ -1,6 +1,6 @@
/* pdp10_cpu.c: PDP-10 CPU simulator /* pdp10_cpu.c: PDP-10 CPU simulator
Copyright (c) 1993-2016, Robert M. Supnik Copyright (c) 1993-2017, Robert M. Supnik
Permission is hereby granted, free of charge, to any person obtaining a Permission is hereby granted, free of charge, to any person obtaining a
copy of this software and associated documentation files (the "Software"), copy of this software and associated documentation files (the "Software"),
@ -25,6 +25,7 @@
cpu KS10 central processor cpu KS10 central processor
14-Jan-17 RMS Fixed bugs in 1-proceed
09-Feb-16 RMS Fixed nested indirects and executes (Tim Litt) 09-Feb-16 RMS Fixed nested indirects and executes (Tim Litt)
25-Mar-12 RMS Added missing parameters to prototypes (Mark Pizzolato) 25-Mar-12 RMS Added missing parameters to prototypes (Mark Pizzolato)
17-Jul-07 RMS Fixed non-portable usage in SHOW HISTORY 17-Jul-07 RMS Fixed non-portable usage in SHOW HISTORY
@ -1440,7 +1441,6 @@ case 0725: IOA; io725 (AC(ac), ea); break; /* BCIOB, IOWRBQ */
default: default:
MUUO: MUUO:
its_2pr = 0; /* clear trap */
if (T20PAG) { /* TOPS20 paging? */ if (T20PAG) { /* TOPS20 paging? */
int32 tf = (op << (INST_V_OP - 18)) | (ac << (INST_V_AC - 18)); int32 tf = (op << (INST_V_OP - 18)) | (ac << (INST_V_AC - 18));
WriteP (upta + UPT_MUUO, XWD ( /* store flags,,op+ac */ WriteP (upta + UPT_MUUO, XWD ( /* store flags,,op+ac */
@ -1550,7 +1550,7 @@ if (its_2pr) { /* 1-proc trap? */
WriteP (upta + UPT_1PO, FLPC); /* wr old flgs, PC */ WriteP (upta + UPT_1PO, FLPC); /* wr old flgs, PC */
mb = ReadP (upta + UPT_1PN); /* rd new flgs, PC */ mb = ReadP (upta + UPT_1PN); /* rd new flgs, PC */
JUMP (mb); /* set PC */ JUMP (mb); /* set PC */
set_newflags (mb, TRUE); /* set new flags */ set_newflags (mb, FALSE); /* set new flags */
} }
} /* end if 2-proc */ } /* end if 2-proc */
} /* end for */ } /* end for */