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

Add assembly time switch to GUNNER to avoid use of NCP.

Browse Source
This commit is contained in:
Eric Swenson 2023-03-10 12:54:43 +01:00
parent b09b3e4702
commit 1a701007d7
1 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/sysen2/gunner.mta381 → src/sysen2/gunner.mta382 Executable file → Normal file
View File

@ -44,6 +44,8 @@ P=17
.XCREF O,A,B,C,D,E,F,G,T,P
NCPP==0 ;Don't use NCP.
; CONSTANTS FOR ERRCHK (FROM MUDDLE)
TB==12
FRAMLN==7
@ -297,10 +299,11 @@ INBPTR: 440700,,INBUF
CLIBLN==12
CLIBUF: BLOCK CLIBLN
PTABLE: PUSHJ P,IDLSRV ? 0 ? <5*60.>*30. ? 0 ? SIXBIT /IDLSRV/ ? 0 ? 0
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,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
@ -3225,12 +3228,14 @@ MSENTS: 0 ; MAX # OF IPC USERS
NCT: 0
SQUOZE 0,NFSTTY
NFSTTY: 0 ; TTY # OF FIRST STY
IFN NCPP,[
SQUOZE 0,IMPSTL
IMPSTL: 0 ; # NET SOCKETS
SQUOZE 0,NETDUI
NETDUI: 0
SQUOZE 0,NETDBO
NETDBO: 0
]
SQUOZE 0,NSTTYS
NSTTYS: 0 ; # STYS IN SYSTEM
SQUOZE 0,USRRCE
@ -3251,10 +3256,12 @@ TTYTYP: 0 ; TTYTYPE WORD
TTYOPT: 0
SQUOZE 0,STYSTS
STYSTS: 0 ; STYSTS (WHO OWNS A STY?)
IFN NCPP,[
SQUOZE 0,IMSOC1
IMSOC1: 0 ; WHO OWNS A SOCKET?
SQUOZE 0,IMSOC4
IMSOC4: 0
]
SQUOZE 0,IMPHTN
IMPHTN: 0
TNTVAR: TNTABL-.,,TNTABL
@ -4104,7 +4111,9 @@ HSTNUM: 0
PURE
NETQ: PUSH P,A
NETQ:
IFN NCPP,[
PUSH P,A
PUSH P,B
PUSH P,D
PUSH P,E
@ -4147,6 +4156,7 @@ NETQO: POP P,U
POP P,D
POP P,B
POP P,A
]
POPJ P,
; FREE STORAGE STUFF FOR THIS
@ -4508,11 +4518,13 @@ NETRSL: MOVE D,@STYSTS
SOJGE A,NETRSL
PUSH P,C ; # OF FREE STYS.
MOVEI C,0
IFN NCPP,[
MOVE A,IMPSTL
SUBI A,1
NETRIL: SKIPN @IMSOC1 ; IMSOC1 IS 0 IF SOCKET FREE
ADDI C,1
SOJGE A,NETRIL
]
MOVE B,C
POP P,A
POP P,D