1
0
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:
Jordi Guillaumes i Pons
2013-03-02 17:15:26 +01:00
parent 47bb4c8a19
commit 37af573a1e
2 changed files with 151 additions and 58 deletions

View File

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