Programa 1 Modo Texto Ensamblador Actividad 3

msgDescr1, msgDescr2, msgDescr3,

msgCoord1, msgCoord2,

msgMensaj, msgOpcion, msgColTex, msgColFon,

numRenglon, numColumna,

stringNume, longitNume,

stringCade,

colorLetra, colorFondo.

msgDescr1, msgDescr2, msgDescr3,

msgCoord1, msgCoord2,

msgMensaj, msgOpcion, msgColFon, msgColTex

Activar modo de texto:

AH=00h, AL = 03h, INT 10h.

Leer y guardar Renglon:

puntero 4, 17, 0.

LLAMA leeNumero.

LLAMA obtenNumero.

AL >= 25

n

1

[numRenglon] = AL

1

Leer y guardar Columna:

puntero 5, 17, 0.

LLAMA leeNumero.

LLAMA obtenNumero.

AL >= 80

n

2

[numColumna] = AL.

Lee y guardar Cadena:

puntero 5, 17, 0.

LLAMA leeCadena.

Lee Opcion Colores:

puntero 8, 20, 0.

LLAMA leeOpcion.

[colorFondo] = AL

puntero 9, 20, 0.

LLAMA leeOpcion.

[colorLetra] = AL

BX = colorFondo

[BX] == 'a'

DL = 0F0h (Blanco)

[BX] == 'b'

[BX] == 'c'

[BX] == 'd'

DL = 10h (Azul)

DL = 70h (Gris)

DL = 20h (Verde)

2

BX = colorLetra

[BX] == 'a'

DL += 0Fh (Blanco)

[BX] == 'b'

[BX] == 'c'

[BX] == 'd'

DL += 1h (Azul)

DL += 7h (Gris)

DL += 2h (Verde)

BH = DL

Limpiar pantalla, colores asignados por BH

Cadena en posicion Indicada:

DH = [numRenglon].

DL = [numColumna].

puntero DH, DL, 0.

stringCade

n

INICIO

FIN

INICIO puntero r, c, p

AH = 02h.

BH = p (pagina).

DH = r (renglon).

DL = c (columna).

INT 10h.

FIN puntero

INICIO leeCadena

CX = 0

char

AL = char

AL == 0Dh

AL

BX = stringCade.

BX = BX + CX.

[BX] = AL.

CX += 1.

CX == 20

AL = '$'.

BX = stringCade.

BX = BX + CX.

[BX] = AL.

INICIO leeOpcion

Lee, muestra caracter y almacena en AL

AL < 'a'

AL > 'd'

RETORNAR

MACRO

PROCEDURE

RETORNAR

FIN leeCadena

FIN leeOpcion

PROCEDURE

n

INICIO leeNumero

CX = 0

AL == 0Dh

BX = stringNume.

BX = BX + CX.

[BX] = AL.

CX += 1.

CX == 02h

Lee, muestra caractes y almacena en AL

CL == 00h

n

[longitNume] = CL

RETORNAR

FIN leeNumero

PROCEDURE

INICIO obtenNumero

DX = 1

CX = 0

BX = longitNume

CL = [BX]

PROCEDURE

DX = Multiplo

CL = longitud

BX = stringNume

BX = BX + CX

BX = BX - 1

AL = [BX]

AL = AL - 30

AL = AL * DL

CX == 1h

PILA agrega AX

AL = DL

DL = 10

AL =AL * DL

DL = AL

CX = CX - 1

CX == 0

1er Char

1a

1a

CL = [longitNume]

CL <= 1h

saca PILA DX

AL = AL + DL

RETORNO

FIN obtenNumero

Solo

ingreso 0Dh

Evita

Ciclado

2da BX: Desplazamiento

3ra BX: Posicion

1er AL: Char numero

2da AL: Numero

3ra AL: Decena o Unidad

Guarda unidades

en PILA

Aumenta DL, decenas