.MODEL SMALL
.STACK 100H
.DATA
a1 DW ?
b1 DW ?
c1 DW ?
a2 DW ?
b2 DW ?
c2 DW ?

t DW ?
t1 DW ?
t2 DW ?
t3 DW ?
t4 DW ?
t5 DW ?
t6 DW ?
t7 DW ?
.CODE
ARA PROC
PUSH ax
PUSH bx
PUSH cx
PUSH dx
MOV ax, a1
ADD ax, b1
MOV t, ax
MOV ax, t
MOV c1, ax
MOV t1, ax
MOV ax, c1
MOV ret, ax
POP dx
POP cx
POP bx
POP ax
POP t2
PUSH ret
PUSH t2
RET
ARA ENDP

MAIN PROC
MOV ax, @DATA
MOV ds, ax

MOV ax, 0
MOV c2, ax
MOV t3, ax
MOV ax, 10
MOV a2, ax
MOV t4, ax
MOV ax, 15
MOV b2, ax
MOV t5, ax
MOV ax, a2
MOV a1, ax
MOV ax, b2
MOV b1, ax
CALL ARA
POP t6
MOV ax, t6
MOV c2, ax
MOV t7, ax
MOV ax, c2
CALL OUTDEC
MOV ah,2
MOV dl,0Ah
INT 21h
MOV dl,0Dh
INT 21H

MOV ah,4Ch
INT 21h
MAIN ENDP


OUTDEC PROC
PUSH AX
PUSH BX
PUSH CX
PUSH DX
OR AX,AX
JGE @END_IF1
PUSH AX
MOV DL, '-'
MOV AH, 2
INT 21H
POP AX
NEG AX
@END_IF1:
XOR CX,CX
MOV BX, 10D
@REPEAT1:
XOR DX, DX
DIV BX
PUSH DX
INC CX
OR AX, AX
JNE @REPEAT1
MOV AH, 2
@PRINT_LOOP:
POP DX
OR DL, 30H
INT 21H
LOOP @PRINT_LOOP
POP DX
POP CX
POP BX
POP AX
RET
OUTDEC ENDP



END MAIN