Получить все четырёхзначные числа, в записи которых сумма двух левых цифр равна произведению двух правых

mov Ax,num
mov dl,10
div dl
mov n4,AH   
mov num, AL

mov Ax,num

mov num, AL

mov byte ptr num, al

.model small
.stack
.data
 
msg1 db "num ne 4x znachnoe$"
n1 dw ?
n2 dw ?
n3 dw ?
n4 dw ?
num dw ?
S dw ?
M dw ?
 
.code
extrn read:near
extrn writer:near
.STARTUP
 
 
 
CALL read
mov num,Ax
 
mov Ax,num
mov dl,10
div dl
mov byte ptr n4, AH     ;записали в n4 остаток от деления на 10, т.е. 4ю цифру числа num для дальнейшей проверки
mov byte ptr num,AL     ;записали в num целую часть числа которою получили при делении на 10
mov num,Ax
cmp Ax,0                ;сравниваем число num с нулём, для того что бы проверить что число num - действительно четырёхзначное
je r                    ;если num = 0, то выводим ошибку
jmp m1                  ;если не равное нулю то идём дальше
 
m1:
mov Ax,num              
mov dl,10              
div dl
mov byte ptr n3, AH     ;записали в n3 остаток от деления на 10, т.е. 4ю цифру числа num для дальнейшей проверки
mov byte ptr num,AL     ;записали в num целую часть числа которою получили при делении на 10
mov num,Ax
cmp Ax,0                ;сравниваем число num с нулём, для того что бы проверить что число num - действительно четырёхзначное
je r                    ;если num = 0, то выводим ошибку
jmp m2                  ;если не равное нулю то идём дальше
 
m2:
mov Ax,num
mov dl,10
div dl
mov byte ptr n2, AH
mov byte ptr num,AL
mov num,Ax
cmp Ax,0
je r
jmp m3
 
m3:
mov Ax,num
mov dl,10
div dl
mov byte ptr n1, AH
mov byte ptr num,AL
mov num,Ax
cmp Ax,0
je f
jmp r
 
 
f:
mov Ax,n1
call writer
mov Ax,n2
call writer
mov Ax,n3
call writer
mov Ax,n4
call writer
 
 
r:
mov AH,9
mov dx,offset msg1
int 21h
 
 
 
 
.EXIT
END

.model small
.stack
.data
 
msg_len db "Число не 4-х значное...", 13, 10, '$'
msg_test    db "Printing...", 13, 10, '$'
 
thousand    dw 1000
hund        db 100
ten     db 10
 
number  dw 2423
 
S db ?
P db ?
 
.code
; extrn read:near
; extrn writer:near
 
.STARTUP
    ; call Read
    mov ax, number  ; Допустим, прочитали это число
    
    ; Сначала проверяем, что оно четырехзначное...
    ; для этого достаточно, чтобы частное от деления
    ; числа на 1000 было от 1 до 9...
    xor dx, dx
    div thousand    ; делим DX:AX на 1000
    cmp ax, 1       ; Если частное меньше 1 ...
    jl len_error
    cmp ax, 9       ; ... или больше 9, то уходим
    jg len_error
    
    ; Продолжаем работать с числом, которое прочитали
    mov ax, number
    div hund
    
    ; al - частное, т.е., 2 левые цифры
    push ax
    
    xor ah, ah
    div ten
    add al, ah
    mov S, al       ; в S - сумма двух крайних цифр слева
    
    pop ax
    
    ; ah - остаток, т.е., 2 правые цифры
    mov al, ah
    xor ah, ah
    div ten
    mul ah
    mov P, al       ; этого можно и не делать, это просто для красоты
                ; в P - произведение двух крайних цифр справа
 
    cmp al, S
    jne quit
    
    ; тут делаем с числом, хранящимся в number все, 
    ; что надо - печатаем его, сохраняем, если надо, куда-то
    ; у меня просто выводится сообщение
    mov ah, 9
    mov dx, offset msg_test
    int 21h 
 
    
    jmp quit
    
len_error:
    mov ah, 9
    mov dx, offset msg_len
    int 21h
quit:
    .EXIT
END

mov ax, 1000 ; Ну, или в любое другое хранилище, можно в переменную
mov cx, 9000
my_loop:
 
; тут работаешь с числом из AX
 
inc ax
loop my_loop

.model small
.stack
.data
 
n1 dw ?
n2 dw ?
n3 dw ?
n4 dw ?
num dw ?
S dw 0
M dw 1
 
.code
extrn read:near
extrn writer:near
.STARTUP
 
mov ax, 1000   
mov cx, 9000
my_loop:
 
mov cx,ax    ;запишим num в сх т.к. потом теряемего первоночальное значение
 
xor dx,dx      ;считываем 4-ю цифру
mov ax,num
mov bx,10
div bx
mov n4, dx
mov num, ax
 
xor dx,dx      ;считываем 3-ю цифру
mov ax,num
mov bx,10
div bx
mov n3, dx
mov num, ax
            
xor dx,dx      ;считываем 2-ю цифру
mov ax,num
mov bx,10
div bx
mov n2, dx
mov num, ax
 
xor dx,dx      ;считываем 1-ю цифру
mov ax,num
mov bx,10
div bx
mov n1, dx
mov num, ax
 
mov ax,S      
add ax,n1
mov S,ax
mov ax,S
add ax,n2
mov S,ax      ;нашли сумму 1-й и 2-й цифры
 
mov ax,n3
imul n4
mov M,ax      ;нашли произведение 3-й и 4-й цифры
 
mov S,ax
cmp ax,M
jne r          ;если сумма равна произведению то выводим на экран num
mov ax,cx
 
r:
mov ax,cx
call writer
 
 
inc ax
loop my_loop     
 
 
.EXIT
END

.model small
.stack
.data
 
thousand    dw 1000
hund        db 100
ten     db 10
 
S db ?
P db ?
 
.code
; extrn read:near
extrn writer:near
 
.STARTUP
    mov bx, 1000
    mov cx, 9000
my_loop:
 
    mov ax, bx
    div hund
    
    ; al - частное, т.е., 2 левые цифры
    push ax
    
    xor ah, ah
    div ten
    add al, ah
    mov S, al           ; в S - сумма двух крайних цифр слева
    
    pop ax
    
    ; ah - остаток, т.е., 2 правые цифры
    mov al, ah
    xor ah, ah
    div ten
    mul ah
    mov P, al       ; этого можно и не делать, это просто для красоты
                ; в P - произведение двух крайних цифр справа
 
    cmp al, S
    jne next
    
    mov ax, bx      ; Печатаем текущее число (writer у меня печатает содержимое AX)
    call writer
next:
    inc bx
    loop my_loop
    .EXIT
END