From: Adam Sampson <ats@offog.org>
Date: Sun, 22 Apr 2018 13:12:42 +0000 (+0100)
Subject: Fix .CALL arguments in TTYOPE.
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;ds=inline;h=4fdf1ca55bc9fcf21052136b15418cab8f0541da;p=pdp10-muddle.git

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.
---

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