[TUHS] History of top
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.
> 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
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...
More information about the TUHS