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

JNE P

CURSOR(6),(5)

PRINT3 (PV1)

JMP H2

P:

CLD

MOV AL,'s'

MOV CX,2

LEA DI,RESERVAR5+1

REPNE SCASB

JNE S

CURSOR(8),(5)

PRINT3 (SV1)

JMP H2

S:

CLD

MOV AL,'d'

MOV CX,2

LEA DI,RESERVAR5+1

REPNE SCASB

JNE D

CURSOR(10),(5)

PRINT3 (DV1)

JMP H2

D:

CLD

MOV AL,'f'

MOV CX,2

LEA DI,RESERVAR5+1

REPNE SCASB

JNE F

CURSOR(12),(5)

PRINT3 (FV1)

JMP H2

F:

CLD

MOV AL,'g'

MOV CX,2

LEA DI,RESERVAR5+1

REPNE SCASB

JNE G

CURSOR(4),(5)

PRINT3 (GV1)

JMP H2

G:

CLD

MOV AL,'h'

MOV CX,2

LEA DI,RESERVAR5+1

REPNE SCASB

JNE H

CURSOR(6),(5)

PRINT3 (HV1)

JMP H2

H:

CLD

MOV AL,'j'

MOV CX,2

LEA DI,RESERVAR5+1

REPNE SCASB

JNE J

CURSOR(8),(5)

PRINT3 (JV1)

JMP H2

J:

CLD

MOV AL,'k'

MOV CX,2

LEA DI,RESERVAR5+1

REPNE SCASB

JNE K

CURSOR(10),(5)

PRINT3 (KV1)

JMP H2

K:

CLD

MOV AL,'l'

MOV CX,2

LEA DI,RESERVAR5+1

REPNE SCASB

JNE L

CURSOR(12),(5)

PRINT3 (LV1)

JMP H2

L:

CLD

MOV AL,'z'

MOV CX,2

LEA DI,RESERVAR5+1

REPNE SCASB

JNE Z

CURSOR(10),(5)

PRINT3 (ZV1)

JMP H2

Z:

CLD

MOV AL,'x'

MOV CX,2

LEA DI,RESERVAR5+1

REPNE SCASB

JNE X

CURSOR(12),(5)

PRINT3 (XV1)

JMP H2

X:

CLD

MOV AL,'c'

MOV CX,2

LEA DI,RESERVAR5+1

REPNE SCASB

JNE C

CURSOR(10),(5)

PRINT3 (CV1)

JMP H2

C:

CLD

MOV AL,'v'

MOV CX,2

LEA DI,RESERVAR5+1

REPNE SCASB

JNE V

CURSOR(12),(5)

PRINT3 (VV1)

JMP H2

V:

CLD

MOV AL,'b'

MOV CX,2

LEA DI,RESERVAR5+1

REPNE SCASB

JNE B

CURSOR(10),(5)

PRINT3 (BV1)

JMP H2

B:

CLD

MOV AL,'n'

MOV CX,2

LEA DI,RESERVAR5+1

REPNE SCASB

JNE N

CURSOR(12),(5)

PRINT3 (NV1)

JMP H2

N:

CLD

MOV AL,'m'

MOV CX,2

LEA DI,RESERVAR5+1

...