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

[Руслан]

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

http://picupic.net/images/2012-08-06/1049_mini.jpg (http://picupic.net/photo.php?id=1049)

[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

[Руслан]

щас проверю)