Fix .CALL arguments in TTYOPE.

[pdp10-muddle.git] / <mdl.int> / readch.215

diff --git a/<mdl.int>/readch.215 b/<mdl.int>/readch.215
index 174dea1a04ff85c012977afd3fdbbdb38b8475f7..7d033a8e6e39ee2e74f8754a192fd7cb80a0e835 100644 (file)
--- 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