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

PDP10: Fix RIM load loader count

Browse source 
As further discussed in #278
This commit is contained in:
Bob Supnik 2017-02-01 08:06:25 -08:00 • committed by Mark Pizzolato
parent 0913edb2f3
commit 370cb0edb7
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
PDP10/pdp10_sys.c
View file

@ -197,12 +197,12 @@ extern d10 rot (d10 val, a10 ea);
data = getrimw (fileref); /* get first word */ data = getrimw (fileref); /* get first word */
if ((data < 0) || ((data & AMASK) != 0)) /* error? SA != 0? */ if ((data < 0) || ((data & AMASK) != 0)) /* error? SA != 0? */
return SCPE_FMT; return SCPE_FMT;
ldrc = (-((int32) LRZ (data))) & 0777777; /* get loader count */ ldrc = 01000000 - ((int32) (LRZ (data))); /* get loader count */
if (ldrc == 016) /* 16? RIM10B */ if (ldrc == 016) /* 16? RIM10B */
its_rim = FALSE; its_rim = FALSE;
else if (ldrc == 017) /* 17? ITS RIM */ else if (ldrc == 017) /* 17? ITS RIM */
its_rim = TRUE; its_rim = TRUE;
else SCPE_FMT; /* unknown */ else return SCPE_FMT; /* unknown */
for (i = 0; i < ldrc; i++) { /* skip the loader */ for (i = 0; i < ldrc; i++) { /* skip the loader */
data = getrimw (fileref); data = getrimw (fileref);