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

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

http://picupic.net/images/2012-08-06/1049_mini.jpg

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

Код:

---

        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

---

щас проверю)