1
0
mirror of https://github.com/PDP-10/its.git synced 2026-02-04 07:43:02 +00:00

Fix MSEND so it can initialize and dump out itself.

Make use of IMSOC1 and IMPSTL assembly-time conditional.  They are
only used to send to "NET".
This commit is contained in:
Lars Brinkhoff
2018-06-15 09:44:08 +02:00
parent 104f0786e8
commit 45d1ebcfba
2 changed files with 13 additions and 0 deletions

View File

@@ -17,6 +17,8 @@ TITLE MSEND
; TTY input is handled by a (crockish) insrt file, which see.
IFNDEF NETP, NETP==0
O=0
A=1
B=2
@@ -802,6 +804,7 @@ NETSNL: SOJGE T,NETSNB
; COME HERE TO SEE IF STY (STYSTS IN A) IS OWNED BY SOMEONE WITH NET SOCKETS
NETQ: HRRZS A
IFN NETP,[
PUSH P,T
PUSH P,B
MOVE T,IMPSTL ; # SOCKETS
@@ -815,6 +818,7 @@ NETQL: SKIPL B,@IMSOC1
NETQLE: SOJGE T,NETQL
NETQO: POP P,B
POP P,T
]; NETP
POPJ P,
; SEND TO ALL USERS
@@ -1218,8 +1222,10 @@ TTYSTS: 0
TTYTYP: 0
SQUOZE 0,STYSTS
STYSTS: 0
IFN NETP,[
SQUOZE 0,IMSOC1
IMSOC1: 0
]
TTYVAR: TTYBLK-.,,TTYBLK
CONBLK:
SQUOZE 0,L
@@ -1230,8 +1236,10 @@ NCT: 0
NFSTTY: 0
SQUOZE 0,NSTTYS
NSTTYS: 0
IFN NETP,[
SQUOZE 0,IMPSTL
IMPSTL: 0
]
SYSCON: CONBLK-.,,CONBLK
LOCBLK:
SQUOZE 0,USRHI