<html>
  <head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
  </head>
  <body text="#000000" bgcolor="#FFFFFF">
    On 5/29/2018 10:18 AM, Clem Cole wrote:<br>
    <blockquote type="cite"
cite="mid:CAC20D2NQyUKZBp-EPC4bzG6=xkxSZj=vKmvWTthbKg-Yyga-fg@mail.gmail.com">
      <blockquote class="gmail_quote" style="margin:0 0 0
        .8ex;border-left:1px #ccc solid;padding-left:1ex">
        <br>
        Is this a TOPS-10 version of SYSDPY?  It was copyrighted in
        1970.<br>
        <br>
        <a
href="http://pdp-10.trailing-edge.com/bb-jr93e-bb/14/7,6/ap014/sysdpy.x14.html"
          rel="noreferrer" target="_blank" moz-do-not-send="true">http://pdp-10.trailing-edge.<wbr>com/bb-jr93e-bb/14/7,6/ap014/<wbr>sysdpy.x14.html</a></blockquote>
      <div>
        <div class="gmail_default"
          style="font-family:arial,helvetica,sans-serif">​Could be --
          looks about right,  I do not have a running 10 in simh to
          check it these days.  But that looks reasonable,​</div>
        <br>
      </div>
      <div><br>
      </div>
    </blockquote>
    This is definitely TOPS-10:<br>
    <br>
    <pre>SYSDPY:  JFCL                    ;ALLOW FOR CCL ENTRY
        SETZB   0,ZER           ;CLEAR OUT SCRATCH
        MOVE    A,[ZER,,ZER+1]
        BLT     A,LZER
        MOVEI   17,1            ;CLEAR
        BLT     17,16           ; ACS
        MOVE    P,[IOWD PDLEN,PDLST]  ;INITIALIZE PDL POINTER
        SETZ    F,              ;NO FLAGS
        SETOM   .FRAJR          ;AUTOMATIC ROLL FEATURE
        JUMPPT  A,,KA10         ;SEE IF KI-10
        TRO     F,FR.KIX!FR.KIP ;YES--SET FLAG
KA10:   MOVE    A,[%CNVER]      ;GET MONITOR VERSION
        GETTAB  A,              ;GET MONITOR VERSION VIA UUO!!
         SETZM  A               ;VERY OLD!!
        MOVEM   A,MONVER        ;  TESTS
        MOVX    A,%CNDJB        ;ASK MONITOR FOR
        GETTAB  A,              ;PJOBN/DEVJOB INFORMATION
         MOVE   A,[POINT 9,20,35]  ;6-SERIES MONITORS
        HRRM    A,PJOBNO        ;SAVE DEVJOB INDEX
        HLLM    A,PJOBNP        ;AND POINTER TO JOB NUMBER IN SAME</pre>
  </body>
</html>