.model small
.data
deg dw 90,90,90,60
Quad db 'Quadrilateral','$'
NotQuad db 'Not Quadrilteral','$'
.code
mov ax,@data
mov ds,ax
mov ax,0
mov ax,deg
add ax,deg+2
add ax,deg+4
add ax,deg+6
cmp ax,360
je equal
mov ax,0900h
LEA DX,NotQuad
int 21h
jmp ext
equal:
mov ax,0900h
LEA DX,Quad
int 21h
ext:
mov ax,4C00h
int 21h
end