OpenEuphoria

Re: Wait-retrace

• Posted by CHARN1407 at AOL.COM Jan 03, 1999
• 469 views

global constant wait_retrace = allocate(20)
poke(wait_retrace, {
                #50,        -- PUSH EAX
                #52,        -- PUSH EDX
                #BA,#DA,3,0,0,-- MOV EDX, 0x03DA
                #EC,        -- IN AL, DX
                #24,#08,    -- AND AL, 0x08
                #75,#FB,    -- JNZ -5
                #EC,        -- IN AL, DX
                #24,#08,    -- AND AL, 0x08
                #74,#FB,    -- JZ -5
                #5A,        -- POP EDX
                #58,        -- POP EAX
                #C3 } )     -- RET

now you should be able to call it with:
call ( wait_retrace )

call it right before you write to the screen.

CHARN