;PROGRAMA QUE LEE DESDE EL TECLADO DOS NUMEROS DECIMALES, LOS
;SUMA Y LOS MUESTRA EN PANTALLA
; DEFINICION DE CONSTANTES
CR EQU 13 ; RETORNO DE CARRO AL PRINCIPIO DE LA LINEA
LF EQU 10 ; SALTA A LA SIGUIENTE LINEA
BS EQU 08 ; RETROCEDE UN ESPACIO
DATOS SEGMENT
MSG1 DB “INGRESA EL 1ER. NUMERO: “, “$”
MSG2 DB “INGRESA EL 2DO. NUMERO: “, “$”
MSG3 DB “LA SUMA ES: “, “$”
PROXLINEA DB 10,13,”$”
DATOS ENDS
CODIGO SEGMENT
ASSUME CS:CODIGO, DS:DATOS
INICIO:
MOV AX,DATOS
MOV DS,AX
MOV DX,OFFSET MSG1
MOV AH,09
INT 21H
MOV AH,01h
INT 21h
SUB AL,30h ;se pasa del cOdigo ASCII al decimal
MOV BL,AL
MOV DX,OFFSET PROXLINEA
MOV AH,09
INT 21H
MOV DX,OFFSET MSG2
MOV AH,09
INT 21H
MOV AH,01h ;se lee el siguiente nUmero
INT 21h
AND AL,0Fh ;se pasa del c¢digo ASCII al decimal
MOV AH,00
sub BL,AL ;se suman los nUmeros
MOV DX,OFFSET PROXLINEA
MOV AH,09
INT 21H
MOV DX,OFFSET MSG3
MOV AH,09
INT 21H
MOV AH,02h ;las 07 sgtes. inst. muestran el resultado
MOV DL,Bh
ADD DL,30h
INT 21h
MOV DL,BL
ADD DL,30h
INT 21h
MOV AH,4Ch ;se devuelve el control al inicio.
INT 21h
CODIGO ENDS
END INICIO
Hasta el 75 por ciento de los encuestados por la publicación Loaded Magazine admitió que pasaba una hora a la semana en el trabajo mandando correos graciosos.
“Al final era obvio que los tornillos estaban siendo vendidos a un precio bastante más bajo del habitual”, dijo un portavoz de la policía en la ciudad de Wuerzburg, en el sur del país.
