1
0
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:
Eric Swenson
2022-04-07 13:57:28 -07:00
committed by Eric Swenson
parent 99caa5cda0
commit 780e40c1f7

View File

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