[TUHS] History of top
Arthur Krewat
krewat at kilonet.net
Wed May 30 01:10:39 AEST 2018
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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://minnie.tuhs.org/pipermail/tuhs/attachments/20180529/84549695/attachment.html>
More information about the TUHS
mailing list