[Simh] TOPS-20 4.1 Cobol 12c Sample test failure

[Rhialto]

On Fri 04 Nov 2016 at 20:52:33 -0700, Pascal Parent wrote:
> However, for the last digit the emulator checks the L bit instead of the M.
> 
> The fix in pdp10_xtnd.c is:
> 
> 308c308
> <                 if ((i == 1) && (AC(p3) & XT_LFLG))
> ---
> >                 if ((i == 1) && (AC(p3) & XT_MFLG))
> 
> I hope this is correct. The CBL74T test completes successfully with this
> change.

For reference, in klh10, there is this code around line 1977 of
inexts.c:
https://github.com/Rhialto/klh10/blob/master/src/inexts.c#L1977

            wbyte = vm_pget(vp);
            if (ndigs == 1 && (flags & CVTF_M)) /* Special hack for last dig */
                RHSET(wbyte, LHGET(wbyte));     /* Use LH instead if M set */

which seems to be the equivalent of that.

-Olaf.
-- 
___ Olaf 'Rhialto' Seibert  -- Wayland: Those who don't understand X
\X/ rhialto/at/xs4all.nl    -- are condemned to reinvent it. Poorly.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 455 bytes
Desc: not available
URL: <http://mailman.trailing-edge.com/pipermail/simh/attachments/20161105/99946f32/attachment-0001.sig>