Fast Putting with ASM.

[wizardlife]

Code:

.model medium, basic
                .386
                .code
                
ScreenBlit      proc    public uses di si ds es,\
                        pdst:far ptr, psrc:far ptr
                        
                lds     si, psrc
                les     di, pdst
                
                mov     cx, 16000
                rep     movsd
                
                ret
ScreenBlit      endp
                end

Hmm. I'm having trouble implementing this code. I don't understand what lds and les are doing, and I'm getting a syntax error on movsd. Here's what I have:

Code:

procedure ScreenBlt(var source, destination :buffertype); assembler;

asm
    push     ds
    lds     si, source
    les     di, destination

    mov     cx, 1600
    rep     movsd
    ret

    pop        ds
end;

[na_th_an]

Code:

lds si, address

Makes DS:SI == ADDRESS (segment, offset).

Code:

les di, address

Makes ESI == ADDRESS (segment, offset).

[relsoft]

Wiz, Just take your old BlitScreen and change:

Mov cx,32000
Rep Movsw

To Mov Cx,1600
Rep Movsd

And it should work.

[wizardlife]

Rep Movsd

This line still causes a syntax error. I assume that what you're doing is moving around Doubles instead of Words, since its fewer overall operations... Is there some compiler tag that I should be using?

[na_th_an]

That instruction moves a double word (32 bits), and it is only available on 386s or above. Use .386 in your assembler

[wizardlife]

That instruction moves a double word (32 bits), and it is only available on 386s or above. Use .386 in your assembler

Ugh. TP7 doesn't support some 8087 instructions.

[relsoft]

is there some metacommands to enable 386+ ints? sumthing like

{+386} at the top of yer proggie.

[wizardlife]

is there some metacommands to enable 386+ ints? sumthing like

{+386} at the top of yer proggie.

I don't think so. The support for TP is very poor on the net, but what little I've gleaned from other message boards has indicated that the BASM doesn't support .386 commands. (some of them, anyways)

[relsoft]

I c.