projects / simh.git / blame
| Commit | Line | Data |
|---|---|---|
| 196ba1fc PH |
1 | /*\r |
| 2 | * (C) Copyright 2002, Brian Knittel.\r | |
| 3 | * You may freely use this program, but: it offered strictly on an AS-IS, AT YOUR OWN\r | |
| 4 | * RISK basis, there is no warranty of fitness for any purpose, and the rest of the\r | |
| 5 | * usual yada-yada. Please keep this notice and the copyright in any distributions\r | |
| 6 | * or modifications.\r | |
| 7 | *\r | |
| 8 | * This is not a supported product, but I welcome bug reports and fixes.\r | |
| 9 | * Mail to sim@ibm1130.org\r | |
| 10 | */\r | |
| 11 | \r | |
| 12 | /*\r | |
| 13 | * 03 ctrl-C => Program stop (not handled here)\r | |
| 14 | * 05 ctrl-E => Simulator stop (not handled here)\r | |
| 15 | * 08 ctrl-H => Backspace\r | |
| 16 | * 0D ctrl-M (Enter) => EOF\r | |
| 17 | * 11 ctrl-Q => Interrupt request (not handled here)\r | |
| 18 | * 12 ctrl-R => "cent" (R because that's where cent is on the 1130 keyboard)\r | |
| 19 | * 15 ctrl-U => Erase Field\r | |
| 20 | * 7E ~ => "not"\r | |
| 21 | * FF Del => Backspace again\r | |
| 22 | */\r | |
| 23 | \r | |
| 24 | static uint16 ascii_to_conin[] = /* ASCII to ((hollerith << 4) | special key flags) */\r | |
| 25 | {\r | |
| 26 | /* 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F */\r | |
| 27 | /* 00 */ 0, 0, 0, 0, 0, 0, 0, 0,0x0004, 0, 0, 0, 0,0x0008, 0, 0,\r | |
| 28 | /* 10 */ 0, 0,0x8820, 0, 0,0x0002, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,\r | |
| 29 | /* 20 */ 0x0001,0x4820,0x0060,0x0420,0x4420,0x2220,0x8000,0x0120,0x8120,0x4120,0x4220,0x80a0,0x2420,0x4000,0x8420,0x3000,\r | |
| 30 | /* 30 */ 0x2000,0x1000,0x0800,0x0400,0x0200,0x0100,0x0080,0x0040,0x0020,0x0010,0x0820,0x40a0,0x8220,0x00a0,0x20a0,0x2060,\r | |
| 31 | /* 40 */ 0x0220,0x9000,0x8800,0x8400,0x8200,0x8100,0x8080,0x8040,0x8020,0x8010,0x5000,0x4800,0x4400,0x4200,0x4100,0x4080,\r | |
| 32 | /* 50 */ 0x4040,0x4020,0x4010,0x2800,0x2400,0x2200,0x2100,0x2080,0x2040,0x2020,0x2010, 0, 0, 0, 0,0x2120,\r | |
| 33 | /* 60 */ 0,0x9000,0x8800,0x8400,0x8200,0x8100,0x8080,0x8040,0x8020,0x8010,0x5000,0x4800,0x4400,0x4200,0x4100,0x4080,\r | |
| 34 | /* 70 */ 0x4040,0x4020,0x4010,0x2800,0x2400,0x2200,0x2100,0x2080,0x2040,0x2020,0x2010, 0,0xB060, 0, 0,0x0004,\r | |
| 35 | /* 80 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,\r | |
| 36 | /* 90 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,\r | |
| 37 | /* a0 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,\r | |
| 38 | /* b0 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,\r | |
| 39 | /* c0 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,\r | |
| 40 | /* d0 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,\r | |
| 41 | /* e0 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,\r | |
| 42 | /* f0 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0x0004,\r | |
| 43 | };\r |