msl-timings.c

Go to the documentation of this file.

#include "msl-timings.h"
#include "msl-comments.h"
 
#define MSL_STATES_INCLUDED_BY_MSL_TIMINGS
#include "msl-states.c"
#undef MSL_STATES_INCLUDED_BY_MSL_TIMINGS
 
 
struct msl_timing_state msl_timings[0xff] = {
    /* 00 */ {state_00},
    /* 01 */ { },
    /* 02 */ {state_02},   /* channel-2 OUTPUT data transfer (printer) */
    /* 03 */ {state_02},   /* 02|03 share the chart per the flow sheet */
    /* 04 */ { },
    /* 05 */ { },
    /* 06 */ { },
    /* 07 */ { },
    /* 08 */ {state_08},
    /* 09 */ { },
    /* 0a */ { },
    /* 0b */ { },
    /* 0c */ {state_0c},   /* channel-2 INPUT data transfer (integrated reader) */
    /* 0d */ { },
    /* 0e */ {state_0c},   /* 0c|0e share the chart per the flow sheet */
    /* 0f */ { },
    /* 10 */ { },
    /* 11 */ { },
    /* 12 */ { },
    /* 13 */ { },
    /* 14 */ { },
    /* 15 */ { },
    /* 16 */ { },
    /* 17 */ { },
    /* 18 */ { },
    /* 19 */ { },
    /* 1a */ { },
    /* 1b */ { },
    /* 1c */ { },
    /* 1d */ { },
    /* 1e */ { },
    /* 1f */ { },
    /* 20 */ { },
    /* 21 */ { },
    /* 22 */ { },
    /* 23 */ { },
    /* 24 */ { },
    /* 25 */ { },
    /* 26 */ { },
    /* 27 */ { },
    /* 28 */ { },
    /* 29 */ { },
    /* 2a */ { },
    /* 2b */ { },
    /* 2c */ { },
    /* 2d */ { },
    /* 2e */ { },
    /* 2f */ { },
    /* 30 */ { },
    /* 31 */ { },
    /* 32 */ { },
    /* 33 */ { },
    /* 34 */ { },
    /* 35 */ { },
    /* 36 */ { },
    /* 37 */ { },
    /* 38 */ { },
    /* 39 */ { },
    /* 3a */ { },
    /* 3b */ { },
    /* 3c */ { },
    /* 3d */ { },
    /* 3e */ { },
    /* 3f */ { },
    /* 40 */ { },
    /* 41 */ { },
    /* 42 */ { },
    /* 43 */ { },
    /* 44 */ { },
    /* 45 */ { },
    /* 46 */ { },
    /* 47 */ { },
    /* 48 */ { },
    /* 49 */ { },
    /* 4a */ { },
    /* 4b */ { },
    /* 4c */ { },
    /* 4d */ { },
    /* 4e */ { },
    /* 4f */ { },
    /* 50 */ { },
    /* 51 */ { },
    /* 52 */ { },
    /* 53 */ { },
    /* 54 */ { },
    /* 55 */ { },
    /* 56 */ { },
    /* 57 */ { },
    /* 58 */ { },
    /* 59 */ { },
    /* 5a */ { },
    /* 5b */ { },
    /* 5c */ { },
    /* 5d */ { },
    /* 5e */ { },
    /* 5f */ { },
    /* 60 */ { },
    /* 61 */ { },
    /* 62 */ { },
    /* 63 */ { },
    /* 64 */ {state_64_65},
    /* 65 */ {state_64_65},
    /* 66 */ {state_64_65},  /* CMI (compare-logical-immediate) beta; same chart */
    /* 67 */ { },
    /* 68 */ { },
    /* 69 */ { },
    /* 6a */ { },
    /* 6b */ { },
    /* 6c */ { },
    /* 6d */ { },
    /* 6e */ { },
    /* 6f */ { },
    /* 70 */ { },
    /* 71 */ { },
    /* 72 */ { },
    /* 73 */ { },
    /* 74 */ { },
    /* 75 */ { },
    /* 76 */ { },
    /* 77 */ { },
    /* 78 */ { },
    /* 79 */ { },
    /* 7a */ { },
    /* 7b */ { },
    /* 7c */ { },
    /* 7d */ { },
    /* 7e */ { },
    /* 7f */ { },
    /* 80 */ {state_80},
    /* 81 */ { },
    /* 82 */ { },
    /* 83 */ { },
    /* 84 */ { },
    /* 85 */ { },
    /* 86 */ { },
    /* 87 */ { },
    /* 88 */ { },
    /* 89 */ { },
    /* 8a */ { },
    /* 8b */ { },
    /* 8c */ { },
    /* 8d */ { },
    /* 8e */ { },
    /* 8f */ { },
    /* 90 */ { },
    /* 91 */ { },
    /* 92 */ { },
    /* 93 */ { },
    /* 94 */ { },
    /* 95 */ { },
    /* 96 */ { },
    /* 97 */ { },
    /* 98 */ { },
    /* 99 */ { },
    /* 9a */ { },
    /* 9b */ { },
    /* 9c */ { },
    /* 9d */ { },
    /* 9e */ { },
    /* 9f */ { },
    /* a0 */ { },
    /* a1 */ { },
    /* a2 */ { },
    /* a3 */ { },
    /* a4 */ { },
    /* a5 */ { },
    /* a6 */ { },
    /* a7 */ { },
    /* a8 */ {state_a8},
    /* a9 */ {state_a9},
    /* aa */ {state_aa},
    /* ab */ {state_ab},
    /* ac */ { },
    /* ad */ { },
    /* ae */ { },
    /* af */ { },
    /* b0 */ { },
    /* b1 */ {state_b1},
    /* b2 */ { },
    /* b3 */ { },
    /* b4 */ { },
    /* b5 */ { },
    /* b6 */ { },
    /* b7 */ { },
    /* b8 */ {state_b8},
    /* b9 */ {state_b9},
    /* ba */ { },
    /* bb */ { },
    /* bc */ { },
    /* bd */ { },
    /* be */ { },
    /* bf */ { },
    /* c0 */ {state_C0},  /* LPSR: load PO high (interrupt restore)  */
    /* c1 */ {state_C1},  /* LPSR: load PO low -> alpha               */
    /* c2 */ {state_C2},  /* LPSR: load status byte (from D1 interrupt)*/
    /* c3 */ {state_C3},  /* LPSR: skip the zero byte                 */
    /* c4 */ { },
    /* c5 */ { },
    /* c6 */ { },
    /* c7 */ { },
    /* c8 */ {state_c8},
    /* c9 */ { },
    /* ca */ {state_ca},
    /* cb */ { },
    /* cc */ {state_cc},
    /* cd */ { },
    /* ce */ { },
    /* cf */ { },
    /* d0 */ {state_D0},  /* interrupt save: PO high  */
    /* d1 */ {state_D1},  /* interrupt save: PO low   */
    /* d2 */ {state_D2},  /* interrupt save: status   */
    /* d3 */ {state_D3},  /* interrupt save: zero byte*/
    /* d4 */ { },
    /* d5 */ { },
    /* d6 */ { },
    /* d7 */ { },
    /* d8 */ {state_d8},
    /* d9 */ {state_d9},
    /* da */ {state_da},
    /* db */ {state_db},
    /* dc */ {state_dc},
    /* dd */ { },
    /* de */ { },
    /* df */ { },
    /* e0 */ {state_E0},
    /* e1 */ { },
    /* e2 */ {state_E2_E3},
    /* e3 */ {state_E2_E3},
    /* e4 */ {state_E4},
    /* e5 */ {state_E5},
    /* e6 */ {state_E6},
    /* e7 */ {state_E7},
    /* e8 */ { },
    /* e9 */ { },
    /* ea */ {state_ea},
    /* eb */ {state_eb},
    /* ec */ {state_ED_EC},  /* modified-address indexing: EA = chgreg[N]+disp  */
    /* ed */ {state_ED_EC},
    /* ee */ {state_EF_EE},  /* indexing done: route to op2 / SS exec / beta    */
    /* ef */ {state_EF_EE},
    /* f0 */ {state_F0},  /* interruption entry (from alpha INTE) */
    /* f1 */ { },
    /* f2 */ { },
    /* f3 */ { },
    /* f4 */ { },
    /* f5 */ { },
    /* f6 */ { },
    /* f7 */ { },
    /* f8 */ { },
    /* f9 */ { },
    /* fa */ { },
    /* fb */ { },
    /* fc */ { },
    /* fd */ { },
    /* fe */ { },
};
 
struct msl_command_comment {
    msl_command_cb command;
    const char * comment;
};
 
struct msl_command_comment comments[] = {
#define X(command , comment) { command , #command " - " comment },
    ENUMERATE_COMMANDS_COMMENTS
#undef X
};
 
const char *msl_comment_for_command(msl_command_cb command) {
    for (int i = 0; i < sizeof(comments)/sizeof(struct msl_command_comment); i++) {
        if (comments[i].command == command) {
            return comments[i].comment;
        }
    }
    return "[no comment]";
}