File compilato + sorgente qui: Binario.zip

;Questo programma trasforma un numero decimale in binario.

.model small
.stack
.data
msg1 db "Inserisci un numero: $"
msg2 db "Il numero in binario e': $"
vet db 8 DUP (?)
numero db 0
cifra db ?
.code
acapo macro
		mov ah, 2
		mov dl, 13
		int 21h

		mov ah, 2
		mov dl, 10
		int 21h
endm
inizio:
		mov ax, @data
		mov ds, ax

		lea dx, msg1
		mov ah, 9
		int 21h

cicloz:		mov ah, 1
		int 21h

		cmp al, 13
		je fineciclo

		sub al, 30h
		mov cifra, al

		mov al, numero
		mov bl, 10
		mul bl

		add al, cifra
		
		mov numero, al
		
		jmp cicloz

fineciclo:	mov si, 7
		mov cx, 8

		xor ah, ah

ciclo:		shr numero, 1
		jc zi

		mov vet[si], 30h
	
		jmp no

zi:		mov vet[si], 31h
		
no:		dec si
		loop ciclo

		acapo
		
		lea dx, msg2
		mov ah, 9
		int 21h

		mov cx, 8
		mov si, 0
		
ciclostampa:	mov dl, vet[si]
		mov ah, 2
		int 21h

		inc si

		loop ciclostampa

		mov ah, 4ch
		int 21h
end inizio