From 1a5d470f484f57dbd556cb46daf2e16fc4609283 Mon Sep 17 00:00:00 2001 From: dschmenk Date: Sat, 24 Aug 2013 11:09:02 -0700 Subject: [PATCH] Try for more robust daemon and cool Apple II commands from DOS 3.3 --- src/A2PI.PO | Bin 143360 -> 143360 bytes src/a2pid.c | 1747 ++++++++++++++++++++++++++------------------------- src/bload.c | 1 + src/brun.c | 2 +- 4 files changed, 896 insertions(+), 854 deletions(-) diff --git a/src/A2PI.PO b/src/A2PI.PO index c80081da7e164258c6f8e493086509bf87a28510..14c70cc4c76f23969627e7ada55a540abcbff5f7 100755 GIT binary patch delta 771 zcmZ9JO-vI(6vx{x-CYEd?o$vsO@bs6xp32iF_B9T>&19zj0fUHxaom}#2D&F2_i#~ z)q^pSu|Q;zLJKC^14&!D(53C}v|VVtVKhXGF`Gb;gNe?TdT}%RK7Rk1H=qnK)jM)1-7$F zGY}HhM5umOm=*L4eHU2J!R{hwP+20Nx=~rVUugxFoOTjvAp^95+!@O#Z!2Bydx}+Q zAId|d2>Nr%$=wj~CGvToSILu@*eTkad?XnL&~Jtb^b6s}OdzLNnP{0^6CbR@n-D*$ z!&xBBj7B!0DGRixstKLJd=BhIc}kl1iE0qd{a*AX#`B;)M5_{7kw%%@c}4N1$gPBL zgk2oj=kNi?UhR_0lKPm*te|7Fj+Olq&Vf42LUuTkt1?bf)V+>#8rW^ag5POkj1TdP z8Z2x;pE!t8aIUrYLN6JKiF%N7;U6C5<@ejmKN~z^$vPgC!rSp?XKK?k(I_VWurr-i z`=cj(;2Dxvefk7#2tPwN01bdV4*Dc*3@gWJK%R5D*N%%2e&L`L1Vq33nmx3y_Ny)? z%A6GNt5Y?^90SbOR#pn}PDc<6gi*N~U<$4Me@3qy<9-(|fTM(6Z+M1wdFt5}3<}gX d3PAVR^ujK7`~m-;QjohJEggPXI&@#Y_!pbEZkYf8 delta 615 zcmZ8dO=uHA6iznD?$%V;eQ1sKvS12Udr(h$(L*mm#!K;#W6?v~o4NI%Wc}Gv+m6v*~d?v!~{YpN#LeyvGvb|b*S z5f7;80V>|3h_?28##tATll z7w10l=HV~~Z&tv~q7C(xBHOz5@=sQ&->-swTcfIG zt1H~KpD>)cT343&y_ugx?~R;ns`g#3@LrxRdlp?#aRuxp9`d?OWx(w#g!U%RQgFwY zq?k9gyl9A73h8Z_mlw4hoQTYxn>Cm7vZJ#AswvJo3tJC0>$^bb`eA`2-7R|QM?px< ztXjW>WDK-xfNp@3Vxtz(1~85ugY$?Tvo<`OgSZ^CpYmtS4-eW`;xYT#5OK!|Zil;} z8lv}0jR(>S8U%O;A`5?q?1B&Pf+twM=ch%U*%6u0ky<;z+}19z9*TnH code 3E - MOD_SHIFT | KEY_SLASH, // ? code 3F - MOD_SHIFT | KEY_2, // @ code 40 - MOD_SHIFT | KEY_A, // A code 41 - MOD_SHIFT | KEY_B, // B code 42 - MOD_SHIFT | KEY_C, // C code 43 - MOD_SHIFT | KEY_D, // D code 44 - MOD_SHIFT | KEY_E, // E code 45 - MOD_SHIFT | KEY_F, // F code 46 - MOD_SHIFT | KEY_G, // G code 47 - MOD_SHIFT | KEY_H, // H code 48 - MOD_SHIFT | KEY_I, // I code 49 - MOD_SHIFT | KEY_J, // J code 4A - MOD_SHIFT | KEY_K, // K code 4B - MOD_SHIFT | KEY_L, // L code 4C - MOD_SHIFT | KEY_M, // M code 4D - MOD_SHIFT | KEY_N, // N code 4E - MOD_SHIFT | KEY_O, // O code 4F - MOD_SHIFT | KEY_P, // P code 50 - MOD_SHIFT | KEY_Q, // Q code 51 - MOD_SHIFT | KEY_R, // R code 52 - MOD_SHIFT | KEY_S, // S code 53 - MOD_SHIFT | KEY_T, // T code 54 - MOD_SHIFT | KEY_U, // U code 55 - MOD_SHIFT | KEY_V, // V code 56 - MOD_SHIFT | KEY_W, // W code 57 - MOD_SHIFT | KEY_X, // X code 58 - MOD_SHIFT | KEY_Y, // Y code 59 - MOD_SHIFT | KEY_Z, // Z code 5A - KEY_LEFTBRACE, // [ code 5B - KEY_BACKSLASH, // \ code 5C - KEY_RIGHTBRACE, // ] code 5D - MOD_SHIFT | KEY_6, // ^ code 5E - MOD_SHIFT | KEY_MINUS, // _ code 5F - KEY_GRAVE, // ` code 60 - KEY_A, // a code 61 - KEY_B, // b code 62 - KEY_C, // c code 63 - KEY_D, // d code 64 - KEY_E, // e code 65 - KEY_F, // f code 66 - KEY_G, // g code 67 - KEY_H, // h code 68 - KEY_I, // i code 69 - KEY_J, // j code 6A - KEY_K, // k code 6B - KEY_L, // l code 6C - KEY_M, // m code 6D - KEY_N, // n code 6E - KEY_O, // o code 6F - KEY_P, // p code 70 - KEY_Q, // q code 71 - KEY_R, // r code 72 - KEY_S, // s code 73 - KEY_T, // t code 74 - KEY_U, // u code 75 - KEY_V, // v code 76 - KEY_W, // w code 77 - KEY_X, // x code 78 - KEY_Y, // y code 79 - KEY_Z, // z code 7A - MOD_SHIFT | KEY_LEFTBRACE, // { code 7B - MOD_SHIFT | KEY_BACKSLASH, // | code 7C - MOD_SHIFT | KEY_RIGHTBRACE, // } code 7D - MOD_SHIFT | KEY_GRAVE, // ~ code 7E - KEY_BACKSPACE, // BS code 7F - /* - * w/ closed apple scancodes - */ - MOD_CTRL | MOD_SHIFT | KEY_2, // CTRL-@ code 00 - MOD_CTRL | KEY_A, // CTRL-A code 01 - MOD_CTRL | KEY_B, // CTRL-B code 02 - MOD_CTRL | KEY_C, // CTRL-C code 03 - MOD_CTRL | KEY_D, // CTRL-D code 04 - MOD_CTRL | KEY_E, // CTRL-E code 05 - MOD_CTRL | KEY_F, // CTRL-F code 06 - MOD_CTRL | KEY_G, // CTRL-G code 07 - KEY_HOME, // CTRL-H code 08 - KEY_INSERT, // CTRL-I code 09 - KEY_PAGEDOWN, // CTRL-J code 0A - KEY_PAGEUP, // CTRL-K code 0B - MOD_CTRL | KEY_L, // CTRL-L code 0C - KEY_LINEFEED, // CTRL-M code 0D - MOD_CTRL | KEY_N, // CTRL-N code 0E - MOD_CTRL | KEY_O, // CTRL-O code 0F - MOD_CTRL | KEY_P, // CTRL-P code 10 - MOD_CTRL | KEY_Q, // CTRL-Q code 11 - MOD_CTRL | KEY_R, // CTRL-R code 12 - MOD_CTRL | KEY_S, // CTRL-S code 13 - MOD_CTRL | KEY_T, // CTRL-T code 14 - KEY_END, // CTRL-U code 15 - MOD_CTRL | KEY_V, // CTRL-V code 16 - MOD_CTRL | KEY_W, // CTRL-W code 17 - MOD_CTRL | KEY_X, // CTRL-X code 18 - MOD_CTRL | KEY_Y, // CTRL-Y code 19 - MOD_CTRL | KEY_Z, // CTRL-Z code 1A - KEY_ESC, // ESCAPE code 1B - MOD_CTRL | KEY_BACKSLASH, // CTRL-\ code 1C - MOD_CTRL | KEY_RIGHTBRACE, // CTRL-] code 1D - MOD_CTRL | KEY_6, // CTRL-6 code 1E - MOD_CTRL | KEY_MINUS, // CTRL-- code 1F - KEY_SPACE, // ' ' code 20 - KEY_F11, // ! code 21 - MOD_SHIFT | KEY_APOSTROPHE, // " code 22 - KEY_F13, // # code 23 - KEY_F14, // $ code 24 - KEY_F15, // % code 25 - KEY_F17, // & code 26 - KEY_APOSTROPHE, // ' code 27 - KEY_F19, // ( code 28 - KEY_F20, // ) code 29 - KEY_F18, // * code 2A - MOD_SHIFT | KEY_EQUAL, // + code 2B - KEY_COMMA, // , code 2C - KEY_MINUS, // - code 2D - KEY_DOT, // . code 2E - KEY_SLASH, // / code 2F - KEY_F10, // 0 code 30 - KEY_F1, // 1 code 31 - KEY_F2, // 2 code 32 - KEY_F3, // 3 code 33 - KEY_F4, // 4 code 34 - KEY_F5, // 5 code 35 - KEY_F6, // 6 code 36 - KEY_F7, // 7 code 37 - KEY_F8, // 8 code 38 - KEY_F9, // 9 code 39 - MOD_SHIFT | KEY_SEMICOLON, // : code 3A - KEY_SEMICOLON, // ; code 3B - MOD_SHIFT | KEY_COMMA, // < code 3C - KEY_EQUAL, // = code 3D - MOD_SHIFT | KEY_DOT, // > code 3E - MOD_SHIFT | KEY_SLASH, // ? code 3F - KEY_F12, // @ code 40 - MOD_SHIFT | KEY_A, // A code 41 - MOD_SHIFT | KEY_B, // B code 42 - MOD_SHIFT | KEY_C, // C code 43 - MOD_SHIFT | KEY_D, // D code 44 - MOD_SHIFT | KEY_E, // E code 45 - MOD_SHIFT | KEY_F, // F code 46 - MOD_SHIFT | KEY_G, // G code 47 - MOD_SHIFT | KEY_H, // H code 48 - MOD_SHIFT | KEY_I, // I code 49 - MOD_SHIFT | KEY_J, // J code 4A - MOD_SHIFT | KEY_K, // K code 4B - MOD_SHIFT | KEY_L, // L code 4C - MOD_SHIFT | KEY_M, // M code 4D - MOD_SHIFT | KEY_N, // N code 4E - MOD_SHIFT | KEY_O, // O code 4F - MOD_SHIFT | KEY_P, // P code 50 - MOD_SHIFT | KEY_Q, // Q code 51 - MOD_SHIFT | KEY_R, // R code 52 - MOD_SHIFT | KEY_S, // S code 53 - MOD_SHIFT | KEY_T, // T code 54 - MOD_SHIFT | KEY_U, // U code 55 - MOD_SHIFT | KEY_V, // V code 56 - MOD_SHIFT | KEY_W, // W code 57 - MOD_SHIFT | KEY_X, // X code 58 - MOD_SHIFT | KEY_Y, // Y code 59 - MOD_SHIFT | KEY_Z, // Z code 5A - KEY_LEFTBRACE, // [ code 5B - KEY_BACKSLASH, // \ code 5C - KEY_RIGHTBRACE, // ] code 5D - KEY_F16, // ^ code 5E - MOD_SHIFT | KEY_MINUS, // _ code 5F - KEY_GRAVE, // ` code 60 - KEY_A, // a code 61 - KEY_B, // b code 62 - KEY_C, // c code 63 - KEY_D, // d code 64 - KEY_E, // e code 65 - KEY_F, // f code 66 - KEY_G, // g code 67 - KEY_H, // h code 68 - KEY_I, // i code 69 - KEY_J, // j code 6A - KEY_K, // k code 6B - KEY_L, // l code 6C - KEY_M, // m code 6D - KEY_N, // n code 6E - KEY_O, // o code 6F - KEY_P, // p code 70 - KEY_Q, // q code 71 - KEY_R, // r code 72 - KEY_S, // s code 73 - KEY_T, // t code 74 - KEY_U, // u code 75 - KEY_V, // v code 76 - KEY_W, // w code 77 - KEY_X, // x code 78 - KEY_Y, // y code 79 - KEY_Z, // z code 7A - MOD_SHIFT | KEY_LEFTBRACE, // { code 7B - MOD_SHIFT | KEY_BACKSLASH, // | code 7C - MOD_SHIFT | KEY_RIGHTBRACE, // } code 7D - MOD_SHIFT | KEY_GRAVE, // ~ code 7E - KEY_DELETE // DELETE code 7F + /* + * normal scancode + */ + MOD_CTRL | MOD_SHIFT | KEY_2, // CTRL-@ code 00 + MOD_CTRL | KEY_A, // CTRL-A code 01 + MOD_CTRL | KEY_B, // CTRL-B code 02 + MOD_CTRL | KEY_C, // CTRL-C code 03 + MOD_CTRL | KEY_D, // CTRL-D code 04 + MOD_CTRL | KEY_E, // CTRL-E code 05 + MOD_CTRL | KEY_F, // CTRL-F code 06 + MOD_CTRL | KEY_G, // CTRL-G code 07 + KEY_LEFT, // CTRL-H code 08 + KEY_TAB, // CTRL-I code 09 + KEY_DOWN, // CTRL-J code 0A + KEY_UP, // CTRL-K code 0B + MOD_CTRL | KEY_L, // CTRL-L code 0C + KEY_ENTER, // CTRL-M code 0D + MOD_CTRL | KEY_N, // CTRL-N code 0E + MOD_CTRL | KEY_O, // CTRL-O code 0F + MOD_CTRL | KEY_P, // CTRL-P code 10 + MOD_CTRL | KEY_Q, // CTRL-Q code 11 + MOD_CTRL | KEY_R, // CTRL-R code 12 + MOD_CTRL | KEY_S, // CTRL-S code 13 + MOD_CTRL | KEY_T, // CTRL-T code 14 + KEY_RIGHT, // CTRL-U code 15 + MOD_CTRL | KEY_V, // CTRL-V code 16 + MOD_CTRL | KEY_W, // CTRL-W code 17 + MOD_CTRL | KEY_X, // CTRL-X code 18 + MOD_CTRL | KEY_Y, // CTRL-Y code 19 + MOD_CTRL | KEY_Z, // CTRL-Z code 1A + KEY_ESC, // ESCAPE code 1B + MOD_CTRL | KEY_BACKSLASH, // CTRL-\ code 1C + MOD_CTRL | KEY_RIGHTBRACE, // CTRL-] code 1D + MOD_CTRL | KEY_6, // CTRL-6 code 1E + MOD_CTRL | KEY_MINUS, // CTRL-- code 1F + KEY_SPACE, // ' ' code 20 + MOD_SHIFT | KEY_1, // ! code 21 + MOD_SHIFT | KEY_APOSTROPHE, // " code 22 + MOD_SHIFT | KEY_3, // # code 23 + MOD_SHIFT | KEY_4, // $ code 24 + MOD_SHIFT | KEY_5, // % code 25 + MOD_SHIFT | KEY_7, // & code 26 + KEY_APOSTROPHE, // ' code 27 + MOD_SHIFT | KEY_9, // ( code 28 + MOD_SHIFT | KEY_0, // ) code 29 + MOD_SHIFT | KEY_8, // * code 2A + MOD_SHIFT | KEY_EQUAL, // + code 2B + KEY_COMMA, // , code 2C + KEY_MINUS, // - code 2D + KEY_DOT, // . code 2E + KEY_SLASH, // / code 2F + KEY_0, // 0 code 30 + KEY_1, // 1 code 31 + KEY_2, // 2 code 32 + KEY_3, // 3 code 33 + KEY_4, // 4 code 34 + KEY_5, // 5 code 35 + KEY_6, // 6 code 36 + KEY_7, // 7 code 37 + KEY_8, // 8 code 38 + KEY_9, // 9 code 39 + MOD_SHIFT | KEY_SEMICOLON, // : code 3A + KEY_SEMICOLON, // ; code 3B + MOD_SHIFT | KEY_COMMA, // < code 3C + KEY_EQUAL, // = code 3D + MOD_SHIFT | KEY_DOT, // > code 3E + MOD_SHIFT | KEY_SLASH, // ? code 3F + MOD_SHIFT | KEY_2, // @ code 40 + MOD_SHIFT | KEY_A, // A code 41 + MOD_SHIFT | KEY_B, // B code 42 + MOD_SHIFT | KEY_C, // C code 43 + MOD_SHIFT | KEY_D, // D code 44 + MOD_SHIFT | KEY_E, // E code 45 + MOD_SHIFT | KEY_F, // F code 46 + MOD_SHIFT | KEY_G, // G code 47 + MOD_SHIFT | KEY_H, // H code 48 + MOD_SHIFT | KEY_I, // I code 49 + MOD_SHIFT | KEY_J, // J code 4A + MOD_SHIFT | KEY_K, // K code 4B + MOD_SHIFT | KEY_L, // L code 4C + MOD_SHIFT | KEY_M, // M code 4D + MOD_SHIFT | KEY_N, // N code 4E + MOD_SHIFT | KEY_O, // O code 4F + MOD_SHIFT | KEY_P, // P code 50 + MOD_SHIFT | KEY_Q, // Q code 51 + MOD_SHIFT | KEY_R, // R code 52 + MOD_SHIFT | KEY_S, // S code 53 + MOD_SHIFT | KEY_T, // T code 54 + MOD_SHIFT | KEY_U, // U code 55 + MOD_SHIFT | KEY_V, // V code 56 + MOD_SHIFT | KEY_W, // W code 57 + MOD_SHIFT | KEY_X, // X code 58 + MOD_SHIFT | KEY_Y, // Y code 59 + MOD_SHIFT | KEY_Z, // Z code 5A + KEY_LEFTBRACE, // [ code 5B + KEY_BACKSLASH, // \ code 5C + KEY_RIGHTBRACE, // ] code 5D + MOD_SHIFT | KEY_6, // ^ code 5E + MOD_SHIFT | KEY_MINUS, // _ code 5F + KEY_GRAVE, // ` code 60 + KEY_A, // a code 61 + KEY_B, // b code 62 + KEY_C, // c code 63 + KEY_D, // d code 64 + KEY_E, // e code 65 + KEY_F, // f code 66 + KEY_G, // g code 67 + KEY_H, // h code 68 + KEY_I, // i code 69 + KEY_J, // j code 6A + KEY_K, // k code 6B + KEY_L, // l code 6C + KEY_M, // m code 6D + KEY_N, // n code 6E + KEY_O, // o code 6F + KEY_P, // p code 70 + KEY_Q, // q code 71 + KEY_R, // r code 72 + KEY_S, // s code 73 + KEY_T, // t code 74 + KEY_U, // u code 75 + KEY_V, // v code 76 + KEY_W, // w code 77 + KEY_X, // x code 78 + KEY_Y, // y code 79 + KEY_Z, // z code 7A + MOD_SHIFT | KEY_LEFTBRACE, // { code 7B + MOD_SHIFT | KEY_BACKSLASH, // | code 7C + MOD_SHIFT | KEY_RIGHTBRACE, // } code 7D + MOD_SHIFT | KEY_GRAVE, // ~ code 7E + KEY_BACKSPACE, // BS code 7F + /* + * w/ closed apple scancodes + */ + MOD_CTRL | MOD_SHIFT | KEY_2, // CTRL-@ code 00 + MOD_CTRL | KEY_A, // CTRL-A code 01 + MOD_CTRL | KEY_B, // CTRL-B code 02 + MOD_CTRL | KEY_C, // CTRL-C code 03 + MOD_CTRL | KEY_D, // CTRL-D code 04 + MOD_CTRL | KEY_E, // CTRL-E code 05 + MOD_CTRL | KEY_F, // CTRL-F code 06 + MOD_CTRL | KEY_G, // CTRL-G code 07 + KEY_HOME, // CTRL-H code 08 + KEY_INSERT, // CTRL-I code 09 + KEY_PAGEDOWN, // CTRL-J code 0A + KEY_PAGEUP, // CTRL-K code 0B + MOD_CTRL | KEY_L, // CTRL-L code 0C + KEY_LINEFEED, // CTRL-M code 0D + MOD_CTRL | KEY_N, // CTRL-N code 0E + MOD_CTRL | KEY_O, // CTRL-O code 0F + MOD_CTRL | KEY_P, // CTRL-P code 10 + MOD_CTRL | KEY_Q, // CTRL-Q code 11 + MOD_CTRL | KEY_R, // CTRL-R code 12 + MOD_CTRL | KEY_S, // CTRL-S code 13 + MOD_CTRL | KEY_T, // CTRL-T code 14 + KEY_END, // CTRL-U code 15 + MOD_CTRL | KEY_V, // CTRL-V code 16 + MOD_CTRL | KEY_W, // CTRL-W code 17 + MOD_CTRL | KEY_X, // CTRL-X code 18 + MOD_CTRL | KEY_Y, // CTRL-Y code 19 + MOD_CTRL | KEY_Z, // CTRL-Z code 1A + KEY_ESC, // ESCAPE code 1B + MOD_CTRL | KEY_BACKSLASH, // CTRL-\ code 1C + MOD_CTRL | KEY_RIGHTBRACE, // CTRL-] code 1D + MOD_CTRL | KEY_6, // CTRL-6 code 1E + MOD_CTRL | KEY_MINUS, // CTRL-- code 1F + KEY_SPACE, // ' ' code 20 + KEY_F11, // ! code 21 + MOD_SHIFT | KEY_APOSTROPHE, // " code 22 + KEY_F13, // # code 23 + KEY_F14, // $ code 24 + KEY_F15, // % code 25 + KEY_F17, // & code 26 + KEY_APOSTROPHE, // ' code 27 + KEY_F19, // ( code 28 + KEY_F20, // ) code 29 + KEY_F18, // * code 2A + MOD_SHIFT | KEY_EQUAL, // + code 2B + KEY_COMMA, // , code 2C + KEY_MINUS, // - code 2D + KEY_DOT, // . code 2E + KEY_SLASH, // / code 2F + KEY_F10, // 0 code 30 + KEY_F1, // 1 code 31 + KEY_F2, // 2 code 32 + KEY_F3, // 3 code 33 + KEY_F4, // 4 code 34 + KEY_F5, // 5 code 35 + KEY_F6, // 6 code 36 + KEY_F7, // 7 code 37 + KEY_F8, // 8 code 38 + KEY_F9, // 9 code 39 + MOD_SHIFT | KEY_SEMICOLON, // : code 3A + KEY_SEMICOLON, // ; code 3B + MOD_SHIFT | KEY_COMMA, // < code 3C + KEY_EQUAL, // = code 3D + MOD_SHIFT | KEY_DOT, // > code 3E + MOD_SHIFT | KEY_SLASH, // ? code 3F + KEY_F12, // @ code 40 + MOD_SHIFT | KEY_A, // A code 41 + MOD_SHIFT | KEY_B, // B code 42 + MOD_SHIFT | KEY_C, // C code 43 + MOD_SHIFT | KEY_D, // D code 44 + MOD_SHIFT | KEY_E, // E code 45 + MOD_SHIFT | KEY_F, // F code 46 + MOD_SHIFT | KEY_G, // G code 47 + MOD_SHIFT | KEY_H, // H code 48 + MOD_SHIFT | KEY_I, // I code 49 + MOD_SHIFT | KEY_J, // J code 4A + MOD_SHIFT | KEY_K, // K code 4B + MOD_SHIFT | KEY_L, // L code 4C + MOD_SHIFT | KEY_M, // M code 4D + MOD_SHIFT | KEY_N, // N code 4E + MOD_SHIFT | KEY_O, // O code 4F + MOD_SHIFT | KEY_P, // P code 50 + MOD_SHIFT | KEY_Q, // Q code 51 + MOD_SHIFT | KEY_R, // R code 52 + MOD_SHIFT | KEY_S, // S code 53 + MOD_SHIFT | KEY_T, // T code 54 + MOD_SHIFT | KEY_U, // U code 55 + MOD_SHIFT | KEY_V, // V code 56 + MOD_SHIFT | KEY_W, // W code 57 + MOD_SHIFT | KEY_X, // X code 58 + MOD_SHIFT | KEY_Y, // Y code 59 + MOD_SHIFT | KEY_Z, // Z code 5A + KEY_LEFTBRACE, // [ code 5B + KEY_BACKSLASH, // \ code 5C + KEY_RIGHTBRACE, // ] code 5D + KEY_F16, // ^ code 5E + MOD_SHIFT | KEY_MINUS, // _ code 5F + KEY_GRAVE, // ` code 60 + KEY_A, // a code 61 + KEY_B, // b code 62 + KEY_C, // c code 63 + KEY_D, // d code 64 + KEY_E, // e code 65 + KEY_F, // f code 66 + KEY_G, // g code 67 + KEY_H, // h code 68 + KEY_I, // i code 69 + KEY_J, // j code 6A + KEY_K, // k code 6B + KEY_L, // l code 6C + KEY_M, // m code 6D + KEY_N, // n code 6E + KEY_O, // o code 6F + KEY_P, // p code 70 + KEY_Q, // q code 71 + KEY_R, // r code 72 + KEY_S, // s code 73 + KEY_T, // t code 74 + KEY_U, // u code 75 + KEY_V, // v code 76 + KEY_W, // w code 77 + KEY_X, // x code 78 + KEY_Y, // y code 79 + KEY_Z, // z code 7A + MOD_SHIFT | KEY_LEFTBRACE, // { code 7B + MOD_SHIFT | KEY_BACKSLASH, // | code 7C + MOD_SHIFT | KEY_RIGHTBRACE, // } code 7D + MOD_SHIFT | KEY_GRAVE, // ~ code 7E + KEY_DELETE // DELETE code 7F }; +#define RUN 0 +#define STOP 1 +#define RESET 2 int accel[32] = { 0, 1, 4, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20 - -21, -20, -19, -18, -17, -16, -15, -14, -13, -12, -11, -10, -9, -8, -4, -1}; -volatile int stop = FALSE, isdaemon = FALSE; + -21, -20, -19, -18, -17, -16, -15, -14, -13, -12, -11, -10, -9, -8, -4, -1}; +volatile int state = RUN, isdaemon = FALSE; struct input_event evkey, evrelx, evrely, evsync; void sendkeycodedown(int fd, int code) { - /* - * press keys - */ - evkey.value = 1; - if (code & MOD_ALT) - { - evkey.code = KEY_LEFTALT; - write(fd, &evkey, sizeof(evkey)); - } - if (code & MOD_CTRL) - { - evkey.code = KEY_LEFTCTRL; - write(fd, &evkey, sizeof(evkey)); - } - if (code & MOD_SHIFT) - { - evkey.code = KEY_LEFTSHIFT; - write(fd, &evkey, sizeof(evkey)); - } - evkey.code = code & KEY_CODE; - write(fd, &evkey, sizeof(evkey)); - write(fd, &evsync, sizeof(evsync)); + /* + * press keys + */ + evkey.value = 1; + if (code & MOD_ALT) + { + evkey.code = KEY_LEFTALT; + write(fd, &evkey, sizeof(evkey)); + } + if (code & MOD_CTRL) + { + evkey.code = KEY_LEFTCTRL; + write(fd, &evkey, sizeof(evkey)); + } + if (code & MOD_SHIFT) + { + evkey.code = KEY_LEFTSHIFT; + write(fd, &evkey, sizeof(evkey)); + } + evkey.code = code & KEY_CODE; + write(fd, &evkey, sizeof(evkey)); + write(fd, &evsync, sizeof(evsync)); } void sendkeycodeup(int fd, int code) { - /* - * release keys - */ - evkey.code = code & KEY_CODE; - evkey.value = 0; - write(fd, &evkey, sizeof(evkey)); - if (code & MOD_SHIFT) - { - evkey.code = KEY_LEFTSHIFT; - write(fd, &evkey, sizeof(evkey)); - } - if (code & MOD_CTRL) - { - evkey.code = KEY_LEFTCTRL; - write(fd, &evkey, sizeof(evkey)); - } - if (code & MOD_ALT) - { - evkey.code = KEY_LEFTALT; - write(fd, &evkey, sizeof(evkey)); - } - write(fd, &evsync, sizeof(evsync)); + /* + * release keys + */ + evkey.code = code & KEY_CODE; + evkey.value = 0; + write(fd, &evkey, sizeof(evkey)); + if (code & MOD_SHIFT) + { + evkey.code = KEY_LEFTSHIFT; + write(fd, &evkey, sizeof(evkey)); + } + if (code & MOD_CTRL) + { + evkey.code = KEY_LEFTCTRL; + write(fd, &evkey, sizeof(evkey)); + } + if (code & MOD_ALT) + { + evkey.code = KEY_LEFTALT; + write(fd, &evkey, sizeof(evkey)); + } + write(fd, &evsync, sizeof(evsync)); } void sendkey(int fd, int mod, int key) { - static int prevcode = -1; - int code = keycode[(mod & MOD_FN) | (key & KEY_ASCII)] - | ((mod << 8) & MOD_ALT); - - if (prevcode >= 0) - { - sendkeycodeup(fd, prevcode); - if (!(key & KEY_PRESS) && ((code & KEY_CODE) != (prevcode & KEY_CODE))) - /* - * missed a key down event - * synthesize one - */ - sendkeycodedown(fd, code); - (key & KEY_PRESS) ? sendkeycodedown(fd, code) : sendkeycodeup(fd, code); - } - else - { - sendkeycodedown(fd, code); - if (!(key & KEY_PRESS)) - /* - * missed a key down event - * already synthesized one - */ - sendkeycodeup(fd, code); - } - prevcode = (key & KEY_PRESS) ? code : -1; + static int prevcode = -1; + int code = keycode[(mod & MOD_FN) | (key & KEY_ASCII)] + | ((mod << 8) & MOD_ALT); + + if (prevcode >= 0) + { + sendkeycodeup(fd, prevcode); + if (!(key & KEY_PRESS) && ((code & KEY_CODE) != (prevcode & KEY_CODE))) + /* + * missed a key down event + * synthesize one + */ + sendkeycodedown(fd, code); + (key & KEY_PRESS) ? sendkeycodedown(fd, code) : sendkeycodeup(fd, code); + } + else + { + sendkeycodedown(fd, code); + if (!(key & KEY_PRESS)) + /* + * missed a key down event + * already synthesized one + */ + sendkeycodeup(fd, code); + } + prevcode = (key & KEY_PRESS) ? code : -1; } void sendbttn(int fd, int mod, int bttn) { - static int lastbtn = 0; - - if (bttn) - { - lastbtn = - evkey.code = (mod == 0) ? BTN_LEFT - : (mod & 0x40) ? BTN_RIGHT - : BTN_MIDDLE; - evkey.value = 1; - } - else - { - evkey.code = lastbtn; - evkey.value = 0; - } - write(fd, &evkey, sizeof(evkey)); - write(fd, &evsync, sizeof(evsync)); + static int lastbtn = 0; + + if (bttn) + { + lastbtn = + evkey.code = (mod == 0) ? BTN_LEFT + : (mod & 0x40) ? BTN_RIGHT + : BTN_MIDDLE; + evkey.value = 1; + } + else + { + evkey.code = lastbtn; + evkey.value = 0; + } + write(fd, &evkey, sizeof(evkey)); + write(fd, &evsync, sizeof(evsync)); } void sendrelxy(int fd, int x, int y) { - if (x > 4 || x < -4) x = x *4; - else x = accel[x & 0x1F]; - if (y > 4 || y < -4) y = y * 4; - else y = accel[y & 0x1F]; - evrelx.value = x; - evrely.value = y; - write(fd, &evrelx, sizeof(evrelx)); - write(fd, &evrely, sizeof(evrely)); - write(fd, &evsync, sizeof(evsync)); + if (x > 4 || x < -4) x = x *4; + else x = accel[x & 0x1F]; + if (y > 4 || y < -4) y = y * 4; + else y = accel[y & 0x1F]; + evrelx.value = x; + evrely.value = y; + write(fd, &evrelx, sizeof(evrelx)); + write(fd, &evrely, sizeof(evrely)); + write(fd, &evsync, sizeof(evsync)); } int writeword(int fd, int word, char ack) { - char rwchar; - - rwchar = word; /* send low byte of word */ - write(fd, &rwchar, 1); - if ((read(fd, &rwchar, 1) == 1) && (rwchar == ack)) /* receive ack */ - { - rwchar = word >> 8; /* send high byte of word */ - write(fd, &rwchar, 1); - if ((read(fd, &rwchar, 1) == 1) && (rwchar == ack)) /* receive ack */ - return TRUE; - } - return FALSE; + char rwchar; + + rwchar = word; /* send low byte of word */ + write(fd, &rwchar, 1); + if ((read(fd, &rwchar, 1) == 1) && (rwchar == ack)) /* receive ack */ + { + rwchar = word >> 8; /* send high byte of word */ + write(fd, &rwchar, 1); + if ((read(fd, &rwchar, 1) == 1) && (rwchar == ack)) /* receive ack */ + return TRUE; + } + return FALSE; } void prlog(char *str) { - if (!isdaemon) - puts(str); + if (!isdaemon) + puts(str); } struct a2request *addreq(int a2fd, int reqfd, int type, int addr, int count, char *buffer) { char rwchar; - struct a2request *a2req = a2reqfree; - if (a2req == NULL) - a2req = malloc(sizeof(struct a2request)); - else - a2reqfree = a2reqfree->next; - a2req->fd = reqfd; - a2req->type = type; - a2req->addr = addr; - a2req->count = count; - a2req->xfer = 0; + struct a2request *a2req = a2reqfree; + if (a2req == NULL) + a2req = malloc(sizeof(struct a2request)); + else + a2reqfree = a2reqfree->next; + a2req->fd = reqfd; + a2req->type = type; + a2req->addr = addr; + a2req->count = count; + a2req->xfer = 0; a2req->buffer = buffer; - a2req->next = NULL; - if (a2reqlist == NULL) - { - /* - * Initiate request. - */ - a2reqlist = a2req; - rwchar = a2req->type; - write(a2fd, &rwchar, 1); - } - else - { - /* - * Add to end of request list. - */ - struct a2request *a2reqnext = a2reqlist; - while (a2reqnext->next != NULL) - a2reqnext = a2reqnext->next; - a2reqnext->next = a2req; - } - return a2req; + a2req->next = NULL; + if (a2reqlist == NULL) + { + /* + * Initiate request. + */ + a2reqlist = a2req; + rwchar = a2req->type; + write(a2fd, &rwchar, 1); + } + else + { + /* + * Add to end of request list. + */ + struct a2request *a2reqnext = a2reqlist; + while (a2reqnext->next != NULL) + a2reqnext = a2reqnext->next; + a2reqnext->next = a2req; + } + return a2req; } void finreq(int a2fd, int status, int result) { - char finbuf[2]; - struct a2request *a2req = a2reqlist; - if (a2req->next) - { - /* - * Initiate next request. - */ - finbuf[0] = a2req->next->type; - write(a2fd, finbuf, 1); - } + char finbuf[2]; + struct a2request *a2req = a2reqlist; + if (a2req->next) + { + /* + * Initiate next request. + */ + finbuf[0] = a2req->next->type; + write(a2fd, finbuf, 1); + } + /* + * Send result to socket. + */ + if (a2req->fd) + { + if (a2req->type == 0x90) /* read bytes */ + write(a2req->fd, a2req->buffer, a2req->count); + finbuf[0] = status; + finbuf[1] = result; + write(a2req->fd, finbuf, 2); + } + if (a2req->buffer) + { + free(a2req->buffer); + a2req->buffer = NULL; + } + /* + * Update lists. + */ + a2reqlist = a2req->next; + a2req->next = a2reqfree; + a2reqfree = a2req; +} +void flushreqs(int a2fd, int status, int result) +{ + char finbuf[2]; + struct a2request *a2req; + while (a2req = a2reqlist) + { /* * Send result to socket. */ if (a2req->fd) { - if (a2req->type == 0x90) /* read bytes */ - write(a2req->fd, a2req->buffer, a2req->count); - finbuf[0] = status; - finbuf[1] = result; - write(a2req->fd, finbuf, 2); + if (a2req->type == 0x90) /* read bytes */ + write(a2req->fd, a2req->buffer, a2req->count); + finbuf[0] = status; + finbuf[1] = result; + write(a2req->fd, finbuf, 2); } if (a2req->buffer) { - free(a2req->buffer); - a2req->buffer = NULL; + free(a2req->buffer); + a2req->buffer = NULL; } /* * Update lists. @@ -518,428 +550,437 @@ void finreq(int a2fd, int status, int result) a2reqlist = a2req->next; a2req->next = a2reqfree; a2reqfree = a2req; + } } void main(int argc, char **argv) { - struct uinput_user_dev uidev; - struct termios oldtio,newtio; - unsigned char iopkt[16]; - int i, c, lastbtn; - int a2fd, kbdfd, moufd, srvfd, reqfd, maxfd; - struct sockaddr_in servaddr; - fd_set readset, openset; - char *devtty = "/dev/ttyAMA0"; /* default for Raspberry Pi */ - - /* - * Parse arguments - */ - if (argc > 1) - { - /* - * Are we running as a daemon? - */ - if (strcmp(argv[1], "--daemon") == 0) - { - if (daemon(0, 0) != 0) - die("a2pid: daemon() failure"); - isdaemon = TRUE; - /* - * Another argument must be tty device - */ - if (argc > 2) - devtty = argv[2]; - } - else - /* - * Must be tty device - */ - devtty = argv[1]; - } - /* - * Create keyboard input device - */ - prlog("a2pid: Create keyboard input device\n"); - kbdfd = open("/dev/uinput", O_WRONLY | O_NONBLOCK); - if (kbdfd < 0) - die("error: uinput open"); - if (ioctl(kbdfd, UI_SET_EVBIT, EV_KEY) < 0) - die("error: uinput ioctl EV_KEY"); - if (ioctl(kbdfd, UI_SET_EVBIT, EV_REP) < 0) - die("error: uinput ioctl EV_REP"); - for (i = KEY_ESC; i <= KEY_F10; i++) - if (ioctl(kbdfd, UI_SET_KEYBIT, i) < 0) - die("error: uinput ioctl SET_KEYBITs"); - for (i = KEY_HOME; i <= KEY_DELETE; i++) - if (ioctl(kbdfd, UI_SET_KEYBIT, i) < 0) - die("error: uinput ioctl SET_KEYBITs"); - if (ioctl(kbdfd, UI_SET_EVBIT, EV_SYN) < 0) - die("error: ioctl EV_SYN"); - bzero(&uidev, sizeof(uidev)); - snprintf(uidev.name, UINPUT_MAX_NAME_SIZE, "Apple2 Pi Keyboard"); - uidev.id.bustype = BUS_RS232; - uidev.id.vendor = 0x05ac; /* apple */ - uidev.id.product = 0x2e; - uidev.id.version = 1; - write(kbdfd, &uidev, sizeof(uidev)); - if (ioctl(kbdfd, UI_DEV_CREATE) < 0) - die("error: ioctl DEV_CREATE"); - /* - * Set repeat delay values that make sense. - */ - bzero(&evkey, sizeof(evkey)); - evkey.type = EV_REP; - evkey.code = REP_DELAY; - evkey.value = 500; /* 0.5 sec delay */ - if (write(kbdfd, &evkey, sizeof(evkey)) < 0) - die("error: REP_DELAY"); - evkey.type = EV_REP; - evkey.code = REP_PERIOD; - evkey.value = 67; /* 15 reps/sec */ - if (write(kbdfd, &evkey, sizeof(evkey)) < 0) - die("error: REP_PERIOD"); - /* - * Create mouse input device - */ - prlog("a2pid: Create mouse input device\n"); - moufd = open("/dev/uinput", O_WRONLY | O_NONBLOCK); - if (moufd < 0) - die("error: uinput open"); - if (ioctl(moufd, UI_SET_EVBIT, EV_KEY) < 0) - die("error: uinput ioctl EV_KEY"); - if (ioctl(moufd, UI_SET_KEYBIT, BTN_LEFT) < 0) - die("error: uinput ioctl BTN_LEFT"); - if (ioctl(moufd, UI_SET_KEYBIT, BTN_RIGHT) < 0) - die("error: uinput ioctl BTN_RIGHT"); - if (ioctl(moufd, UI_SET_KEYBIT, BTN_MIDDLE) < 0) - die("error: uinput ioctl BTN_MIDDLE"); - if (ioctl(moufd, UI_SET_EVBIT, EV_REL) < 0) - die("error: ioctl EV_REL"); - if (ioctl(moufd, UI_SET_RELBIT, REL_X) < 0) - die("error: ioctl REL_X"); - if (ioctl(moufd, UI_SET_RELBIT, REL_Y) < 0) - die("error: ioctl REL_Y"); - if (ioctl(moufd, UI_SET_EVBIT, EV_SYN) < 0) - die("error: ioctl EV_SYN"); - bzero(&uidev, sizeof(uidev)); - snprintf(uidev.name, UINPUT_MAX_NAME_SIZE, "Apple2 Pi Mouse"); - uidev.id.bustype = BUS_RS232; - uidev.id.vendor = 0x05ac; /* apple */ - uidev.id.product = 0x2e; - uidev.id.version = 1; - write(moufd, &uidev, sizeof(uidev)); - if (ioctl(moufd, UI_DEV_CREATE) < 0) - die("error: ioctl DEV_CREATE"); - /* - * Initialize event structures. - */ - bzero(&evkey, sizeof(evkey)); - bzero(&evsync, sizeof(evsync)); - bzero(&evrelx, sizeof(evrelx)); - bzero(&evrely, sizeof(evrely)); - evkey.type = EV_KEY; - evrelx.type = EV_REL; - evrelx.code = REL_X; - evrely.type = EV_REL; - evrely.code = REL_Y; - evsync.type = EV_SYN; - /* - * Open serial port. - */ - prlog("a2pid: Open serial port\n"); - a2fd = open(devtty, O_RDWR | O_NOCTTY); - if (a2fd < 0) - die("error: serial port open"); - tcflush(a2fd, TCIFLUSH); - tcgetattr(a2fd, &oldtio); /* save current port settings */ - bzero(&newtio, sizeof(newtio)); - newtio.c_cflag = BAUDRATE /*| CRTSCTS*/ | CS8 | CLOCAL | CREAD; - newtio.c_iflag = IGNPAR; - newtio.c_oflag = 0; - newtio.c_lflag = 0; /* set input mode (non-canonical, no echo,...) */ - newtio.c_cc[VTIME] = 0; /* inter-character timer unused */ - newtio.c_cc[VMIN] = 1; /* blocking read until 1 char received */ - tcsetattr(a2fd, TCSANOW, &newtio); - prlog("a2pid: Waiting...\n"); - iopkt[0] = 0x80; /* request re-sync if Apple II already running */ - write(a2fd, iopkt, 1); - if (read(a2fd, iopkt, 1) == 1) - { - if (iopkt[0] == 0x80) /* receive sync */ - { - prlog("a2pid: Connected.\n"); - iopkt[0] = 0x81; /* acknowledge */ - write(a2fd, iopkt, 1); - tcflush(a2fd, TCIFLUSH); - } - else if (iopkt[0] == 0x9F) /* bad request from Apple II */ - { - prlog("a2pi: Bad Connect Request.\n"); - tcflush(a2fd, TCIFLUSH); - } - else - { - prlog("a2pi: Bad Sync ACK\n"); - stop = TRUE; - } - } - newtio.c_cc[VMIN] = 3; /* blocking read until 3 chars received */ - tcsetattr(a2fd, TCSANOW, &newtio); - /* - * Open socket. - */ - prlog("a2pid: Open server socket\n"); - bzero(&servaddr, sizeof(servaddr)); - servaddr.sin_family = AF_INET; - servaddr.sin_port = htons(6502); - servaddr.sin_addr.s_addr = htonl(INADDR_ANY); - srvfd = socket(PF_INET, SOCK_STREAM, IPPROTO_TCP); - if (srvfd < 0) - die("error: socket create"); - if (bind(srvfd,(struct sockaddr *)&servaddr, sizeof(servaddr)) < 0) - die("error: bind socket"); - if (listen(srvfd, 1) < 0) - die("error: listen socket"); - reqfd = 0; - FD_ZERO(&openset); - FD_SET(a2fd, &openset); - FD_SET(srvfd, &openset); - maxfd = a2fd > srvfd ? a2fd : srvfd; - /* - * Event loop - */ - prlog("a2pid: Enter event loop\n"); - while (!stop) - { - memcpy(&readset, &openset, sizeof(openset)); - if (select(maxfd + 1, &readset, NULL, NULL, NULL) > 0) - { - /* - * Serial port to Apple II transaction. - */ - if (FD_ISSET(a2fd, &readset)) - { - if (read(a2fd, iopkt, 3) == 3) - { - // printf("a2pi: Event [0x%02X] [0x%02X] [0x%02X]\n", iopkt[0], iopkt[1], iopkt[2]); - switch (iopkt[0]) - { - case 0x80: /* sync */ - prlog("a2pid: Re-Connected.\n"); - iopkt[0] = 0x81; /* acknowledge */ - write(a2fd, iopkt, 1); - tcflush(a2fd, TCIFLUSH); - break; - case 0x82: /* keyboard event */ - // printf("Keyboard Event: 0x%02X:%c\n", iopkt[1], iopkt[2] & 0x7F); - sendkey(kbdfd, iopkt[1], iopkt[2]); - if (iopkt[2] == 0x9B && iopkt[1] == 0xC0) - stop = TRUE; - break; - case 0x84: /* mouse move event */ - // printf("Mouse XY Event: %d,%d\n", (signed char)iopkt[1], (signed char)iopkt[2]); - sendrelxy(moufd, (signed char)iopkt[1], (signed char)iopkt[2]); - break; - case 0x86: /* mouse button event */ - // printf("Mouse Button %s Event 0x%02X\n", iopkt[2] ? "[PRESS]" : "[RELEASE]", iopkt[1]); - sendbttn(moufd, iopkt[1], iopkt[2]); - break; - case 0x90: /* acknowledge read bytes request*/ - if (a2reqlist) /* better have an outstanding request */ - { - //printf("a2pid: read %d of %d bytes from 0x%04X\n", a2reqlist->xfer, a2reqlist->count, a2reqlist->addr); - newtio.c_cc[VMIN] = 1; /* blocking read until 1 char received */ - tcsetattr(a2fd, TCSANOW, &newtio); - c = a2reqlist->count - a2reqlist->xfer > MAX_XFER - ? MAX_XFER - : a2reqlist->count - a2reqlist->xfer; - if (writeword(a2fd, a2reqlist->addr + a2reqlist->xfer, 0x91) && writeword(a2fd, c, 0x91)) - { - for (i = 0; i < c; i++) - { - if (read(a2fd, iopkt, 1) == 1) - a2reqlist->buffer[a2reqlist->xfer++] = iopkt[0]; - else - { - stop = TRUE; - break; - } - } - } - else - stop = TRUE; - newtio.c_cc[VMIN] = 3; /* blocking read until 3 chars received */ - tcsetattr(a2fd, TCSANOW, &newtio); - } - else - stop = TRUE; - break; - case 0x92: /* acknowledge write bytes */ - if (a2reqlist) /* better have an outstanding request */ - { - //printf("a2pid: wrote %d of %d bytes to 0x%04X\n", a2reqlist->xfer, a2reqlist->count, a2reqlist->addr); - newtio.c_cc[VMIN] = 1; /* blocking read until 1 char received */ - tcsetattr(a2fd, TCSANOW, &newtio); - c = a2reqlist->count - a2reqlist->xfer > MAX_XFER - ? MAX_XFER - : a2reqlist->count - a2reqlist->xfer; - if (writeword(a2fd, a2reqlist->addr + a2reqlist->xfer, 0x93) && writeword(a2fd, c, 0x93)) - { - if (write(a2fd, a2reqlist->buffer + a2reqlist->xfer, c) == c) - a2reqlist->xfer += c; - else - stop = TRUE; - } - else - stop = TRUE; - newtio.c_cc[VMIN] = 3; /* blocking read until 3 chars received */ - tcsetattr(a2fd, TCSANOW, &newtio); - } - else - stop = TRUE; - break; - case 0x94: /* acknowledge call */ - if (a2reqlist) /* better have an outstanding request */ - { - //printf("a2pid: call address 0x%04X\n", a2reqlist->addr); - newtio.c_cc[VMIN] = 1; /* blocking read until 1 char received */ - tcsetattr(a2fd, TCSANOW, &newtio); - if (!writeword(a2fd, a2reqlist->addr, 0x95)) - stop = TRUE; - newtio.c_cc[VMIN] = 3; /* blocking read until 3 chars received */ - tcsetattr(a2fd, TCSANOW, &newtio); - } - else - stop = TRUE; - break; - case 0x9E: /* request complete ok */ - case 0x9F: /* request complete error */ - if (a2reqlist) /* better have an outstanding request */ - { - //printf("a2pid: complete request 0x%02X:0x%02X\n", (unsigned char)iopkt[0], (unsigned char)iopkt[1]); - if ((a2reqlist->type == 0x90 || a2reqlist->type == 0x92) - && (a2reqlist->count > a2reqlist->xfer)) - { - iopkt[0] = a2reqlist->type; - write(a2fd, iopkt, 1); - } - else - { - //printf("a2pid: finish request 0x%02X:0x%02X\n", (unsigned char)iopkt[0], (unsigned char)iopkt[1]); - finreq(a2fd, (unsigned char)iopkt[0], (unsigned char)iopkt[1]); - } - } - else - stop = TRUE; - break; - default: - prlog("a2pid: Unknown Event\n"); - tcflush(a2fd, TCIFLUSH); - //stop = TRUE; - } - } - else - { - prlog("a2pid: error read serial port ????\n"); - stop = TRUE; - } - } - /* - * Socket server connection. - */ - if (FD_ISSET(srvfd, &readset)) - { - reqfd = accept(srvfd, NULL, NULL); - if (reqfd > 0) - FD_SET(reqfd, &openset); - else - prlog("a2pid: error accept"); - maxfd = reqfd > maxfd ? reqfd : maxfd; - prlog("a2pi: Client Connect\n"); - } - /* - * Socket client request. - */ - if (reqfd > 0 && FD_ISSET(reqfd, &readset)) - { - int addr, count; - char *databuf; - if (read(reqfd, iopkt, 1) == 1) - { - // printf("a2pi: Request [0x%02X]\n", iopkt[0]); - switch (iopkt[0]) - { - case 0x90: /* read bytes */ - if (read(reqfd, iopkt, 4) == 4) - { - addr = (unsigned char)iopkt[0] | ((unsigned char)iopkt[1] << 8); - count = (unsigned char)iopkt[2] | ((unsigned char)iopkt[3] << 8); - if (count) - { - databuf = malloc(count); - addreq(a2fd, reqfd, 0x90, addr, count, databuf); - } - else - { - iopkt[0] = 0x9E; - iopkt[1] = 0x00; - write(reqfd, iopkt, 2); - } - } - break; - case 0x92: /* write bytes */ - if (read(reqfd, iopkt, 4) == 4) - { - addr = (unsigned char)iopkt[0] | ((unsigned char)iopkt[1] << 8); - count = (unsigned char)iopkt[2] | ((unsigned char)iopkt[3] << 8); - if (count) - { - databuf = malloc(count); - if (read(reqfd, databuf, count) == count) - addreq(a2fd, reqfd, 0x92, addr, count, databuf); - } - else - { - iopkt[0] = 0x9E; - iopkt[1] = 0x00; - write(reqfd, iopkt, 2); - } - } - break; - case 0x94: /* call */ - if (read(reqfd, iopkt, 2) == 2) - { - addr = (unsigned char)iopkt[0] | ((unsigned char)iopkt[1] << 8); - addreq(a2fd, reqfd, 0x94, addr, 0, NULL); - } - break; - case 0xFF: /* close */ - FD_CLR(reqfd, &openset); - close(reqfd); - reqfd = 0; - maxfd = a2fd > srvfd ? a2fd : srvfd; - break; - default: - prlog("a2pid: Unknown Request\n"); - stop = TRUE; - } - } - else - { - prlog("a2pid: error read socket ????"); - stop = TRUE; - } - } - } - } - if (reqfd > 0) - close(reqfd); - shutdown(srvfd, SHUT_RDWR); - close(srvfd); - tcsetattr(a2fd, TCSANOW, &oldtio); - tcflush(a2fd, TCIFLUSH); - close(a2fd); - ioctl(moufd, UI_DEV_DESTROY); - ioctl(kbdfd, UI_DEV_DESTROY); - close(moufd); - close(kbdfd); + struct uinput_user_dev uidev; + struct termios oldtio,newtio; + unsigned char iopkt[16]; + int i, c, lastbtn; + int a2fd, kbdfd, moufd, srvfd, reqfd, maxfd; + struct sockaddr_in servaddr; + fd_set readset, openset; + char *devtty = "/dev/ttyAMA0"; /* default for Raspberry Pi */ + + /* + * Parse arguments + */ + if (argc > 1) + { + /* + * Are we running as a daemon? + */ + if (strcmp(argv[1], "--daemon") == 0) + { + if (daemon(0, 0) != 0) + die("a2pid: daemon() failure"); + isdaemon = TRUE; + /* + * Another argument must be tty device + */ + if (argc > 2) + devtty = argv[2]; + } + else + /* + * Must be tty device + */ + devtty = argv[1]; + } + /* + * Create keyboard input device + */ + prlog("a2pid: Create keyboard input device\n"); + kbdfd = open("/dev/uinput", O_WRONLY | O_NONBLOCK); + if (kbdfd < 0) + die("error: uinput open"); + if (ioctl(kbdfd, UI_SET_EVBIT, EV_KEY) < 0) + die("error: uinput ioctl EV_KEY"); + if (ioctl(kbdfd, UI_SET_EVBIT, EV_REP) < 0) + die("error: uinput ioctl EV_REP"); + for (i = KEY_ESC; i <= KEY_F10; i++) + if (ioctl(kbdfd, UI_SET_KEYBIT, i) < 0) + die("error: uinput ioctl SET_KEYBITs"); + for (i = KEY_HOME; i <= KEY_DELETE; i++) + if (ioctl(kbdfd, UI_SET_KEYBIT, i) < 0) + die("error: uinput ioctl SET_KEYBITs"); + if (ioctl(kbdfd, UI_SET_EVBIT, EV_SYN) < 0) + die("error: ioctl EV_SYN"); + bzero(&uidev, sizeof(uidev)); + snprintf(uidev.name, UINPUT_MAX_NAME_SIZE, "Apple2 Pi Keyboard"); + uidev.id.bustype = BUS_RS232; + uidev.id.vendor = 0x05ac; /* apple */ + uidev.id.product = 0x2e; + uidev.id.version = 1; + write(kbdfd, &uidev, sizeof(uidev)); + if (ioctl(kbdfd, UI_DEV_CREATE) < 0) + die("error: ioctl DEV_CREATE"); + /* + * Set repeat delay values that make sense. + */ + bzero(&evkey, sizeof(evkey)); + evkey.type = EV_REP; + evkey.code = REP_DELAY; + evkey.value = 500; /* 0.5 sec delay */ + if (write(kbdfd, &evkey, sizeof(evkey)) < 0) + die("error: REP_DELAY"); + evkey.type = EV_REP; + evkey.code = REP_PERIOD; + evkey.value = 67; /* 15 reps/sec */ + if (write(kbdfd, &evkey, sizeof(evkey)) < 0) + die("error: REP_PERIOD"); + /* + * Create mouse input device + */ + prlog("a2pid: Create mouse input device\n"); + moufd = open("/dev/uinput", O_WRONLY | O_NONBLOCK); + if (moufd < 0) + die("error: uinput open"); + if (ioctl(moufd, UI_SET_EVBIT, EV_KEY) < 0) + die("error: uinput ioctl EV_KEY"); + if (ioctl(moufd, UI_SET_KEYBIT, BTN_LEFT) < 0) + die("error: uinput ioctl BTN_LEFT"); + if (ioctl(moufd, UI_SET_KEYBIT, BTN_RIGHT) < 0) + die("error: uinput ioctl BTN_RIGHT"); + if (ioctl(moufd, UI_SET_KEYBIT, BTN_MIDDLE) < 0) + die("error: uinput ioctl BTN_MIDDLE"); + if (ioctl(moufd, UI_SET_EVBIT, EV_REL) < 0) + die("error: ioctl EV_REL"); + if (ioctl(moufd, UI_SET_RELBIT, REL_X) < 0) + die("error: ioctl REL_X"); + if (ioctl(moufd, UI_SET_RELBIT, REL_Y) < 0) + die("error: ioctl REL_Y"); + if (ioctl(moufd, UI_SET_EVBIT, EV_SYN) < 0) + die("error: ioctl EV_SYN"); + bzero(&uidev, sizeof(uidev)); + snprintf(uidev.name, UINPUT_MAX_NAME_SIZE, "Apple2 Pi Mouse"); + uidev.id.bustype = BUS_RS232; + uidev.id.vendor = 0x05ac; /* apple */ + uidev.id.product = 0x2e; + uidev.id.version = 1; + write(moufd, &uidev, sizeof(uidev)); + if (ioctl(moufd, UI_DEV_CREATE) < 0) + die("error: ioctl DEV_CREATE"); + /* + * Initialize event structures. + */ + bzero(&evkey, sizeof(evkey)); + bzero(&evsync, sizeof(evsync)); + bzero(&evrelx, sizeof(evrelx)); + bzero(&evrely, sizeof(evrely)); + evkey.type = EV_KEY; + evrelx.type = EV_REL; + evrelx.code = REL_X; + evrely.type = EV_REL; + evrely.code = REL_Y; + evsync.type = EV_SYN; + /* + * Open serial port. + */ + prlog("a2pid: Open serial port\n"); + a2fd = open(devtty, O_RDWR | O_NOCTTY); + if (a2fd < 0) + die("error: serial port open"); + tcflush(a2fd, TCIFLUSH); + tcgetattr(a2fd, &oldtio); /* save current port settings */ + bzero(&newtio, sizeof(newtio)); + newtio.c_cflag = BAUDRATE /*| CRTSCTS*/ | CS8 | CLOCAL | CREAD; + newtio.c_iflag = IGNPAR; + newtio.c_oflag = 0; + newtio.c_lflag = 0; /* set input mode (non-canonical, no echo,...) */ + newtio.c_cc[VTIME] = 0; /* inter-character timer unused */ + newtio.c_cc[VMIN] = 1; /* blocking read until 1 char received */ + tcsetattr(a2fd, TCSANOW, &newtio); + prlog("a2pid: Waiting...\n"); + iopkt[0] = 0x80; /* request re-sync if Apple II already running */ + write(a2fd, iopkt, 1); + if (read(a2fd, iopkt, 1) == 1) + { + if (iopkt[0] == 0x80) /* receive sync */ + { + prlog("a2pid: Connected.\n"); + iopkt[0] = 0x81; /* acknowledge */ + write(a2fd, iopkt, 1); + tcflush(a2fd, TCIFLUSH); + } + else if (iopkt[0] == 0x9F) /* bad request from Apple II */ + { + prlog("a2pi: Bad Connect Request.\n"); + tcflush(a2fd, TCIFLUSH); + } + else + { + prlog("a2pi: Bad Sync ACK\n"); + state = RESET; + } + } + newtio.c_cc[VMIN] = 3; /* blocking read until 3 chars received */ + tcsetattr(a2fd, TCSANOW, &newtio); + /* + * Open socket. + */ + prlog("a2pid: Open server socket\n"); + bzero(&servaddr, sizeof(servaddr)); + servaddr.sin_family = AF_INET; + servaddr.sin_port = htons(6502); + servaddr.sin_addr.s_addr = htonl(INADDR_ANY); + srvfd = socket(PF_INET, SOCK_STREAM, IPPROTO_TCP); + if (srvfd < 0) + die("error: socket create"); + if (bind(srvfd,(struct sockaddr *)&servaddr, sizeof(servaddr)) < 0) + die("error: bind socket"); + if (listen(srvfd, 1) < 0) + die("error: listen socket"); + /* + * Come basck here on RESET. + */ +reset: + state = RUN; + reqfd = 0; + FD_ZERO(&openset); + FD_SET(a2fd, &openset); + FD_SET(srvfd, &openset); + maxfd = a2fd > srvfd ? a2fd : srvfd; + /* + * Event loop + */ + prlog("a2pid: Enter event loop\n"); + while (state == RUN) + { + memcpy(&readset, &openset, sizeof(openset)); + if (select(maxfd + 1, &readset, NULL, NULL, NULL) > 0) + { + /* + * Serial port to Apple II transaction. + */ + if (FD_ISSET(a2fd, &readset)) + { + if (read(a2fd, iopkt, 3) == 3) + { + // printf("a2pi: Event [0x%02X] [0x%02X] [0x%02X]\n", iopkt[0], iopkt[1], iopkt[2]); + switch (iopkt[0]) + { + case 0x80: /* sync */ + prlog("a2pid: Re-Connected.\n"); + iopkt[0] = 0x81; /* acknowledge */ + write(a2fd, iopkt, 1); + tcflush(a2fd, TCIFLUSH); + flushreqs(a2fd, -1, -1); + break; + case 0x82: /* keyboard event */ + // printf("Keyboard Event: 0x%02X:%c\n", iopkt[1], iopkt[2] & 0x7F); + sendkey(kbdfd, iopkt[1], iopkt[2]); + if (iopkt[2] == 0x9B && iopkt[1] == 0xC0) + state = STOP; + break; + case 0x84: /* mouse move event */ + // printf("Mouse XY Event: %d,%d\n", (signed char)iopkt[1], (signed char)iopkt[2]); + sendrelxy(moufd, (signed char)iopkt[1], (signed char)iopkt[2]); + break; + case 0x86: /* mouse button event */ + // printf("Mouse Button %s Event 0x%02X\n", iopkt[2] ? "[PRESS]" : "[RELEASE]", iopkt[1]); + sendbttn(moufd, iopkt[1], iopkt[2]); + break; + case 0x90: /* acknowledge read bytes request*/ + if (a2reqlist) /* better have an outstanding request */ + { + //printf("a2pid: read %d of %d bytes from 0x%04X\n", a2reqlist->xfer, a2reqlist->count, a2reqlist->addr); + newtio.c_cc[VMIN] = 1; /* blocking read until 1 char received */ + tcsetattr(a2fd, TCSANOW, &newtio); + c = a2reqlist->count - a2reqlist->xfer > MAX_XFER + ? MAX_XFER + : a2reqlist->count - a2reqlist->xfer; + if (writeword(a2fd, a2reqlist->addr + a2reqlist->xfer, 0x91) && writeword(a2fd, c, 0x91)) + { + for (i = 0; i < c; i++) + { + if (read(a2fd, iopkt, 1) == 1) + a2reqlist->buffer[a2reqlist->xfer++] = iopkt[0]; + else + { + state = RESET; + break; + } + } + } + else + state = RESET; + newtio.c_cc[VMIN] = 3; /* blocking read until 3 chars received */ + tcsetattr(a2fd, TCSANOW, &newtio); + } + else + state = RESET; + break; + case 0x92: /* acknowledge write bytes */ + if (a2reqlist) /* better have an outstanding request */ + { + //printf("a2pid: wrote %d of %d bytes to 0x%04X\n", a2reqlist->xfer, a2reqlist->count, a2reqlist->addr); + newtio.c_cc[VMIN] = 1; /* blocking read until 1 char received */ + tcsetattr(a2fd, TCSANOW, &newtio); + c = a2reqlist->count - a2reqlist->xfer > MAX_XFER + ? MAX_XFER + : a2reqlist->count - a2reqlist->xfer; + if (writeword(a2fd, a2reqlist->addr + a2reqlist->xfer, 0x93) && writeword(a2fd, c, 0x93)) + { + if (write(a2fd, a2reqlist->buffer + a2reqlist->xfer, c) == c) + a2reqlist->xfer += c; + else + state = RESET; + } + else + state = RESET; + newtio.c_cc[VMIN] = 3; /* blocking read until 3 chars received */ + tcsetattr(a2fd, TCSANOW, &newtio); + } + else + state = RESET; + break; + case 0x94: /* acknowledge call */ + if (a2reqlist) /* better have an outstanding request */ + { + //printf("a2pid: call address 0x%04X\n", a2reqlist->addr); + newtio.c_cc[VMIN] = 1; /* blocking read until 1 char received */ + tcsetattr(a2fd, TCSANOW, &newtio); + if (!writeword(a2fd, a2reqlist->addr, 0x95)) + state = RESET; + newtio.c_cc[VMIN] = 3; /* blocking read until 3 chars received */ + tcsetattr(a2fd, TCSANOW, &newtio); + } + else + state = RESET; + break; + case 0x9E: /* request complete ok */ + case 0x9F: /* request complete error */ + if (a2reqlist) /* better have an outstanding request */ + { + //printf("a2pid: complete request 0x%02X:0x%02X\n", (unsigned char)iopkt[0], (unsigned char)iopkt[1]); + if ((a2reqlist->type == 0x90 || a2reqlist->type == 0x92) + && (a2reqlist->count > a2reqlist->xfer)) + { + iopkt[0] = a2reqlist->type; + write(a2fd, iopkt, 1); + } + else + { + //printf("a2pid: finish request 0x%02X:0x%02X\n", (unsigned char)iopkt[0], (unsigned char)iopkt[1]); + finreq(a2fd, (unsigned char)iopkt[0], (unsigned char)iopkt[1]); + } + } + else + state = RESET; + break; + default: + prlog("a2pid: Unknown Event\n"); + tcflush(a2fd, TCIFLUSH); + //stop = TRUE; + } + } + else + { + prlog("a2pid: error read serial port ????\n"); + state = RESET; + } + } + /* + * Socket server connection. + */ + if (FD_ISSET(srvfd, &readset)) + { + reqfd = accept(srvfd, NULL, NULL); + if (reqfd > 0) + FD_SET(reqfd, &openset); + else + prlog("a2pid: error accept"); + maxfd = reqfd > maxfd ? reqfd : maxfd; + prlog("a2pi: Client Connect\n"); + } + /* + * Socket client request. + */ + if (reqfd > 0 && FD_ISSET(reqfd, &readset)) + { + int addr, count; + char *databuf; + if (read(reqfd, iopkt, 1) == 1) + { + // printf("a2pi: Request [0x%02X]\n", iopkt[0]); + switch (iopkt[0]) + { + case 0x90: /* read bytes */ + if (read(reqfd, iopkt, 4) == 4) + { + addr = (unsigned char)iopkt[0] | ((unsigned char)iopkt[1] << 8); + count = (unsigned char)iopkt[2] | ((unsigned char)iopkt[3] << 8); + if (count) + { + databuf = malloc(count); + addreq(a2fd, reqfd, 0x90, addr, count, databuf); + } + else + { + iopkt[0] = 0x9E; + iopkt[1] = 0x00; + write(reqfd, iopkt, 2); + } + } + break; + case 0x92: /* write bytes */ + if (read(reqfd, iopkt, 4) == 4) + { + addr = (unsigned char)iopkt[0] | ((unsigned char)iopkt[1] << 8); + count = (unsigned char)iopkt[2] | ((unsigned char)iopkt[3] << 8); + if (count) + { + databuf = malloc(count); + if (read(reqfd, databuf, count) == count) + addreq(a2fd, reqfd, 0x92, addr, count, databuf); + } + else + { + iopkt[0] = 0x9E; + iopkt[1] = 0x00; + write(reqfd, iopkt, 2); + } + } + break; + case 0x94: /* call */ + if (read(reqfd, iopkt, 2) == 2) + { + addr = (unsigned char)iopkt[0] | ((unsigned char)iopkt[1] << 8); + addreq(a2fd, reqfd, 0x94, addr, 0, NULL); + } + break; + case 0xFF: /* close */ + FD_CLR(reqfd, &openset); + close(reqfd); + reqfd = 0; + maxfd = a2fd > srvfd ? a2fd : srvfd; + break; + default: + prlog("a2pid: Unknown Request\n"); + } + } + else + { + prlog("a2pid: error read socket ????"); + state = RESET; + } + } + } + } + flushreqs(a2fd, -1, -1); + if (reqfd > 0) + close(reqfd); + if (state == RESET) + goto reset; + shutdown(srvfd, SHUT_RDWR); + close(srvfd); + tcsetattr(a2fd, TCSANOW, &oldtio); + tcflush(a2fd, TCIFLUSH); + close(a2fd); + ioctl(moufd, UI_DEV_DESTROY); + ioctl(kbdfd, UI_DEV_DESTROY); + close(moufd); + close(kbdfd); } diff --git a/src/bload.c b/src/bload.c index bbf228c..693517b 100755 --- a/src/bload.c +++ b/src/bload.c @@ -41,6 +41,7 @@ int main(int argc, char **argv) if (addr + len > MAXSIZE) len = MAXSIZE - addr; memptr = membuff; + printf("Loading"); while (len) { printf("."); diff --git a/src/brun.c b/src/brun.c index 4d46f93..93befe1 100755 --- a/src/brun.c +++ b/src/brun.c @@ -60,7 +60,7 @@ int main(int argc, char **argv) len = 0; } } - printf("\nCalling Apple II..."); + printf("\nRunning..."); fflush(stdout); a2call(pifd, entry, &result); a2close(pifd);