From 4fdf1ca55bc9fcf21052136b15418cab8f0541da Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Sun, 22 Apr 2018 14:12:42 +0100
Subject: [PATCH] Fix .CALL arguments in TTYOPE.

There were some extra brackets here that broke it; I guess whoever wrote
it was thinking of the DOTCAL macro.
---
 <mdl.int>/readch.215 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/<mdl.int>/readch.215 b/<mdl.int>/readch.215
index 174dea1..7d033a8 100644
--- a/<mdl.int>/readch.215
+++ b/<mdl.int>/readch.215
@@ -947,8 +947,8 @@ TTYOPEN:
 	POPJ	P,
 	.CALL	[SETZ
 		SIXBIT /OPEN/
-		[1000,,TTYIN]
-		SETZ [[SIXBIT /TTY   /]]]
+		1000,,TTYIN
+		SETZ [SIXBIT /TTY   /]]
 	JRST	TTYNO
 	DOTCAL	OPEN,[[1000,,TTYOUT],[[SIXBIT /TTY   /]],[5000,,1]]
 	FATAL CANT OPEN TTY
-- 
2.31.1