github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-11 23:53: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
Show Stats 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
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)
TB==12
@ -303,8 +304,8 @@ PTABLE:
; 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,RNDFLS ? 0 ? <5*60.>*30. ? 0 ? SIXBIT /RNDFLS/ ? 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,ALOG ? 0 ? <5*60.>*30. ? 0 ? SIXBIT /ALOG/ ? 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,MSCAN ? 0 ? 0 ? 0 ? SIXBIT /MSCAN/ ? 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
TTYTAB: BLOCK 31 ; ONE WORD/TTY
TTYTAB: BLOCK 100 ; ONE WORD/TTY
JOBTAB: BLOCK 100 ; ONE WORD/JOB (FOR BUILDING JOB TREES)
; 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 GCLASO] ; SHOULD NEVER GET HERE
MOVEI D,0
IFE EJSHAK,[
PUSHJ P,NETQ ; DOES OWNER HAVE NET SOCKETS?
JRST [MOVEI C,$CPROG
JRST GCLASO] ; NO
JFCL ; HERE, DON'T CARE HOW MANY SKIPS
]
HLRO C,@UNAME
AOJE C,[MOVEI C,$CNNLG
JRST GCLASO] ; NON-LOGGED-IN NET USER