X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ebcdic.c;h=d86d50bd327ed085c5eae63ea87ce864f5a5d485;hb=9058bc9b7176f7a8d171bb316d39680b3246ce5f;hp=d74351078da3ef6eb85f64fdf8fd910899f9fe99;hpb=cea2e8a9dd23747fd2b66edc86c58c64e9970321;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ebcdic.c b/ebcdic.c
index d743510..d86d50b 100644
--- a/ebcdic.c
+++ b/ebcdic.c
@@ -25,6 +25,14 @@ ebcdic_control(int ch)
 	} else { /* Want uncontrol */
         	if (ch == '\177' || ch == -1)
                 	return('?');
+        	else if (ch == '\157')
+                	return('\177');
+        	else if (ch == '\174')
+                	return('\000');
+        	else if (ch == '^')    /* '\137' in 1047, '\260' in 819 */
+                	return('\036');
+        	else if (ch == '\155')
+                	return('\037');
         	else if (0 < ch && ch < (sizeof(controllablechars) - 1))
                 	return(controllablechars[ch+1]);
         	else