1: //========================================================================================
     2: //  MC68901.java
     3: //    en:MFP -- Multi-Function Peripheral
     4: //    ja:MFP -- マルチファンクションペリフェラル
     5: //  Copyright (C) 2003-2022 Makoto Kamada
     6: //
     7: //  This file is part of the XEiJ (X68000 Emulator in Java).
     8: //  You can use, modify and redistribute the XEiJ if the conditions are met.
     9: //  Read the XEiJ License for more details.
    10: //  https://stdkmd.net/xeij/
    11: //========================================================================================
    12: 
    13: package xeij;
    14: 
    15: import java.lang.*;  //Boolean,Character,Class,Comparable,Double,Exception,Float,IllegalArgumentException,Integer,Long,Math,Number,Object,Runnable,SecurityException,String,StringBuilder,System
    16: 
    17: public class MC68901 {
    18: 
    19:   public static final boolean MFP_DELAYED_INTERRUPT = true;  //true=MFPの割り込み要求を1命令遅延させる
    20: 
    21:   //レジスタ
    22:   public static final int MFP_GPIP_DATA = 0x00e88001;  //GPIPデータレジスタ
    23:   public static final int MFP_AER       = 0x00e88003;  //アクティブエッジレジスタ。各ビット0=1→0,1=0→1
    24:   public static final int MFP_DDR       = 0x00e88005;  //データディレクションレジスタ。各ビット0=入力,1=出力。全ビット入力なので0x00に固定
    25:   public static final int MFP_IERA      = 0x00e88007;  //割り込みイネーブルレジスタA。各ビット0=ディセーブル,1=イネーブル
    26:   public static final int MFP_IERB      = 0x00e88009;  //割り込みイネーブルレジスタB。各ビット0=ディセーブル,1=イネーブル
    27:   public static final int MFP_IPRA      = 0x00e8800b;  //割り込みペンディングレジスタA
    28:   public static final int MFP_IPRB      = 0x00e8800d;  //割り込みペンディングレジスタB
    29:   public static final int MFP_ISRA      = 0x00e8800f;  //割り込みインサービスレジスタA
    30:   public static final int MFP_ISRB      = 0x00e88011;  //割り込みインサービスレジスタB
    31:   public static final int MFP_IMRA      = 0x00e88013;  //割り込みマスクレジスタA
    32:   public static final int MFP_IMRB      = 0x00e88015;  //割り込みマスクレジスタB
    33:   public static final int MFP_VECTOR    = 0x00e88017;  //ベクタレジスタ
    34:   public static final int MFP_TACR      = 0x00e88019;  //タイマAコントロールレジスタ
    35:   public static final int MFP_TBCR      = 0x00e8801b;  //タイマBコントロールレジスタ
    36:   public static final int MFP_TCDCR     = 0x00e8801d;  //タイマC,Dコントロールレジスタ
    37:   //  タイマのカウンタに$00を書き込んで1/200プリスケールで開始したとき、カウンタから読み出される値は最初の50μs間は$00、次の50μs間は$FF
    38:   public static final int MFP_TADR      = 0x00e8801f;  //タイマAデータレジスタ
    39:   public static final int MFP_TBDR      = 0x00e88021;  //タイマBデータレジスタ
    40:   public static final int MFP_TCDR      = 0x00e88023;  //タイマCデータレジスタ
    41:   public static final int MFP_TDDR      = 0x00e88025;  //タイマDデータレジスタ
    42:   public static final int MFP_SYNC_CHAR = 0x00e88027;  //同期キャラクタレジスタ
    43:   public static final int MFP_UCR       = 0x00e88029;  //USARTコントロールレジスタ
    44:   public static final int MFP_RSR       = 0x00e8802b;  //受信ステータスレジスタ
    45:   public static final int MFP_TSR       = 0x00e8802d;  //送信ステータスレジスタ
    46:   public static final int MFP_UDR       = 0x00e8802f;  //USARTデータレジスタ
    47: 
    48:   //GPIP
    49:   //  GPIP7 H-SYNC
    50:   //    1  水平帰線期間
    51:   //    0  水平表示期間(水平バックポーチ／水平映像期間／水平フロントポーチ)
    52:   //  GPIP6 CRTC IRQ
    53:   //    0  指定されたラスタ
    54:   //    1  その他のラスタ
    55:   //    遷移は直前の水平フロントポーチの開始位置付近、V-DISPも遷移するときはその直前
    56:   //    0番は垂直帰線期間の最初のラスタ
    57:   //      CRTC R06+1==CRTC R09のとき、指定されたラスタの開始(CRTC IRQ 1→0)と垂直映像期間の開始(V-DISP 0→1)が同じラスタになる
    58:   //  GPIP5
    59:   //    RTCのCLKOUT(1Hz)が接続されることになっていたが欠番になった
    60:   //  GPIP4 V-DISP
    61:   //    1  垂直映像期間
    62:   //    0  垂直フロントポーチ／垂直帰線期間／垂直バックポーチ
    63:   //    遷移は直前の水平フロントポーチの開始位置付近
    64:   public static final int MFP_GPIP_ALARM_LEVEL  = 0;  //0=ALARMによる電源ON
    65:   public static final int MFP_GPIP_EXPWON_LEVEL = 1;  //0=EXPWONによる電源ON
    66:   public static final int MFP_GPIP_POWER_LEVEL  = 2;  //0=POWERスイッチON
    67:   public static final int MFP_GPIP_OPMIRQ_LEVEL = 3;  //0=OPM割り込み要求あり
    68:   public static final int MFP_GPIP_VDISP_LEVEL  = 4;  //1=垂直映像期間,0=それ以外
    69:   public static final int MFP_GPIP_RINT_LEVEL   = 6;  //0=指定されたラスタ,1=それ以外
    70:   public static final int MFP_GPIP_HSYNC_LEVEL  = 7;  //0=水平表示期間,1=水平帰線期間
    71: 
    72:   //GPIPマスク
    73:   public static final int MFP_GPIP_ALARM_MASK  = 1 << MFP_GPIP_ALARM_LEVEL;
    74:   public static final int MFP_GPIP_EXPWON_MASK = 1 << MFP_GPIP_EXPWON_LEVEL;
    75:   public static final int MFP_GPIP_POWER_MASK  = 1 << MFP_GPIP_POWER_LEVEL;
    76:   public static final int MFP_GPIP_OPMIRQ_MASK = 1 << MFP_GPIP_OPMIRQ_LEVEL;
    77:   public static final int MFP_GPIP_VDISP_MASK  = 1 << MFP_GPIP_VDISP_LEVEL;
    78:   public static final int MFP_GPIP_RINT_MASK   = 1 << MFP_GPIP_RINT_LEVEL;
    79:   public static final int MFP_GPIP_HSYNC_MASK  = 1 << MFP_GPIP_HSYNC_LEVEL;
    80: 
    81:   //割り込みレベル
    82:   public static final int MFP_ALARM_LEVEL        =  0;  //40:MFP B0 GPIP0 RTC ALARM
    83:   public static final int MFP_EXPWON_LEVEL       =  1;  //41:MFP B1 GPIP1 EXPWON
    84:   public static final int MFP_POWER_LEVEL        =  2;  //42:MFP B2 GPIP2 POWER
    85:   public static final int MFP_OPMIRQ_LEVEL       =  3;  //43:MFP B3 GPIP3 FM音源
    86:   public static final int MFP_TIMER_D_LEVEL      =  4;  //44:MFP B4 Timer-D バックグラウンドスレッド
    87:   public static final int MFP_TIMER_C_LEVEL      =  5;  //45:MFP B5 Timer-C マウス処理,テキストカーソル,FDDモーターOFF,稼働時間計測
    88:   public static final int MFP_VDISP_LEVEL        =  6;  //46:MFP B6 GPIP4 V-DISP
    89:   public static final int MFP_TIMER_B_LEVEL      =  8;  //48:MFP A0 Timer-B キーボードシリアルクロック
    90:   public static final int MFP_OUTPUT_ERROR_LEVEL =  9;  //49:MFP A1 キーボードシリアル出力エラー
    91:   public static final int MFP_OUTPUT_EMPTY_LEVEL = 10;  //4A:MFP A2 キーボードシリアル出力空
    92:   public static final int MFP_INPUT_ERROR_LEVEL  = 11;  //4B:MFP A3 キーボードシリアル入力エラー
    93:   public static final int MFP_INPUT_FULL_LEVEL   = 12;  //4C:MFP A4 キーボードシリアル入力あり
    94:   public static final int MFP_TIMER_A_LEVEL      = 13;  //4D:MFP A5 Timer-A(V-DISPイベントカウント)
    95:   public static final int MFP_RINT_LEVEL         = 14;  //4E:MFP A6 GPIP6 CRTC IRQ
    96:   public static final int MFP_HSYNC_LEVEL        = 15;  //4F:MFP A7 GPIP7 H-SYNC
    97: 
    98:   //割り込みマスク
    99:   public static final int MFP_ALARM_MASK        = 1 << MFP_ALARM_LEVEL;
   100:   public static final int MFP_EXPWON_MASK       = 1 << MFP_EXPWON_LEVEL;
   101:   public static final int MFP_POWER_MASK        = 1 << MFP_POWER_LEVEL;
   102:   public static final int MFP_OPMIRQ_MASK       = 1 << MFP_OPMIRQ_LEVEL;
   103:   public static final int MFP_TIMER_D_MASK      = 1 << MFP_TIMER_D_LEVEL;
   104:   public static final int MFP_TIMER_C_MASK      = 1 << MFP_TIMER_C_LEVEL;
   105:   public static final int MFP_VDISP_MASK        = 1 << MFP_VDISP_LEVEL;
   106:   public static final int MFP_TIMER_B_MASK      = 1 << MFP_TIMER_B_LEVEL;
   107:   public static final int MFP_OUTPUT_ERROR_MASK = 1 << MFP_OUTPUT_ERROR_LEVEL;
   108:   public static final int MFP_OUTPUT_EMPTY_MASK = 1 << MFP_OUTPUT_EMPTY_LEVEL;
   109:   public static final int MFP_INPUT_ERROR_MASK  = 1 << MFP_INPUT_ERROR_LEVEL;
   110:   public static final int MFP_INPUT_FULL_MASK   = 1 << MFP_INPUT_FULL_LEVEL;
   111:   public static final int MFP_TIMER_A_MASK      = 1 << MFP_TIMER_A_LEVEL;
   112:   public static final int MFP_RINT_MASK         = 1 << MFP_RINT_LEVEL;
   113:   public static final int MFP_HSYNC_MASK        = 1 << MFP_HSYNC_LEVEL;
   114: 
   115:   public static final long MFP_OSC_FREQ = 4000000L;  //MFPのオシレータの周波数
   116: 
   117:   //タイマのプリスケール
   118:   public static final long MFP_DELTA[] = {
   119:     XEiJ.FAR_FUTURE,                     //0:カウント禁止
   120:     4 * XEiJ.TMR_FREQ / MFP_OSC_FREQ,    //1:1/4プリスケール(1μs)
   121:     10 * XEiJ.TMR_FREQ / MFP_OSC_FREQ,   //2:1/10プリスケール(2.5μs)
   122:     16 * XEiJ.TMR_FREQ / MFP_OSC_FREQ,   //3:1/16プリスケール(4μs)
   123:     50 * XEiJ.TMR_FREQ / MFP_OSC_FREQ,   //4:1/50プリスケール(12.5μs)
   124:     64 * XEiJ.TMR_FREQ / MFP_OSC_FREQ,   //5:1/64プリスケール(16μs)
   125:     100 * XEiJ.TMR_FREQ / MFP_OSC_FREQ,  //6:1/100プリスケール(25μs)
   126:     200 * XEiJ.TMR_FREQ / MFP_OSC_FREQ,  //7:1/200プリスケール(50μs)
   127:   };
   128: 
   129:   //MFP_UDRの入力データのキュー
   130:   public static final int MFP_UDR_QUEUE_BITS = 4;  //キューの長さのビット数
   131:   public static final int MFP_UDR_QUEUE_SIZE = 1 << MFP_UDR_QUEUE_BITS;  //キューの長さ
   132:   public static final int MFP_UDR_QUEUE_MASK = MFP_UDR_QUEUE_SIZE - 1;  //キューの長さのマスク
   133: 
   134:   //GPIPデータレジスタ
   135:   //  値は0または該当するビットのマスク
   136:   //  ゼロ拡張
   137:   public static int mfpGpipAlarm;  //0またはMFP_GPIP_ALARM_MASK
   138:   public static int mfpGpipExpwon;  //0またはMFP_GPIP_EXPWON_MASK
   139:   public static int mfpGpipPower;  //0またはMFP_GPIP_POWER_MASK
   140:   public static int mfpGpipOpmirq;  //0またはMFP_GPIP_OPMIRQ_MASK
   141:   public static int mfpGpipVdisp;  //0またはMFP_GPIP_VDISP_MASK
   142:   public static int mfpGpipRint;  //0またはMFP_GPIP_RINT_MASK
   143:   public static int mfpGpipHsync;  //0またはMFP_GPIP_HSYNC_MASK
   144: 
   145:   //レジスタ
   146:   //  ゼロ拡張
   147:   public static int mfpAer;  //アクティブエッジレジスタ
   148:   public static int mfpIer;  //割り込みイネーブルレジスタ(上位バイトがMFP_IERA、下位バイトがMFP_IERB)
   149:   public static int mfpImr;  //割り込みマスクレジスタ(上位バイトがMFP_IMRA、下位バイトがMFP_IMRB)
   150:   public static int mfpVectorHigh;  //ベクタレジスタのビット7～4
   151:   public static int mfpTaPrescale;  //タイマAのプリスケール(0～7、0はカウント禁止)
   152:   public static int mfpTbPrescale;  //タイマBのプリスケール(0～7、0はカウント禁止)
   153:   public static int mfpTcPrescale;  //タイマCのプリスケール(0～7、0はカウント禁止)
   154:   public static int mfpTdPrescale;  //タイマDのプリスケール(0～7、0はカウント禁止)
   155:   public static boolean mfpTaEventcount;  //タイマAイベントカウントモード
   156:   public static boolean mfpTbEventcount;  //タイマBイベントカウントモード
   157:   public static int mfpTaInitial;  //タイマAの初期値(1～256)
   158:   public static int mfpTbInitial;  //タイマBの初期値(1～256)
   159:   public static int mfpTcInitial;  //タイマCの初期値(1～256)
   160:   public static int mfpTdInitial;  //タイマDの初期値(1～256)
   161:   public static int mfpTaCurrent;  //タイマAの現在の値(1～256、イベントカウントモードのときとディレイモードでカウンタが停止しているときだけ有効)
   162:   public static int mfpTbCurrent;  //タイマBの現在の値(1～256、イベントカウントモードのときとディレイモードでカウンタが停止しているときだけ有効)
   163:   public static int mfpTcCurrent;  //タイマCの現在の値(1～256、イベントカウントモードのときとディレイモードでカウンタが停止しているときだけ有効)
   164:   public static int mfpTdCurrent;  //タイマDの現在の値(1～256、イベントカウントモードのときとディレイモードでカウンタが停止しているときだけ有効)
   165:   public static boolean mfpTbKeyboardOn;  //TBCRに$01、TBDRに$0Dが設定されている。キーボードと通信できる
   166: 
   167:   //割り込み
   168:   //  割り込み要求カウンタと割り込み受付カウンタの値が異なるときMFP_IPRA,MFP_IPRBの該当ビットがONになる
   169:   //  MFP_IERA,MFP_IERBの該当ビットに0が書き込まれたときMFP_IPRA,MFP_IPRBの該当ビットを0にするためrequestをacknowledgedにコピーする
   170:   public static final int[] mfpInnerRequest = new int[16];  //割り込み要求カウンタ
   171:   public static final int[] mfpInnerAcknowledged = new int[16];  //割り込み受付カウンタ
   172:   public static final boolean[] mfpInnerInService = new boolean[16];  //割り込み処理中のときtrue
   173:   public static int mfpInnerLevel;  //割り込み処理中のレベル
   174: 
   175:   //タイマ
   176:   public static long mfpTaStart;  //タイマAの初期値からスタートしたときのクロック
   177:   public static long mfpTbStart;  //タイマBの初期値からスタートしたときのクロック
   178:   public static long mfpTcStart;  //タイマCの初期値からスタートしたときのクロック
   179:   public static long mfpTdStart;  //タイマDの初期値からスタートしたときのクロック
   180:   public static long mfpTaDelta;  //タイマAのプリスケールに対応する1カウントあたりの時間
   181:   public static long mfpTbDelta;  //タイマBのプリスケールに対応する1カウントあたりの時間
   182:   public static long mfpTcDelta;  //タイマCのプリスケールに対応する1カウントあたりの時間
   183:   public static long mfpTdDelta;  //タイマDのプリスケールに対応する1カウントあたりの時間
   184:   public static long mfpTaClock;  //タイマAが次に割り込む時刻
   185:   public static long mfpTbClock;  //タイマBが次に割り込む時刻
   186:   public static long mfpTcClock;  //タイマCが次に割り込む時刻
   187:   public static long mfpTdClock;  //タイマDが次に割り込む時刻
   188: 
   189:   //MFP_UDRの入力データのキュー
   190:   //  入力データはゼロ拡張すること
   191:   //  キー入力を取りこぼさないためにキューを使う
   192:   //  read==writeのときキューは空
   193:   //  書き込むとread==writeになってしまうときは一杯なので書き込まない
   194:   public static final int[] mfpUdrQueueArray = new int[MFP_UDR_QUEUE_SIZE];  //入力データ
   195:   public static int mfpUdrQueueRead;  //最後に読み出したデータの位置
   196:   public static int mfpUdrQueueWrite;  //最後に書き込んだデータの位置
   197: 
   198:   //mfpInit ()
   199:   //  MFPを初期化する
   200:   public static void mfpInit () {
   201:     //mfpInnerRequest = new int[16];
   202:     //mfpInnerAcknowledged = new int[16];
   203:     //mfpInnerInService = new boolean[16];
   204:     //mfpUdrQueueArray = new int[MFP_UDR_QUEUE_SIZE];
   205:     for (int i = 0; i < MFP_UDR_QUEUE_SIZE; i++) {
   206:       mfpUdrQueueArray[i] = 0;
   207:     }
   208:     mfpUdrQueueRead = 0;
   209:     mfpUdrQueueWrite = 0;
   210:     mfpReset ();
   211:   }  //mfpInit()
   212: 
   213:   //リセット
   214:   public static void mfpReset () {
   215:     mfpGpipAlarm = 0;
   216:     mfpGpipExpwon = MFP_GPIP_EXPWON_MASK;
   217:     mfpGpipPower = 0;
   218:     mfpGpipOpmirq = MFP_GPIP_OPMIRQ_MASK;
   219:     mfpGpipVdisp = 0;
   220:     mfpGpipRint = MFP_GPIP_RINT_MASK;
   221:     mfpGpipHsync = 0;
   222:     mfpAer = 0;
   223:     mfpIer = 0;
   224:     for (int i = 0; i < 16; i++) {
   225:       mfpInnerRequest[i] = 0;
   226:       mfpInnerAcknowledged[i] = 0;
   227:       mfpInnerInService[i] = false;
   228:     }
   229:     mfpImr = 0;
   230:     mfpVectorHigh = 0;
   231:     mfpTaPrescale = 0;
   232:     mfpTbPrescale = 0;
   233:     mfpTcPrescale = 0;
   234:     mfpTdPrescale = 0;
   235:     mfpTaEventcount = false;
   236:     mfpTbEventcount = false;
   237:     mfpTaInitial = 256;
   238:     mfpTbInitial = 256;
   239:     mfpTcInitial = 256;
   240:     mfpTdInitial = 256;
   241:     mfpTaCurrent = 0;
   242:     mfpTbCurrent = 0;
   243:     mfpTcCurrent = 0;
   244:     mfpTdCurrent = 0;
   245:     mfpTaStart = 0L;
   246:     mfpTbStart = 0L;
   247:     mfpTcStart = 0L;
   248:     mfpTdStart = 0L;
   249:     mfpTaClock = XEiJ.FAR_FUTURE;
   250:     mfpTbClock = XEiJ.FAR_FUTURE;
   251:     mfpTcClock = XEiJ.FAR_FUTURE;
   252:     mfpTdClock = XEiJ.FAR_FUTURE;
   253:     if (MFP_KBD_ON) {
   254:       //mfpKbdBuffer = new int[MFP_KBD_LIMIT];
   255:       mfpKbdReadPointer = 0;
   256:       mfpKbdWritePointer = 0;
   257:       mfpKbdLastData = 0;
   258:       mfpTkClock = XEiJ.FAR_FUTURE;
   259:       //mfpTkTime = 0L;
   260:     }
   261:     TickerQueue.tkqRemove (mfpTaTicker);
   262:     TickerQueue.tkqRemove (mfpTbTicker);
   263:     TickerQueue.tkqRemove (mfpTcTicker);
   264:     TickerQueue.tkqRemove (mfpTdTicker);
   265:     TickerQueue.tkqRemove (mfpTkTicker);
   266:   }  //mfpReset()
   267: 
   268:   //割り込み受付
   269:   //  コアが割り込み要求を受け付けたときに呼び出す
   270:   //  割り込みベクタ番号を返す
   271:   //  割り込み要求を取り下げる場合は0を返す
   272:   //  オートベクタを使用するデバイスはオートベクタの番号を返すこと
   273:   //
   274:   //! 未対応
   275:   //  スプリアス割り込みは発生しない
   276:   //  実機ではデバイスからMFPへの割り込み要求とMPUからMFPへの割り込み禁止指示がほぼ同時に発生するとスプリアス割り込みが通知されることがある
   277:   //    (1) デバイスがMFPに割り込みを要求する
   278:   //    (2) MPUがMFPにデバイスの割り込みの禁止を指示する
   279:   //    (3) MFPがデバイスの要求に従ってMPUに割り込みを要求する
   280:   //    (4) MFPがMPUの指示に従ってデバイスの割り込みを禁止する
   281:   //    (5) MPUがMFPの割り込み要求を受け付けてMFPに割り込みベクタの提出を指示する
   282:   //    (6) MFPがMPUの指示に従って割り込みが許可されていて割り込みを要求しているデバイスを探すが見当たらないので応答しない
   283:   //    (7) MPUがスプリアス割り込みを通知する
   284:   //  ここではデバイスが見つからないとき割り込み要求を取り下げるのでスプリアス割り込みは発生しない
   285:   public static int mfpAcknowledge () {
   286:     for (int i = 15; i >= 0; i--) {
   287:       if ((mfpImr & 1 << i) != 0) {
   288:         int request = mfpInnerRequest[i];
   289:         if (mfpInnerAcknowledged[i] != request) {
   290:           mfpInnerAcknowledged[i] = request;
   291:           mfpInnerInService[mfpInnerLevel = i] = true;
   292:           return mfpVectorHigh + i;
   293:         }
   294:       }
   295:     }
   296:     return 0;
   297:   }  //mfpAcknowledge()
   298: 
   299:   //割り込み終了
   300:   //  コアが割り込み処理を終了したときに呼び出す
   301:   //  まだ処理されていない割り込みが残っていたら再度割り込み要求を出す
   302:   public static void mfpDone () {
   303:     mfpInnerInService[mfpInnerLevel] = false;
   304:     for (int i = 15; i >= 0; i--) {
   305:       if ((mfpImr & 1 << i) != 0 && mfpInnerAcknowledged[i] != mfpInnerRequest[i]) {
   306:         if (MFP_DELAYED_INTERRUPT) {
   307:           XEiJ.mpuDIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   308:         } else {
   309:           XEiJ.mpuIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   310:         }
   311:         return;
   312:       }
   313:     }
   314:   }  //mfpDone()
   315: 
   316:   //mfpKeyboardInput (scanCode)
   317:   //  キー入力
   318:   //  コアのスレッドで呼び出すこと
   319:   public static void mfpKeyboardInput (int scanCode) {
   320:     if (!mfpTbKeyboardOn) {
   321:       return;
   322:     }
   323:     scanCode &= 0xff;
   324:     int write = mfpUdrQueueWrite + 1 & MFP_UDR_QUEUE_MASK;
   325:     if (mfpUdrQueueRead != write) {  //キューに書き込めるとき
   326:       mfpUdrQueueWrite = write;
   327:       mfpUdrQueueArray[mfpUdrQueueWrite] = scanCode;
   328:       if ((mfpIer & MFP_INPUT_FULL_MASK) != 0) {
   329:         mfpInnerRequest[MFP_INPUT_FULL_LEVEL]++;
   330:         if ((mfpImr & MFP_INPUT_FULL_MASK) != 0) {
   331:           if (MFP_DELAYED_INTERRUPT) {
   332:             XEiJ.mpuDIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   333:           } else {
   334:             XEiJ.mpuIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   335:           }
   336:         }
   337:       }
   338:     }
   339:   }  //mfpKeyboardInput
   340: 
   341: 
   342:   //Timer-A
   343:   public static final TickerQueue.Ticker mfpTaTicker = new TickerQueue.Ticker () {
   344:     @Override protected void tick () {
   345:       if ((mfpIer & MFP_TIMER_A_MASK) != 0) {
   346:         mfpInnerRequest[MFP_TIMER_A_LEVEL]++;
   347:         if ((mfpImr & MFP_TIMER_A_MASK) != 0) {
   348:           if (MFP_DELAYED_INTERRUPT) {
   349:             XEiJ.mpuDIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   350:           } else {
   351:             XEiJ.mpuIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   352:           }
   353:         }
   354:       }
   355:       mfpTaClock += mfpTaDelta * mfpTaInitial;
   356:       TickerQueue.tkqAdd (mfpTaTicker, mfpTaClock);
   357:     }
   358:   };
   359: 
   360:   //Timer-B
   361:   public static final TickerQueue.Ticker mfpTbTicker = new TickerQueue.Ticker () {
   362:     @Override protected void tick () {
   363:       if ((mfpIer & MFP_TIMER_B_MASK) != 0) {
   364:         mfpInnerRequest[MFP_TIMER_B_LEVEL]++;
   365:         if ((mfpImr & MFP_TIMER_B_MASK) != 0) {
   366:           if (MFP_DELAYED_INTERRUPT) {
   367:             XEiJ.mpuDIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   368:           } else {
   369:             XEiJ.mpuIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   370:           }
   371:         }
   372:       }
   373:       mfpTbClock += mfpTbDelta * mfpTbInitial;
   374:       TickerQueue.tkqAdd (mfpTbTicker, mfpTbClock);
   375:     }
   376:   };
   377: 
   378:   //Timer-C
   379:   public static final TickerQueue.Ticker mfpTcTicker = new TickerQueue.Ticker () {
   380:     @Override protected void tick () {
   381:       if ((mfpIer & MFP_TIMER_C_MASK) != 0) {
   382:         mfpInnerRequest[MFP_TIMER_C_LEVEL]++;
   383:         if ((mfpImr & MFP_TIMER_C_MASK) != 0) {
   384:           if (MFP_DELAYED_INTERRUPT) {
   385:             XEiJ.mpuDIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   386:           } else {
   387:             XEiJ.mpuIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   388:           }
   389:         }
   390:       }
   391:       mfpTcClock += mfpTcDelta * mfpTcInitial;
   392:       TickerQueue.tkqAdd (mfpTcTicker, mfpTcClock);
   393:     }
   394:   };
   395: 
   396:   //Timer-D
   397:   public static final TickerQueue.Ticker mfpTdTicker = new TickerQueue.Ticker () {
   398:     @Override protected void tick () {
   399:       if ((mfpIer & MFP_TIMER_D_MASK) != 0) {
   400:         mfpInnerRequest[MFP_TIMER_D_LEVEL]++;
   401:         if ((mfpImr & MFP_TIMER_D_MASK) != 0) {
   402:           if (MFP_DELAYED_INTERRUPT) {
   403:             XEiJ.mpuDIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   404:           } else {
   405:             XEiJ.mpuIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   406:           }
   407:         }
   408:       }
   409:       mfpTdClock += mfpTdDelta * mfpTdInitial;
   410:       TickerQueue.tkqAdd (mfpTdTicker, mfpTdClock);
   411:     }
   412:   };
   413: 
   414:   //キーボード
   415:   public static final TickerQueue.Ticker mfpTkTicker = new TickerQueue.Ticker () {
   416:     @Override protected void tick () {
   417:       if (MFP_KBD_ON) {
   418:         //  XEiJ.mpuClockTimeだけで割り込みのタイミングを決めると、
   419:         //  コアのタスクが詰まっているときキー入力割り込みも詰まってリピートの開始と間隔が短くなってしまう
   420:         long time = System.currentTimeMillis () - 10L;  //10msまでは早すぎてもよいことにする
   421:         if (time < mfpTkTime) {  //早すぎる
   422:           mfpTkClock = XEiJ.mpuClockTime + XEiJ.TMR_FREQ / 1000 * (mfpTkTime - time);
   423:           TickerQueue.tkqAdd (mfpTkTicker, mfpTkClock);
   424:         } else {
   425:           if (mfpTbKeyboardOn) {
   426:             if (mfpKbdReadPointer != mfpKbdWritePointer) {  //バッファが空でないとき
   427:               if ((mfpIer & MFP_INPUT_FULL_MASK) != 0) {
   428:                 mfpInnerRequest[MFP_INPUT_FULL_LEVEL]++;
   429:                 if ((mfpImr & MFP_INPUT_FULL_MASK) != 0) {
   430:                   //MFPのキー入力割り込みを要求する
   431:                   if (MFP_DELAYED_INTERRUPT) {
   432:                     XEiJ.mpuDIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   433:                   } else {
   434:                     XEiJ.mpuIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   435:                   }
   436:                 }
   437:               }
   438:             }
   439:           }
   440:           mfpTkClock = XEiJ.FAR_FUTURE;
   441:           TickerQueue.tkqRemove (mfpTkTicker);
   442:           //mfpTkTime = 0L;
   443:         }
   444:       }
   445:     }  //tick()
   446:   };
   447: 
   448: 
   449:   //GPIP入力
   450:   //  デバイスが呼び出す
   451:   //GPIP0
   452:   public static void mfpAlarmRise () {
   453:     if (mfpGpipAlarm == 0) {  //0→1
   454:       mfpGpipAlarm = MFP_GPIP_ALARM_MASK;
   455:       if ((mfpAer & MFP_GPIP_ALARM_MASK) != 0 && (mfpIer & MFP_ALARM_MASK) != 0) {
   456:         mfpInnerRequest[MFP_ALARM_LEVEL]++;
   457:         if ((mfpImr & MFP_ALARM_MASK) != 0) {
   458:           if (MFP_DELAYED_INTERRUPT) {
   459:             XEiJ.mpuDIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   460:           } else {
   461:             XEiJ.mpuIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   462:           }
   463:         }
   464:       }
   465:     }
   466:   }  //mfpAlarmRise()
   467:   public static void mfpAlarmFall () {
   468:     if (mfpGpipAlarm != 0) {  //1→0
   469:       mfpGpipAlarm = 0;
   470:       if ((mfpAer & MFP_GPIP_ALARM_MASK) == 0 && (mfpIer & MFP_ALARM_MASK) != 0) {
   471:         mfpInnerRequest[MFP_ALARM_LEVEL]++;
   472:         if ((mfpImr & MFP_ALARM_MASK) != 0) {
   473:           if (MFP_DELAYED_INTERRUPT) {
   474:             XEiJ.mpuDIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   475:           } else {
   476:             XEiJ.mpuIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   477:           }
   478:         }
   479:       }
   480:     }
   481:   }  //mfpAlarmFall()
   482: 
   483:   //GPIP1
   484:   public static void mfpExpwonRise () {
   485:     if (mfpGpipExpwon == 0) {  //0→1
   486:       mfpGpipExpwon = MFP_GPIP_EXPWON_MASK;
   487:       if ((mfpAer & MFP_GPIP_EXPWON_MASK) != 0 && (mfpIer & MFP_EXPWON_MASK) != 0) {
   488:         mfpInnerRequest[MFP_EXPWON_LEVEL]++;
   489:         if ((mfpImr & MFP_EXPWON_MASK) != 0) {
   490:           if (MFP_DELAYED_INTERRUPT) {
   491:             XEiJ.mpuDIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   492:           } else {
   493:             XEiJ.mpuIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   494:           }
   495:         }
   496:       }
   497:     }
   498:   }  //mfpExpwonRise()
   499:   public static void mfpExpwonFall () {
   500:     if (mfpGpipExpwon != 0) {  //1→0
   501:       mfpGpipExpwon = 0;
   502:       if ((mfpAer & MFP_GPIP_EXPWON_MASK) == 0 && (mfpIer & MFP_EXPWON_MASK) != 0) {
   503:         mfpInnerRequest[MFP_EXPWON_LEVEL]++;
   504:         if ((mfpImr & MFP_EXPWON_MASK) != 0) {
   505:           if (MFP_DELAYED_INTERRUPT) {
   506:             XEiJ.mpuDIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   507:           } else {
   508:             XEiJ.mpuIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   509:           }
   510:         }
   511:       }
   512:     }
   513:   }  //mfpExpwonFall()
   514: 
   515:   //GPIP2
   516:   public static void mfpPowerRise () {
   517:     if (mfpGpipPower == 0) {  //0→1
   518:       mfpGpipPower = MFP_GPIP_POWER_MASK;
   519:       if ((mfpAer & MFP_GPIP_POWER_MASK) != 0 && (mfpIer & MFP_POWER_MASK) != 0) {
   520:         mfpInnerRequest[MFP_POWER_LEVEL]++;
   521:         if ((mfpImr & MFP_POWER_MASK) != 0) {
   522:           if (MFP_DELAYED_INTERRUPT) {
   523:             XEiJ.mpuDIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   524:           } else {
   525:             XEiJ.mpuIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   526:           }
   527:         }
   528:       }
   529:     }
   530:   }  //mfpPowerRise()
   531:   public static void mfpPowerFall () {
   532:     if (mfpGpipPower != 0) {  //1→0
   533:       mfpGpipPower = 0;
   534:       if ((mfpAer & MFP_GPIP_POWER_MASK) == 0 && (mfpIer & MFP_POWER_MASK) != 0) {
   535:         mfpInnerRequest[MFP_POWER_LEVEL]++;
   536:         if ((mfpImr & MFP_POWER_MASK) != 0) {
   537:           if (MFP_DELAYED_INTERRUPT) {
   538:             XEiJ.mpuDIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   539:           } else {
   540:             XEiJ.mpuIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   541:           }
   542:         }
   543:       }
   544:     }
   545:   }  //mfpPowerFall()
   546: 
   547:   //GPIP3
   548:   public static void mfpOpmirqRise () {
   549:     if (mfpGpipOpmirq == 0) {  //0→1
   550:       mfpGpipOpmirq = MFP_GPIP_OPMIRQ_MASK;
   551:       if ((mfpAer & MFP_GPIP_OPMIRQ_MASK) != 0 && (mfpIer & MFP_OPMIRQ_MASK) != 0) {
   552:         mfpInnerRequest[MFP_OPMIRQ_LEVEL]++;
   553:         if ((mfpImr & MFP_OPMIRQ_MASK) != 0) {
   554:           if (MFP_DELAYED_INTERRUPT) {
   555:             XEiJ.mpuDIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   556:           } else {
   557:             XEiJ.mpuIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   558:           }
   559:         }
   560:       }
   561:     }
   562:   }  //mfpOpmirqRise()
   563:   public static void mfpOpmirqFall () {
   564:     if (mfpGpipOpmirq != 0) {  //1→0
   565:       mfpGpipOpmirq = 0;
   566:       if ((mfpAer & MFP_GPIP_OPMIRQ_MASK) == 0 && (mfpIer & MFP_OPMIRQ_MASK) != 0) {
   567:         mfpInnerRequest[MFP_OPMIRQ_LEVEL]++;
   568:         if ((mfpImr & MFP_OPMIRQ_MASK) != 0) {
   569:           if (MFP_DELAYED_INTERRUPT) {
   570:             XEiJ.mpuDIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   571:           } else {
   572:             XEiJ.mpuIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   573:           }
   574:         }
   575:       }
   576:     }
   577:   }  //mfpOpmirqFall()
   578: 
   579:   //GPIP4
   580:   public static void mfpVdispRise () {
   581:     //if (mfpGpipVdisp == 0) {  //0→1
   582:     mfpGpipVdisp = MFP_GPIP_VDISP_MASK;
   583:     if ((mfpAer & MFP_GPIP_VDISP_MASK) != 0) {
   584:       if ((mfpIer & MFP_VDISP_MASK) != 0) {
   585:         mfpInnerRequest[MFP_VDISP_LEVEL]++;
   586:         if ((mfpImr & MFP_VDISP_MASK) != 0) {
   587:           if (MFP_DELAYED_INTERRUPT) {
   588:             XEiJ.mpuDIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   589:           } else {
   590:             XEiJ.mpuIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   591:           }
   592:         }
   593:       }
   594:       if (mfpTaEventcount && --mfpTaCurrent <= 0) {
   595:         mfpTaCurrent = mfpTaInitial;
   596:         if ((mfpIer & MFP_TIMER_A_MASK) != 0) {
   597:           mfpInnerRequest[MFP_TIMER_A_LEVEL]++;
   598:           if ((mfpImr & MFP_TIMER_A_MASK) != 0) {
   599:             if (MFP_DELAYED_INTERRUPT) {
   600:               XEiJ.mpuDIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   601:             } else {
   602:               XEiJ.mpuIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   603:             }
   604:           }
   605:         }
   606:       }
   607:     }
   608:     //}
   609:   }  //mfpVdispRise()
   610:   public static void mfpVdispFall () {
   611:     //if (mfpGpipVdisp != 0) {  //1→0
   612:     mfpGpipVdisp = 0;
   613:     if ((mfpAer & MFP_GPIP_VDISP_MASK) == 0) {
   614:       if ((mfpIer & MFP_VDISP_MASK) != 0) {
   615:         mfpInnerRequest[MFP_VDISP_LEVEL]++;
   616:         if ((mfpImr & MFP_VDISP_MASK) != 0) {
   617:           if (MFP_DELAYED_INTERRUPT) {
   618:             XEiJ.mpuDIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   619:           } else {
   620:             XEiJ.mpuIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   621:           }
   622:         }
   623:       }
   624:       if (mfpTaEventcount && --mfpTaCurrent <= 0) {
   625:         mfpTaCurrent = mfpTaInitial;
   626:         if ((mfpIer & MFP_TIMER_A_MASK) != 0) {
   627:           mfpInnerRequest[MFP_TIMER_A_LEVEL]++;
   628:           if ((mfpImr & MFP_TIMER_A_MASK) != 0) {
   629:             if (MFP_DELAYED_INTERRUPT) {
   630:               XEiJ.mpuDIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   631:             } else {
   632:               XEiJ.mpuIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   633:             }
   634:           }
   635:         }
   636:       }
   637:     }
   638:     //}
   639:   }  //mfpVdispFall()
   640: 
   641:   //GPIP6
   642:   public static void mfpRintRise () {
   643:     //if (mfpGpipRint == 0) {  //0→1
   644:     mfpGpipRint = MFP_GPIP_RINT_MASK;
   645:     if ((mfpAer & MFP_GPIP_RINT_MASK) != 0 && (mfpIer & MFP_RINT_MASK) != 0) {
   646:       mfpInnerRequest[MFP_RINT_LEVEL]++;
   647:       if ((mfpImr & MFP_RINT_MASK) != 0) {
   648:         if (MFP_DELAYED_INTERRUPT) {
   649:           XEiJ.mpuDIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   650:         } else {
   651:           XEiJ.mpuIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   652:         }
   653:       }
   654:     }
   655:     //}
   656:   }  //mfpRintRise()
   657:   public static void mfpRintFall () {
   658:     //if (mfpGpipRint != 0) {  //1→0
   659:     mfpGpipRint = 0;
   660:     if ((mfpAer & MFP_GPIP_RINT_MASK) == 0 && (mfpIer & MFP_RINT_MASK) != 0) {
   661:       mfpInnerRequest[MFP_RINT_LEVEL]++;
   662:       if ((mfpImr & MFP_RINT_MASK) != 0) {
   663:         if (MFP_DELAYED_INTERRUPT) {
   664:           XEiJ.mpuDIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   665:         } else {
   666:           XEiJ.mpuIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   667:         }
   668:       }
   669:     }
   670:     //}
   671:   }  //mfpRintFall()
   672: 
   673:   //GPIP7
   674:   public static void mfpHsyncRise () {
   675:     //if (mfpGpipHsync == 0) {  //0→1
   676:     mfpGpipHsync = MFP_GPIP_HSYNC_MASK;
   677:     if ((mfpAer & MFP_GPIP_HSYNC_MASK) != 0 && (mfpIer & MFP_HSYNC_MASK) != 0) {
   678:       mfpInnerRequest[MFP_HSYNC_LEVEL]++;
   679:       if ((mfpImr & MFP_HSYNC_MASK) != 0) {
   680:         if (MFP_DELAYED_INTERRUPT) {
   681:           XEiJ.mpuDIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   682:         } else {
   683:           XEiJ.mpuIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   684:         }
   685:       }
   686:     }
   687:     //}
   688:   }  //mfpHsyncRise()
   689:   public static void mfpHsyncFall () {
   690:     //if (mfpGpipHsync != 0) {  //1→0
   691:     mfpGpipHsync = 0;
   692:     if ((mfpAer & MFP_GPIP_HSYNC_MASK) == 0 && (mfpIer & MFP_HSYNC_MASK) != 0) {
   693:       mfpInnerRequest[MFP_HSYNC_LEVEL]++;
   694:       if ((mfpImr & MFP_HSYNC_MASK) != 0) {
   695:         if (MFP_DELAYED_INTERRUPT) {
   696:           XEiJ.mpuDIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   697:         } else {
   698:           XEiJ.mpuIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   699:         }
   700:       }
   701:     }
   702:     //}
   703:   }  //mfpHsyncFall()
   704: 
   705:   //キー入力のリピートの処理をMFPで行う
   706:   //  キー入力バッファ
   707:   //    キー入力データが並んでいるリングバッファ
   708:   //    読み出しポインタ
   709:   //      次に読み出す位置
   710:   //      MFPが更新する
   711:   //    書き込みポインタ
   712:   //      次に書き込む位置
   713:   //      KBDが更新する
   714:   //    読み出しポインタと書き込みポインタが一致しているときバッファは空
   715:   //    読み出しポインタを進めると書き込みポインタと一致するとき読み出しポインタはバッファの末尾
   716:   //    書き込みポインタを進めると読み出しポインタと一致するときはバッファが一杯(なので書き込めない)
   717:   //  キー入力データ
   718:   //    1データにつきintを2個用いる
   719:   //    data  0x00+キーコード  キーが押されたデータ
   720:   //          0x80+キーコード  キーが離されたデータ
   721:   //    repeat  -1  リピート開始後のデータ
   722:   //                リピートするキーが押されて1回以上読み出されたデータ
   723:   //             0  リピートしないデータ
   724:   //                リピートしないキーが押されたかキーが離されたときのデータ
   725:   //             1  リピート開始前のデータ
   726:   //                リピートするキーが押されてまだ読み出されていないデータ
   727:   //  最後に読み出したデータ
   728:   //    キー入力バッファから最後に読み出したデータ
   729:   //    キー入力バッファが空のときUDRから読み出される
   730:   //  キーが押されたまたは離されたとき
   731:   //    バッファが一杯でないとき
   732:   //      キーが押されたとき
   733:   //        書き込みポインタの位置にリピート開始前のデータを書き込む
   734:   //      キーが離されたとき
   735:   //        書き込みポインタの位置にリピートしないデータを書き込む
   736:   //      書き込みポインタを進める
   737:   //    MFPのキー入力割り込みを要求する
   738:   //  UDR読み出し
   739:   //    バッファが空でないとき
   740:   //      バッファの末尾でなくて先頭がリピート開始後のデータのとき
   741:   //        読み出しポインタを進める
   742:   //      読み出しポインタの位置からデータを読み出して最後に読み出したデータとして保存する
   743:   //      バッファの末尾でないとき
   744:   //        読み出しポインタを進める
   745:   //        MFPのキー入力割り込みを要求する
   746:   //      バッファの末尾でリピートしないデータのとき
   747:   //        読み出しポインタを進める
   748:   //      バッファの末尾でリピート開始前のデータのとき
   749:   //        読み出しポインタの位置のデータをリピート開始後に変更する
   750:   //        現在時刻+リピート開始時間でMFPのTimer-Kをセットする
   751:   //      バッファの末尾でリピート開始後のデータのとき
   752:   //        現在時刻+リピート間隔時間でMFPのTimer-Kをセットする
   753:   //    最後に読み出したデータを返す
   754:   //  MFPのTimer-K
   755:   //    キー入力のリピート処理のためにMFPに追加されたタイマー
   756:   //    バッファが空でないとき
   757:   //      MFPのキー入力割り込みを要求する
   758:   //  UDR読み出しとMFPのTimer-Kはどちらもコアから呼ばれるので同時に呼び出されることはない
   759:   //  キー入力割り込みがIERAで禁止されているとタイマーで割り込みがかからないのでリピートが止まってしまうが、
   760:   //  キー入力割り込みを止めたいときはIMRAでマスクするのが原則なので通常は問題ないはず
   761:   public static final boolean MFP_KBD_ON = true;  //true=キー入力のリピートの処理をMFPで行う
   762:   public static final int MFP_KBD_LIMIT = 512;  //キー入力バッファのサイズ。2の累乗にすること
   763:   public static final int[] mfpKbdBuffer = new int[MFP_KBD_LIMIT];  //キー入力バッファ
   764:   public static int mfpKbdReadPointer;  //読み出しポインタ
   765:   public static int mfpKbdWritePointer;  //書き込みポインタ
   766:   public static int mfpKbdLastData;  //最後に読み出したデータ
   767:   public static long mfpTkClock;  //Timer-Kの次の呼び出し時刻
   768:   public static long mfpTkTime;  //次にTimer-Kが呼び出されるべき時刻(ms)。mfpTkClockがXEiJ.FAR_FUTUREでないときだけ有効
   769: 
   770:   //mfpKbdInput (data, repeat)
   771:   //  キーが押されたまたは離されたとき
   772:   //  data  キーコード
   773:   //  repeat  リピートの有無。false=リピートしない,true=リピートする
   774:   public static void mfpKbdInput (int data, boolean repeat) {
   775:     if (!mfpTbKeyboardOn) {
   776:       return;
   777:     }
   778:     int w = mfpKbdWritePointer;
   779:     int w1 = w + 2 & MFP_KBD_LIMIT - 2;
   780:     if (w1 != mfpKbdReadPointer) {  //バッファが一杯でないとき
   781:       mfpKbdBuffer[w] = data;  //書き込みポインタの位置にデータを書き込む
   782:       mfpKbdBuffer[w + 1] = repeat ? 1 : 0;  //0=リピートしないデータ,1=リピート開始前のデータ
   783:       mfpKbdWritePointer = w1;  //書き込みポインタを進める
   784:       if ((mfpIer & MFP_INPUT_FULL_MASK) != 0) {
   785:         mfpInnerRequest[MFP_INPUT_FULL_LEVEL]++;
   786:         if ((mfpImr & MFP_INPUT_FULL_MASK) != 0) {
   787:           //MFPのキー入力割り込みを要求する
   788:           if (MFP_DELAYED_INTERRUPT) {
   789:             XEiJ.mpuDIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   790:           } else {
   791:             XEiJ.mpuIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   792:           }
   793:         }
   794:       }
   795:     }
   796:   }  //mfpKbdInput(int,boolean)
   797: 
   798:   //data = mfpKbdReadData ()
   799:   //  UDR読み出し
   800:   public static int mfpKbdReadData () {
   801:     int r = mfpKbdReadPointer;
   802:     int w = mfpKbdWritePointer;
   803:     if (r != w) {  //バッファが空でないとき
   804:       int r1 = r + 2 & MFP_KBD_LIMIT - 2;
   805:       int s = mfpKbdBuffer[r + 1];  //-1=リピート開始後,0=リピートしない,1=リピート開始前
   806:       if (r1 != w && s < 0) {  //バッファの末尾でなくて先頭がリピート開始後のデータのとき
   807:         mfpKbdReadPointer = r = r1;  //読み出しポインタを進める
   808:         r1 = r + 2 & MFP_KBD_LIMIT - 2;
   809:         s = mfpKbdBuffer[r + 1];
   810:       }
   811:       mfpKbdLastData = mfpKbdBuffer[r];  //読み出しポインタの位置からデータを読み出して最後に読み出したデータとして保存する
   812:       if (r1 != w) {  //バッファの末尾でないとき
   813:         mfpKbdReadPointer = r1;  //読み出しポインタを進める
   814:         if ((mfpIer & MFP_INPUT_FULL_MASK) != 0) {
   815:           mfpInnerRequest[MFP_INPUT_FULL_LEVEL]++;
   816:           if ((mfpImr & MFP_INPUT_FULL_MASK) != 0) {
   817:             //MFPのキー入力割り込みを要求する
   818:             if (MFP_DELAYED_INTERRUPT) {
   819:               XEiJ.mpuDIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   820:             } else {
   821:               XEiJ.mpuIRR |= XEiJ.MPU_MFP_INTERRUPT_MASK;
   822:             }
   823:           }
   824:         }
   825:       } else if (s == 0) {  //バッファの末尾でリピートしないデータのとき
   826:         mfpKbdReadPointer = r1;  //読み出しポインタを進める
   827:       } else if (s > 0) {  //バッファの末尾でリピート開始前のデータのとき
   828:         mfpKbdBuffer[r + 1] = -1;  //読み出しポインタの位置のデータをリピート開始後に変更する
   829:         if ((mfpIer & MFP_INPUT_FULL_MASK) != 0) {  //キー入力割り込みが許可されているとき
   830:           mfpTkClock = XEiJ.mpuClockTime + XEiJ.TMR_FREQ / 1000 * Keyboard.kbdRepeatDelay;  //現在時刻+リピート開始時間でMFPのTimer-Kをセットする
   831:           TickerQueue.tkqAdd (mfpTkTicker, mfpTkClock);
   832:           mfpTkTime = System.currentTimeMillis () + Keyboard.kbdRepeatDelay;  //次にTimer-Kが呼び出されるべき時刻(ms)
   833:         }
   834:       } else {  //バッファの末尾でリピート開始後のデータのとき
   835:         if ((mfpIer & MFP_INPUT_FULL_MASK) != 0) {  //キー入力割り込みが許可されているとき
   836:           mfpTkClock = XEiJ.mpuClockTime + XEiJ.TMR_FREQ / 1000 * Keyboard.kbdRepeatInterval;  //現在時刻+リピート間隔時間でMFPのTimer-Kをセットする
   837:           TickerQueue.tkqAdd (mfpTkTicker, mfpTkClock);
   838:           mfpTkTime = System.currentTimeMillis () + Keyboard.kbdRepeatInterval;  //次にTimer-Kが呼び出されるべき時刻(ms)
   839:         }
   840:       }
   841:     }
   842:     return mfpKbdLastData;  //最後に読み出したデータを返す
   843:   }  //mfpKbdReadData()
   844: 
   845: }  //class MC68901
   846: 
   847: 
   848: