Исправить код программы: Ввести с клавиатуры 8-разрядное двоичное число Х, установить младший бит этого числа так, чтобы количество единичных бит в двоичном числе Х стало четным

[Zhan1234]

Задание: Ввести с клавиатуры восьмиразрядное двоичное число Х, установить младший бит этого числа таким образом, чтобы количество единичных бит в двоичном числе Х стало четным. Результат преобразования вывести в файл в 16-ричной форме.
Помогите пожалуйста модернизировать код (сделать поменьше) и добавить вывод сообщений ("Введите число").
Вот мой код:

TITLE PROG
.model small
.stack 100h
.data
   bait       db   ?
   shesnads   db   16
   edinits    db   ?
   Name1      db   'txt.txt',0 
   FM         dw   ?  
   ras        db   ?
   dva        db   ?   
.code
begin:
     mov     ax,@data
     mov     ds,ax
     mov	cx,8
vv_0_1:
	mov	ah,1
	int	21h
	cmp	al,31h
	jz	vv1
	cmp	al,30h
	jz	vv0
	jmp	vv_0_1  ;если введен ни ноль и ни единица, то число не считывается и запрос повторяется
vv1:
	stc
	rcl	bait,1
	jmp	loo
vv0:
	clc
	rcl	bait,1
loo:
	loop	vv_0_1
	mov cx,8
	mov  bl,bait
m1:  
   rcl     bl,1
   jb      m2
   loop  m1
   jmp   nex
   m2:  
   inc    edinits
   loop  m1
nex:            ;проверка четного/нечетного количества единиц
   mov ah,0
   mov al,edinits
   mov cl,2
   div cl
   cmp ah,0
   jz  viv       ;если четно -- идем в viv
   rcr bait,1
   jc  craven1   ;проверка последнего бита
   stc           ;делаем последний бит единицей, если он равен 0
   rcl bait,1
   jmp viv             
craven1:
   clc           ;делаем последний бит 0, если он равен единице
   rcl bait,1
viv:             
   mov   ah,5bh  ;создание файла, если его еще нет, отсюда и до mov ah,4ch -- вывод в файл
   mov   cx, 0 
   lea   dx, Name1 
   int   21h 
   mov  ax,3D01h; открытие файла  
   lea    dx, Name1   
   int    21h                        
   mov FM, ax
   mov al,bait   ;разобъем 16ричное число на 2 байта
   mov ah,0
   div shesnads
   mov ras,al
   mov dva,ah    
   cmp ras,10    ;сделаем из числа его символьный код аски     
   jns bukvi1
   mov al,30h
   add ras,al
   jmp bek2
bukvi1:
   mov al,37h
   add ras,al
bek2:
   cmp dva,10
   jns bukvi2
   mov al,30h
   add dva,al
   jmp filen
bukvi2:
   mov al,37h
   add dva,al
filen:
   mov ah, 40h   ;запись первого байта в файл	
   mov bx, FM	
   lea dx, ras
   mov cx, 1
   int 21h
   mov ah, 40h   ;запись второго байта в файл	
   mov bx, FM	
   lea dx, dva
   mov cx, 1		
   int 21h
   mov ah, 3Eh   ;закрытие файла	
   mov bx, FM
   int 21h
   mov ah,4ch
   int 21h
end

_____
1) Название темы не соответствует правилам форума
Название темы должно адекватно отражать суть решаемой задачи/проблемы! (на первый раз я исправил)

2) Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

Сообщение от Zhan1234

добавить вывод сообщений ("Введите число")

это несложно:
в секции .data пишете:

.data
mess_ent db "Vvedite chislo:",'$'

потом в коде программы:

  lea dx, mess_ent
  mov ah, 9 
  int 21h

[R71MT]

;FASM-code.. (.model tiny)
;---------------------------
org     100h
jmp     start

mes0    db    13,10,10,' Type BIN: $'
mes1    db    13,10,' Result..: $'
buff    db    9 dup('$')
fName   db    'out.txt',0

start:  mov   ah,9              ; запрос на ввод..
        mov   dx,mes0           ;
        int   21h               ;

        mov   cx,8              ; символов для ввода
        xor   bl,bl             ; счётчик единиц
        mov   di,buff           ; буфер для записи строки
@00:    mov   ah,8              ; ввод без эха
        int   21h               ;
        cmp   al,'0'            ; фильтр ввода
        jb    @00               ;
        cmp   al,'1'            ;
        ja    @00               ;
        int   29h               ; выводим символ на экран
        stosb                   ;   ..в буфер его (для записи в файл)
        sar   al,1              ; выталкиваем мл.бит во-флаг CF
        jnc   @next             ; если не единица..
        inc   bl                ; иначе: считаем их
@next:  loop  @00               ;

        dec   di                ; DI = последний символ; BL = кол-во единиц.
        test  bl,1              ; BL не чётное ???
        jz    @okey             ; чётное..
        xor   byte[di],1        ; иначе: обратить младший бит символа

@okey:  mov   ah,9              ; результ
        mov   dx,mes1           ;
        int   21h               ;
        mov   dx,buff           ; выводим BIN-строку из буфера
        int   21h               ;

;//------[ Здесь запись буфера в файл ] ----------//

@exit:  xor   ax,ax             ; ждём клаву
        int   16h               ;
        cmp   al,27             ; ESC ?
        jne   start             ; нет - мотаем сначала..
        retn                    ; bye!