[Back to TIMING SWAG index] [Back to Main SWAG index] [Original]

    {
      From: Andrew Eigus                                 Read: Yes    Replied: No
    }

    Procedure Pause(HS : longint); assembler;
    Asm
            mov     es,Seg0040
            mov     si,006Ch
            mov     dx,word ptr es:[si+2]
            mov     ax,word ptr es:[si]
            add     ax,word ptr [HS]
            adc     dx,word ptr [HS+2]
    @@1:
            mov     bx,word ptr es:[si+2]
            cmp     word ptr es:[si+2],dx
            jl      @@1
            mov     cx,word ptr es:[si]
            cmp     word ptr es:[si],ax
            jl      @@1
    End; { Pause }
    {
    The above routine does not depend on a CPU speed.
    }

[Back to TIMING SWAG index] [Back to Main SWAG index] [Original]