Programas básicos de lenguaje ensamblador

;Programa HOLA MUNDO
DATOS SEGMENT
MENSAJE DB "HOLA MUNDO$"
DATOS ENDS

PILA SEGMENT STACK "STACK"
DB 200 DUP(0)
PILA ENDS

CODIGO SEGMENT
ASSUMECS:CODIGO,DS:DATOS,SS:PILA
PRINCIPAL PROC
MOV AX,DATOS
MOV DS,AX
MOV AH,9
MOV DX,OFFSET MENSAJE
INT 21H
MOV AH,4CH
INT 21H
PRINCIPAL ENDP
CODIGOENDS
END PRINCIPAL

.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-

;Programa SUMA DE 3 NUMEROS

pila segment para stack "stack"
dw 32 dup (0)
pila endsdatos segment para "datos"
num1 dw 20
num2 dw 30
num3 dw ?
datos ends

codigo segment para "codigo"
empieza proc far
assume cs: codigo, ds:datos, ss:pila
mov ax,datos
mov ds,ax
mov ax,num1
add ax,num2
mov num3,ax
mov dx,num3
mov ax, 4C00Hint 21H
empieza endp
codigo ends
end empieza

.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-

;PROGRAMA OBTIENE EL COMPLEMENTO A 2 DE UN NUMERO

pilasegment para stack "stack"
db 200 dup (o)
pila ends

datos segment para "data"
var db 40H
datos ends

codigo segment para "code"
empieza proc far
assume cs: codigo, ds: datos, ss:pila

mov ax,datos
mov ds,ax

mov al,var

mov dl,al
mov ah,2
int 21

not al
inc al

mov dl,al
mov ah,2int 21
empieza endp
codigo ends
end empieza

.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-

;PROGRAMA CICLO LOOP, SUMAR 15D A 8 NUMEROS

PILA SEGMENTPARA STACK "STACK"

DB 200 DUP (0)
PIALA ENDS

DATOS SEGMENT PARA "DATA"

TABLA DB 20,26,15,28,19,27,16,29
DATOS ENDS

CODIGO SEGMENT PARA "CODE"

ASSUME CS:CODIGO,DS:DATOS.SS:PILA...