Miscellany

STAMPA_BIN 						PROC NEAR
											MOV DX,OFFSET BIN_MESS
											CALL STAMPA_STRINGA
											MOV BX,0
NEW: 									MOV DL,[CODICE_TASTO+BX] ;LEGGE IL CODICE DEL TASTO
											PUSH BX
											MOV BX,[INDEX]
											MOV [VALORI+BX],DL
											POP BX
											INC BX
											INC INDEX
											MOV DH,00h ;CONTATORE DI BITS
											SHL DL,01h
											SHL DL,01h
											SHL DL,01h
											SHL DL,01h
CICLO_BINARIO: 				XOR AL,AL 
											SHL DL,01h 
											ADC AL,AL 
											CALL STAMPA_NUMERO
											INC DH
											CMP DH,03h
											JBE CICLO_BINARIO ;SE NON E' ZERO RICLICLA 
											TEST BX,3
											JNZ NOZ
											TEST BX,16
											JNZ	NOZ
											MOV DX,OFFSET PUNTO
											CALL STAMPA_STRINGA
NOZ:  								CMP BX,16
											JB NEW
											RET
STAMPA_BIN 						ENDP