Unidad No.3: Mejora programa # 9: Letras de colores(Versión Ingrid Sauceda)

Ejecución del programa:

Código:

include 'emu8086.inc'

Mostrar Macro Mensaje
    LEA DX,Mensaje ;mandamos el mensaje a leer
    MOV AH,9 ;usamos el servicio para mostrar en pantalla
    INT 21H
endM      

Terminar Macro
    MOV AX,4C00H
    INT 21H
endM

DATOS SEGMENT
    ENCABEZADO DB 13,10,13,09h,09h,"==============================="
    DB 13,10,13,09h,09h,"PROGRAMA QUE IMPRIME VALORES NUMERICOS DEC Y HEXA "
    DB 13,10,13,09h,09h,"================================",13,10,"$"
    ALINEAR DB 13,10,13,09h,09h
    VALOR_1 DW 41D,"$"
    VALOR_2 DW 42D,"$"
    VALOR_3 DW 43D,"$"
    VALOR_4 DW 44D,"$"
    VALOR_5 DW 45D,"$"
    VALOR_6 DW 46,"$"
    VALOR_7 DW 47,"$"
    VALOR_8 DW 48,"$"
    VALOR_9 DW 49,"$"
    VALOR_10 DW 50,"$"
DATOS ENDS


valores Macro  
    Mostrar ALINEAR
    Mostrar VALOR_1
    Mostrar VALOR_2
    Mostrar VALOR_3
    Mostrar VALOR_4
    Mostrar VALOR_5
    Mostrar VALOR_6   
    Mostrar VALOR_7
    Mostrar VALOR_8
    Mostrar VALOR_9
    Mostrar VALOR_10
endM

Titulo Macro
    Mostrar ENCABEZADO
endm

CODIGO SEGMENT
ASSUME CS: CODIGO,DS:DATOS,SS:PILA
Main PROC

MOV AX,DATOS
MOV DS,AX

Titulo
valores


Main ENDP  
Terminar
CODIGO ENDS
END Main

Unidad No.3: Mejora programa # 9: Letras de colores(Modificando emu 8086.inc)

Aportación de Carlos y Alex:

Aportación de Ambrocio y Torres:

Unidad No.3: Mejora programa # 9: Letras de colores(Version Ambrocio)

Ejecución:

Código:

CR EQU 13    ;Declaro retorno de carro

LF EQU 10    ;Declaro salto de linea

BIOS EQU 10H ;Declaro interrupcion 10h

DOS EQU 21H  ;Declaro interrupcion 21h

TEXTO EQU 3  ;Declaro el servicio 03 para la impresion de texto desde BIOS

FIN EQU 4C00H ;Declaro interrupcion de exit

VARIABLES SEGMENT          ;Declaro las variables  

    include "emu8086.inc"

    TITULO DB "JUENITO_XD" ;Un texto

    COLORES DB 01001110B   ;Una agrupacion de colores

    DB 11101111B           ;0= cursos parpadeante 000=color de fondo 0000=color del texto

    DB 10110001B

    DB 01011100B

    DB 00110001B

    DB 01011111B

    DB 01101011B

    DB 01011100B

    DB 01101111B

    DB 01001110B

    DB 00110001B

VARIABLES ENDS

VPILA SEGMENT;STACK       ;Declaro la pila

    DB 64 DUP("PILA")

VPILA ENDS

CODIGO SEGMENT

    COLO PROC FAR    ;Declaro un procedimiento

    ASSUME CS:CODIGO, DS:VARIABLES, SS:VPILA

    MOV AX,VARIABLES

    MOV DS,AX

    MOV AX,TEXTO     ;Invoco el servicio de impresion de texto 

    INT BIOS         ;Ejecuto el servicio con 10h

    MOV CX,11        ;Declaro el iterador en 11

    XOR SI,SI        ;Borro SI

    BUCLE:           ;Llamo al bucle

    PUSH CX

    MOV DX,SI        ;Indico la posicion de la letra a imprimir con SI

    ADD DX,35        ;Indico la coordenada en x, la coordenada inicial es x=35

    MOV DH,12        ;Indico la coordenada en y  

    CALL COLOCA      ;Llamo al sistema para que coloque el cursor donde yo quiero

    MOV AL,[SI+OFFSET TITULO] ;Le indico la letra a imprimir pasandole SI y el texto como parametros

    MOV BL,[SI+OFFSET COLORES]   ;Le indico los colores a imprimir pasandole SI y el conjunto de colores como parametros

    CALL COLOR                ;Llamo a la impresion del texto

    POP CX

    INC SI                     ;Incremento a SI para modificar la letra a imprimir y la coordenada en x

    

    LOOPNZ BUCLE

    MOV AH,8    ;08:Lee un caracter sin imprimir nada en pantalla

    INT DOS     ;Ejecuto el servicio

    XOR DX,DX   ;Limpio DX

    CALL COLOCA ;Coloco el cursor en las coordenadas x=0 y=0     

    PUT_CURSOR 10,10

    print "Hola mundo" 

    PUT_CURSOR 20,20

    print "Estas son las coordenadas( x=20, y=20)"

    TERMINA        ;MACRO TERMINA

    COLO ENDP

       

    include "C:\Users\AlexG\Desktop\Tec(Sexto semestre)\Lenguajes De Interfaz\Unidad No.3\practicas\practica 9_2\libreria.inc"

    

CODIGO ENDS

END COLO

Unidad No.3: Mejora programa # 9: Letras de colores(Version Torres)

Ejecución:

Código:

CR EQU 13    ;Declaro retorno de carro
LF EQU 10    ;Declaro salto de linea
BIOS EQU 10H ;Declaro interrupcion 10h
DOS EQU 21H  ;Declaro interrupcion 21h
TEXTO EQU 3  ;Declaro el servicio 03 para la impresion de texto desde BIOS
FIN EQU 4C00H ;Declaro interrupcion de exit

VARIABLES SEGMENT          ;Declaro las variables
    include "emu8086.inc"
    TITULO DB "Colores_UwU" ;Un texto
    COLORES DB 01001110B   ;Una agrupacion de colores
    DB 01101111B         
    DB 01110011B
    DB 01011100B
    DB 00110001B
    DB 01011111B
    DB 01101011B
    DB 01011100B
    DB 01101111B
    DB 01001110B
    DB 01101111B
VARIABLES ENDS

VPILA SEGMENT;STACK       ;Declaro la pila
    DB 64 DUP("PILA")
VPILA ENDS

CODIGO SEGMENT
    COLO PROC FAR    ;Declaro un procedimiento
    ASSUME CS:CODIGO, DS:VARIABLES, SS:VPILA
    MOV AX,VARIABLES
    MOV DS,AX
    MOV AX,TEXTO     ;Invoco el servicio de impresion de texto
    INT BIOS         ;Ejecuto el servicio con 10h
    MOV CX,11        ;Declaro el iterador en 11
    XOR SI,SI        ;Borro SI
    BUCLE:           ;Llamo al bucle
    PUSH CX
    MOV DX,SI        ;Indico la posicion de la letra a imprimir con SI
    ADD DX,35        ;Indico la coordenada en x, la coordenada inicial es x=35
    MOV DH,12        ;Indico la coordenada en y
    CALL COLOCA      ;Llamo al sistema para que coloque el cursor donde yo quiero
    MOV AL,[SI+OFFSET TITULO] ;Le indico la letra a imprimir pasandole SI y el texto como parametros
    MOV BL,[SI+OFFSET COLORES]   ;Le indico los colores a imprimir pasandole SI y el conjunto de colores como parametros
    CALL COLOR                ;Llamo a la impresion del texto
    POP CX
    INC SI                     ;Incremento a SI para modificar la letra a imprimir y la coordenada en x
  
    LOOPNZ BUCLE
    MOV AH,8    ;08:Lee un caracter sin imprimir nada en pantalla
    INT DOS     ;Ejecuto el servicio
    XOR DX,DX   ;Limpio DX
    CALL COLOCA ;Coloco el cursor en las coordenadas x=0 y=0   
    PUT_CURSOR 2,32
    print "Colores modificado"
    PUT_CURSOR 20,20
    print "El programa a sido ejecutado correctamente"
    TERMINA        ;MACRO TERMINA
    COLO ENDP
     
    include "C:\Users\AlexG\Desktop\Tec(Sexto semestre)\Lenguajes De Interfaz\Unidad No.3\practicas\practica 9_3\libreria.inc"
  
CODIGO ENDS
END COLO

Unidad 3.0 Trabajos de Turbo Assembler

Unidad No.3-Trabajando con Turbo Assembler

Programa No.1: Hola mundo


Ejecución del programa:

Código:

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

Programa No.2: Uso de constantes

Ejecución:

Código:

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

DATOS SEGMENT
    TEXTO DB 'EJEMPLO DE 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, PIN
    INT DOS

CODIGO ENDS
END INICIO

Programa No.3: Hola mundo con función

Ejecución:

Código:

CR EQU 13
LF EQU 10

DATOS SEGMENT
    MENSAJE DB, CR, LF, 'Hola mundo', 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

Programa No.4: Conjunto de lineas en pantalla con procedimiento

Ejecución:

Código:

CR EQU 13
LF EQU 10

DATOS SEGMENT
    LINEA1 DB CR, LF, 'Jaziel Martinez', CR, LF, '$'
    LINEA2 DB 'Tecnologico de Matamoros', CR, LF, '$'
    LINEA3 DB 'Ing. Sistemas Computacionales', 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, 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

Programa No.5: Limpiar pantalla

Ejecución:

Codigo:

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

Programa No.5_1: Cambiar de color la pantalla a verde

Ejecución:

Código:

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,2FH

       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 5_2: Cambiar de color la pantalla mediante opciones

Ejecucion:

Codigo:

Pila segment stack 'stack' ;Segmento de la pila

     db 100h dup (?)       ; A partir de la direccion 100 de la pila.

Pila ends

  datos segment

    

      titulo db 13,10,'  CAMBIAR FONDO DE PANTALLA  ',13,10,'$'

      mensaje db 'Presione ENTER si quiere la pantalla azul ' , ' Si quiere morado, presione 2 ',13,10,' Para salir ', ' Presione cualquier tecla',13,10,'$'

  datos ends

codigo segment ;segmento de codigo

       

       assume cs:codigo, ss:pila, ds:datos

Inicio:

           ;****************************** PREPARAR PANTALLA

   mov ah,0

       mov al,3h ; Modo Texto

       int 10h   ; Interrupcion de Video

       

       mov ax,0600h ; Limpiar Pantalla

       mov bh,0fh   ; O Color de fondo negro, el color de letra blanco

       mov cx,0000h

       mov dx,184Fh

       int 10h

       

       mov ah,02h

       mov bh,00

       mov dh,00

       mov dl,00

       int 10h

       

           ;****************************** MOSTRAR MENSAJE

       mov ax,datos

       mov ds,ax

       

       lea dx,titulo

       mov ah,9h

       int 21h

       

       lea dx,mensaje

       mov ah,9h

       int 21h

       

           ;****************************** CAPTURA DE TECLAS

       mov ah,08           ; Pausa y captura de datos db espera que el usuario presiona una tecla

       int 21h

       cmp al,13           ; Verifica al presionar ENTER, el cual tiene un codigo ascii

       je llamarAzul       ; Salto Condicional jump equals opcion 1 saltar si es igual a la opcion 1

       

       

       cmp al,50           ; Ascii 50 = numero 2 compara lo que tiene el regisro ah con el ascii 50 en el reg a1

       je llamarMorado

       

       jmp fin             ; Si no escoge ni ENTER ni 2, Sale del programa

       fin:                ; Saca el mensaje por pantalla

       mov ax,4c00h

       int 21h

       

llamarAzul:

      CALL AZULPROC

      

llamarMorado:

      CALL MORADOPROC

      

           ;****************************** STORE PROCEDURE AZUL

AZULPROC PROC NEAR

         mov ah,0

         mov al,3h ; Modo Texto

         int 10h   ; Interrupcion de video

         

         mov ax,0600h ; Limpiar Pantalla

         mov bh,0fh   ; Color de fondo negro, f color de letra blanco

         mov cx,0000h

         mov dx,184Fh

         int 10h

        

         mov ah,02h

         mov bh,00

         mov dh,00

         mov dl,00

         int 10h

         

;//////////////////////////////////////         

      mov ah,06h

      mov bh,1fh     ;2fh

      mov cx,0000h

      mov dx,184fh

      int 10h

      

      mov ax,4c00h

      int 21h

RET

AZULPROC ENDP

;*****************************************STORED PROCEDURE MORADO

MORADOPROC PROC NEAR

           mov ah,06h

           mov bh,5fh        ;2fh;3 para azul, 4 para guinda, 5 morado

           mov cx,0000h

           mov dx,184fh

           int 10h

           

           mov ax,4c00h

           int 21h

           

RET

Programa No.6: Posición del cursor

Ejecución:

Codigo:

CR EQU 13

LF EQU 10

TECLADO_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: Jaziel Martinez', 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 POSICIONA_CURSOR

    MOV AH, IMPRIMIR_9

    INT DOS_21H

    MOV AX, FIN_4C00H

    INT DOS_21H

    

    PC ENDP

    POSICIONA_CURSOR PROC NEAR

    MOV AH, 02

    MOV DH, 00

    MOV DH, RENGLON

    MOV DL, COLUMNA

    INT BIOS_10H

    RET

    POSICIONA_CURSOR ENDP

CODIGO ENDS

END PC

Programa No.7: Borra pantalla y posiciona el cursor

Ejecución del programa:

Código:

CR EQU 13

LF EQU 10

TECLADO_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: Jaziel Martinez'

            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 POSICIONA_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, 0AH

  MOV CX, 000H

  MOV DX, 484FH

  INT BIOS_10H

  RET

  LIMPIA_PANTALLA ENDP

  

  POSICIONA_CURSOR PROC NEAR

  MOV AH, 01

  MOV BH, 00

  MOV DH, RENGLON

  MOV DL, COLUMNA

  INT BIOS_10H

  RET

  POSICIONA_CURSOR ENDP

  

CODIGO ENDS

END CLSP

  

 Programa No.8: Pide 3 cadenas

Ejecución del programa:

Código:

TECLADO EQU 8

IMPRIMIR EQU 9

FIN EQU 4C00H

DOS EQU 21H

BIOS EQU 10H

TAB EQU 09H

BELL EQU 07H

CR EQU 13

LF EQU 10

DATOS SEGMENT

    NOMBRE DB 30 DUP(32),"$"

    DIR DB 30 DUP(32),"$"

    TLF DB 15 DUP(32),"$"

    MENS1 DB "NOMBRE: $"

    MENS2 DB "DIRECCION: $"

    MENS3 DB "TELEFONO: $"

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

    CALL MODO_DE_VIDEO

    

    MOV DX,OFFSET MENS1

    CALL ESCRIBE

    MOV SI,OFFSET NOMBRE

    MOV CX,8

    CALL PEDIR

    CALL SALTO_DE_LINEA

    

    MOV DX,OFFSET MENS2

    CALL ESCRIBE

    MOV SI,OFFSET DIR

    MOV CX,8

    CALL PEDIR

    CALL SALTO_DE_LINEA

    

    MOV DX,OFFSET MENS3

    CALL ESCRIBE

    MOV SI,OFFSET TLF

    MOV CX,10

    CALL PEDIR

    CALL SALTO_DE_LINEA

    

    CALL ESCRIBE

    CALL ESCRIBE

    CALL ESCRIBE

    MOV DX,OFFSET NOMBRE

    CALL ESCRIBE

    CALL SALTO_DE_LINEA

    MOV DX,OFFSET DIR

    CALL ESCRIBE

    CALL SALTO_DE_LINEA

    

    MOV DX,OFFSET TLF

    CALL ESCRIBE

    CALL SALTO_DE_LINEA

    CALL SALIR

    

    PEDIR PROC NEAR

    BUCLE:

    MOV AH,TECLADO

    INT DOS

    MOV[SI],AL

    MOV AH,2

    MOV DL,AL

    INT DOS

    

    INC SI

    LOOPNZ BUCLE

    

    RET 

    PEDIR ENDP

    

    ESCRIBE PROC NEAR

    MOV AH,IMPRIMIR

    INT DOS

    RET

    ESCRIBE ENDP

    

    SALTO_DE_LINEA PROC NEAR

    MOV DX,OFFSET ENTERR

    CALL ESCRIBE

    RET 

    SALTO_DE_LINEA ENDP

    

    MODO_DE_VIDEO PROC NEAR

    MOV AX,3

    INT BIOS

    RET

    MODO_DE_VIDEO ENDP

    

    SALIR PROC NEAR

    MOV AX,FIN

    INT DOS

    RET

    SALIR ENDP

CODIGO ENDS

END INICIO             

Programa No.9: Colores

Ejecución:

Código:

CR EQU 13

LF EQU 10

BIOS EQU 10H

DOS EQU 21H

TEXTO EQU 3

FIN EQU 4C00H

DATOS SEGMENT

    TITULO DB 'jaziel'

    COLORES DB 01001110B

    DB 01101111B

    DB 00110001B

    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

    COL0 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

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

Programa No.10: Binario

Ejecución:

Código:

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 UN VALOR BINARIO"

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

    VALOR_ASCII DB "0101010110","$"

DATOS ENDS

PILA SEGMENT STACK

    DB 64 DUP("0")

PILA ENDS

CODIGO SEGMENT

    ASCI PROC NEAR

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

    MOV AX,DATOS

    MOV DS,AX

    LEA DX,ENCABEZADO

    CALL ESCRIBE

    

    LEA DX, VALOR_ASCII

    CALL ESCRIBE

    CALL SALIR

    

    ASCI ENDP

    

    ESCRIBE PROC

    MOV AH,9

    INT 21H

    RET

    ESCRIBE ENDP

    

    SALIR PROC NEAR

    MOV AX,FIN

    INT DOS

    RET

SALIR ENDS

CODIGO ENDS

END ASCI

Programa No.11: Imprime numeros

Ejecución del programa:

Código:

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 EXA 91.3 ;)"

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

    VALOR_1 DW 41D,"$"

    VALOR_2 DW 42D,"$"

    VALOR_3 DW 43D,"$"

    VALOR_4 DW 44D,"$"

    VALOR_5 DW 45D,"$"

    VALOR_6 DW 46,"$"

    VALOR_7 DW 47,"$"

    VALOR_8 DW 48,"$"

    VALOR_9 DW 49,"$"

    VALOR_10 DW 50,"$"

    VALOR_11 DW 31H,"$"

    VALOR_12 DW 32H,"$"

    VALOR_13 DW 33H,"$"

    VALOR_14 DW 34H,"$"

    VALOR_15 DW 35H,"$"

    VALOR_16 DW 36H,"$"

    VALOR_17 DW 37H,"$"

    VALOR_18 DW 38H,"$"

    VALOR_19 DW 39H,"$"

    VALOR_20 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, VALOR_1

    CALL ESCRIBE

    

LEA DX, VALOR_2

CALL ESCRIBE

LEA DX, VALOR_3

CALL ESCRIBE

LEA DX, VALOR_4

CALL ESCRIBE

LEA DX, VALOR_5

CALL ESCRIBE

LEA DX, VALOR_6

CALL ESCRIBE

LEA DX, VALOR_7

CALL ESCRIBE

LEA DX, VALOR_8

CALL ESCRIBE

LEA DX, VALOR_9

CALL ESCRIBE

LEA DX, VALOR_10

CALL ESCRIBE

LEA DX, VALOR_11

CALL ESCRIBE

LEA DX, VALOR_12

CALL ESCRIBE

LEA DX, VALOR_13

CALL ESCRIBE

LEA DX, VALOR_14

CALL ESCRIBE

LEA DX, VALOR_15

CALL ESCRIBE

LEA DX, VALOR_16

CALL ESCRIBE

LEA DX, VALOR_17

CALL ESCRIBE

LEA DX, VALOR_18

CALL ESCRIBE

LEA DX, VALOR_19

CALL ESCRIBE

LEA DX, VALOR_20

CALL ESCRIBE

CALL SALIR

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

Programa No.12: Conversion

Ejecución del programa:

Código:

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, DS:DATOS, SS:PILA

  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 No.13: Números en hexadecimal

Ejecución del programa:

Código:

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 EN HEXADECIMAL"

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

DATOS ENDS

PILA SEGMENT STACK

DB 64 DUP('0')

PILA ENDS

CODIGO SEGMENT   

    CEXA PROC NEAR

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

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.14: Potencia binario

Ejecución del programa:

Código:

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 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 BX, 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.15: Numero ASCII

Ejecución del programa:

Código:

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 DW 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 ASCII IMPRESO NORMALMENTE 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, 0064, 03E8H, 2710H,"$"

DATOS ENDS

PILA SEGMENT STACK

DB 64 DUP('0')

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

CODIGO ENDS

END CAPT