projects
/
pdp10-muddle.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
5647f4f
)
Fix .CALL arguments in TTYOPE.
author
Adam Sampson
<ats@offog.org>
Sun, 22 Apr 2018 13:12:42 +0000
(14:12 +0100)
committer
Adam Sampson
<ats@offog.org>
Sun, 22 Apr 2018 13:12:42 +0000
(14:12 +0100)
There were some extra brackets here that broke it; I guess whoever wrote
it was thinking of the DOTCAL macro.
<mdl.int>/readch.215
patch
|
blob
|
history
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