Curp Ensamblador TASM

PRINT1 MACRO

;titulo ado

MOV AH,09H

LEA DX,MSG1

INT 21H

ENDM

PRINT2 MACRO

;titulo ado

MOV AH,09H

LEA DX,MSG2

INT 21H

ENDM

PRINT3 MACRO H

;titulo ado

MOV AH,09H

LEA DX,H

INT 21H

ENDM

CURSOR MACRO A,B

MOV AH,02H

MOV BH,00

MOV DH,A ;RENGLON (24)

MOV DL,B;LA COLUMNA (79)

INT 10H

ENDM

.MODEL SMALL

.STACK 64

.DATA

REAL5 LABEL BYTE

MAX5 DB 10;NUMERO MAXIMO DE CARACTERES DE ENTRADA

ENTRADA5 DB ? ;NUMERO REAL DE CARECTERES DE ENTRADA

RESERVAR5 DB 10 DUP(' '),'$';CARACTERES INTRODUCIDOS DEL TECLAD

QV1 DB 'q', '$'

WV1 DB 'w', '$'

RV1 DB 'r', '$'

TV1 DB 't', '$'

YV1 DB 'y', '$'

PV1 DB 'p', '$'

SV1 DB 's', '$'

DV1 DB 'd', '$'

FV1 DB 'f', '$'

GV1 DB 'g', '$'

HV1 DB 'h', '$'

JV1 DB 'j', '$'

KV1 DB 'k', '$'

LV1 DB 'l', '$'

ZV1 DB 'z', '$'

XV1 DB 'x', '$'

CV1 DB 'c', '$'

VV1 DB 'v', '$'

BV1 DB 'b', '$'

NV1 DB 'n', '$'

MV1 DB 'm', '$'

MSG1 DB 'SE ENCONTRO', '$'

MSG2 DB 'NO SE ENCONTRO', '$'

.CODE

COMP PROC FAR

MOV AX,@DATA

MOV DS,AX

MOV ES,AX

CURSOR(2),(5)

MOV AH,0AH ;PETICION DE LA FUNCION E ENTRADA

LEA DX,REAL5;CARGA LA DIRECCION DE LA LISTA DE PARAMETROS

INT 21H ;PETICION DE ENTRADA DE TECLADO

CLD

MOV AL,'q'

MOV CX,2

LEA DI,RESERVAR5+1

REPNE SCASB

JNE Q

CURSOR(4),(5)

PRINT3 (QV1)

JMP H2

Q:

CLD

MOV AL,'w'

MOV CX,2

LEA DI,RESERVAR5+1

REPNE SCASB

JNE W

CURSOR(6),(5)

PRINT3 (WV1)

JMP H2

W:

CLD

MOV AL,'r'

MOV CX,2

LEA DI,RESERVAR5+1

REPNE SCASB

JNE R

CURSOR(8),(5)

PRINT3 (RV1)

JMP H2

R:

CLD

MOV AL,'t'

MOV CX,2

LEA DI,RESERVAR5+1

REPNE SCASB

JNE T

CURSOR(10),(5)

PRINT3 (TV1)

JMP H2

T:

CLD

MOV AL,'y'

MOV CX,2

LEA DI,RESERVAR5+1

REPNE SCASB

JNE Y

CURSOR(12),(5)

PRINT3 (YV1)

JMP H2

Y:

CLD

MOV AL,'p'

MOV CX,2

LEA DI,RESERVAR5+1

REPNE SCASB

...