79
« en: Miércoles 9 de Mayo de 2007, 02:40 »
hola que tal!!!
quisiera saber como puedo hacerle para utilizar un color diferente para cadena.
digamos:
msg db 'colorRojo',0
msg1 db 'colorAma',0
lo trate con la int 10, que tiene la siguiente estructura:
MOV BH,0eH
MOV CX,0000
MOV DX,184FH
INT 10H
pero no me sirvio. para que se den una idea de lo que intente hacer ahi les va mi
codigo ahi si me pueden echar la mano diciendome que otra interrupcion puedo
usar se los agradeceria.
MODEL small
.STACK 100h
extrn clrscr:near
extrn putchar:near
extrn puts:near
extrn getchar:near
extrn getch:near
extrn gotoxy:near
extrn kbhit:near ; AH=0 si no hay tecla AH=1 si hay tecla; AL=TECLA
LOCALS
.DATA
msg db 'colorR',0
msg1 db 'colorA',0
.CODE
PRIN PROC
mov ax,@data
mov ds,ax
call clrscr
call amar
call getch
mov bh,0fh ;/// coordenadas para
mov bl,1h ;/// para el gotoxy
call gotoxy
call rojo
mov ah,04ch
mov al,0
int 21h
ret
endp
rojo PROC ;//// procedimiento para pintar el mensaje en rojo
MOV BH,0cH
MOV CX,0000
MOV DX,2045H
INT 10H
mov bx,0a00h
mov dx,offset msg
call puts
ret
endp
amar PROC ;/////////////procedimiento para pintar el mensaje en amarillo
MOV BH,0eH
MOV CX,0000
MOV DX,2045H
INT 10H
mov dx,offset msg1
call puts
ret
endp