Added ACCLNK.

Resolves #306.

README.md

@@ -100,6 +100,7 @@ A list of [known ITS machines](doc/machines.md).
 
    - 11SIM, PDP-11 emulator.
    - @, cross reference generation tool.
+   - ACCLNK, sets com-link accept bit for specified TTY.
    - ACOUNT, dummy account program used for users from safe sites.
    - ARCCPY, copies and old-format archive, converting to new format.
    - ARCDEV, transparent file system access to archive files.

build/build.tcl

@@ -1006,6 +1006,10 @@ respond "*" ":link sys1;ts z,sys1;ts x\r"
 respond "*" ":midas sys2;ts loadp_sysen1;loadp\r"
 expect ":KILL"
 
+# ACCLNK
+respond "*" ":midas sys2;ts acclnk_sysen2;acclnk\r"
+expect ":KILL"
+
 # MSPLIT
 respond "*" ":midas sys2;ts msplit_sysen2;msplit\r"
 expect ":KILL"

src/sysen2/acclnk.4

@@ -0,0 +1,45 @@
+TITLE ACCLNK  ----  Sets com-link accept bit for specified TTY  ----  JMB 6/27/76
+
+O=0
+A=1
+B=2
+C=3
+
+	LOC	100
+
+JCL:	BLOCK	16
+
+START:	.BREAK	12,[5,,JCL]
+	MOVE	A,[440700,,JCL]
+NUMGET:	SETZ	B,
+	ILDB	C,A
+	JUMPE	C,DOIT
+	CAIL	C,"0
+	CAILE	C,"9
+	JRST	NUMGET+1
+NEXTCH:	LSH	B,3
+	SUBI	C,"0
+	IOR	B,C
+	ILDB	C,A
+	CAIL	C,"0
+	CAILE	C,"9
+	SKIPA
+	JRST	NEXTCH
+DOIT:	CAIL	B,40
+	.VALUE	[ASCIZ /:TTY NUMBER OUT OF RANGEî:KILLî:VKî/]
+	MOVE	C,[SQUOZE 0,TTYCOM]
+	.EVAL	C,
+	.VALUE	[ASCIZ /:.EVAL FAILUREî:KILLî:VKî/]
+	ADD	C,B
+	HRLZ	C,C
+	.GETLOC	C,
+	TLZN	O,014000
+	.VALUE	[ASCIZ /:ALREADY ACCEPTINGî:KILLî:VKî/]
+	.VALUE	[ASCIZ /5:VKî/]
+	.SUSET	[.SUNAME,,[SIXBIT /SYS/]]
+	.SUSET	[.SJNAME,,[SIXBIT /JOB/]]
+	MOVSS	C
+	.SETLOC	C,
+	.LOGOUT
+	END	START
+