github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-05-05 07:34:12 +00:00
Code Issues Releases Wiki Activity

Updated DM gunner to enable autologout and disable IMP status checking.

Browse Source 
Also increase TTYTAB block size to accommodate those systems with more
than 25 TTY channels.

Finally, update autologout code to comment out the code that checks
for the number of sockets owned by a network job, since the logic
only worked with the DM NCP-based network implementation.  This logic
needs a reworking for current internet/chaosnet networking.
This commit is contained in:
Eric Swenson
2023-11-03 15:33:06 -07:00
committed by Eric Swenson
parent 264e530dee
commit 8e5c05c6e4
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/sysen2/gunner.mta382 → src/sysen2/gunner.mta383
View File

@@ -45,6 +45,7 @@ P=17
.XCREF O,A,B,C,D,E,F,G,T,P .XCREF O,A,B,C,D,E,F,G,T,P
NCPP==0 ;Don't use NCP. NCPP==0 ;Don't use NCP.
EJSHAK==1 ;Don't check number of network sockets for not-logged-in "network user"
; CONSTANTS FOR ERRCHK (FROM MUDDLE) ; CONSTANTS FOR ERRCHK (FROM MUDDLE)
TB==12 TB==12
@@ -303,8 +304,8 @@ PTABLE:
; PUSHJ P,IDLSRV ? 0 ? <5*60.>*30. ? 0 ? SIXBIT /IDLSRV/ ? 0 ? 0 ; PUSHJ P,IDLSRV ? 0 ? <5*60.>*30. ? 0 ? SIXBIT /IDLSRV/ ? 0 ? 0
PUSHJ P,DEMSCN ? 0 ? <15.*60.>*30. ? 0 ? SIXBIT /DEMSCN/ ? 0 ? 0 PUSHJ P,DEMSCN ? 0 ? <15.*60.>*30. ? 0 ? SIXBIT /DEMSCN/ ? 0 ? 0
PUSHJ P,RNDFLS ? 0 ? <5*60.>*30. ? 0 ? SIXBIT /RNDFLS/ ? 0 ? 0 PUSHJ P,RNDFLS ? 0 ? <5*60.>*30. ? 0 ? SIXBIT /RNDFLS/ ? 0 ? 0
; PUSHJ P,ALOG ? 0 ? <5*60.>*30. ? 0 ? SIXBIT /ALOG/ ? 0 ? 0 PUSHJ P,ALOG ? 0 ? <5*60.>*30. ? 0 ? SIXBIT /ALOG/ ? 0 ? 0
PUSHJ P,NCPUP ? 0 ? <5*60.>*30. ? 0 ? SIXBIT /NCPUP/ ? 0 ? 0 ; PUSHJ P,NCPUP ? 0 ? <5*60.>*30. ? 0 ? SIXBIT /NCPUP/ ? 0 ? 0
PUSHJ P,HOURLY ? 0 ? <60.*60.>*30. ? 0 ? SIXBIT /HOURLY/ ? 0 ? 0 PUSHJ P,HOURLY ? 0 ? <60.*60.>*30. ? 0 ? SIXBIT /HOURLY/ ? 0 ? 0
; PUSHJ P,MSCAN ? 0 ? 0 ? 0 ? SIXBIT /MSCAN/ ? 0 ? 0 ; PUSHJ P,MSCAN ? 0 ? 0 ? 0 ? SIXBIT /MSCAN/ ? 0 ? 0
; PUSHJ P,ZTSCAN ? 0 ? <10.*60.>*30. ? 0 ? SIXBIT /ZTSCAN/ ? 0 ? 0 ; PUSHJ P,ZTSCAN ? 0 ? <10.*60.>*30. ? 0 ? SIXBIT /ZTSCAN/ ? 0 ? 0
@@ -3832,7 +3833,7 @@ NTLONG==PARMEN ; OFFSETS INTO 'BLOCKS' FOR NET USERS--CHOOSE ONE
IMPURE IMPURE
TTYTAB: BLOCK 31 ; ONE WORD/TTY TTYTAB: BLOCK 100 ; ONE WORD/TTY
JOBTAB: BLOCK 100 ; ONE WORD/JOB (FOR BUILDING JOB TREES) JOBTAB: BLOCK 100 ; ONE WORD/JOB (FOR BUILDING JOB TREES)
; PARAMETERS FOR THIS CROCK. INITIALIZED FROM FILE TAA;GUNNER INIT (FOR NOW), ; PARAMETERS FOR THIS CROCK. INITIALIZED FROM FILE TAA;GUNNER INIT (FOR NOW),
@@ -4079,10 +4080,12 @@ GCLAS1: MOVE C,@TTYTYP
JRST [MOVEI C,$CPROG JRST [MOVEI C,$CPROG
JRST GCLASO] ; SHOULD NEVER GET HERE JRST GCLASO] ; SHOULD NEVER GET HERE
MOVEI D,0 MOVEI D,0
IFE EJSHAK,[
PUSHJ P,NETQ ; DOES OWNER HAVE NET SOCKETS? PUSHJ P,NETQ ; DOES OWNER HAVE NET SOCKETS?
JRST [MOVEI C,$CPROG JRST [MOVEI C,$CPROG
JRST GCLASO] ; NO JRST GCLASO] ; NO
JFCL ; HERE, DON'T CARE HOW MANY SKIPS JFCL ; HERE, DON'T CARE HOW MANY SKIPS
]
HLRO C,@UNAME HLRO C,@UNAME
AOJE C,[MOVEI C,$CNNLG AOJE C,[MOVEI C,$CNNLG
JRST GCLASO] ; NON-LOGGED-IN NET USER JRST GCLASO] ; NON-LOGGED-IN NET USER