Programa No.6 Posición del cursor

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 : HUMBERTO PEREZ',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 BH,00
    MOV DH,RENGLON
    MOV DL,COLUMNA
    INT BIOS_10H
    RET
    POSICIONA_CURSOR ENDP
   
CODIGO ENDS
END PC

Programa No.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 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.4 Conjunto de líneas en pantalla con procedimiento

CR EQU 13
LF EQU 10

DATOS SEGMENT
    LINEA1 DB CR,LF,'Humberto Perez Cruz',CR,LF,'$'
    LINEA2 DB 'Tecnologico de Matamoros',CR,LF,'$'
    LINEA3 DB 'ING. SISTEMAS COMPUTACIONALES',CR,LF,'$'
    LINEA4 DB 'Soltero ;-;',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
    LEA DX,LINEA4
    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.3 Hola mundo funcion

CR EQU 13
LF EQU 10


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

Programa No.2 Uso de constantes

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

DATOS SEGMENT
    TEXTO DB 'Uso de constantes',CR,LF,'S'
   
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

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

Programa con loopz. Video

org 100h

.stack 64

.data

.code

inicio:

mov cx,10 ;cantidad de veces que repetira

mov al,'>' ;caracter inicial



Lee_car:

    mov ah,0eh ;Funcion para imprimir caracter

    int 10h   ;llama a la bios

 

    mov ah,00 ;funcion de espera de un caracter del teclado

    int 16h ;llama al bios

    cmp al,'S' ;compara el caracter con 'S'

    loope Lee_car  ;si es igual salta a otro

 

    mov ah,0eh ;funcion para imprimir caracter

    int 10h ;llamada al bios

 

    ;colocar el fin de la linea para que baje una linea y lo imprima

    mov ah,0eh ;funcion del bios para imprimir caracter

    mov al,10

    int 10h

 

    ;colocar el retorno de carro para ir al inicio

    mov al,13

    int 10h

    ;prepara la salida del programa

    mov ax,4c00h

    int 21h

end inicio