/*-----------------------------------------------------------
        函數 _Block : 在屏幕上指定位置顯示一矩形塊。
    -----------------------------------------------------------*/
    #include <hanenv.h>

    void _Cdecl _Block(col,line,width,high,color)
    int col;           /* 屏幕矩形塊左上角列坐標(以字節為單位) */
    int line;          /* 屏幕矩形塊左上角行坐標(以象素為單位) */
    int width;         /* 屏幕矩形塊寬度(以字節為單位)         */
    int high;          /* 屏幕矩形塊高度(以象素為單位)         */
    int color;         /* 屏幕矩形塊顏色                       */
    {
        register char far *addr;
        register i,j;

        /*-- 設置顯示寄存器操作標志 -----------*/
        _VideoBusy = YES;

        /*-- 確定塊在顯示存儲器(VRAM)中的地址 -*/
        addr = (char far *)0xa0000000+(line+_ScreenTop)*_ScreenWidth+col;

        /*-- 設置塊顏色 -----------------------*/
        outportb(0x3ce,0);
        outportb(0x3cf,color);

        /*-- 顏色數據由置位/復位寄存器提供 ----*/
        outportb(0x3ce,1);
        outportb(0x3cf,0x0f);

        for(i=0;i<high;i++)
        {
            for(j=0;j<width;j++)
                *(addr+j)&=0xff; /*- 先讀后寫 -*/
            addr+=_ScreenWidth;
        }

        /*- 恢復置位/復位和允許置位/復位寄存器 */
        outportb(0x3ce,1);
        outportb(0x3cf,0);
        outportb(0x3ce,0);
        outportb(0x3cf,0x0f);
        _VideoBusy = NO;
    }