Механизм ввода/вывода

[camel5]

Возникли сомнения в правильности написания процедуры ввода и вывода:
1)Даны два числа размером в слово. Найти максимальное из них.

.model small
.stack 100h
.data
X DW 3500h
Y DW 4000h
BUF1 DW 80 DUP(' ')
Z DB ?
.code
START:       MOV AX, @data
             MOV DS, AX
	
             MOV DX, OFFSET BUF1
             MOV AH,08H                 ; ВВОДИТ СИМВОЛЫ НЕ ВЫВОДИТ НА ЭКРАН
             INT 21
             MOV AX, X
             CMP AX, Y	                ;x=y?
             JGE  M1	                ;x>=y -> M
             MOV   AX, Y
M1:          MOV Z, AX 
           
             mov dh, z
             mov ah,02 
             int 21h 
             mov dl,dh 
             int 21h
END START

2)вычисление факториала

model small
.stack 100h
.data
N     DW 1121h
digit DW ?
.code
START:mov ax, @data
      mov ds, ax
	  mov ax, N
	  mov cx, [digit]
m1:   mul cx
      dec cx
	  cmp cx, N
	  jne m1
	  mov ax, N
	  mov cx, [digit]
      mul ax
      loop m1
	  int 21h 
	  ret
	  mov ah, 09h
	  lea dx, digit
	  MOV AX, 4C00H
      INT 21H
END START

3)Сравнить два числа X и Y. Если они равны, вывести на экран строку ‘X=Y’, иначе – ‘X <>Y’.

model small
.stack 100h
.data
  X dw 1214h
  Y dw  2346h
  equal db "X = Y$"
  not_equal db "X<>Y$"
.code
START:mov ax, @data
      mov ds, ax
      mov ax,X
      cmp ax,Y
      jz a1
      mov dx,offset not_equal
      jmp a2
      a1: mov dx,offset equal
      a2: mov ah,9
      int 21h
      mov ah, 09h       
      lea dx,  equal
      int 21h  
	  ;---Выход из программы:
      mov ax,4c00h      
      int 21h
 END START

4.Дано десятичное число N. Подсчитать количество цифр в числе.

MODEL SMALL
.stack 100h
.data
     Number    DW    15678    ; 2-байтовое число
     C         DB     ?       ; кол-во цифр
     D         DW    10       ; делитель 
.code 
START:  MOV AX,@DATA       
        MOV DS,AX

		mov ah, 08h
		int 21h
        MOV  AX,  Number          ; требование команды DIV (делимое должно быть в AX) 

@@:      NEG  AX                  ; ПОЛУЧЕНИЕ НЕОТРИЦАТЕЛЬНОГО ЧИСЛА
         JS    @@  
         MOV  BL, 1               ; цифры будут считаться  в ВL (как минимум одна цифра есть)

                                  ; делим число на 10 до тех пор,  пока данное число не станет < 10
WHILE1: CMP  AX, 10               ; если число стало < 10,  то выйти из цикла
        JB     ENDWHILE1      
        XOR   DX,  DX              ; обнулить DX (так как DIV делит пару DX: AX на 2-байтовое числo D )     
        INC  BL                    ; увеличение счетчика цифр
        DIV  D                     ; разделить число на 10              
        JMP   WHILE1
ENDWHILE1:MOV C,  BL               ; записать ответ в однобайтовую ячейку памяти
          mov dl,  BL
          or  DL,  30h
          mov ah,  2
          int 21h
		  ;последние изменения
		  mov ah, 09h
		  lea dx, C
          MOV AX, 4C00H
          INT 21H
END START