Переведите на ассемблер

[Руслан]

Привет. Кому не сложно - переведите пожалуйста данный код на ассемблере. Спасибо.

[Advertiser]

[Alex Rider]

Думаю, как-то так, не проверял:

        ld hl,50000
        ld ix,32774
loop    ld a,(hl)
        ld (ix + 2),a
        inc hl
        ld a,(hl)
        ld (ix + 0),a
        inc hl
        ld a,(hl)
        ld (ix + 1),a
        inc hl
        push ix
        push hl
        call 32768
        pop hl
        pop ix
        ld a,(hl)
        and a
        jr nz,loop
        inc hl
        ld a,(hl)
        and a
        jr nz,loop
        ret

[Руслан]

щас проверю)