prova

#make_com#
org 100h
include 'emu8086.inc'
jmp start
array db 20 dup(0)
min db ?
max db ?
cont dw ?
pkey DB 'prova$'
start:
call pthis
db 'Inserisci dei numeri, inserisci uno 0 per chiudere la lista',0
call a_capo
call inserimento
uscitaciclo:
call confronto
fine:
call a_capo
call a_capo
call pthis
db 'minimo=',0
xor ax,ax
mov al,min
cmp al,0
jge stampa1
not al
add al,1
call pthis
db '-',0
stampa1:
call print_num
call a_capo
call pthis
db "massimo= ", 0
xor ax, ax
mov al, max
cmp al, 0
jge stampa2
not al
add al, 1
call pthis
db "-", 0
ret
stampa2:
call print_num
call a_capo
call a_capo
lea dx,pkey
mov ah,09H
int 21h
mov ah, 1
int 21h
ret

DEFINE_PRINT_NUM_UNS
DEFINE_PRINT_NUM
DEFINE_SCAN_NUM
DEFINE_PTHIS

a_capo proc
mov ah, 2
mov dl, 10
int 21h
mov ah, 2
mov dl, 13
int 21h
ret
a_capo endp
inserimento proc
xor si, si
xor bx, bx
label_inserimento:
mov cx, 0
call scan_num
cmp cx, 0
je uscitaciclo
inc cont
mov array[si], cl
inc si
inc bx
call a_capo
cmp bx, 20
je uscitaciclo
jmp label_inserimento
ret
inserimento endp

confronto proc
xor si, si
mov al, array[si]
mov min, al
mov max, al
minimo:
inc si
cmp si, cont
je fine
mov al, array[si]
cmp min, al
jle massimo
mov min, al
massimo:
mov al, array[si]
cmp max, al
jge minimo
mov max, al
jmp minimo
ret
confronto endp


RET