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

Fix MSEND so it can initialize and dump out itself.

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
build/misc.tcl
View File

@ -854,6 +854,11 @@ respond " " ":kill\r"
# MSEND
respond "*" ":midas sysbin;_sysen2;msend\r"
expect ":KILL"
respond "*" ":job msend\r"
respond "*" ":load sysbin;msend bin\r"
respond "*" "ttyopn\033b\033g"
expect ">>"
respond " " ":kill\r"
# TJ6
respond "*" ":midas sysbin;_tj6;tj6\r"

8
src/sysen2/msend.140 → src/sysen2/msend.141
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