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

[Pascal Parent]

I installed TOPS-20 V4.1 and COBOL-74 12C in SIMH. However, I am running
into an error when trying to run the XT74 sample in UETP.LIB.

I also installed Cobol 12C from the same tape on the Panda Distribution
using the KLH10 emulator. There the test is successful.

See the from both systems below.

Could this be explained by a difference between the KL-10 (KLH10) and KS
(SIMH) simulated hardware or is it a symptom of a bug in SIMH? I am running
this version:

"PDP-10 simulator V4.0-0 Beta        git commit id: cf1e7b9c"

Let me know if there is any other information I can provide that would be
useful.

Thank you,
Pascal.

=========
SIMH Test
=========

@CONNECT <UETP.LIB>
 PS:<OPERATOR> Over working storage allocation by 509 page(s).
@GET SYS:CBL74
@INF VER
 PGP TOPS-20 V4.1, TOPS-20 Monitor 4.1(5471)
 TOPS-20 Command processor 5.1(1354)
 Program is CBL74, version is 12.3(1574)
@START

*=XT7409

0246                    NUM OF B (1 SC1 SD1) ROUNDED
                        ^

CBL218 Rounding not necessary.

0258                    NUM OF B (SD1 SC1 2) ROUNDED
                        ^

CBL218 Rounding not necessary.

0436            MOVE CORR 2L OF A(SC2 1) TO 2L OF B (2 SD0 + 2).
                ^

CBL105 No CORRESPONDING elements.

0660                    NUM OF B (SC1 + 1 SD2 - 1 SD1) ROUNDED
                        ^

CBL218 Rounding not necessary.

0675                    NUM OF B (SD2 SC2 - 1 SD2 - 1) ROUNDED
                        ^

CBL218 Rounding not necessary.


WARNINGS:

0246  CBL502 Most significant digits truncated on NUM
0247  CBL502 Most significant digits truncated on NUM
0248  CBL502 Most significant digits truncated on NUM
0285  CBL502 Most significant digits truncated on NUM
0362  CBL502 Most significant digits truncated on TALLY
0370  CBL502 Most significant digits truncated on TALLY
0447  CBL502 Most significant digits truncated on NUM
0459  CBL502 Most significant digits truncated on NUM
0573  CBL501 Right-most truncation on AN
0576  CBL501 Right-most truncation on AN
0579  CBL501 Right-most truncation on AN
0617  CBL502 Most significant digits truncated on NUM
0716  CBL501 Right-most truncation on AN
No Fatal Errors, 18 Warnings

*=XT749S


*^C
@LOAD XT7409.REL,XT749S.REL
LINK:   Loading

EXIT
@SAVE CBL74T.EXE
 CBL74T.EXE.1 Saved
@RUN CBL74T.EXE
? TABLE A CANNOT BE CORRECTLY INITIALIZED.
  TABLE SHOULD CONTAIN:
####AA#BB01#01###CC#DD04#08####EE#FF09#27###GG#HH16#64#
  TABLE INSTEAD CONTAINS:
####AA#BB0J#0J###CC#DD0M#0Q####EE#FF0R#2P###GG#HH1O#6M#
TEST TERMINATED EARLY.

EXIT
@

==========
KLH10 TEST
==========

$CONNECT <UETP.LIB>
$GET SYS:CBL74
$inf ver
 Panda Distribution, PANDA TOPS-20 Monitor 7.1(21733)-4
 PANDA TOPS-20 Command processor 7.1(4453)-4
 Program is CBL74, version is 12.3(1574)
$start

*=XT7409

0246   NUM OF B (1 SC1 SD1) ROUNDED
                       ^

CBL218 Rounding not necessary.

0258   NUM OF B (SD1 SC1 2) ROUNDED
                       ^

CBL218 Rounding not necessary.

0436   MOVE CORR 2L OF A(SC2 1) TO 2L OF B (2 SD0 + 2).
               ^

CBL105 No CORRESPONDING elements.

0660   NUM OF B (SC1 + 1 SD2 - 1 SD1) ROUNDED
                       ^

CBL218 Rounding not necessary.

0675   NUM OF B (SD2 SC2 - 1 SD2 - 1) ROUNDED
                       ^

CBL218 Rounding not necessary.


WARNINGS:

0246  CBL502 Most significant digits truncated on NUM
0247  CBL502 Most significant digits truncated on NUM
0248  CBL502 Most significant digits truncated on NUM
0285  CBL502 Most significant digits truncated on NUM
0362  CBL502 Most significant digits truncated on TALLY
0370  CBL502 Most significant digits truncated on TALLY
0447  CBL502 Most significant digits truncated on NUM
0459  CBL502 Most significant digits truncated on NUM
0573  CBL501 Right-most truncation on AN
0576  CBL501 Right-most truncation on AN
0579  CBL501 Right-most truncation on AN
0617  CBL502 Most significant digits truncated on NUM
0716  CBL501 Right-most truncation on AN
No Fatal Errors, 18 Warnings

*=XT749S


*^C
$LOAD XT7409.REL,XT749S.REL
LINK: Loading
$SAVE CBL74T.EXE
 CBL74T.EXE.4 Saved
$RUN CBL74T.EXE
ACCEPT TEST
TYPE X<CR> TWICE
X
X
TYPE 1<CR> TWICE
1
1
ADD TEST
COMPUTE TEST
DISPLAY TEST
DISPLAY FAILS IF NEXT TWO LINES ARE NOT IDENTICAL
AA BB CC DD
AA BB CC DD
DIVIDE TEST
inspect TEST
GO ... DEP TEST
MOVE TEST
MULTIPLY TEST
PERFORM TEST
STARTING VARIABLE PERFORM TEST 1
  PERFORM TEST 1 FINISHED
STARTING VARIABLE PERFORM TEST 2
  PERFORM TEST 2 FINISHED
STARTING VARIABLE PERFORM TEST 3
  PERFORM TEST 3 FINISHED
STARTING VARIABLE PERFORM TEST 4
  PERFORM TEST 4 FINISHED
WRITE TEST
READ TEST
RELEASE & RETURN TEST
SEARCH TEST
SET TEST
SUBTRACT TEST
END OF TESTS

EXIT
$
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mailman.trailing-edge.com/pipermail/simh/attachments/20161027/789ac118/attachment.html>