From 370cb0edb7ae14fb6467d7f8c734a70130b5bf3f Mon Sep 17 00:00:00 2001 From: Bob Supnik Date: Wed, 1 Feb 2017 08:06:25 -0800 Subject: [PATCH] PDP10: Fix RIM load loader count As further discussed in #278 --- PDP10/pdp10_sys.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/PDP10/pdp10_sys.c b/PDP10/pdp10_sys.c index 7ace75c7..0a669c1d 100644 --- a/PDP10/pdp10_sys.c +++ b/PDP10/pdp10_sys.c @@ -197,12 +197,12 @@ extern d10 rot (d10 val, a10 ea); data = getrimw (fileref); /* get first word */ if ((data < 0) || ((data & AMASK) != 0)) /* error? SA != 0? */ return SCPE_FMT; -ldrc = (-((int32) LRZ (data))) & 0777777; /* get loader count */ +ldrc = 01000000 - ((int32) (LRZ (data))); /* get loader count */ if (ldrc == 016) /* 16? RIM10B */ its_rim = FALSE; else if (ldrc == 017) /* 17? ITS RIM */ its_rim = TRUE; -else SCPE_FMT; /* unknown */ +else return SCPE_FMT; /* unknown */ for (i = 0; i < ldrc; i++) { /* skip the loader */ data = getrimw (fileref);