Editor de Texto

Ver el tema anterior Ver el tema siguiente Ir abajo

Editor de Texto

Mensaje  [G]host el Dom Mayo 15, 2011 12:46 am

.model small
.stack 30
.data
TABLE5 DB "EDITOR DE TEXTO$"
table db "Preciona ENTER para continuar$"
table1 db "$"
table2 db "ESC para terminar.$"
table3 db "$"
table4 db "$"
.code
MOV AX,@DATA
MOV DS,AX
CALL CUADRO
CALL NOMBRES
CALL CUADRO
MOV CH,1
MOV CL,1


LECT:
MOV AH,06H
MOV DL,0FFH
INT 21H
JE LECT
CALL SALTO
CMP AL,77
JE FLECHADE
CMP AL,75
JE FLECHAI
CMP AL,72
JE FLECHA
CMP AL,80
JE FLECHAD
CMP AL,27
JE FIN
MOV DH,CH
MOV DL,CL
MOV AH,02H
MOV BH,00
INT 10H
CALL COLUMNA

MOV AH,06H
MOV DL,AL
INT 21H
JMP LECT


FIN:
MOV AH,4CH
INT 21H
;CONTROL DEL DOS

FLECHAD:
CMP CH,22
JNE ABAJO
JMP LECT
ABAJO:
INC CH
DEC CL
MOV AH,02H
MOV BH,00H
MOV DH,CH
MOV DL,CL
INT 10H
JMP LECT

FLECHADE:
CMP CL,78
JNE DERECHA
JMP LECT
DERECHA:
;INC CL
MOV AH,02H
MOV BH,00H
MOV DH,CH
MOV DL,CL
INT 10H
JMP LECT

FLECHAI:
CMP CL,1
JNE IZQUIERDA
JMP LECT
IZQUIERDA:
DEC CL
DEC CL
MOV AH,02H
MOV BH,00H
MOV DH,CH
MOV DL,CL
INT 10H
JMP LECT


FLECHA:
CMP CH,1
JNE ARRIBA
JMP LECT
ARRIBA:
DEC CL
DEC CH
MOV AH,02H
MOV BH,00H
MOV DH,CH
MOV DL,CL
INT 10H
JMP LECT

SALTO:
CMP AL,13
JE SALT
RET
SALT:
MOV CL,78
CALL COLUMNA
DEC CL
RET

FILA:
CMP CH,22
JE DATO
INC CH
RET
DATO:
RET

COLUMNA:
CMP CL,78
JE CDATO
INC CL
RET
CDATO:
MOV CL,1
CALL FILA
RET

CUADRO:
MOV AX,0600H
MOV BH,07H
MOV CX,0000
MOV DX,184FH
INT 10H ;LIMPIA PANTALLA

MOV CL,79

LINEA1:
MOV DH,0
MOV DL,cl
MOV AH,02H
MOV BH,00
INT 10H
MOV AH,06H
MOV DL,205
INT 21H
LOOP LINEA1

MOV CL,23

COLUMNA1:
MOV DH,CL
MOV DL,0
MOV AH,02H
MOV BH,00
INT 10H
MOV AH,06H
MOV DL,186
INT 21H
LOOP COLUMNA1

MOV CL,23

COLUMNA2:
MOV DH,CL
MOV DL,79
MOV AH,02H
MOV BH,00
INT 10H
MOV AH,06H
MOV DL,186
INT 21H
LOOP COLUMNA2


MOV CL,79

LINEA2:
MOV DH,23
MOV DL,cl
MOV AH,02H
MOV BH,00
INT 10H
MOV AH,06H
MOV DL,205
INT 21H
LOOP LINEA2

MOV DH,0
MOV DL,0
MOV AH,02H
MOV BH,00
INT 10H
MOV AH,06H
MOV DL,201
INT 21H

MOV DH,0
MOV DL,79
MOV AH,02H
MOV BH,00
INT 10H
MOV AH,06H
MOV DL,187
INT 21H

MOV DH,23
MOV DL,0
MOV AH,02H
MOV BH,00
INT 10H
MOV AH,06H
MOV DL,200
INT 21H

MOV DH,23
MOV DL,79
MOV AH,02H
MOV BH,00
INT 10H
MOV AH,06H
MOV DL,188
INT 21H
RET

NOMBRES:
MOV DH,9
MOV DL,20
MOV AH,02H
MOV BH,00
INT 10H
MOV DX, OFFSET TABLE5
MOV AH,9H
INT 21H

MOV DH,10
MOV DL,20
MOV AH,02H
MOV BH,00
INT 10H
MOV DX, OFFSET TABLE
MOV AH,9H
INT 21H

MOV DH,11
MOV DL,20
MOV AH,02H
MOV BH,00
INT 10H
MOV DX, OFFSET TABLE1
MOV AH,9H
INT 21H

MOV DH,12
MOV DL,20
MOV AH,02H
MOV BH,00
INT 10H
MOV DX, OFFSET TABLE2
MOV AH,9H
INT 21H

MOV DH,13
MOV DL,20
MOV AH,02H
MOV BH,00
INT 10H
MOV DX, OFFSET TABLE3
MOV AH,9H
INT 21H

MOV DH,14
MOV DL,20
MOV AH,02H
MOV BH,00
INT 10H
MOV DX, OFFSET TABLE4
MOV AH,9H
INT 21H

MOV AX,0000
MAIN:
MOV AH,06H
MOV DL,0FFH
INT 21H
CMP AL,13
JNE MAIN
RET

end
avatar
[G]host
Admin

Mensajes : 67
Puntos : 204
Reputación : 0
Fecha de inscripción : 24/10/2010
Edad : 26

Ver perfil de usuario http://ghost.activo.mx

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.