mirror of
https://github.com/PDP-10/its.git
synced 2026-02-19 14:05:31 +00:00
Updated MGPRIM as per RRS to fix CORD function.
This commit is contained in:
committed by
Eric Swenson
parent
99caa5cda0
commit
780e40c1f7
@@ -111,7 +111,8 @@ COMSWITCH
|
||||
#DECL((X T1 L H) FIX
|
||||
(VALUE) ATOM)
|
||||
<SET T1 <- .X <* </ .X 8192> 8192>>>
|
||||
<COND (<L? .T1 .0><SET T1 <+ .T1 16384>>)>
|
||||
;" fix for parse error in MDL56 "
|
||||
<COND (<L? .T1 0.0><SET T1 <+ .T1 16384>>)>
|
||||
<SET H </ .T1 128>>
|
||||
<SET L <- .T1 <* .H 128>>>
|
||||
<MIGSSEND .H .L>
|
||||
Reference in New Issue
Block a user