; $Id: tstProg-1A.asm 19 2007-01-15 13:07:05Z vboxsync $
;; @file
; tstProg-1a assembly.
;

;
; Copyright (C) 2006 InnoTek Systemberatung GmbH
;
; This file is part of VirtualBox Open Source Edition (OSE), as
; available from http://www.virtualbox.org. This file is free software;
; you can redistribute it and/or modify it under the terms of the GNU
; General Public License as published by the Free Software Foundation,
; in version 2 as it comes in the "COPYING" file of the VirtualBox OSE
; distribution. VirtualBox OSE is distributed in the hope that it will
; be useful, but WITHOUT ANY WARRANTY of any kind.
;
; If you received this file as part of a commercial VirtualBox
; distribution, then only the terms of your commercial VirtualBox
; license agreement apply instead of the previous paragraph.
;

%include "VBox/asmdefs.mac"

BEGINCODE
extern NAME(TSTCompareCtx)
extern NAME(TSTSaveCtx)


BEGINPROC tstProg1ForeverAsm
    mov     edx, [esp + 4]              ; pCtx1
    mov     ecx, [esp + 8]              ; pCtx2
    push    0                           ; counter

    ; a little marker for debugging.
    mov     eax, ds
    mov     gs, eax
    mov     fs, eax

    ;
    ; Get initial context.
    ; The state must be 100% correct here, which means
    ; we assume both ctx structs are initially equal and do compare them
    ; like we would in the loop.
    ;
    push    ecx
    push    edx
    call    NAME(TSTCompareCtx)
    lea     esp, [esp + 8]
    or      eax, eax
    jz      ok
    int03
ok:
    ; now we actually get the first state.
    push    edx
    call    NAME(TSTSaveCtx)
    lea     esp, [esp + 4]

    ;
    ; Forever.
    ;
daloop:
    xchg    ebx, [esp]
    lea     ebx, [ebx + 1]
    xchg    ebx, [esp]
    ; Save context.
    push    ecx
    call    NAME(TSTSaveCtx)
    lea     esp, [esp + 4]

    ; Compare with original context.
    push    ecx
    push    edx
    call    NAME(TSTCompareCtx)
    lea     esp, [esp + 8]
    or      eax, eax
    jz      daloop

    ; not equal!
    pop     edx
    shl     edx, 16
    or      eax, edx
    pop     ebx
    ret
ENDPROC   tstProg1ForeverAsm