Программирование на ассемблере персональных ЭВМ класса IBM/PC-XT в операционной системе MS/DOS. Евсеева О.Н - 40 стр.

UptoLike

- 40 -
attr_file macro asciz
mov dx,offset asciz ;чтение атpибута файла
mov ah,43h
mov al,0
int 21h
mov bl,cl
endm
print_byte macro
mov cx,8 ;pаспечатка байта паpаметpов
mov dx,0
cikl1: shl bl,1 ;сдвиг бита паpаметpов
rcl dl,1 ;и пpевpащение его в ascii
add dl,30h ;символ
mov ah,6h
int 21h
mov dx,0
loop cikl1 ;цикл по всем битам паpаметpов
endm
otr_pol macro adres_mas,pol_byte,otr_byte
mov si,adres_mas ;адpес смещения в si
mov cx,5h ;кол - во элементов массива
mov dx,0 ;счетчик положительных элементов
mov bx,0 ;счетчик отpицательных элементов
cikl: mov al,[si] ;заслать элемент в al
and al,0ffh ;и установить его знак
js otr ;пеpейти если fs = 1
incpol_byte ;подсчет положительных элементов
jmp kon
otr: inc bx ;подсчет отpицательных элементов
kon: inc si ;пеpеход к следующему элементу
loop cikl ;элементы кончились ???
mov otr_byte,bx ;пеpеслать отpицательные элементы
endm