Написать программу с вводом натуральных чисел

.MODEL SMALL
.STACK 100h
 
DATA_SEG SEGMENT
    promptM db "Enter M (1-10): $"
    promptN db "Enter N (1-10): $"
    errMsg db "Invalid input. Please enter a number between 1 and 10.$"
    inputM db 0
    inputN db 0
    set1 db 10 dup(0)
    set2 db 10 dup(0)
    unionSet db 20 dup(0)
    intersectSet db 20 dup(0)
    diffSet db 20 dup(0)
    symmDiffSet db 20 dup(0)
    resultUnionMsg db 'Union: $'
    resultIntersectionMsg db 'Intersection: $'
    resultDifferenceMsg db 'Difference: $'
    resultSymmDiffMsg db 'Symmetric Difference: $'
    newline db 13, 10, '$'
DATA_SEG ENDS
 
CODE_SEG SEGMENT
ASSUME CS:CODE_SEG, DS:DATA_SEG
 
START:
    ; ????????????? ???????? ??????
    MOV AX, DATA_SEG
    MOV DS, AX
 
    ; ???? M
    LEA DX, promptM
    MOV AH, 09H
    INT 21H
    CALL ReadInput
    MOV inputM, AL
    CMP AL, 1
    JB INVALID_INPUT
    CMP AL, 10
    JA INVALID_INPUT
 
    ; ???? N
    LEA DX, promptN
    MOV AH, 09H
    INT 21H
    CALL ReadInput
    MOV inputN, AL
    CMP AL, 1
    JB INVALID_INPUT
    CMP AL, 10
    JA INVALID_INPUT
 
    ; ???? ????????
    CALL FillArray
 
    ; ?????????? ???????? ??? ???????????
    CALL UnionSets
    CALL Intersection
    CALL Difference
    CALL SymmetricDifference
 
    ; ????? ???????????
    CALL PrintUnion
    CALL PrintIntersection
    CALL PrintDifference
    CALL PrintSymmetricDifference
 
    ; ?????????? ?????????
    MOV AH, 4CH
    INT 21H
 
INVALID_INPUT:
    LEA DX, errMsg
    MOV AH, 09H
    INT 21H
    JMP START
 
; ????????? ??? ????? ?????
ReadInput PROC
    MOV AH, 01H ; ?????? ??????? ? ??????????
    INT 21H
    SUB AL, '0' ; ?????????????? ASCII ? ?????
    RET
ReadInput ENDP
 
; ????????? ??? ?????????? ????????
FillArray PROC
    ; ?????????? ??????? set1
    MOV CL, inputN
    LEA SI, set1
FILL1:
    MOV AH, 01H ; ?????? ??????? ? ??????????
    INT 21H
    SUB AL, '0' ; ?????????????? ASCII ? ?????
    MOV [SI], AL
    INC SI
    LOOP FILL1
 
    ; ?????????? ??????? set2
    MOV CL, inputN
    LEA SI, set2
FILL2:
    MOV AH, 01H ; ?????? ??????? ? ??????????
    INT 21H
    SUB AL, '0' ; ?????????????? ASCII ? ?????
    MOV [SI], AL
    INC SI
    LOOP FILL2
    RET
FillArray ENDP
 
; ????????? ??? ??????????? ????????
UnionSets PROC
    LEA SI, set1       ; ????????? ?? set1
    LEA DI, unionSet   ; ????????? ?? unionSet
    MOV CL, inputN     ; ?????????? ????????? ? set1
 
    ; ??????????? ????????? ?? set1 ? unionSet
UNION_COPY_SET1:
    MOV AL, [SI]
    MOV [DI], AL
    INC SI
    INC DI
    LOOP UNION_COPY_SET1
 
    ; ?????????? ????????? ?? set2 ? unionSet, ???? ?? ??? ? unionSet
    LEA SI, set2       ; ????????? ?? set2
    MOV CL, inputN     ; ?????????? ????????? ? set2
UNION_CHECK_SET2:
    MOV AL, [SI]
    PUSH CX            ; ?????????? CX
    LEA BX, unionSet   ; ????????? ?? unionSet
    MOV CL, inputN ; ?????????? ????????? ? unionSet
    XOR DI, DI         ; ????????? ??????? ??? unionSet
UNION_COMPARE:
    CMP AL, [BX]       ; ????????? ???????? ? ?????????? unionSet
    JE UNION_SKIP      ; ???? ??????? ??????, ??????????
    INC BX
    LOOP UNION_COMPARE
    MOV [DI], AL       ; ?????????? ???????? ? unionSet
    INC DI
UNION_SKIP:
    POP CX
    INC SI
    LOOP UNION_CHECK_SET2
    RET
UnionSets ENDP
 
; ????????? ??? ??????????? ????????
Intersection PROC
    LEA SI, set1       ; ????????? ?? set1
    LEA DI, intersectSet ; ????????? ?? intersectSet
    MOV CL, inputN     ; ?????????? ????????? ? set1
INTERSECTION_LOOP:
    MOV AL, [SI]
    LEA BX, set2       ; ????????? ?? set2
    MOV DL, inputN     ; ?????????? ????????? ? set2
INTERSECTION_COMPARE:
    CMP AL, [BX]       ; ????????? ???????? ? ?????????? set2
    JE INTERSECTION_ADD
    INC BX
    DEC DX
    JNZ INTERSECTION_COMPARE
    JMP INTERSECTION_SKIP ; ???? ??????? ?? ??????, ??????????
INTERSECTION_ADD:
    MOV [DI], AL       ; ?????????? ???????? ? intersectSet
    INC DI
INTERSECTION_SKIP:
    INC SI
    LOOP INTERSECTION_LOOP
    RET
Intersection ENDP
 
; ????????? ??? ???????? ???????? (set1 - set2)
Difference PROC
    LEA SI, set1       ; ????????? ?? set1
    LEA DI, diffSet    ; ????????? ?? diffSet
    MOV CL, inputN     ; ?????????? ????????? ? set1
DIFFERENCE_LOOP:
    MOV AL, [SI]
    LEA BX, set2       ; ????????? ?? set2
    MOV DL, inputN     ; ?????????? ????????? ? set2
    XOR DI, DI         ; ????????? ??????? ??? diffSet
DIFFERENCE_COMPARE:
    CMP AL, [BX]       ; ????????? ???????? ? ?????????? set2
    JE DIFFERENCE_SKIP
    INC BX
    DEC DX
    JNZ DIFFERENCE_COMPARE
    MOV [DI], AL       ; ?????????? ???????? ? diffSet
    INC DI
DIFFERENCE_SKIP:
    INC SI
    LOOP DIFFERENCE_LOOP
    RET
Difference ENDP
 
; ????????? ??? ?????????????? ???????? ????????
SymmetricDifference PROC
    ; ???????? (set1 - set2)
    CALL Difference
    LEA SI, diffSet    ; ????????? ?? diffSet
 
    ; ???????? (set2 - set1) ? ?????????? ? symmDiffSet
    LEA DI, symmDiffSet
    LEA BX, set2
    MOV CL, inputN
SYMM_DIFF_LOOP:
    MOV AL, [BX]
    LEA BX, set1
    MOV DL, inputM
    XOR DI, DI
SYMM_DIFF_COMPARE:
    CMP AL, [BX]
    JE SYMM_DIFF_SKIP
    INC BX
    DEC DX
    JNZ SYMM_DIFF_COMPARE
    MOV [DI], AL
    INC DI
SYMM_DIFF_SKIP:
    INC BX
    LOOP SYMM_DIFF_LOOP
    RET
SymmetricDifference ENDP
 
; ????????? ??? ?????? ??????????? ????????
PrintUnion PROC
    LEA DX, resultUnionMsg
    MOV AH, 09H
    INT 21H
    CALL SetColorUnion
    LEA SI, unionSet
    MOV CX, 20
PRINT_UNION_LOOP:
    MOV AL, [SI]
    CMP AL, 0
    JE PRINT_UNION_END
    MOV DL, AL
    ADD DL, '0'
    MOV AH, 02H
    INT 21H
    MOV DL, ' '
    INT 21H
    INC SI
    LOOP PRINT_UNION_LOOP
PRINT_UNION_END:
    CALL ResetColor
    RET
PrintUnion ENDP
 
; ????????? ??? ?????? ??????????? ????????
PrintIntersection PROC
    LEA DX, resultIntersectionMsg
    MOV AH, 09H
    INT 21H
    CALL SetColorIntersection
    LEA SI, intersectSet
    MOV CX, 20
PRINT_INTERSECTION_LOOP:
    MOV AL, [SI]
    CMP AL, 0
    JE PRINT_INTERSECTION_END
    MOV DL, AL
    ADD DL, '0'
    MOV AH, 02H
    INT 21H
    MOV DL, ' '
    INT 21H
    INC SI
    LOOP PRINT_INTERSECTION_LOOP
PRINT_INTERSECTION_END:
    CALL ResetColor
    RET
PrintIntersection ENDP
 
; ????????? ??? ?????? ???????? ????????
PrintDifference PROC
    LEA DX, resultDifferenceMsg
    MOV AH, 09H
    INT 21H
    CALL SetColorDifference
    LEA SI, diffSet
    MOV CX, 20
PRINT_DIFFERENCE_LOOP:
    MOV AL, [SI]
    CMP AL, 0
    JE PRINT_DIFFERENCE_END
    MOV DL, AL
    ADD DL, '0'
    MOV AH, 02H
    INT 21H
    MOV DL, ' '
    INT 21H
    INC SI
    LOOP PRINT_DIFFERENCE_LOOP
PRINT_DIFFERENCE_END:
    CALL ResetColor
    RET
PrintDifference ENDP
 
; ????????? ??? ?????? ?????????????? ???????? ????????
PrintSymmetricDifference PROC
    LEA DX, resultSymmDiffMsg
    MOV AH, 09H
    INT 21H
    CALL SetColorSymmDiff
    LEA SI, symmDiffSet
    MOV CX, 20
PRINT_SYMM_DIFF_LOOP:
    MOV AL, [SI]
    CMP AL, 0
    JE PRINT_SYMM_DIFF_END
    MOV DL, AL
    ADD DL, '0'
    MOV AH, 02H
    INT 21H
    MOV DL, ' '
    INT 21H
    INC SI
    LOOP PRINT_SYMM_DIFF_LOOP
PRINT_SYMM_DIFF_END:
    CALL ResetColor
    RET
PrintSymmetricDifference ENDP
 
; ????????? ??? ????????? ????? ???????????
SetColorUnion PROC
    MOV AH, 09H
    MOV BX, 0001h ; ???? ??? ??????????? (????? ?? ??????)
    MOV CX, 1
    INT 10H
    RET
SetColorUnion ENDP
 
; ????????? ??? ????????? ????? ???????????
SetColorIntersection PROC
    MOV AH, 09H
    MOV BX, 0002h ; ???? ??? ??????????? (??????? ?? ??????)
    MOV CX, 1
    INT 10H
    RET
SetColorIntersection ENDP
 
; ????????? ??? ????????? ????? ????????
SetColorDifference PROC
    MOV AH, 09H
    MOV BX, 0004h ; ???? ??? ???????? (??????? ?? ??????)
    MOV CX, 1
    INT 10H
    RET
SetColorDifference ENDP
 
; ????????? ??? ????????? ????? ?????????????? ????????
SetColorSymmDiff PROC
    MOV AH, 09H
    MOV BX, 0007h ; ???? ??? ?????????????? ???????? (????? ?? ??????)
    MOV CX, 1
    INT 10H
    RET
SetColorSymmDiff ENDP
 
; ????????? ??? ?????? ?????
ResetColor PROC
    MOV AH, 09H
    MOV BX, 0000h ; ????? ?????
    MOV CX, 1
    INT 10H
    RET
ResetColor ENDP
 
CODE_SEG ENDS
END START