github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-02-02 15:01:04 +00:00
Code Issues Releases Wiki Activity

Avoid hardcoding machine names.

Browse Source 
Instead, use ITSNMS table.

- MAGFRM doesn't need to check machine name.

- But still knows about MC's config...

- Look up hosts in ITSNMS table instead of a hardwired one, and use all of the ITSNMS for *.
This commit is contained in:
Björn Victor
2021-06-23 21:48:55 +02:00
committed by Lars Brinkhoff
parent fec5059bfe
commit 6c1180aa52
15 changed files with 387 additions and 132 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/decsys/decuuo.313 → src/decsys/decuuo.314
View File

@@ -675,6 +675,11 @@ GO: TDZA D,D
.SUSET [.RXJNAM,,A]
MOVEM A,JNAME
MOVEM A,JOBNAM
;; get ITS table for SYSSTR
move a,[-<strcnt-1>,,strtab+1]
move b,[sixbit /ITSNMS/]
.getsys a,
.lose
SYSCLV SSTATU,[MOVEM A ? MOVEM A ? MOVEM A ? MOVEM A ? MOVEM A ? MOVEM MNAME ? MOVEM ITSVER]
.SUSET [.S40AD,,[UUO40]]
.SUSET [.ROPTI,,A]
@@ -5659,9 +5664,11 @@ xsysst: movsi b,-strcnt ; load number of strs
move a,strtab+1(b) ; get next str in table
jrst uputac ; and return
strtab: 0 ? sixbit/ai/ ? sixbit/mc/ ? sixbit/ml/ ? sixbit/dm/
strcnt==.-strtab
STORAGE IMPURE
strcnt==:20
strtab: block strcnt
0 ; end of table
STORAGE PURE
;GOBSTR AND JOBSTR UUOS.