On 5/29/2018 10:18 AM, Clem Cole wrote: > > > Is this a TOPS-10 version of SYSDPY?  It was copyrighted in 1970. > > http://pdp-10.trailing-edge.com/bb-jr93e-bb/14/7,6/ap014/sysdpy.x14.html > > > ​Could be -- looks about right,  I do not have a running 10 in simh to > check it these days.  But that looks reasonable,​ > > This is definitely TOPS-10: 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 -------------- next part -------------- An HTML attachment was scrubbed... URL: