From b178808807f5d9d26bd5273c00adc38dadadd26e Mon Sep 17 00:00:00 2001
From: Eric Swenson <eric@swenson.org>
Date: Tue, 20 Dec 2016 16:10:41 -0800
Subject: [PATCH] Added ACCLNK. Resolves #306.

---
 README.md           |  1 +
 build/build.tcl     |  4 ++++
 src/sysen2/acclnk.4 | 45 +++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 50 insertions(+)
 create mode 100755 src/sysen2/acclnk.4

diff --git a/README.md b/README.md
index 90cdcde3..d2d69c4f 100644
--- a/README.md
+++ b/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.
diff --git a/build/build.tcl b/build/build.tcl
index 43016b65..f6820b85 100644
--- a/build/build.tcl
+++ b/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"
diff --git a/src/sysen2/acclnk.4 b/src/sysen2/acclnk.4
new file mode 100755
index 00000000..387b5bb5
--- /dev/null
+++ b/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
+
\ No newline at end of file