include 'emu8086.inc'
CUADRO MACRO XI,YI,XF,YF,COLOR
MOV AX, 0600H
MOV BH, COLOR
MOV BL, 00H
MOV CH, YI
MOV CL, XI
MOV DH, YF
MOV DL, XF
INT 10h
endM
Cuadros macro
cuadro 1,1,10,5,160
posicion 2,3
desplegar M1
cuadro 1,1,10,5,40
posicion 3,3
desplegar M2
cuadro 1,1,10,5,70
posicion 4,3
desplegar M3
cuadro 1,1,10,5,100
posicion 5,3
desplegar M4
cuadro 1,1,10,5,130
posicion 6,3
desplegar M5
cuadro 1,1,10,5,160
posicion 7,3
desplegar M6
cuadro 1,1,10,5,180
posicion 8,3
desplegar M7
cuadro 1,1,10,5,200
posicion 2,3
desplegar M8
cuadro 1,1,10,5,20
posicion 2,3
desplegar M9
cuadro 1,1,10,5,40
posicion 2,3
desplegar M10
cuadro 1,1,10,5,60
posicion 2,3
desplegar M11
cuadro 1,1,10,5,80
posicion 2,3
desplegar M12
cuadro 1,1,10,5,120
posicion 2,3
desplegar M13
cuadro 1,1,25,5,160
posicion 2,3
desplegar M14
endM
POSICION MACRO X,Y
MOV DH, Y
MOV DL, X
MOV AH, 02
MOV BH, 00
INT 10H
ENDM
DESPLEGAR MACRO MENSAJE
MOV AH,09
MOV DX,OFFSET MENSAJE
INT 21h
ENDM
DATOS SEGMENT
M1 DB "E",'$'
M2 DB "Q",'$'
M3 DB "U",'$'
M4 DB "I",'$'
M5 DB "P",'$'
M6 DB "O",'$'
M7 DB "1",'$'
M8 DB "EQUIPO1",'$'
M9 DB "HUMBERTO",'$'
M10 DB "PEDRO",'$'
M11 DB "HUMBERTO",'$'
M12 DB "PEDRO",'$'
M13 DB "HUMBERTO",'$'
M14 DB "EQUIPO1 HUMBERTO, PEDRO",'$'
datos ends
CODIGO SEGMENT
ASSUME CS: CODIGO,DS:DATOS,SS:PILA
PRINCIPAL PROC
MOV AX,DATOS
MOV DS,AX
Cuadros
PRINCIPAL ENDP
CODIGO ENDS
END PRINCIPAL
Administración de Base de Datos
miércoles, 8 de mayo de 2019
Programa 9 Colores 2
include 'emu8086.inc'
CUADRO MACRO XI,YI,XF,YF,COLOR
MOV AX, 0600H
MOV BH, COLOR
MOV BL, 00H
MOV CH, YI
MOV CL, XI
MOV DH, YF
MOV DL, XF
INT 10h
endM
Cuadros macro
cuadro 1,1,10,5,160
posicion 2,3
desplegar M1
cuadro 1,1,10,5,40
posicion 3,3
desplegar M2
cuadro 1,1,10,5,70
posicion 4,3
desplegar M3
cuadro 1,1,10,5,100
posicion 5,3
desplegar M4
cuadro 1,1,10,5,130
posicion 6,3
desplegar M5
cuadro 1,1,10,5,160
posicion 7,3
desplegar M6
cuadro 1,1,10,5,180
posicion 8,3
desplegar M7
cuadro 1,1,10,5,200
posicion 2,3
desplegar M8
cuadro 1,1,10,5,20
posicion 2,3
desplegar M9
cuadro 1,1,10,5,40
posicion 2,3
desplegar M10
cuadro 1,1,10,5,60
posicion 2,3
desplegar M11
cuadro 1,1,10,5,80
posicion 2,3
desplegar M12
cuadro 1,1,10,5,120
posicion 2,3
desplegar M13
cuadro 1,1,25,5,160
posicion 2,3
desplegar M14
endM
POSICION MACRO X,Y
MOV DH, Y
MOV DL, X
MOV AH, 02
MOV BH, 00
INT 10H
ENDM
DESPLEGAR MACRO MENSAJE
MOV AH,09
MOV DX,OFFSET MENSAJE
INT 21h
ENDM
DATOS SEGMENT
M1 DB "E",'$'
M2 DB "Q",'$'
M3 DB "U",'$'
M4 DB "I",'$'
M5 DB "P",'$'
M6 DB "O",'$'
M7 DB "1",'$'
M8 DB "EQUIPO1",'$'
M9 DB "HUMBERTO",'$'
M10 DB "PEDRO",'$'
M11 DB "HUMBERTO",'$'
M12 DB "PEDRO",'$'
M13 DB "HUMBERTO",'$'
M14 DB "EQUIPO1 HUMBERTO, PEDRO",'$'
datos ends
CODIGO SEGMENT
ASSUME CS: CODIGO,DS:DATOS,SS:PILA
PRINCIPAL PROC
MOV AX,DATOS
MOV DS,AX
Cuadros
PRINCIPAL ENDP
CODIGO ENDS
END PRINCIPAL
CUADRO MACRO XI,YI,XF,YF,COLOR
MOV AX, 0600H
MOV BH, COLOR
MOV BL, 00H
MOV CH, YI
MOV CL, XI
MOV DH, YF
MOV DL, XF
INT 10h
endM
Cuadros macro
cuadro 1,1,10,5,160
posicion 2,3
desplegar M1
cuadro 1,1,10,5,40
posicion 3,3
desplegar M2
cuadro 1,1,10,5,70
posicion 4,3
desplegar M3
cuadro 1,1,10,5,100
posicion 5,3
desplegar M4
cuadro 1,1,10,5,130
posicion 6,3
desplegar M5
cuadro 1,1,10,5,160
posicion 7,3
desplegar M6
cuadro 1,1,10,5,180
posicion 8,3
desplegar M7
cuadro 1,1,10,5,200
posicion 2,3
desplegar M8
cuadro 1,1,10,5,20
posicion 2,3
desplegar M9
cuadro 1,1,10,5,40
posicion 2,3
desplegar M10
cuadro 1,1,10,5,60
posicion 2,3
desplegar M11
cuadro 1,1,10,5,80
posicion 2,3
desplegar M12
cuadro 1,1,10,5,120
posicion 2,3
desplegar M13
cuadro 1,1,25,5,160
posicion 2,3
desplegar M14
endM
POSICION MACRO X,Y
MOV DH, Y
MOV DL, X
MOV AH, 02
MOV BH, 00
INT 10H
ENDM
DESPLEGAR MACRO MENSAJE
MOV AH,09
MOV DX,OFFSET MENSAJE
INT 21h
ENDM
DATOS SEGMENT
M1 DB "E",'$'
M2 DB "Q",'$'
M3 DB "U",'$'
M4 DB "I",'$'
M5 DB "P",'$'
M6 DB "O",'$'
M7 DB "1",'$'
M8 DB "EQUIPO1",'$'
M9 DB "HUMBERTO",'$'
M10 DB "PEDRO",'$'
M11 DB "HUMBERTO",'$'
M12 DB "PEDRO",'$'
M13 DB "HUMBERTO",'$'
M14 DB "EQUIPO1 HUMBERTO, PEDRO",'$'
datos ends
CODIGO SEGMENT
ASSUME CS: CODIGO,DS:DATOS,SS:PILA
PRINCIPAL PROC
MOV AX,DATOS
MOV DS,AX
Cuadros
PRINCIPAL ENDP
CODIGO ENDS
END PRINCIPAL
sábado, 27 de abril de 2019
PROGRAMA NO.15 NUMERO ASCII
M_ASCII_ASCII DB 13,10,13,10,"NUMERO ASCII IMPERO NORMALMENTE COMO LO HACE UNA PC (EN ASCII)",13,10,"$"
M_BINARIO_ASCII DB 13,10,13,10,"NUMERO BINARIO (YA CONVERTIDO),",13,10,"IMPERSO NORMALMENTE COMO LO HACE UNA PC (EN ASCII): ","$"
POTENCIA DW 001H, 000AH,0064H,03E8H,2710H,"$"
DATOS ENDS
PILA SEGMENT STACK 'STACK'
DW 128 DUP('P')
PILA ENDS
CODIGO SEGMENT
CAPT PROC NEAR
ASSUME CS:CODIGO,DS:DATOS,SS:PILA
MOV AX,DATOS
MOV DS,AX
MOV AH,0AH
MOV DX,OFFSET NUMERO_ASCII
INT 21H
MOV DI,OFFSET NUMERO_ASCII + 1
MOV CX, [DI]
MOV SI,OFFSET NUMERO_ASCII+2
XOR CH,CH
MOV DI,OFFSET POTENCIA
DEC SI
ADD SI,CX
XOR BX, BX
STD
CICLO:
LODSB
SUB AL,30H
CBW
MOV DX,[DI]
MUL DX
ADD DI,2
ADD BX,AX
LOOP CICLO
MOV NUMERO_BINARIO,BX
LEA DX,M_ENCABEZADO
CALL ESCRIBE
LEA DX,M_ASCII_ASCII
CALL ESCRIBE
LEA DX,NUMERO_ASCII - 1
CALL ESCRIBE
LEA DX, M_BINARIO_ASCII
CALL ESCRIBE
LEA DX, NUMERO_BINARIO
CALL ESCRIBE
LEA DX, M_ESPACIO
CALL ESCRIBE
CALL SALIR
CAPT ENDP
ESCRIBE PROC
MOV AH,IMPRIMIR
INT DOS
RET
ESCRIBE ENDP
SALIR PROC NEAR
MOV AX, FIN
INT DOS
SALIR ENDP
END CAPT
PROGRAMA NO.14 POTENCIA BINARIO
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 CONVIERTE NUMEROS ASCII A BINARIO"
DB 13,10,13,TAB,TAB,"===============",13,10,13,"$"
VALOR_ASCII DB '33',"$"
VALOR_BINARIO DW 0, "$"
LONGITUD_ASCII DW 2,"$"
POTENCIA_10 DW 00000001B,"$"
DATOS ENDS
PILA SEGMENT STACK
DB 64 DUP('0')
PILA ENDS
CODIGO SEGMENT
POTE PROC NEAR
ASSUME CS:CODIGO,DS:DATOS,SS:PILA
MOV AX,DATOS
MOV DS,AX
LEA DX,VALOR_ASCII
CALL ESCRIBE
MOV BX,00001010B
MOV CX,LONGITUD_ASCII
LEA SI,VALOR_ASCII+1
ETIQUETA_1:
MOV AL,[SI]
AND AX,000FH
MUL POTENCIA_10
ADD VALOR_BINARIO, AX
MOV AX,POTENCIA_10
MUL BX
MOV POTENCIA_10,AX
DEC SI
LOOP ETIQUETA_1
LEA DX,ENCABEZADO
CALL ESCRIBE
LEA DX,VALOR_BINARIO
CALL ESCRIBE
CALL SALIR
POTE ENDP
ESCRIBE PROC
MOV AH,9
INT 21H
RET
ESCRIBE ENDP
SALIR PROC NEAR
MOV AX,FIN
INT DOS
RET
SALIR ENDP
CODIGO ENDS
END POTE
PROGRAMA NO.13 NUMEROS EN HEXADECIMAL
CR EQU 13
LF EQU 10
IMPRIMIR EQU 9
FIN EQU 4C00H
DOS EQU 21H
TAB EQU 09H
DATOS SEGMENT
ENCABEZADO DB 13,10,13,TAB,TAB, "=========="
DB 13,10,13,TAB,TAB,"PROGRAMA QUE IMPRIME NUMEROS HEXADECIMALES"
DB 13,10,13,TAB,TAB,"===============",13,10,13,"$"
DATOS ENDS
PILA SEGMENT STACK 'STACK'
DB 64 DUP ('0')
PILA ENDS
CODIGO SEGMENT
CEXA PROC NEAR
ASSUME CS:CODIGO, SS:PILA,DS:DATOS
ORG 100H
MOV AX,DATOS
MOV DS,AX
LEA DX,ENCABEZADO
CALL ESCRIBE
MOV CX, 200H
XOR DX,DX
CICLO:
CALL ESCRIBE_HEX
CALL ESCRIBE_CRLF
INC DX
LOOP CICLO
CALL SALIR
CEXA ENDP
ESCRIBE_HEX PROC NEAR
PUSH AX
PUSH CX
PUSH DX
OTRO_DIGITO:
PUSH CX
MOV CL,4
ROL DX,CL
CALL ESCRIBE_DIGITO_HEX
POP CX
LOOP OTRO_DIGITO
POP DX
POP CX
POP AX
RET
ESCRIBE_HEX ENDP
ESCRIBE_DIGITO_HEX PROC NEAR
PUSH AX
PUSH DX
AND DX,0FH
CMP DL,10
JAE ES_MAYOR_A_10
ADD DL,48
JMP IMPRIME_DIGITO
ES_MAYOR_A_10:
ADD DL,55
IMPRIME_DIGITO:
MOV AH,2
INT 21H
POP DX
POP AX
RET
ESCRIBE_DIGITO_HEX ENDP
ESCRIBE_CRLF PROC NEAR
PUSH AX
PUSH DX
MOV AH,2
MOV DL,13
INT 21H
MOV DL,10
INT 21H
POP DX
POP AX
RET
ESCRIBE_CRLF ENDP
ESCRIBE PROC
MOV AH,9
INT 21H
RET
ESCRIBE ENDP
SALIR PROC NEAR
MOV AX,FIN
INT DOS
RET
SALIR ENDP
CODIGO ENDS
END CEXA
PROGRAMA NO.12 CONVERSIÓN
CR EQU 13
LF EQU 10
IMPRIMIR EQU 9
FIN EQU 4C00H
DOS EQU 21H
TAB EQU 09H
DATOS SEGMENT
ASCII DB 'A','B','C','D','E','F','G','H'
ESPACIO DB CR,LF,"$"
BINARIO DB 64 DUP (?),"$"
MENSAJE1 DB CR,LF,TAB,"ANTES DE LA CONVERSION: ","$"
MENSAJE2 DB CR,LF,TAB,"DESPUES DE LA CONVERSION: ","$"
DATOS ENDS
PILA SEGMENT STACK 'STACK'
DW 128 DUP ('P')
PILA ENDS
CODIGO SEGMENT
CONV PROC FAR
ASSUME CS:CODIGO,SS:PILA,DS:DATOS
MOV AX,DATOS
MOV DS,AX
LEA DX,MENSAJE1
CALL ESCRIBE
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX,ASCII
CALL ESCRIBE
LEA DX,ESPACIO
CALL ESCRIBE
LEA DX,BINARIO
CALL ESCRIBE
LEA DX,ESPACIO
CALL ESCRIBE
LEA SI,ASCII
LEA DI,BINARIO
CALL ASCII2BIN
LEA DX,MENSAJE2
CALL ESCRIBE
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX,ASCII
CALL ESCRIBE
LEA DX,ESPACIO
CALL ESCRIBE
LEA DX,BINARIO
CALL ESCRIBE
LEA DX,ESPACIO
CALL ESCRIBE
CALL SALIR
CONV ENDP
ASCII2BIN PROC NEAR
XOR AX,AX
MOV CX,8
ASCII1:
MOV AL,[SI]
PUSH CX
MOV CX,8
LOOP_SHIFT:
SHL AL, 1
JC BIN_UNO
MOV [DI],BYTE PTR '0'
JMP CICLO_SHIFT
BIN_UNO:
MOV [DI], BYTE PTR '1'
CICLO_SHIFT:
INC DI
LOOP LOOP_SHIFT
POP CX
INC SI
LOOP ASCII1
RET
ASCII2BIN ENDP
ESCRIBE PROC
MOV AH,IMPRIMIR
INT DOS
RET
ESCRIBE ENDP
SALIR PROC NEAR
MOV AX, FIN
INT DOS
SALIR ENDP
CODIGO ENDS
END CONV
Suscribirse a:
Entradas (Atom)
-
Humberto Pérez Cruz ISC #Control: 16260648 1.1 Importancia de la programación en lenguaje ensamblador. El lenguaje ensamblador es un...
-
name "calcula el promedio de tres materias" include "emu8086.inc" org 100h .data pro db 4 dup (?) .code promedi...
-
name 'suma de dos numeros' include 'emu8086.inc' org 100 h . data suma db 2 dup ( ? ) . code Sumas proc printn ...
