LENGUAJES DE INTERFAZ: abril 2019

Programa 1- Hola mundo

CR EQU 13
LF EQU 0Ah

DATOS SEGMENT
MENSAJE DB CR,LF,'HOLA MUNDO...',CR,LF,'$'
DATOS ENDS
PILA SEGMENT STACK
DB 64 DUP('PILA')
PILA ENDS
CODIGO SEGMENT
HM PROC FAR
ASSUME CS: CODIGO, DS:DATOS,SS:PILA

MOV AX,DATOS
MOV DS, AX
LEA DX, MENSAJE

MOV AH,9
INT 21H

MOV AX, 4C00H
INT 21H

HM ENDP
CODIGO ENDS
END HM

Corrida del programa

Programa 2-Uso de constantes

CR EQU 13
LF EQU 10
IMPRIMIR EQU 9
FIN EQU 4C00H
DOS EQU 21H

DATOS SEGMENT
TEXTO DB CR,LF,'EJEMPLO USO DE CONSTANTES',CR,LF,'$'
DATOS ENDS
PILA SEGMENT STACK
DB 64 DUP('PILA')
PILA ENDS

CODIGO SEGMENT
ASSUME CS: CODIGO, DS:DATOS,SS:PILA
INICIO:
MOV AX,DATOS
MOV DS, AX
MOV DX, OFFSET TEXTO
MOV AH,IMPRIMIR
INT DOS
MOV AX, FIN
INT DOS

CODIGO ENDS
END INICIO

Corrida del programa

Programa 3- Hola mundo usando funciones

CR EQU 13
LF EQU 10

DATOS SEGMENT
MENSAJE DB CR,LF,'HOLA MUNDO /CON FUNCION...',CR,LF,'$'
DATOS ENDS
PILA SEGMENT STACK
DB 64 DUP('PILA')
PILA ENDS
CODIGO SEGMENT
HMF PROC FAR
ASSUME CS: CODIGO, DS:DATOS,SS:PILA

MOV AX,DATOS
MOV DS, AX
LEA DX, MENSAJE

CALL ESCRIBE
MOV AX, 4C00H
INT 21H

HMF ENDP

ESCRIBE PROC
MOV AH,9
INT 21H
RET
ESCRIBE ENDP
CODIGO ENDS
END HMF

Corrida del programa

Programa 4-Uso de procedimientos y mensajes en pantalla

CR EQU 13
LF EQU 10

DATOS SEGMENT
LINEA DB CR,LF,'KARINA SANCHEZ',CR,LF,'$'
LINEA1 DB CR,LF,'TECNOLOGICO MATAMOROS',CR,LF,'$'
LINEA2 DB CR,LF,'INGENIERIA EN SISTEMAS COMPUTACIONALES',CR,LF,'$'
LINEA3 DB CR,LF,'EDAD: 21',CR,LF,'$'
DATOS ENDS
PILA SEGMENT STACK
DB 64 DUP('PILA')
PILA ENDS
CODIGO SEGMENT
LN PROC FAR
ASSUME CS: CODIGO, DS:DATOS,SS:PILA

MOV AX,DATOS
MOV DS, AX
LEA DX, LINEA
CALL ESCRIBE
LEA DX, LINEA1
CALL ESCRIBE
LEA DX, LINEA2
CALL ESCRIBE
LEA DX, LINEA3
CALL ESCRIBE
MOV AX, 4C00H
INT 21H

LN ENDP

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

CODIGO ENDS
END LN

Corrida del programa

Programa 5-Limpia pantalla

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

PILA SEGMENT STACK
DB 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 ENDP

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

Corrida del programa

Programa 6 -Posición del cursor

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',CR,LF,'$'
DATOS ENDS

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

Corrida del programa

Programa- 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

Corrida del programa

Programa 7-Borrar pantalla, posición 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

Corrida del programa

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

PROGRAMA 10-BINARIO

PROGRAMA 11-IMPRIME NÚMEROS

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 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

PROGRAMA 13-NÚMEROS 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,10,TAB,TAB,"==================================="
DB 13,10,13,TAB,TAB,"PROGRAMA QUE IMPRIME NUMEROS EN HEXADECIMAL"
DB 13,10,13,TAB,TAB,"=================================================",13,10,13,10,"$"
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 14-POTENCIA BINARIA

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,10,TAB,TAB,"=================================="

DB 13,10,13,TAB,TAB,"PROGRAMA QUE CONVIERTE UN NUMERO ASCII A BINARIO"

DB 13,10,13,TAB,TAB,"==================================================",13,10,"$"

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 15-NUMERO ASCII

LF EQU 10

IMPRIMIR EQU 9

FIN EQU 4C00H

DOS EQU 21H

TAB EQU 09H

BELL EQU 07H

TECLADO EQU 8

DATOS SEGMENT

NUMERO_BINARIO DW 0,"$"

NUMERO_ASCII DB 6,0,6 DUP(?),"$"

M_ENCABEZADO DB 13,10,13,10,TAB,"=================================="

DB 13,10,13,TAB,"PROGRAMA QUE CONVIERTE UN NUMERO ASCII (CAPTURADO) A BINARIO"

DB 13,10,13,TAB,"================================================",13,10,"$"

M_ESPACIO DB 13,10,13,10,13,10,13,10,13,10,13,10,"$"

M_ASCII_ASCII DB 13,10,13,10,"NUMERO ADCII IMPRESO NOMRALMENTE COMO LO HACE UNA PC (EN ASCII)",13,10,"$"

M_BINARIO_ASCII DB 13,10,13,10,"NUMERO BINARIO (YA CONVERTIDO),",13,10,"IMPRESO NORMALMENTE COMO LO HACE UNA PC (EN ASCII):","$"

POTENCIA DW 001H,000AH,0064H,03E9H,2710H,"$"

DATOS ENDS

PILA SEGMENT STACK "STACK"

DW 128 DUP("P")

PILA ENDS

CODIGO SEGMENT

CAPT PROC NEAR

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

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

CODGIO ENDS

END CAPT

LENGUAJES DE INTERFAZ

martes, 9 de abril de 2019

Programas en Turbo Assembler

Programa 1- Hola mundo

Programa 2-Uso de constantes

Programa 3- Hola mundo usando funciones

Programa 4-Uso de procedimientos y mensajes en pantalla

Programa 5-Limpia pantalla

Programa 6 -Posición del cursor

Programa- cambio de color de pantalla

Programa 7-Borrar pantalla, posición del cursor y cambio de color de pantalla

PROGRAMA 9-COLORES

PROGRAMA 10-BINARIO

PROGRAMA 11-IMPRIME NÚMEROS

PROGRAMA 12- CONVERSIÓN

PROGRAMA 13-NÚMEROS EN HEXADECIMAL

PROGRAMA 14-POTENCIA BINARIA

PROGRAMA 15-NUMERO ASCII

Unidad 3 -Unidad 4

Denunciar abuso