Otchyot_SPro_Laba_3-1.docx
Отчёт по Лабораторной работе №3По дисциплине «Системное программирование»ВыполнилаСт.гр.ИНФ-10-1Михайлова Александра
Задание: Распаковать слово в массив «0» и «1» и подсчитать количество единиц в битах с нечётными номерами
Код программы:extrn bdec:near, crlf:near, msg:near.model small.stack 100h.data mas db 16 dup(0) num dw 1234h rez db 'Count==>$'.codebegin: mov ax,@data mov ds,ax mov cx,16 mov si, offset mas xor bx,bx xor dl,dl mov bx,num xor al,al mov al,1 clc work: push cx rol bx,1 jnc m1 mov [si], al rcr cx,1 jnc m1 inc dl m1: inc si pop cx loop work; call crlf mov si, offset mas mov cx,16 output_mas: mov al, [si] call bdec inc si loop output_mas mov al,dl call crlf mov dx, offset rez call msg call bdec call crlf mov ah,4Ch int 21hend begin