github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-02-04 15:53:01 +00:00
Code Issues Releases Wiki Activity

Add names for ITS machines on the internet.

Browse Source
This commit is contained in:
Lars Brinkhoff
2017-02-17 21:07:05 +01:00
committed by Eric Swenson
parent 0d22884941
commit 9f555fcb65
6 changed files with 32 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/sysen2/mldev.104 → src/sysen2/mldev.105
View File

@@ -84,7 +84,7 @@ GO: MOVE P,[-LPDLL-1,,PDL-1]
.VALUE
MOVE A,JBCDEV ;GET "DEVICE"
MOVEM A,RDEVN ;REMEMBER IT TO RETURN FOR .RCHST'S.
IRPS Y,,AI ML DM MC MX MD KL KS DB
IRPS Y,,AI ML DM MC MX MD KL KS DB ES NO SJ UP
CAMN A,[SIXBIT /X!Y/]
MOVE A,[SIXBIT /Y/] ;ALLOW "XAI", ETC., FOR EXPERIMENTAL VERSIONS OF "AI", ETC.
CAMN A,[SIXBIT /DIR!Y/]
@@ -94,7 +94,7 @@ TERMIN ;DEVICES SUCH AS "DIRML" ARE REALLY HANDLED AS "MLDIR".
;IMAGE AND ASCII DIRECTORIES.
MOVEM A,JBCDEV
LDB A,[301400,,JBCDEV] ;MIGHT BE DMAR1, ETC.
IRP X,,[DM,AI,ML,MC,MX,MD,KL,KS,DB]
IRP X,,[DM,AI,ML,MC,MX,MD,KL,KS,DB,ES,NO,SJ,UP]
CAIN A,(SIXBIT / X/) ;**** IF ANY NON 2-CHAR HOST NAME EVER EXISTS,
JRST GOTHST ;THIS BARFUCIOUS KLUDGE WILL HAVE TO BE FIXED UP.
TERMIN