Código Ensamblador

PILA SEGMENT PARA STACK 'STACK'

DW 512 DUP(0)

PILA ENDS



DATOS SEGMENT PARA 'DATA'

MENSAJE DB '****BIENVENIDO AL SISTEMA**** $'
MENSAJE1 DB 'Presione: $'
MENSAJE2 DB '(1) Hora$'
MENSAJE3 DB '(2) Fecha$'
MENSAJE4 DB '(3) Temperatura$'
MENSAJE5 DB '(4) Salir$'

DATOS ENDS



CODIGO SEGMENT PARA 'CODE'
INICIO PROC FAR
ASSUME SS:PILA, DS:DATOS, CS:CODIGOmov ax,DATOS
mov DS,AX



INIC:

MOV AH,09H
MOV DX,OFFSET MENSAJE
INT 21H;Imprime mensaje

mov ah,02h
mov dl,0dh;Retorno de Carro
int21h
mov dl,0ah;Salto de Linea
int 21h

MOV AH,09H
MOV DX,OFFSET MENSAJE1
INT 21H;Imprime mensaje1

mov ah,02h
mov dl,0dh;Retorno de Carro
int 21h
movdl,0ah;Salto de Linea
int 21h

MOV AH,09H
MOV DX,OFFSET MENSAJE2
INT 21H;Imprime mensaje 2

mov ah,02h
mov dl,0dh;Retorno de Carro
int 21h
mov dl,0ah;Salto de Linea
int21h

MOV AH,09H
MOV DX,OFFSET MENSAJE3
INT 21H;Imprime mensaje 3

mov ah,02h
mov dl,0dh;Retorno de Carro
int 21h
mov dl,0ah;Salto de Linea
int 21h

MOV AH,09HMOV DX,OFFSET MENSAJE4
INT 21H;Imprime mensaje 4

mov ah,02h
mov dl,0dh;Retorno de Carro
int 21h
mov dl,0ah;Salto de Linea
int 21h

MOV AH,09H
MOV DX,OFFSET MENSAJE5INT 21H;Imprime mensaje 5

mov ah,02h
mov dl,0dh;Retorno de Carro
int 21h
mov dl,0ah;Salto de Linea
int 21h

mov ah,02h
mov dl,0dh;Retorno de Carro
int 21h
movdl,0ah;Salto de Linea
int 21h

INGRESO:

mov ah,07h
int 21h
push ax ;guardo opcion
jmp BORRADO

BORRADO:
mov ah, 06h ;funcion para hacer scroll tambien con 7hmov al,0h ;cantidad de filas a enrollar
mov bh, 07h;atributos de color fondo y texto
mov CX,0700h;fila inicial en ch, columna inicial en cl
mov DX, 074fh;fila final en dh,...