29 May
2018
29 May
'18
9:10 p.m.
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
<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