1 files changed, 73 insertions, 0 deletions
diff --git a/tex/context/base/regi-ibm.mkii b/tex/context/base/regi-ibm.mkii
new file mode 100644
index 000000000..1fad9545a
--- /dev/null
+++ b/tex/context/base/regi-ibm.mkii
@@ -0,0 +1,73 @@
+%D \module
+%D   [       file=regi-ibm,
+%D        version=1995.01.01,
+%D          title=\CONTEXT\ Encoding Macros,
+%D       subtitle=The Good Old MSDOS IBM codepage,
+%D         author=Hans Hagen,
+%D           date=\currentdate,
+%D      copyright=PRAGMA-ADE]
+%C
+%C This module is part of the \CONTEXT\ macro||package and is
+%C therefore copyrighted by \PRAGMA. See mreadme.pdf for 
+%C details. 
+
+%D This module activates the \cap{IBM PC} high \ASCII\ 
+%D characters, such as ‰ and á. 
+
+\startregime [ibm]
+
+\defineactivetoken 145 {\aeligature}  % ‘
+\defineactivetoken 146 {\AEligature}  % ’
+\defineactivetoken 152 {\ijligature}  % ˜
+
+\defineactivetoken 225 {\ssharp}      % á 
+
+\defineactivetoken 160 {\aacute}      %  
+\defineactivetoken 130 {\eacute}      % ‚ 
+\defineactivetoken 144 {\Eacute}      %  
+\defineactivetoken 161 {\iacute}      % ¡
+\defineactivetoken 162 {\oacute}      % ¢ 
+\defineactivetoken 163 {\uacute}      % £ 
+
+\defineactivetoken 135 {\ccedilla}    % ‡ 
+\defineactivetoken 128 {\Ccedilla}    % € 
+
+\defineactivetoken 132 {\adiaeresis}  % „ 
+\defineactivetoken 142 {\Adiaeresis}  % Ž 
+\defineactivetoken 137 {\ediaeresis}  % ‰ 
+\defineactivetoken 139 {\idiaeresis}  % ‹  
+\defineactivetoken 148 {\odiaeresis}  % ” 
+\defineactivetoken 153 {\Odiaeresis}  % ™
+\defineactivetoken 129 {\udiaeresis}  %  
+\defineactivetoken 154 {\Udiaeresis}  % š 
+
+\defineactivetoken 164 {\ntilde}      % ¤ 
+\defineactivetoken 165 {\Ntilde}      % ¥ 
+
+\defineactivetoken 134 {\aring}       % †
+\defineactivetoken 143 {\Aring}       % 
+
+\defineactivetoken 131 {\acircumflex} % ƒ 
+\defineactivetoken 136 {\ecircumflex} % ˆ 
+\defineactivetoken 140 {\icircumflex} % Œ 
+\defineactivetoken 147 {\ocircumflex} % “ 
+\defineactivetoken 150 {\ucircumflex} % – 
+
+\defineactivetoken 133 {\agrave}      % … 
+\defineactivetoken 138 {\egrave}      % Š 
+\defineactivetoken 141 {\igrave}      %  
+\defineactivetoken 149 {\ograve}      % • 
+\defineactivetoken 151 {\ugrave}      % — 
+
+\stopregime 
+
+% todo 
+
+\startregime [ibm]
+
+\defineactivetoken ® {\ifvmode\leavevmode\fi\leftguillemot\prewordbreak}
+\defineactivetoken ¯ {\prewordbreak\rightguillemot}
+
+\stopregime 
+
+\endinput