• Domingo 22 de Diciembre de 2024, 18:39
« anterior próximo »
Páginas: [1]

Autor Tema:  Necesito Un Programa Que Utilice El Gotoxy  (Leído 2676 veces)

eddyeeduardo

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Necesito Un Programa Que Utilice El Gotoxy
« en: Miércoles 8 de Diciembre de 2004, 19:37 »
0
Miren lo que pasa que necesito un programa en ensamblador que imprima un letrero , pero que el usuario solo le pida la cordenadas y que ahi lo imprima en forma vertical y horizontal


ejemplo
                   
                            hola
                            o
                            l
                            a

Super_G

  • Miembro MUY activo
  • ***
  • Mensajes: 375
    • Ver Perfil
Re: Necesito Un Programa Que Utilice El Gotoxy
« Respuesta #1 en: Viernes 17 de Diciembre de 2004, 18:34 »
0
Código: Text
  1.  
  2.  
  3. .model tiny
  4. .code
  5. org 100h
  6. INF_CAR macro car,scan,z
  7.         mov ah,1
  8.         int 16h
  9.         ifnb <car>
  10.              mov car,al
  11.         endif
  12.         ifnb <scan>
  13.              mov scan,ah
  14.         endif
  15.         ifnb <z>
  16.              setnz z
  17.         endif
  18. endm
  19.  
  20. ; Bifurca a una etiqueta si hay un caracter
  21. ;
  22. IF_CAR macro etq
  23.         INF_CAR
  24.         jnz etq
  25. endm
  26.  
  27. esperar macro
  28.      mov ah,0
  29.      int 16h
  30. endm
  31. ratini macro
  32.        mov ax,0
  33.        int 33h
  34. endm
  35. ratshow macro
  36.         mov ax,1
  37.         int 33h
  38. endm
  39. rathide macro
  40.         mov ax,2
  41.         int 33h
  42. endm
  43. ratizqpush macro
  44.           mov bx,0
  45.           mov ax,5
  46.           int 33h
  47.           mov ratonx,cx
  48.          &#59;getratxy
  49.           mov ratony,dx
  50. endm
  51. getratxy macro
  52.  
  53.          mov ax,3
  54.          int 33h
  55.          mov ratonx,cx
  56.          shr ratonx,1; dividimos rx entre 2
  57.          mov ratony,dx
  58.  
  59. endm
  60. SET_CUR macro fila,columna
  61.         mov dh,fila
  62.         mov dl,columna
  63.         xor bh,bh
  64.         mov ah,2
  65.         int 10h
  66. endm
  67. CLS macro     limpiar pantalla(debe aver errores)
  68.        mov ax,08b00
  69.        mov es,ax
  70.        mov cx,80*40
  71.        xor si.si
  72.        loadsw es:si,0007h
  73.        rep
  74. endm
  75.  
  76. inicio:
  77.        ratini
  78.        ratshow
  79. next: ratizqpush
  80.         cmp bx,0
  81.         jz next
  82.         CLS     &#59;limpiar pantalla
  83.         getratxy&#59;coordenadas del mouse
  84.         mov ax,ratonx&#59;;puede aver errores en coordenadas tipo txeto o tipo grafico
  85.         mov bx,ratony
  86.        SET_CUR al,bl  &#59;;ubicacion del cursor(texto)
  87.         mov dx,offset cadena
  88.         mov ah,09h
  89.          int 21h
  90.          jmp next      
  91.  
  92. fin: rathide
  93.      int 20h
  94. ratonx dw 0
  95. ratony dw 0
  96. cadena db 'HOLA$'
  97. end inicio
  98.  
  99.  
  100.  
  101.  
Páginas: [1]
« anterior próximo »