ustify">; Кінець програми
eoj: mov ah, 4CH 21H endp
; Функція "Відняти" proc: es, BLOCK_SEG1 al, es: [di] ; в al розряд першого числа
mov es, BLOCK_SEG2 bl, es: [di] ; в bl розряд другого числа
jc V2 ; jc - чи був займ, якщо так то v3 si, 0 ; перевірка на кінець числа Konec al, bl ; віднімання з позикою ; корекція es, REZ es: [di], al ; збереження результату
inc di si V1
V2: al, bl es, REZ es: [di], al di
dec si V1: bx, bx bl, dlina_1
mov es, REZ es: [di], al di, bx m: di es, BLOCK_SEG1 al, es: [di] es, REZ es: [di], al di, bx metka
m:
ret
vsub endp
; висновок помилки і перехід до кінця програми (eoj)
Error proc
lea dx, er
mov ah, 09H21Heojendp
; Очищення екрану
ClrScr procbpbp, spaxah, 0al, 210haxbp
retendp
; Установка курсору в потрібне положення на екрані
CXY procbpbp, spaxbxdxbh, 0ah, 2dx, [bp + 4] 10hdxbxaxbpendp
Prog1 endsSEGMENTENDS proc1
