"> Віднімання 2х УДЦ з довільною кількістю розрядів
Prog1 segment cs: Prog1, ds: Prog1 db 'Vvedite 1-e chislo $' db 'Vvedite 2-e chislo $ ' db ' Rezyltat: $ 'db '0 $' db 'oshibka vvoda! $' db 102 ; для 1го числа 0 db 100 dup (0) db 102 ; для 2го числа
db 0 db 100 dup (0) db '0123456789 ' db '$' db '$'
flag db 0_1 db 0 ; зберігає довжину 1го чісла_2 db 0 ; зберігає довжину 2го числа
zz dw 0
k10 dw 10
buf dw 0_SEG1 dw 0 ; зберігає адресу блоку виділеної ВП для першого чісла_SEG2 dw 0 ; зберігає адресу блоку виділеної ВП для другого числа dw 0 ; зберігає адресу блоку виділеної ВП для результату
Proc1 proc cs ds
call ClrScr
; # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
; Введення чисел і переведення їх у потрібну форму
; # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
; Курсор вліво вгору
