lunes, 23 de octubre de 2017
Sitio oficial de PostgreSql
Trabajo de la semana por equipos:
bajar este manejador de base de Datos:
https://www.postgresql.org/
[14:59, 23/10/2017] Chavita: vaya a https://www.postgresql.org/download/
[14:59, 23/10/2017] Chavita: y q seleccionen el sistema operativo que tengan
[15:00, 23/10/2017] Chavita: que los mas seguro es windows
y alli bajamos el la version mas nueva....
hacer una base de datos
diseñar dos tablas
insertar registros
borrar registros
y crear un Triggers( para insertar, borrar o modificar)...
Tomar en cuenta la selección de videos proporcionados en clase....
Esta tarea sea checada y analizada por equipo el dia miercoles....
jueves, 19 de octubre de 2017
miércoles, 18 de octubre de 2017
lunes, 16 de octubre de 2017
programa ASCII(hexa) a binario en ensamblador
;===========================================================================
;===========================================================================
; PROGRAMA : pe17_cbi.asm
; FUNCION : Convierte un conjunto de caracteres ASCII a Binario.
; REALIZADO POR : Prof. Juan Juárez Fuentes
; EDITADO POR : Ing. Álan Alexander Valdez Casas
; COMPILADOR EN EL QUE SE EJECUTO: TASM 5.0
; FECHA : Septiembre 28 del 2017
;===========================================================================
; DECLARACION DE CONSTANTES
;===========================================================================
CR EQU 13
LF EQU 10
IMPRIMIR EQU 9
FIN EQU 4C00H
DOS EQU 21H
TAB EQU 09H
;===========================================================================
; DECLARACION DEL SEGMENTO DE DATOS
;===========================================================================
DATOS SEGMENT
ASCII DB 'A'
ASCII2 DB 'B'
ASCII3 DB 'C'
ASCII4 DB 'D'
ASCII5 DB 'E'
ASCII6 DB 'F'
ASCII7 DB 'G'
ASCII8 DB 'H'
ESPACIO DB CR,LF," ", "$"
BINARIO1 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO2 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO3 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO4 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO5 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO6 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO7 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO8 DB 8 DUP (100)," ", "$", TAB, TAB
MENSAJE1 DB CR,LF,TAB,"AC", "$"
MENSAJE2 DB CR,LF,TAB,"DC", "$"
DATOS ENDS
;===========================================================================
; DECLARACION DEL SEGMENTO DE PILA
;===========================================================================
PILA SEGMENT STACK 'STACK'
DW 128 DUP('P')
PILA ENDS
;===========================================================================
; DECLARACION DEL SEGMENTO DE CODIGO
;===========================================================================
CODIGO SEGMENT ; Inicio del segmento de c?digo
;-----------------------------------------------------------------------
pe17_cbi PROC FAR ; Inicio procedimiento pe15_cbi
;-------------------------------------------------------------------
ASSUME CS:CODIGO, SS:PILA, DS:DATOS ; EN DEBUG SE OBSERVA QUE HAST AAQUI
MOV AX, DATOS ; LOS SEGMENTOS DE PILA Y CODIGO YA TIENEN
MOV DS, AX ; SU VALORES FINALES, SOLO EL DE DATOS NO LO TIENE.
;-------------------------------------------------------------------
LEA DX, MENSAJE1
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ASCII
CALL ESCRIBE ; Imprimimos el ASCII original
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, BINARIO1 ; Imprimimos el n?mero binario ya convertidO
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO2
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO3 ; Imprimimos el n?mero binario ya convertidO
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO4
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO5 ; Imprimimos el n?mero binario ya convertidO
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO6
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO7 ; Imprimimos el n?mero binario ya convertidO
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO8
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
;-------------------------------------------------------------------
LEA SI, ASCII
LEA DI, BINARIO1
CALL ASCII2BIN
LEA SI, ASCII2
LEA DI, BINARIO2
CALL ASCII2BIN
LEA SI, ASCII3
LEA DI, BINARIO3
CALL ASCII2BIN
LEA SI, ASCII4
LEA DI, BINARIO4
CALL ASCII2BIN
LEA SI, ASCII5
LEA DI, BINARIO5
CALL ASCII2BIN
LEA SI, ASCII6
LEA DI, BINARIO6
CALL ASCII2BIN
LEA SI, ASCII7
LEA DI, BINARIO7
CALL ASCII2BIN
LEA SI, ASCII8
LEA DI, BINARIO8
CALL ASCII2BIN
;-------------------------------------------------------------------
;-------------------------------------------------------------------
LEA DX, MENSAJE2
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ASCII
CALL ESCRIBE ; Imprimimos el ASCII original
LEA DX, ASCII2
CALL ESCRIBE
LEA DX, ASCII3
CALL ESCRIBE
LEA DX, ASCII4
CALL ESCRIBE
LEA DX, ASCII5
CALL ESCRIBE
LEA DX, ASCII6
CALL ESCRIBE
LEA DX, ASCII7
CALL ESCRIBE
LEA DX, ASCII8
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
LEA DX, BINARIO1 ; Imprimimos el n?mero binario ya convertido
CALL ESCRIBE
LEA DX, BINARIO2
CALL ESCRIBE
LEA DX, BINARIO3
CALL ESCRIBE
LEA DX, BINARIO4
CALL ESCRIBE
LEA DX, BINARIO5
CALL ESCRIBE
LEA DX, BINARIO6
CALL ESCRIBE
LEA DX, BINARIO7
CALL ESCRIBE
LEA DX, BINARIO8
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
CALL SALIR ; Salimos del programa
;-------------------------------------------------------------------
pe17_cbi ENDP ; Fin del procedimiento pe15_cbi
;-----------------------------------------------------------------------
;----------------------------------------------------------------------
; Definicion del procedimiento. toma un buffer de 8 bits y lo transforma
; en uno de 64, recibe en el SI el de 8 y en DI el de 64
;----------------------------------------------------------------------
ASCII2BIN PROC NEAR
XOR AX, AX ; Limpiamos el AX para eliminar basura
; Movemos al CX la cantidad de caracteres ASCII para hacer un loop
MOV CX, 0
LEA DX, ESPACIO
CALL ESCRIBE
MOV CX, 1
;-------------------------------------
ASCII1: ; Este loop ir? de ASCII en ASCII transform?ndolo a binario
MOV AL, [SI] ; Movemos el siguiente car?cter ASCII al AL
PUSH CX ; Metemos el CX a la pila para guardar temporalmente el valor
MOV CX, 8 ; Metemos un nuevo valor al CX para un nuevo loop anidado
;---------------------------------
LOOP_SHIFT: ; Este loop producir? el n?mero binario para el ASCII actual
SHL AL, 1 ; Hacemos un SHIFT LEFT para mover el sig n?m binario al CF (1= UN BIT)
JC BIN_UNO ; Si el CF est? en uno es por que el siguiente n?m binario debe ser uno
MOV [DI], BYTE PTR '0' ; Sino el siguiente n?mero binario debe ser 0. Cuando se hace una escritura
JMP CICLO_SHIFT ; directa a memoria, es necesario indicar qu? tama?o posee el dato.
BIN_UNO: ; Para ello, se ha indicar un puntero a memoria, de tama?o BYTE o WORD:
MOV [DI], BYTE PTR '1' ; Cuando se hace una escritura directa a memoria, es necesario indicar qu?
CICLO_SHIFT: ; tama?o posee el dato. Para ello,
INC DI ; se ha indicar un puntero a memoria, de tama?o BYTE o WORD.
LOOP LOOP_SHIFT ; Seguimos con el ciclo anidado para sacar el siguiente n?m binario
;---------------------------------
POP CX ; Devolvemos al CX su valor original
INC SI
LOOP ASCII1 ; Seguimos con el siguiente ciclo para el siguiente valor ASCII
;-------------------------------------
RET ; Terminamos y regresamos
ASCII2BIN ENDP
;-----------------------------------------------------------------------
ESCRIBE PROC ; Inicio procedimiento ESCRIBE
MOV AH,IMPRIMIR ; Funci?n DOS para escribir texto en pantalla
INT DOS ; Llamar a la interrupci?n del DOS
RET ; Volver o retornar
ESCRIBE ENDP ; Fin del procedimiento ESCRIBE
;----------------------------------------------------------------------
SALIR PROC NEAR
MOV AX, FIN ; Mueve la instruccion para terminar el programa.
INT DOS ; Ejecuta la interrupci?n.
SALIR ENDP
;----------------------------------------------------------------------
CODIGO ENDS
;===========================================================================
END pe17_cbi
;===========================================================================
;===========================================================================
;===========================================================================
; PROGRAMA : pe17_cbi.asm
; FUNCION : Convierte un conjunto de caracteres ASCII a Binario.
; REALIZADO POR : Prof. Juan Juárez Fuentes
; EDITADO POR : Ing. Álan Alexander Valdez Casas
; COMPILADOR EN EL QUE SE EJECUTO: TASM 5.0
; FECHA : Septiembre 28 del 2017
;===========================================================================
; DECLARACION DE CONSTANTES
;===========================================================================
CR EQU 13
LF EQU 10
IMPRIMIR EQU 9
FIN EQU 4C00H
DOS EQU 21H
TAB EQU 09H
;===========================================================================
; DECLARACION DEL SEGMENTO DE DATOS
;===========================================================================
DATOS SEGMENT
ASCII DB 'A'
ASCII2 DB 'B'
ASCII3 DB 'C'
ASCII4 DB 'D'
ASCII5 DB 'E'
ASCII6 DB 'F'
ASCII7 DB 'G'
ASCII8 DB 'H'
ESPACIO DB CR,LF," ", "$"
BINARIO1 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO2 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO3 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO4 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO5 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO6 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO7 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO8 DB 8 DUP (100)," ", "$", TAB, TAB
MENSAJE1 DB CR,LF,TAB,"AC", "$"
MENSAJE2 DB CR,LF,TAB,"DC", "$"
DATOS ENDS
;===========================================================================
; DECLARACION DEL SEGMENTO DE PILA
;===========================================================================
PILA SEGMENT STACK 'STACK'
DW 128 DUP('P')
PILA ENDS
;===========================================================================
; DECLARACION DEL SEGMENTO DE CODIGO
;===========================================================================
CODIGO SEGMENT ; Inicio del segmento de c?digo
;-----------------------------------------------------------------------
pe17_cbi PROC FAR ; Inicio procedimiento pe15_cbi
;-------------------------------------------------------------------
ASSUME CS:CODIGO, SS:PILA, DS:DATOS ; EN DEBUG SE OBSERVA QUE HAST AAQUI
MOV AX, DATOS ; LOS SEGMENTOS DE PILA Y CODIGO YA TIENEN
MOV DS, AX ; SU VALORES FINALES, SOLO EL DE DATOS NO LO TIENE.
;-------------------------------------------------------------------
LEA DX, MENSAJE1
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ASCII
CALL ESCRIBE ; Imprimimos el ASCII original
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, BINARIO1 ; Imprimimos el n?mero binario ya convertidO
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO2
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO3 ; Imprimimos el n?mero binario ya convertidO
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO4
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO5 ; Imprimimos el n?mero binario ya convertidO
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO6
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO7 ; Imprimimos el n?mero binario ya convertidO
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO8
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
;-------------------------------------------------------------------
LEA SI, ASCII
LEA DI, BINARIO1
CALL ASCII2BIN
LEA SI, ASCII2
LEA DI, BINARIO2
CALL ASCII2BIN
LEA SI, ASCII3
LEA DI, BINARIO3
CALL ASCII2BIN
LEA SI, ASCII4
LEA DI, BINARIO4
CALL ASCII2BIN
LEA SI, ASCII5
LEA DI, BINARIO5
CALL ASCII2BIN
LEA SI, ASCII6
LEA DI, BINARIO6
CALL ASCII2BIN
LEA SI, ASCII7
LEA DI, BINARIO7
CALL ASCII2BIN
LEA SI, ASCII8
LEA DI, BINARIO8
CALL ASCII2BIN
;-------------------------------------------------------------------
;-------------------------------------------------------------------
LEA DX, MENSAJE2
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ASCII
CALL ESCRIBE ; Imprimimos el ASCII original
LEA DX, ASCII2
CALL ESCRIBE
LEA DX, ASCII3
CALL ESCRIBE
LEA DX, ASCII4
CALL ESCRIBE
LEA DX, ASCII5
CALL ESCRIBE
LEA DX, ASCII6
CALL ESCRIBE
LEA DX, ASCII7
CALL ESCRIBE
LEA DX, ASCII8
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
LEA DX, BINARIO1 ; Imprimimos el n?mero binario ya convertido
CALL ESCRIBE
LEA DX, BINARIO2
CALL ESCRIBE
LEA DX, BINARIO3
CALL ESCRIBE
LEA DX, BINARIO4
CALL ESCRIBE
LEA DX, BINARIO5
CALL ESCRIBE
LEA DX, BINARIO6
CALL ESCRIBE
LEA DX, BINARIO7
CALL ESCRIBE
LEA DX, BINARIO8
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
CALL SALIR ; Salimos del programa
;-------------------------------------------------------------------
pe17_cbi ENDP ; Fin del procedimiento pe15_cbi
;-----------------------------------------------------------------------
;----------------------------------------------------------------------
; Definicion del procedimiento. toma un buffer de 8 bits y lo transforma
; en uno de 64, recibe en el SI el de 8 y en DI el de 64
;----------------------------------------------------------------------
ASCII2BIN PROC NEAR
XOR AX, AX ; Limpiamos el AX para eliminar basura
; Movemos al CX la cantidad de caracteres ASCII para hacer un loop
MOV CX, 0
LEA DX, ESPACIO
CALL ESCRIBE
MOV CX, 1
;-------------------------------------
ASCII1: ; Este loop ir? de ASCII en ASCII transform?ndolo a binario
MOV AL, [SI] ; Movemos el siguiente car?cter ASCII al AL
PUSH CX ; Metemos el CX a la pila para guardar temporalmente el valor
MOV CX, 8 ; Metemos un nuevo valor al CX para un nuevo loop anidado
;---------------------------------
LOOP_SHIFT: ; Este loop producir? el n?mero binario para el ASCII actual
SHL AL, 1 ; Hacemos un SHIFT LEFT para mover el sig n?m binario al CF (1= UN BIT)
JC BIN_UNO ; Si el CF est? en uno es por que el siguiente n?m binario debe ser uno
MOV [DI], BYTE PTR '0' ; Sino el siguiente n?mero binario debe ser 0. Cuando se hace una escritura
JMP CICLO_SHIFT ; directa a memoria, es necesario indicar qu? tama?o posee el dato.
BIN_UNO: ; Para ello, se ha indicar un puntero a memoria, de tama?o BYTE o WORD:
MOV [DI], BYTE PTR '1' ; Cuando se hace una escritura directa a memoria, es necesario indicar qu?
CICLO_SHIFT: ; tama?o posee el dato. Para ello,
INC DI ; se ha indicar un puntero a memoria, de tama?o BYTE o WORD.
LOOP LOOP_SHIFT ; Seguimos con el ciclo anidado para sacar el siguiente n?m binario
;---------------------------------
POP CX ; Devolvemos al CX su valor original
INC SI
LOOP ASCII1 ; Seguimos con el siguiente ciclo para el siguiente valor ASCII
;-------------------------------------
RET ; Terminamos y regresamos
ASCII2BIN ENDP
;-----------------------------------------------------------------------
ESCRIBE PROC ; Inicio procedimiento ESCRIBE
MOV AH,IMPRIMIR ; Funci?n DOS para escribir texto en pantalla
INT DOS ; Llamar a la interrupci?n del DOS
RET ; Volver o retornar
ESCRIBE ENDP ; Fin del procedimiento ESCRIBE
;----------------------------------------------------------------------
SALIR PROC NEAR
MOV AX, FIN ; Mueve la instruccion para terminar el programa.
INT DOS ; Ejecuta la interrupci?n.
SALIR ENDP
;----------------------------------------------------------------------
CODIGO ENDS
;===========================================================================
END pe17_cbi
;===========================================================================
;===========================================================================
jueves, 12 de octubre de 2017
Métodos Turtle y Screen:
https://docs.python.org/2/library/turtle.html
24.5.2. Visión general sobre los métodos Turtle y Screen disponibles
24.5.2.1. Métodos de tortugas
- Movimiento de la tortuga
- Control de la pluma
-
- Estado del dibujo
- Control de color
- Relleno
- Más control de dibujo
- Estado de tortuga
-
- Visibilidad
- Apariencia
- Uso de eventos
- Métodos especiales de tortuga
24.5.2.2. Métodos de TurtleScreen / Screen
- Control de ventana
- Control de animación
- Uso de eventos de pantalla
- Configuración y métodos especiales
- Métodos específicos de Screen
video con turtle:
https://www.youtube.com/results?search_query=figuras+con+turtle+de+python
https://www.youtube.com/watch?v=HLvifpyCk54&t=196s&pbjreload=10
miércoles, 11 de octubre de 2017
Prog de Potencia en Ensamblador
; Juan Pablo Vazquez Sonora, Jose Luis Vanoye Bocanegra, Karla Aldrete Tovar
.model small ; se define el modelo de memoria
.stack 64 ; se define el tamano de la pila
.data ;define variables
nombre db "CALCULAR LA POTENCIA DE UN NUMERO", 13, 10, 13, 10, '$' ; Titulo del programa que aparece en pantalla del DOC
mensaje1 db "POR FAVOR INGRESE LA BASE: ",13,10,'$' ; Mensaje de ingreso de la potenciacion
mensaje2 db "POR FAVOR INGRESE EL EXPONENTE: ",13,10,'$' ; Mensaje al usuario para ingreso del exponente
mensaje3 db "EL RESULTADO ES: ", '$' ; Mensaje al imprimir el resultado de la operacion
pot db 1 ; Variable de tipo db
base db 0 ; Variable para guardar base
exp db 0 ; Variable para guardar exponente
byteh db 0
bytel db 0
salto db " ", 13,10,'$' ; Salto una fila
.code
inicio proc far
mov ax, @data ; Direccionamiento segmento de datos
mov ds,ax ; Se guarda lo que esta en ax en el segmento datos
; limpia la pantalla
mov ah, 00
mov al, 03h
int 10h
; Inicializar registros
mov ah, 02h
mov bh, 00
mov dh, 00
mov dl, 00
int 10h
; Para mostrar el titulo
mov ah, 09h
lea dx, nombre
int 21h
mov ah, 09h ; Para impresion de caracteres
lea dx, salto ; para salto de filas
int 21h
mov ah, 09h
lea dx, mensaje1 ; Solicitud de numero para la base
int 21h
mov ah, 01h ; Leer y mostrar el numero digitado
int 21h
sub al, 30h ; Para hacer la conversion ASCII
mov base, al ; Se pasa a la variable base
int 21h
mov ah, 09h ; Para impresion de caracteres
lea dx, salto ; Para salto de una fila
int 21h
; Para solicitar exponente
mov ah, 09h
lea dx, mensaje2
int 21h
; Leer y mostrar el valor digitado
mov ah, 01h
int 21h
sub al, 30h ; Para hacer la conversion ASCII
mov exp, al ; Se pasa el exponente a la variable exp
int 21h
mov cl, exp ;Se cambia el registro cx con el numero de iteraciones
product:
mov al, base ; Se mueve el valor de la base al registro al
mov bl, pot ; Se mueve a bl el valor de variable pot
mul bl ; Se multiplica a bl
mov pot, al ; Se pone el resultado en la variable pot
loop product ; Se retorna a la etiqueta product si cx no es cero
mov ah, 09h ; Para impresion de caracteres
lea dx, mensaje3; Para salto de una fila
int 21h
mov al, pot
aam
mov bytel, al
mov byteh, ah
mov ah, 02h
mov dl, byteh
add dl, 30h
int 21h
mov dl, bytel
add dl, 30h
int 21h
jmp salir
salir: ; Retorna el mando al DOS
mov ax, 4C00H
int 21h
inicio endp
end inicio
martes, 10 de octubre de 2017
bases de datos, archivos etc:
los datos, indices, etc, de las mismas, se guardan en 2 o 3 archivos diferentes, en el sub-directorio 'data' del directorio donde tienes instalado mySQL.
lunes, 9 de octubre de 2017
jueves, 5 de octubre de 2017
ASCII a binario
;===========================================================================
;===========================================================================
; PROGRAMA : pe17_cbi.asm
; FUNCION : Convierte un conjunto de caracteres ASCII a Binario.
; REALIZADO POR : Prof. Juan Juárez Fuentes
; EDITADO POR : Ing. Álan Alexander Valdez Casas
; COMPILADOR EN EL QUE SE EJECUTO: TASM 5.0
; FECHA : Septiembre 28 del 2017
;===========================================================================
; DECLARACION DE CONSTANTES
;===========================================================================
CR EQU 13
LF EQU 10
IMPRIMIR EQU 9
FIN EQU 4C00H
DOS EQU 21H
TAB EQU 09H
;===========================================================================
; DECLARACION DEL SEGMENTO DE DATOS
;===========================================================================
DATOS SEGMENT
ASCII DB 'A'
ASCII2 DB 'B'
ASCII3 DB 'C'
ASCII4 DB 'D'
ASCII5 DB 'E'
ASCII6 DB 'F'
ASCII7 DB 'G'
ASCII8 DB 'H'
ESPACIO DB CR,LF," ", "$"
BINARIO1 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO2 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO3 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO4 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO5 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO6 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO7 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO8 DB 8 DUP (100)," ", "$", TAB, TAB
MENSAJE1 DB CR,LF,TAB,"AC", "$"
MENSAJE2 DB CR,LF,TAB,"DC", "$"
DATOS ENDS
;===========================================================================
; DECLARACION DEL SEGMENTO DE PILA
;===========================================================================
PILA SEGMENT STACK 'STACK'
DW 128 DUP('P')
PILA ENDS
;===========================================================================
; DECLARACION DEL SEGMENTO DE CODIGO
;===========================================================================
CODIGO SEGMENT ; Inicio del segmento de c?digo
;-----------------------------------------------------------------------
pe17_cbi PROC FAR ; Inicio procedimiento pe15_cbi
;-------------------------------------------------------------------
ASSUME CS:CODIGO, SS:PILA, DS:DATOS ; EN DEBUG SE OBSERVA QUE HAST AAQUI
MOV AX, DATOS ; LOS SEGMENTOS DE PILA Y CODIGO YA TIENEN
MOV DS, AX ; SU VALORES FINALES, SOLO EL DE DATOS NO LO TIENE.
;-------------------------------------------------------------------
LEA DX, MENSAJE1
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ASCII
CALL ESCRIBE ; Imprimimos el ASCII original
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, BINARIO1 ; Imprimimos el n?mero binario ya convertidO
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO2
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO3 ; Imprimimos el n?mero binario ya convertidO
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO4
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO5 ; Imprimimos el n?mero binario ya convertidO
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO6
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO7 ; Imprimimos el n?mero binario ya convertidO
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO8
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
;-------------------------------------------------------------------
LEA SI, ASCII
LEA DI, BINARIO1
CALL ASCII2BIN
LEA SI, ASCII2
LEA DI, BINARIO2
CALL ASCII2BIN
LEA SI, ASCII3
LEA DI, BINARIO3
CALL ASCII2BIN
LEA SI, ASCII4
LEA DI, BINARIO4
CALL ASCII2BIN
LEA SI, ASCII5
LEA DI, BINARIO5
CALL ASCII2BIN
LEA SI, ASCII6
LEA DI, BINARIO6
CALL ASCII2BIN
LEA SI, ASCII7
LEA DI, BINARIO7
CALL ASCII2BIN
LEA SI, ASCII8
LEA DI, BINARIO8
CALL ASCII2BIN
;-------------------------------------------------------------------
;-------------------------------------------------------------------
LEA DX, MENSAJE2
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ASCII
CALL ESCRIBE ; Imprimimos el ASCII original
LEA DX, ASCII2
CALL ESCRIBE
LEA DX, ASCII3
CALL ESCRIBE
LEA DX, ASCII4
CALL ESCRIBE
LEA DX, ASCII5
CALL ESCRIBE
LEA DX, ASCII6
CALL ESCRIBE
LEA DX, ASCII7
CALL ESCRIBE
LEA DX, ASCII8
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
LEA DX, BINARIO1 ; Imprimimos el n?mero binario ya convertido
CALL ESCRIBE
LEA DX, BINARIO2
CALL ESCRIBE
LEA DX, BINARIO3
CALL ESCRIBE
LEA DX, BINARIO4
CALL ESCRIBE
LEA DX, BINARIO5
CALL ESCRIBE
LEA DX, BINARIO6
CALL ESCRIBE
LEA DX, BINARIO7
CALL ESCRIBE
LEA DX, BINARIO8
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
CALL SALIR ; Salimos del programa
;-------------------------------------------------------------------
pe17_cbi ENDP ; Fin del procedimiento pe15_cbi
;-----------------------------------------------------------------------
;----------------------------------------------------------------------
; Definicion del procedimiento. toma un buffer de 8 bits y lo transforma
; en uno de 64, recibe en el SI el de 8 y en DI el de 64
;----------------------------------------------------------------------
ASCII2BIN PROC NEAR
XOR AX, AX ; Limpiamos el AX para eliminar basura
; Movemos al CX la cantidad de caracteres ASCII para hacer un loop
MOV CX, 0
LEA DX, ESPACIO
CALL ESCRIBE
MOV CX, 1
;-------------------------------------
ASCII1: ; Este loop ir? de ASCII en ASCII transform?ndolo a binario
MOV AL, [SI] ; Movemos el siguiente car?cter ASCII al AL
PUSH CX ; Metemos el CX a la pila para guardar temporalmente el valor
MOV CX, 8 ; Metemos un nuevo valor al CX para un nuevo loop anidado
;---------------------------------
LOOP_SHIFT: ; Este loop producir? el n?mero binario para el ASCII actual
SHL AL, 1 ; Hacemos un SHIFT LEFT para mover el sig n?m binario al CF (1= UN BIT)
JC BIN_UNO ; Si el CF est? en uno es por que el siguiente n?m binario debe ser uno
MOV [DI], BYTE PTR '0' ; Sino el siguiente n?mero binario debe ser 0. Cuando se hace una escritura
JMP CICLO_SHIFT ; directa a memoria, es necesario indicar qu? tama?o posee el dato.
BIN_UNO: ; Para ello, se ha indicar un puntero a memoria, de tama?o BYTE o WORD:
MOV [DI], BYTE PTR '1' ; Cuando se hace una escritura directa a memoria, es necesario indicar qu?
CICLO_SHIFT: ; tama?o posee el dato. Para ello,
INC DI ; se ha indicar un puntero a memoria, de tama?o BYTE o WORD.
LOOP LOOP_SHIFT ; Seguimos con el ciclo anidado para sacar el siguiente n?m binario
;---------------------------------
POP CX ; Devolvemos al CX su valor original
INC SI
LOOP ASCII1 ; Seguimos con el siguiente ciclo para el siguiente valor ASCII
;-------------------------------------
RET ; Terminamos y regresamos
ASCII2BIN ENDP
;-----------------------------------------------------------------------
ESCRIBE PROC ; Inicio procedimiento ESCRIBE
MOV AH,IMPRIMIR ; Funci?n DOS para escribir texto en pantalla
INT DOS ; Llamar a la interrupci?n del DOS
RET ; Volver o retornar
ESCRIBE ENDP ; Fin del procedimiento ESCRIBE
;----------------------------------------------------------------------
SALIR PROC NEAR
MOV AX, FIN ; Mueve la instruccion para terminar el programa.
INT DOS ; Ejecuta la interrupci?n.
SALIR ENDP
;----------------------------------------------------------------------
CODIGO ENDS
;===========================================================================
END pe17_cbi
;===========================================================================
;===========================================================================
;===========================================================================
; PROGRAMA : pe17_cbi.asm
; FUNCION : Convierte un conjunto de caracteres ASCII a Binario.
; REALIZADO POR : Prof. Juan Juárez Fuentes
; EDITADO POR : Ing. Álan Alexander Valdez Casas
; COMPILADOR EN EL QUE SE EJECUTO: TASM 5.0
; FECHA : Septiembre 28 del 2017
;===========================================================================
; DECLARACION DE CONSTANTES
;===========================================================================
CR EQU 13
LF EQU 10
IMPRIMIR EQU 9
FIN EQU 4C00H
DOS EQU 21H
TAB EQU 09H
;===========================================================================
; DECLARACION DEL SEGMENTO DE DATOS
;===========================================================================
DATOS SEGMENT
ASCII DB 'A'
ASCII2 DB 'B'
ASCII3 DB 'C'
ASCII4 DB 'D'
ASCII5 DB 'E'
ASCII6 DB 'F'
ASCII7 DB 'G'
ASCII8 DB 'H'
ESPACIO DB CR,LF," ", "$"
BINARIO1 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO2 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO3 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO4 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO5 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO6 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO7 DB 8 DUP (100),"* ", "$", TAB, TAB
BINARIO8 DB 8 DUP (100)," ", "$", TAB, TAB
MENSAJE1 DB CR,LF,TAB,"AC", "$"
MENSAJE2 DB CR,LF,TAB,"DC", "$"
DATOS ENDS
;===========================================================================
; DECLARACION DEL SEGMENTO DE PILA
;===========================================================================
PILA SEGMENT STACK 'STACK'
DW 128 DUP('P')
PILA ENDS
;===========================================================================
; DECLARACION DEL SEGMENTO DE CODIGO
;===========================================================================
CODIGO SEGMENT ; Inicio del segmento de c?digo
;-----------------------------------------------------------------------
pe17_cbi PROC FAR ; Inicio procedimiento pe15_cbi
;-------------------------------------------------------------------
ASSUME CS:CODIGO, SS:PILA, DS:DATOS ; EN DEBUG SE OBSERVA QUE HAST AAQUI
MOV AX, DATOS ; LOS SEGMENTOS DE PILA Y CODIGO YA TIENEN
MOV DS, AX ; SU VALORES FINALES, SOLO EL DE DATOS NO LO TIENE.
;-------------------------------------------------------------------
LEA DX, MENSAJE1
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ASCII
CALL ESCRIBE ; Imprimimos el ASCII original
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, BINARIO1 ; Imprimimos el n?mero binario ya convertidO
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO2
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO3 ; Imprimimos el n?mero binario ya convertidO
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO4
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO5 ; Imprimimos el n?mero binario ya convertidO
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO6
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO7 ; Imprimimos el n?mero binario ya convertidO
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO8
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
;-------------------------------------------------------------------
LEA SI, ASCII
LEA DI, BINARIO1
CALL ASCII2BIN
LEA SI, ASCII2
LEA DI, BINARIO2
CALL ASCII2BIN
LEA SI, ASCII3
LEA DI, BINARIO3
CALL ASCII2BIN
LEA SI, ASCII4
LEA DI, BINARIO4
CALL ASCII2BIN
LEA SI, ASCII5
LEA DI, BINARIO5
CALL ASCII2BIN
LEA SI, ASCII6
LEA DI, BINARIO6
CALL ASCII2BIN
LEA SI, ASCII7
LEA DI, BINARIO7
CALL ASCII2BIN
LEA SI, ASCII8
LEA DI, BINARIO8
CALL ASCII2BIN
;-------------------------------------------------------------------
;-------------------------------------------------------------------
LEA DX, MENSAJE2
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ASCII
CALL ESCRIBE ; Imprimimos el ASCII original
LEA DX, ASCII2
CALL ESCRIBE
LEA DX, ASCII3
CALL ESCRIBE
LEA DX, ASCII4
CALL ESCRIBE
LEA DX, ASCII5
CALL ESCRIBE
LEA DX, ASCII6
CALL ESCRIBE
LEA DX, ASCII7
CALL ESCRIBE
LEA DX, ASCII8
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
LEA DX, BINARIO1 ; Imprimimos el n?mero binario ya convertido
CALL ESCRIBE
LEA DX, BINARIO2
CALL ESCRIBE
LEA DX, BINARIO3
CALL ESCRIBE
LEA DX, BINARIO4
CALL ESCRIBE
LEA DX, BINARIO5
CALL ESCRIBE
LEA DX, BINARIO6
CALL ESCRIBE
LEA DX, BINARIO7
CALL ESCRIBE
LEA DX, BINARIO8
CALL ESCRIBE
;-------------------------------------------------------------------
LEA DX, ESPACIO
CALL ESCRIBE
;-------------------------------------------------------------------
CALL SALIR ; Salimos del programa
;-------------------------------------------------------------------
pe17_cbi ENDP ; Fin del procedimiento pe15_cbi
;-----------------------------------------------------------------------
;----------------------------------------------------------------------
; Definicion del procedimiento. toma un buffer de 8 bits y lo transforma
; en uno de 64, recibe en el SI el de 8 y en DI el de 64
;----------------------------------------------------------------------
ASCII2BIN PROC NEAR
XOR AX, AX ; Limpiamos el AX para eliminar basura
; Movemos al CX la cantidad de caracteres ASCII para hacer un loop
MOV CX, 0
LEA DX, ESPACIO
CALL ESCRIBE
MOV CX, 1
;-------------------------------------
ASCII1: ; Este loop ir? de ASCII en ASCII transform?ndolo a binario
MOV AL, [SI] ; Movemos el siguiente car?cter ASCII al AL
PUSH CX ; Metemos el CX a la pila para guardar temporalmente el valor
MOV CX, 8 ; Metemos un nuevo valor al CX para un nuevo loop anidado
;---------------------------------
LOOP_SHIFT: ; Este loop producir? el n?mero binario para el ASCII actual
SHL AL, 1 ; Hacemos un SHIFT LEFT para mover el sig n?m binario al CF (1= UN BIT)
JC BIN_UNO ; Si el CF est? en uno es por que el siguiente n?m binario debe ser uno
MOV [DI], BYTE PTR '0' ; Sino el siguiente n?mero binario debe ser 0. Cuando se hace una escritura
JMP CICLO_SHIFT ; directa a memoria, es necesario indicar qu? tama?o posee el dato.
BIN_UNO: ; Para ello, se ha indicar un puntero a memoria, de tama?o BYTE o WORD:
MOV [DI], BYTE PTR '1' ; Cuando se hace una escritura directa a memoria, es necesario indicar qu?
CICLO_SHIFT: ; tama?o posee el dato. Para ello,
INC DI ; se ha indicar un puntero a memoria, de tama?o BYTE o WORD.
LOOP LOOP_SHIFT ; Seguimos con el ciclo anidado para sacar el siguiente n?m binario
;---------------------------------
POP CX ; Devolvemos al CX su valor original
INC SI
LOOP ASCII1 ; Seguimos con el siguiente ciclo para el siguiente valor ASCII
;-------------------------------------
RET ; Terminamos y regresamos
ASCII2BIN ENDP
;-----------------------------------------------------------------------
ESCRIBE PROC ; Inicio procedimiento ESCRIBE
MOV AH,IMPRIMIR ; Funci?n DOS para escribir texto en pantalla
INT DOS ; Llamar a la interrupci?n del DOS
RET ; Volver o retornar
ESCRIBE ENDP ; Fin del procedimiento ESCRIBE
;----------------------------------------------------------------------
SALIR PROC NEAR
MOV AX, FIN ; Mueve la instruccion para terminar el programa.
INT DOS ; Ejecuta la interrupci?n.
SALIR ENDP
;----------------------------------------------------------------------
CODIGO ENDS
;===========================================================================
END pe17_cbi
;===========================================================================
;===========================================================================
Suscribirse a:
Entradas (Atom)