Programación General > ASM (Ensamblador)

 Necesito Un Programa Que Utilice El Gotoxy

(1/1)

eddyeeduardo:
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:

--- Código: Text ---  .model tiny.codeorg 100hINF_CAR macro car,scan,z        mov ah,1        int 16h        ifnb <car>             mov car,al        endif        ifnb <scan>             mov scan,ah        endif        ifnb <z>             setnz z        endifendm ; Bifurca a una etiqueta si hay un caracter;IF_CAR macro etq        INF_CAR        jnz etqendm esperar macro     mov ah,0     int 16hendmratini macro       mov ax,0       int 33hendmratshow macro        mov ax,1        int 33hendmrathide macro        mov ax,2        int 33hendmratizqpush macro          mov bx,0          mov ax,5          int 33h          mov ratonx,cx         &#59;getratxy          mov ratony,dxendmgetratxy macro          mov ax,3         int 33h         mov ratonx,cx         shr ratonx,1; dividimos rx entre 2         mov ratony,dx endmSET_CUR macro fila,columna        mov dh,fila        mov dl,columna        xor bh,bh        mov ah,2        int 10hendmCLS macro     limpiar pantalla(debe aver errores)       mov ax,08b00       mov es,ax       mov cx,80*40       xor si.si       loadsw es:si,0007h       rependm inicio:        ratini       ratshownext: ratizqpush        cmp bx,0        jz next        CLS     &#59;limpiar pantalla        getratxy&#59;coordenadas del mouse        mov ax,ratonx&#59;;puede aver errores en coordenadas tipo txeto o tipo grafico        mov bx,ratony       SET_CUR al,bl  &#59;;ubicacion del cursor(texto)        mov dx,offset cadena        mov ah,09h         int 21h         jmp next        fin: rathide     int 20hratonx dw 0ratony dw 0cadena db 'HOLA$'end inicio    

Navegación

[0] Índice de Mensajes