<div dir="ltr"><div>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.</div><div><br></div><div>I also installed Cobol 12C from the same tape on the Panda Distribution using the KLH10 emulator. There the test is successful.</div><div><br></div><div>See the from both systems below.</div><div><br></div><div>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:</div><div><br></div><div>"PDP-10 simulator V4.0-0 Beta        git commit id: cf1e7b9c"</div><div><br></div><div>Let me know if there is any other information I can provide that would be useful.</div><div><br></div><div>Thank you,</div><div>Pascal.</div><div><br></div><div><font face="monospace, monospace">=========</font></div><div><font face="monospace, monospace">SIMH Test</font></div><div><font face="monospace, monospace">=========</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">@CONNECT <UETP.LIB></font></div><div><font face="monospace, monospace"> PS:<OPERATOR> Over working storage allocation by 509 page(s).</font></div><div><font face="monospace, monospace">@GET SYS:CBL74</font></div><div><font face="monospace, monospace">@INF VER</font></div><div><font face="monospace, monospace"> PGP TOPS-20 V4.1, TOPS-20 Monitor 4.1(5471)</font></div><div><font face="monospace, monospace"> TOPS-20 Command processor 5.1(1354)</font></div><div><font face="monospace, monospace"> Program is CBL74, version is 12.3(1574)</font></div><div><font face="monospace, monospace">@START</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">*=XT7409</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">0246                    NUM OF B (1 SC1 SD1) ROUNDED</font></div><div><font face="monospace, monospace">                        ^</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">CBL218 Rounding not necessary.</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">0258                    NUM OF B (SD1 SC1 2) ROUNDED</font></div><div><font face="monospace, monospace">                        ^</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">CBL218 Rounding not necessary.</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">0436            MOVE CORR 2L OF A(SC2 1) TO 2L OF B (2 SD0 + 2).</font></div><div><font face="monospace, monospace">                ^</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">CBL105 No CORRESPONDING elements.</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">0660                    NUM OF B (SC1 + 1 SD2 - 1 SD1) ROUNDED</font></div><div><font face="monospace, monospace">                        ^</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">CBL218 Rounding not necessary.</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">0675                    NUM OF B (SD2 SC2 - 1 SD2 - 1) ROUNDED</font></div><div><font face="monospace, monospace">                        ^</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">CBL218 Rounding not necessary.</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">WARNINGS:</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">0246  CBL502 Most significant digits truncated on NUM</font></div><div><font face="monospace, monospace">0247  CBL502 Most significant digits truncated on NUM</font></div><div><font face="monospace, monospace">0248  CBL502 Most significant digits truncated on NUM</font></div><div><font face="monospace, monospace">0285  CBL502 Most significant digits truncated on NUM</font></div><div><font face="monospace, monospace">0362  CBL502 Most significant digits truncated on TALLY</font></div><div><font face="monospace, monospace">0370  CBL502 Most significant digits truncated on TALLY</font></div><div><font face="monospace, monospace">0447  CBL502 Most significant digits truncated on NUM</font></div><div><font face="monospace, monospace">0459  CBL502 Most significant digits truncated on NUM</font></div><div><font face="monospace, monospace">0573  CBL501 Right-most truncation on AN</font></div><div><font face="monospace, monospace">0576  CBL501 Right-most truncation on AN</font></div><div><font face="monospace, monospace">0579  CBL501 Right-most truncation on AN</font></div><div><font face="monospace, monospace">0617  CBL502 Most significant digits truncated on NUM</font></div><div><font face="monospace, monospace">0716  CBL501 Right-most truncation on AN</font></div><div><font face="monospace, monospace">No Fatal Errors, 18 Warnings</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">*=XT749S</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">*^C</font></div><div><font face="monospace, monospace">@LOAD XT7409.REL,XT749S.REL</font></div><div><font face="monospace, monospace">LINK:   Loading</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">EXIT</font></div><div><font face="monospace, monospace">@SAVE CBL74T.EXE</font></div><div><font face="monospace, monospace"> CBL74T.EXE.1 Saved</font></div><div><font face="monospace, monospace">@RUN CBL74T.EXE</font></div><div><font face="monospace, monospace">? TABLE A CANNOT BE CORRECTLY INITIALIZED.</font></div><div><font face="monospace, monospace">  TABLE SHOULD CONTAIN:</font></div><div><font face="monospace, monospace">####AA#BB01#01###CC#DD04#08####EE#FF09#27###GG#HH16#64#</font></div><div><font face="monospace, monospace">  TABLE INSTEAD CONTAINS:</font></div><div><font face="monospace, monospace">####AA#BB0J#0J###CC#DD0M#0Q####EE#FF0R#2P###GG#HH1O#6M#</font></div><div><font face="monospace, monospace">TEST TERMINATED EARLY.</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">EXIT</font></div><div><font face="monospace, monospace">@</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">==========</font></div><div><font face="monospace, monospace">KLH10 TEST</font></div><div><font face="monospace, monospace">==========</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">$CONNECT <UETP.LIB></font></div><div><font face="monospace, monospace">$GET SYS:CBL74</font></div><div><font face="monospace, monospace">$inf ver</font></div><div><font face="monospace, monospace"> Panda Distribution, PANDA TOPS-20 Monitor 7.1(21733)-4</font></div><div><font face="monospace, monospace"> PANDA TOPS-20 Command processor 7.1(4453)-4</font></div><div><font face="monospace, monospace"> Program is CBL74, version is 12.3(1574)</font></div><div><font face="monospace, monospace">$start</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">*=XT7409</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">0246   <span class="gmail-Apple-tab-span" style="white-space:pre">        </span> <span class="gmail-Apple-tab-span" style="white-space:pre">             </span>NUM OF B (1 SC1 SD1) ROUNDED</font></div><div><font face="monospace, monospace">       <span class="gmail-Apple-tab-span" style="white-space:pre"> </span>                ^</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">CBL218 Rounding not necessary.</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">0258   <span class="gmail-Apple-tab-span" style="white-space:pre">   </span> <span class="gmail-Apple-tab-span" style="white-space:pre">             </span>NUM OF B (SD1 SC1 2) ROUNDED</font></div><div><font face="monospace, monospace">       <span class="gmail-Apple-tab-span" style="white-space:pre"> </span>                ^</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">CBL218 Rounding not necessary.</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">0436   <span class="gmail-Apple-tab-span" style="white-space:pre">   </span> <span class="gmail-Apple-tab-span" style="white-space:pre">     </span>MOVE CORR 2L OF A(SC2 1) TO 2L OF B (2 SD0 + 2).</font></div><div><font face="monospace, monospace">       <span class="gmail-Apple-tab-span" style="white-space:pre">     </span>        ^</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">CBL105 No CORRESPONDING elements.</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">0660   <span class="gmail-Apple-tab-span" style="white-space:pre">    </span> <span class="gmail-Apple-tab-span" style="white-space:pre">             </span>NUM OF B (SC1 + 1 SD2 - 1 SD1) ROUNDED</font></div><div><font face="monospace, monospace">       <span class="gmail-Apple-tab-span" style="white-space:pre">       </span>                ^</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">CBL218 Rounding not necessary.</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">0675   <span class="gmail-Apple-tab-span" style="white-space:pre">   </span> <span class="gmail-Apple-tab-span" style="white-space:pre">             </span>NUM OF B (SD2 SC2 - 1 SD2 - 1) ROUNDED</font></div><div><font face="monospace, monospace">       <span class="gmail-Apple-tab-span" style="white-space:pre">       </span>                ^</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">CBL218 Rounding not necessary.</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">WARNINGS:</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">0246  CBL502 Most significant digits truncated on NUM</font></div><div><font face="monospace, monospace">0247  CBL502 Most significant digits truncated on NUM</font></div><div><font face="monospace, monospace">0248  CBL502 Most significant digits truncated on NUM</font></div><div><font face="monospace, monospace">0285  CBL502 Most significant digits truncated on NUM</font></div><div><font face="monospace, monospace">0362  CBL502 Most significant digits truncated on TALLY</font></div><div><font face="monospace, monospace">0370  CBL502 Most significant digits truncated on TALLY</font></div><div><font face="monospace, monospace">0447  CBL502 Most significant digits truncated on NUM</font></div><div><font face="monospace, monospace">0459  CBL502 Most significant digits truncated on NUM</font></div><div><font face="monospace, monospace">0573  CBL501 Right-most truncation on AN</font></div><div><font face="monospace, monospace">0576  CBL501 Right-most truncation on AN</font></div><div><font face="monospace, monospace">0579  CBL501 Right-most truncation on AN</font></div><div><font face="monospace, monospace">0617  CBL502 Most significant digits truncated on NUM</font></div><div><font face="monospace, monospace">0716  CBL501 Right-most truncation on AN</font></div><div><font face="monospace, monospace">No Fatal Errors, 18 Warnings</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">*=XT749S</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">*^C</font></div><div><font face="monospace, monospace">$LOAD XT7409.REL,XT749S.REL</font></div><div><font face="monospace, monospace">LINK:<span class="gmail-Apple-tab-span" style="white-space:pre"> </span>Loading</font></div><div><font face="monospace, monospace">$SAVE CBL74T.EXE</font></div><div><font face="monospace, monospace"> CBL74T.EXE.4 Saved</font></div><div><font face="monospace, monospace">$RUN CBL74T.EXE</font></div><div><font face="monospace, monospace">ACCEPT TEST</font></div><div><font face="monospace, monospace">TYPE X<CR> TWICE</font></div><div><font face="monospace, monospace">X</font></div><div><font face="monospace, monospace">X</font></div><div><font face="monospace, monospace">TYPE 1<CR> TWICE</font></div><div><font face="monospace, monospace">1</font></div><div><font face="monospace, monospace">1</font></div><div><font face="monospace, monospace">ADD TEST</font></div><div><font face="monospace, monospace">COMPUTE TEST</font></div><div><font face="monospace, monospace">DISPLAY TEST</font></div><div><font face="monospace, monospace">DISPLAY FAILS IF NEXT TWO LINES ARE NOT IDENTICAL</font></div><div><font face="monospace, monospace">AA BB CC DD</font></div><div><font face="monospace, monospace">AA BB CC DD</font></div><div><font face="monospace, monospace">DIVIDE TEST</font></div><div><font face="monospace, monospace">inspect TEST</font></div><div><font face="monospace, monospace">GO ... DEP TEST</font></div><div><font face="monospace, monospace">MOVE TEST</font></div><div><font face="monospace, monospace">MULTIPLY TEST</font></div><div><font face="monospace, monospace">PERFORM TEST</font></div><div><font face="monospace, monospace">STARTING VARIABLE PERFORM TEST 1</font></div><div><font face="monospace, monospace">  PERFORM TEST 1 FINISHED</font></div><div><font face="monospace, monospace">STARTING VARIABLE PERFORM TEST 2</font></div><div><font face="monospace, monospace">  PERFORM TEST 2 FINISHED</font></div><div><font face="monospace, monospace">STARTING VARIABLE PERFORM TEST 3</font></div><div><font face="monospace, monospace">  PERFORM TEST 3 FINISHED</font></div><div><font face="monospace, monospace">STARTING VARIABLE PERFORM TEST 4</font></div><div><font face="monospace, monospace">  PERFORM TEST 4 FINISHED</font></div><div><font face="monospace, monospace">WRITE TEST</font></div><div><font face="monospace, monospace">READ TEST</font></div><div><font face="monospace, monospace">RELEASE & RETURN TEST</font></div><div><font face="monospace, monospace">SEARCH TEST</font></div><div><font face="monospace, monospace">SET TEST</font></div><div><font face="monospace, monospace">SUBTRACT TEST</font></div><div><font face="monospace, monospace">END OF TESTS</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">EXIT</font></div><div><font face="monospace, monospace">$</font></div></div>