.MODEL SMALL


.STACK


.DATA



RIGA DB 80,79 DUP (?)


.CODE


.STARTUP


CALL    LEGGI
CALL    CONV
CALL    STAMPA
	MOV AH,4CH
	INT 21H

LEGGI   PROC
	MOV AL,0H
	MOV AH,0AH
	LEA DX,RIGA
	INT 21H
	RET
LEGGI   ENDP

CONV    PROC
	LEA SI,RIGA+2
	MOV CX,80
CICLO:  MOV AH,[SI]
	CMP AH,0DH
	JE  FUORI
	CMP AH,41H
	JL  NO
	CMP AH,5AH
	JG  NO
	ADD AH,20H
	MOV [SI],AH
NO:     INC SI
LOOP    CICLO
FUORI:  MOV BH,24H
	MOV [SI],BH
	RET
CONV    ENDP

STAMPA  PROC
	MOV AH,02H
	MOV DX,0AH
	INT 21H
	MOV AH,09H
	LEA DX,RIGA+2
	INT 21H
	RET
STAMPA  ENDP

END


CONVERTI        PROC
STAMPA          PROC
LEGGI