Armando Hdez Leal

viernes, 3 de mayo de 2019

Programa 11 -Imprime numeros-

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 VALORES NUMERICOS DEC Y HEX 91.3 ;"
DB 13,10,13,TAB,TAB,"==============================================",13,10,"$"
VALOR1 DW 41D,"$"
VALOR2 DW 42D,"$"
VALOR3 DW 43D,"$"
VALOR4 DW 44D,"$"
VALOR5 DW 45D,"$"
VALOR6 DW 46,"$"
VALOR7 DW 47,"$"
VALOR8 DW 48,"$"
VALOR9 DW 49,"$"
VALOR10 DW 50,"$"
VALOR11 DW 31H,"$"
VALOR12 DW 32H,"$"
VALOR13 DW 33H,"$"
VALOR14 DW 34H,"$"
VALOR15 DW 35H,"$"
VALOR16 DW 36H,"$"
VALOR17 DW 37H,"$"
VALOR18 DW 38H,"$"
VALOR19 DW 39H,"$"
VALOR20 DW 40H,"$"

DATOS ENDS

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

CODIGO SEGMENT
EXA PROC NEAR
ASSUME CS:CODIGO, DS:DATOS, SS:PILA
MOV AX,DATOS
MOV DS,AX
LEA DX,ENCABEZADO
CALL ESCRIBE
LEA DX,VALOR1
CALL ESCRIBE

LEA DX,VALOR2
CALL ESCRIBE
LEA DX,VALOR3
CALL ESCRIBE
LEA DX,VALOR4
CALL ESCRIBE
LEA DX,VALOR5
CALL ESCRIBE
LEA DX,VALOR6
CALL ESCRIBE
LEA DX,VALOR7
CALL ESCRIBE
LEA DX,VALOR8
CALL ESCRIBE
LEA DX,VALOR9
CALL ESCRIBE
LEA DX,VALOR10
CALL ESCRIBE
LEA DX,VALOR11
CALL ESCRIBE
LEA DX,VALOR12
CALL ESCRIBE
LEA DX,VALOR13
CALL ESCRIBE
LEA DX,VALOR14
CALL ESCRIBE
LEA DX,VALOR15
CALL ESCRIBE
LEA DX,VALOR16
CALL ESCRIBE
LEA DX,VALOR17
CALL ESCRIBE
LEA DX,VALOR18
CALL ESCRIBE
LEA DX,VALOR19
CALL ESCRIBE
LEA DX,VALOR20
CALL ESCRIBE

CALL SALIR
EXA ENDP

ESCRIBE PROC
MOV AH,09
INT 21H
RET
ESCRIBE ENDP

SALIR PROC NEAR
MOV AX,FIN
INT DOS
RET
SALIR ENDP
CODIGO ENDS
END EXA

Programa 10 -Binario-

Programa 9 -Colores-

CR EQU 13
LF EQU 10
BIOS EQU 10H
DOS EQU 21H
TEXTO EQU 3
FIN EQU 4C00H

DATOS SEGMENT
TITULO DB "KARY_PEREZ"
COLORES DB 01001110B
DB 11101111B
DB 10110001B
DB 01011100B
DB 00110001B
DB 01011111B
DB 01101011B
DB 01011100B
DB 01101111B
DB 01001110B
DB 00110001B
DATOS ENDS

PILA SEGMENT STACK
DB 64 DUP("PILA")
PILA ENDS

CODIGO SEGMENT
COL PROC FAR
ASSUME CS:CODIGO, DS:DATOS, SS:PILA
MOV AX,DATOS
MOV DS,AX
MOV AX,TEXTO
INT BIOS
MOV CX,11
XOR SI,SI
BUCLE:
PUSH CX
MOV DX,SI
ADD DX,35
MOV DH,12
CALL COLOCA
MOV AL,[SI+OFFSET TITULO]
MOV BL,[SI+OFFSET COLORES]
CALL COLOR
POP CX
INC SI

LOOPNZ BUCLE
MOV AH,8
INT DOS
XOR DX,DX
CALL COLOCA
MOV AX,FIN
INT DOS
COL ENDP

COLOR PROC
MOV AH,9
XOR BH,BH
INT BIOS
RET
COLOR ENDP

COLOCA PROC
MOV AH,2
XOR BX,BX
INT BIOS
RET
COLOCA ENDP
CODIGO ENDS
END COL

jueves, 2 de mayo de 2019

Programa 8 -Borrar pantalla, posicion del cursor y cambio de color de pantalla

CR EQU 13

LF EQU 10

TEC_8 EQU 8

IMPRIMIR_9 EQU 9

FIN_4C00H EQU 4C00H

DOS_21H EQU 21H

BIOS_10H EQU 10H

TAB EQU 09H

BELL EQU 07H

DATOS SEGMENT

RENGLON DB 0

COLUMNA DB 0

MENSAJE DB CR, LF, 'POSICION (X.Y) DEL MENSAJE: KARINA SANCHEZ'

DB ' DESPUES DE BORRAR PANTALLA',CR,LF,'$'

DATOS ENDS

PILA SEGMENT STACK

DW 100 DUP('0')

PILA ENDS

CODIGO SEGMENT

CLSP PROC FAR

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

MOV AX,DATOS

MOV DS, AX

LEA DX, MENSAJE

CALL LIMPIA_PANTALLA

CALL POSICION_CURSOR

MOV AH, IMPRIMIR_9

INT DOS_21H

MOV AX, FIN_4C00H

INT DOS_21H

CLSP ENDP

LIMPIA_PANTALLA PROC NEAR

MOV AX,0600H

MOV BH, 6FH ;0AH

MOV CX, 000H

MOV DX, 484FH

INT BIOS_10H

RET

LIMPIA_PANTALLA ENDP

POSICION_CURSOR PROC NEAR

MOV AH,02

MOV BH, 00

MOV DH, RENGLON

MOV DL, COLUMNA

INT BIOS_10H

RET

POSICION_CURSOR ENDP

CODIGO ENDS

END CLSP

Programa 7 -Cambio de color de pantalla-

PILA SEGMENT STACK 'STACK'
DB 100H DUP (?)
PILA ENDS

DATOS SEGMENT
MENSAJE DB 'Se ha cambiado el color de la pantalla$'
DATOS ENDS

CODIGO SEGMENT

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

INICIO:

MOV AH,06H
MOV BH,02FH ; 02fh= verde, 03fh=cyan, 06fh= cafe,
MOV CX,0000H
MOV DX,184FH
INT 10H

MOV AH,02H
MOV BH,00H
MOV DX,0000H
INT 10H

MOV AX,DATOS
MOV DS,AX
LEA DX,MENSAJE
MOV AH,9H
INT 21H

MOV AX,4C00H
INT 21H

CODIGO ENDS

END INICIO

Programa 6 -Posicion del cursor-

PILA SEGMENT STACK
DW 100 DUP('0')

PILA ENDS

CODIGO SEGMENT
PC PROC FAR
ASSUME CS:CODIGO, DS:DATOS, SS:PILA
MOV AX,DATOS
MOV DS, AX
LEA DX, MENSAJE
CALL POSICION_CURSOR
MOV AH, IMPRIMIR_9
INT DOS_21H
MOV AX, FIN_4C00H
INT DOS_21H

PC ENDP
POSICION_CURSOR PROC NEAR
MOV AH,02
MOV BH, 00
MOV DH, RENGLON
MOV DL, COLUMNA
INT BIOS_10H
RET
POSICION_CURSOR ENDP

CODIGO ENDS
END PC

miércoles, 1 de mayo de 2019

Programa 5 -Limpiar la pantalla-

FIN_4C00H EQU 4C00H
DOS_21H EQU 21H
BIOS_10H EQU 10H

}PILA SEGMENT STACK
DW 100 DUP ( '0' )
.PILA ENDS

}CODIGO SEGMENT
CLS PROC FAR
ASSUME CS:CODIGO, SS:PILA
CALL LIMPIA_PANTALLA
MOV AX, FIN_4C00H
INT DOS_21H
CLS END P

LIMPIA_PANTALLA PROC NEAR
MOV AX,0600H
MOV BH,0AH
MOV CX, 000H
MOV DX, 484FH
INT BIOS_10H
RET
LIMPIA_PANTALLA END P

CODIGO ENDS
END CLS