Помощь (ПРОГРАММИСТЫ)!!!! А то мне завтра п*зда на зачете

Программа работает. Только надо результат записать в текстовый файл. А вот с этим проблемы. Никак не могу разобраться!!!( Если кто-то знает ассемблер, то пожалуйста помогите с выводом.


Вот сама программа (1. Задан одномерный массив двухбайтовых знаковых чисел. Необходимо разработать программу для подсчета суммы положительных элементов массива.)


.stack 100h

.data


filename db 'resultat.txt',0 ;sozdanie file

handle dw ?

result db "Resultat: $"


len equ 10 ; kol-vo elementov v mas

mas dw 0,0, 4, -5, -3, 6, -2, -4, 6,1

sum dw 0


.code

mov ax,@dat

mov ds,ax

mov cx, len ; kol-vo elementov massiva - chislo povtoreniy cikla

mov si, offset mas


m1:

lodsw ;test flagov (test)

or ax, ax ;logichensko ili (bit 1)

js m2 ; perexod

add sum, ax ;proverka nyly (dobovlyaem)


m2:

loop m1 ; cick

mov ax, sum

xor ax, ax ;index i, numeracia s 0

mov ax, sum


outInt proc

test ax, ax ; proverka flagov

jnc oi1 ; perexod

mov cx, ax

mov ah, 02h

mov dl, '_'

int 21h

mov ax, cx

neg ax ;kolvo cifr derghitsa v CX


oi1:

xor cx, cx

mov bx, 10 ;osnovanie cc. 10 dly desyterchnoy

;proverka na chentost


oi2:

xor dx, dx ;prisvaivanie resultata (ne ravno <>)

div bx ;delenie

push dx ;razmechenie znachenie v steke +4

inc cx

test ax, ax ; proverka flagov

jnz oi2 ; perexod

mov ah, 02h ; vyvod, esli ...

;proverka na nechetnost


oi3:

pop dx ; razmechenie znachenie v steke -4

cmp dl, 9 ;sravnenie chisel

jbe oi4 ; perexod

add dl,7


oi4:

add dl, '0'

int 21h ; vyvod

loop oi3 ; cikl


OutInt endp


mov ax,4c00h

int 21h ; vozvrat

end