mirror of
https://github.com/simh/simh.git
synced 2026-05-04 15:05:39 +00:00
CR11: Added 026DEC translation table. Fixed bit clearing after CSR write,
source reformatting and commenting, other minor changes.º:º
This commit is contained in:
@@ -18,6 +18,8 @@
|
||||
* Jan 14, 2005, (JAD) Added the special DEC code for 'end of deck'
|
||||
* (12-11-0-1-6-7-8-9) to the o29_code array at position 26. (^Z).
|
||||
* Should I add this to the other arrays?
|
||||
* Feb 24, 2007, (JGP) Added the DEC version of the 026 codepage and
|
||||
* fixed some DEC029 codes.
|
||||
*/
|
||||
|
||||
/* DEC's version of the IBM 029 kepunch encoding, (thus avoiding IBM's
|
||||
@@ -30,18 +32,18 @@ static const int o29_code[] = {
|
||||
ERROR,ERROR,ERROR,ERROR,ERROR,ERROR,ERROR,ERROR, /* chars */
|
||||
ERROR,ERROR,ERROR,ERROR,ERROR,ERROR,ERROR,ERROR, /* control */
|
||||
ERROR,ERROR,07417,ERROR,ERROR,ERROR,ERROR,ERROR, /* chars */
|
||||
00000,02202,00006,00102,02102,01042,04000,00022, /* !"#$%&' */
|
||||
00000,04006,00006,00102,02102,01042,04000,00022, /* !"#$%&' */
|
||||
04022,02022,02042,04012,01102,02000,04102,01400, /* ()*+,-./ */
|
||||
01000,00400,00200,00100,00040,00020,00010,00004, /* 01234567 */
|
||||
00002,00001,00202,02012,04042,00012,01012,01006, /* 89:;<=>? */
|
||||
00042,04400,04200,04100,04040,04020,04010,04004, /* @ABCDEFG */
|
||||
04002,04001,02400,02200,02100,02040,02020,02010, /* HIJKLMNO */
|
||||
02004,02002,02001,01200,01100,01040,01020,01010, /* PQRSTUVW */
|
||||
01004,01002,01001,04202,02006,01202,04006,01022, /* XYZ[\]^_ */
|
||||
01004,01002,01001,04202,02006,02202,04006,01022, /* XYZ[\]^_ */
|
||||
ERROR,04400,04200,04100,04040,04020,04010,04004, /* `abcdefg */
|
||||
04002,04001,02400,02200,02100,02040,02020,02010, /* hijklmno */
|
||||
02004,02002,02001,01200,01100,01040,01020,01010, /* pqrstuvw */
|
||||
01004,01002,01001,ERROR,ERROR,ERROR,ERROR,ERROR /* xyz{|}~ */
|
||||
01004,01002,01001,04000,ERROR,02000,ERROR,ERROR /* xyz{|}~ */
|
||||
};
|
||||
|
||||
/* Bare bones 026 kepunch encodings */
|
||||
@@ -83,6 +85,27 @@ static const int o26_comm_code[] = {
|
||||
01004,01002,01001,ERROR,ERROR,ERROR,ERROR,ERROR /* xyz{|}~ */
|
||||
};
|
||||
|
||||
/* 026DEC translation, according to RSX-11M-PLUS and Micro/RSX */
|
||||
/* I/O Drivers Reference manual - AA-JS11A-TC */
|
||||
static const int o26_dec_code[] = {
|
||||
ERROR,ERROR,ERROR,ERROR,ERROR,ERROR,ERROR,ERROR, /* control */
|
||||
ERROR,ERROR,ERROR,ERROR,ERROR,ERROR,ERROR,ERROR, /* chars */
|
||||
ERROR,ERROR,ERROR,ERROR,ERROR,ERROR,ERROR,ERROR, /* control */
|
||||
ERROR,ERROR,07417,ERROR,ERROR,ERROR,ERROR,ERROR, /* chars */
|
||||
00000,04006,01022,01102,02102,01006,02006,00012, /* !"#$%&' */
|
||||
01042,04042,02042,04000,01102,02000,04102,01400, /* ()*+,-./ */
|
||||
01000,00400,00200,00100,00040,00020,00010,00004, /* 01234567 */
|
||||
00002,00001,02202,01202,04012,00102,02012,04202, /* 89:;<=>? */
|
||||
00042,04400,04200,04100,04040,04020,04010,04004, /* @ABCDEFG */
|
||||
04002,04001,02400,02200,02100,02040,02020,02010, /* HIJKLMNO */
|
||||
02004,02002,02001,01200,01100,01040,01020,01010, /* PQRSTUVW */
|
||||
01004,01002,01001,02022,00006,04022,00022,00202, /* XYZ[\]^_ */
|
||||
ERROR,04400,04200,04100,04040,04020,04010,04004, /* `abcdefg */
|
||||
04002,04001,02400,02200,02100,02040,02020,02010, /* hijklmno */
|
||||
02004,02002,02001,01200,01100,01040,01020,01010, /* pqrstuvw */
|
||||
01004,01002,01001,04000,ERROR,02000,ERROR,ERROR /* xyz{|}~ */
|
||||
};
|
||||
|
||||
/* FULL EBCDIC, from Appendix C of System 360 Programming by Alex Thomas,
|
||||
1977, Reinhart Press, San Francisco. Codes not in that table have been
|
||||
left compatable with DEC's 029 table. Some control codes have been
|
||||
|
||||
Reference in New Issue
Block a user