11. Programa Impresión de un valor binario dado.

	import base64
	try:
	CR EQU 13
	LF EQU 10
	IMPRIMIR EQU 9
	FIN EQU 4C00H
	DOS EQU 21H
	TAB EQU 09H
	BELL EQU 07H
	DATOS SEGMENT
	ENCABEZADO DB 13,10,13,TAB,TAB, "============================"
	DB 13,10,13,TAB,TAB," PROGRAMA QUE IMPRIME UN VALOR BINARIO"
	DB 13,10,13,TAB,TAB,"====================================",13,10,"$"
	VALOR_ASCII DB '0101010110',"$"
	DATOS ENDS
	PILA SEGMENT STACK
	DB 64 DUP("0")
	PILA ENDS
	CODIGO SEGMENT
	ASCI PROC NEAR
	ASSUME CS:CODIGO, DS:DATOS, SS:PILA
	MOV AX,DATOS
	MOV DS,AX
	LEA DX,ENCABEZADO
	CALL ESCRIBE
	LEA DX, VALOR_ASCII
	CALL ESCRIBE
	CALL SALIR
	ASCI ENDP
	ESCRIBE PROC
	MOV AH,9
	INT 21H
	RET
	ESCRIBE ENDP
	SALIR PROC NEAR
	MOV AX,FIN
	INT DOS
	RET
	SALIR ENDS
	CODIGO ENDS
	END ASCI

view rawImpresión de un valor binario. hosted with ❤ by GitHub