'合成テーブル作成 a-Src b-Dest
'高速化のためにTB(a,b)=TB(b,a)とすることで計算量半減
For a = 0 To 255
For b = a To 255
temp = RGB(.palPalEntry(a).rgbRed \ 2 + .palPalEntry(b).rgbRed \ 2, _
 .palPalEntry(a).rgbGreen \ 2 + .palPalEntry(b).rgbGreen \ 2, _
.palPalEntry(a).rgbBlue \ 2 + .palPalEntry(b).rgbBlue \ 2)
TByte = GetNearestPaletteIndex(Pal, temp)
If a = TC Then TB(a, b) = b Else TB(a, b) = TByte
If b = TC Then TB(b, a) = a Else TB(b, a) = TByte
Next
Next

//ブレンド-アセンブラ
extern "C" VOID FAR PASCAL DIBTableBlt
(byte* DSur,int DPitch,byte* SSur,int SPitch,int LB,int HB,byte* Table)
{
    int a,b;

    //a-y座標
    //b-x座標
    _asm
    {
        mov a,0
        ;ループ開始
yloop:  mov b,0
        ;ポインタ計算
        ;Destラインスタート位置 ebx= DSur + DPitch*a
        ;Srcラインスタート位置  ecx= SSur + SPitch*a
        mov eax,DPitch
        mul a
        mov ebx,eax
        add ebx,DSur
        mov eax,SPitch
        mul a
        add eax,SSur
        mov ecx,eax
        ;edx=Table[al][dl]=Table+al*256+dl=Table+ah+al=Table+ax
        ;8bitシフト高速化のためdlでなくahをいじる
xloop:  mov al,[ecx]
        mov ah,[ebx]
        movzx eax,ax 
        mov edx,Table
        add edx,eax
        mov al,[edx]
        mov [ebx],al
        inc b
        mov edx,LB
        cmp b,edx
        jae ychk
        inc ecx
        inc ebx
        jmp xloop
ychk:   inc a
        mov edx,HB
        cmp a,edx
        jb yloop
    }
}


//ブレンド−C言語
extern "C" VOID FAR PASCAL DIBTableBltC
(byte* DSur,int DPitch,byte* SSur,int SPitch,int LB,int HB,byte* Table)
{
    int a,b;
    byte* DS;
    byte* SS;

    for(a=0;a<HB;a++)
    {
        DS=DSur+a*DPitch;
        SS=SSur+a*SPitch;

        for(b=0;b<LB;b++)
        {
            *DS=*(Table+(int)(*DS)*0x100+(int)(*SS));
            DS++;
            SS++;
        }
    }
}

extern "C" VOID FAR PASCAL DIBBlt
(byte* DSur,int DPitch,byte* SSur,int SPitch,int LB,int HB,byte TC)
{
    //アセンブラによるスプライト
    //DSur -- 描画先ポインタ（座標を考慮した値を送る）
    //DPitch -- 描画先ラインピッチ
    //SSur,SPitch -- DSur、DPitchの描画元版
    //LB -- 幅（バイト）
    //HB -- 高さ
    //TC -- 透明色パレット番号

    int a,b;

    //a-y座標
    //b-x座標
    _asm
    {
        mov a,0
        mov dl,TC
        ;ループ開始
yloop:  mov b,0
        ;ポインタ計算
        ;Destラインスタート位置 ebx= DSur + DPitch*a
        ;Srcラインスタート位置  eax= SSur + SPitch*a
        mov eax,DPitch
        mul a
        mov ebx,eax
        add ebx,DSur
        mov eax,SPitch
        mul a
        add eax,SSur
xloop:  mov cl,[eax]
        cmp cl,dl
        je xle
        mov [ebx],cl
xle:    inc b
        mov ecx,LB
        cmp b,ecx
        jae ychk
        inc eax
        inc ebx
        jmp xloop
ychk:   inc a
        mov ecx,HB
        cmp a,ecx
        jb yloop
    }
}

extern "C" VOID FAR PASCAL DIBBltC
(byte* DSur,int DPitch,byte* SSur,int SPitch,int LB,int HB,byte TC)
{
    //Cによるスプライト（C++じゃないね）
    int a,b;
    byte* DS;
    byte* SS;

    for(a=0;a<HB;a++)
    {
        DS=DSur+a*DPitch;
        SS=SSur+a*SPitch;

        for(b=0;b<LB;b++)
        {
            if(*SS != TC) *DS=*SS;
            DS++;
            SS++;
        }
    }
}

; 1-10の数を足すプログラム
;BASIC風だと For GR1 = MINNUM to MAXNUM step STEP

        START
        LD GR1,MINNUM
        SUB GR1,STEP
LOOP    ADD GR1,STEP
        ST GR1,RESULT
        ADD GR2,RESULT
        CPA GR1,MAXNUM
        JMI LOOP
        ST GR2,RESULT
EXIT
STEP   DC 1
MINNUM DC 1
MAXNUM DC 10
RESULT DS 1
        END

//50%αブレンド
#include 

extern "C" VOID FAR PASCAL DTAlphaBlt(byte* FSur,int FPitch,byte* DSur,
int DPitch,byte* SSur,int SPitch,int LB,int HB,int BR)
{
    int a,b;
    byte* DS;
    byte* CS;
    byte* FS;

    for(a=0;a<HB;a++)
    {
        FS=(byte*)((int)FSur+a*FPitch);
        DS=(byte*)((int)DSur+a*DPitch);
        CS=(byte*)((int)SSur+a*SPitch);
        for(b=0;b<LB;b++)
        {
            if(*CS) *FS = (*DS + *CS)/2;
            FS++;
            DS++;
            CS++;
        }
    }
}